[Home] [Help]
30: l_duration NUMBER;
31: l_uom_code MTL_UNITS_OF_MEASURE_TL.uom_code%TYPE;
32: BEGIN
33:
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;
31: l_uom_code MTL_UNITS_OF_MEASURE_TL.uom_code%TYPE;
32: BEGIN
33:
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:
47: l_uom_code := p_new_uom_code;
48: --if duration/period are also null, use the old contract's duration period
49: IF(l_duration IS NULL OR l_uom_code IS NULL) THEN
50:
51: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
52: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration', 'before call to OKC_TIME_UTIL_PUB.get_duration p_start_date='||to_char(p_old_start_date)||' ,p_end_date='||to_char(p_old_end_date));
53: END IF;
54:
55: OKC_TIME_UTIL_PUB.get_duration(
48: --if duration/period are also null, use the old contract's duration period
49: IF(l_duration IS NULL OR l_uom_code IS NULL) THEN
50:
51: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
52: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration', 'before call to OKC_TIME_UTIL_PUB.get_duration p_start_date='||to_char(p_old_start_date)||' ,p_end_date='||to_char(p_old_end_date));
53: END IF;
54:
55: OKC_TIME_UTIL_PUB.get_duration(
56: p_start_date => trunc(p_old_start_date),
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);
70: END IF;
71: END IF; --of (l_duration IS NULL OR l_uom_code IS NULL) THEN
72:
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);
70: END IF;
71: END IF; --of (l_duration IS NULL OR l_uom_code IS NULL) THEN
72:
73: --now determine the end date from duration/period
70: END IF;
71: END IF; --of (l_duration IS NULL OR l_uom_code IS NULL) THEN
72:
73: --now determine the end date from duration/period
74: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
75: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.derive_end_date', 'before call to OKC_TIME_UTIL_PUB.get_enddate, p_start_date='||to_char(p_new_start_date)||' ,p_timeunit='||l_uom_code||' ,p_duration='||l_duration);
76: END IF;
77:
78: l_end_date := OKC_TIME_UTIL_PUB.get_enddate(
71: END IF; --of (l_duration IS NULL OR l_uom_code IS NULL) THEN
72:
73: --now determine the end date from duration/period
74: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
75: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.derive_end_date', 'before call to OKC_TIME_UTIL_PUB.get_enddate, p_start_date='||to_char(p_new_start_date)||' ,p_timeunit='||l_uom_code||' ,p_duration='||l_duration);
76: END IF;
77:
78: l_end_date := OKC_TIME_UTIL_PUB.get_enddate(
79: p_start_date => trunc(p_new_start_date),
79: p_start_date => trunc(p_new_start_date),
80: p_timeunit => l_uom_code,
81: p_duration => l_duration);
82:
83: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
84: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.derive_end_date', 'after call to OKC_TIME_UTIL_PUB.get_enddate, l_end_date='||to_char(l_end_date));
85: END IF;
86:
87: END IF; --of IF (l_end_date IS NULL) THEN
80: p_timeunit => l_uom_code,
81: p_duration => l_duration);
82:
83: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
84: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.derive_end_date', 'after call to OKC_TIME_UTIL_PUB.get_enddate, l_end_date='||to_char(l_end_date));
85: END IF;
86:
87: END IF; --of IF (l_end_date IS NULL) THEN
88:
96: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NEW_START_MORE_FINAL_END');
97: FND_MESSAGE.set_token('START_DATE', to_char(trunc(p_new_start_date), 'DD-MON-YYYY'));
98: FND_MESSAGE.set_token('REN_UP_TO_DATE', to_char(trunc(p_renewal_end_date), 'DD-MON-YYYY'));
99:
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;
97: FND_MESSAGE.set_token('START_DATE', to_char(trunc(p_new_start_date), 'DD-MON-YYYY'));
98: FND_MESSAGE.set_token('REN_UP_TO_DATE', to_char(trunc(p_renewal_end_date), 'DD-MON-YYYY'));
99:
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:
108: --now truncate end date to ultimate end date if required
109: IF (trunc(l_end_date) > trunc(p_renewal_end_date)) THEN
110: l_end_date := trunc(p_renewal_end_date);
111:
112: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
113: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.truncate', 'truncated end date, l_end_date='||to_char(l_end_date));
114: END IF;
115: END IF;
116:
109: IF (trunc(l_end_date) > trunc(p_renewal_end_date)) THEN
110: l_end_date := trunc(p_renewal_end_date);
111:
112: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
113: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.truncate', 'truncated end date, l_end_date='||to_char(l_end_date));
114: END IF;
115: END IF;
116:
117: END IF;
115: END IF;
116:
117: END IF;
118:
119: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
120: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', ' l_end_date='||to_char(l_end_date));
121: END IF;
122:
123: RETURN l_end_date;
116:
117: END IF;
118:
119: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
120: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', ' l_end_date='||to_char(l_end_date));
121: END IF;
122:
123: RETURN l_end_date;
124: EXCEPTION
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;
131:
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;
131:
132: WHEN FND_API.g_exc_unexpected_error THEN
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;
138:
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;
138:
139: WHEN OTHERS THEN
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);
145: --then add it to the message api list
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);
145: --then add it to the message api list
146: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
147: END IF;
148: RAISE;
223: is
224: l_rec line_rec := null;
225: BEGIN
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:
224: l_rec line_rec := null;
225: BEGIN
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
246: end if;
247: end loop;
248: END IF;
249:
250: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
251: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.get_parent_rec.end', 'l_rec.id='||l_rec.id||' ,l_rec.lrt='||l_rec.lrt);
252: END IF;
253:
254: RETURN l_rec;
247: end loop;
248: END IF;
249:
250: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
251: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.get_parent_rec.end', 'l_rec.id='||l_rec.id||' ,l_rec.lrt='||l_rec.lrt);
252: END IF;
253:
254: RETURN l_rec;
255: END GET_PARENT_REC;
264: l_cached_tbl_tmp line_rec_tbl_type;
265: n number;
266: BEGIN
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:
265: n number;
266: BEGIN
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;
293: --now use the temp cache as the real cache for the next bulk fetch cycle
294: l_cached_tbl := l_cached_tbl_tmp;
295: l_cached_tbl_tmp.delete;
296:
297: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
298: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.populate_cache.end', 'l_cached_tbl.count='||l_cached_tbl.count);
299: END IF;
300:
301: end POPULATE_CACHE;
294: l_cached_tbl := l_cached_tbl_tmp;
295: l_cached_tbl_tmp.delete;
296:
297: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
298: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.populate_cache.end', 'l_cached_tbl.count='||l_cached_tbl.count);
299: END IF;
300:
301: end POPULATE_CACHE;
302:
314: l_dnr_lines_tbl num_tbl_type;
315:
316: BEGIN
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:
315:
316: BEGIN
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);
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;
326:
327: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
328: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_dnr_lines.bulk_fetch', 'l_dnr_lines_tbl.count='||l_dnr_lines_tbl.count);
329: END IF;
330:
331: exit when (l_dnr_lines_tbl.count = 0);
324: loop
325: fetch c_dnr_lines bulk collect into l_dnr_lines_tbl limit G_BULK_FETCH_LIMIT;
326:
327: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
328: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_dnr_lines.bulk_fetch', 'l_dnr_lines_tbl.count='||l_dnr_lines_tbl.count);
329: END IF;
330:
331: exit when (l_dnr_lines_tbl.count = 0);
332:
334: -- this will delete all associated okc/oks lines
335: -- and other entiries such as billing schedule, coverages etc
336: -- OKC code was not doing this
337:
338: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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,
335: -- and other entiries such as billing schedule, coverages etc
336: -- OKC code was not doing this
337:
338: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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,
346: x_return_status => x_return_status,
347: x_msg_count => x_msg_count,
348: x_msg_data => x_msg_data);
349:
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
347: x_msg_count => x_msg_count,
348: x_msg_data => x_msg_data);
349:
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;
362: END LOOP;
363: CLOSE c_dnr_lines;
364: l_dnr_lines_tbl.delete;
365:
366: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
363: CLOSE c_dnr_lines;
364: l_dnr_lines_tbl.delete;
365:
366: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
377:
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;
377:
378: WHEN FND_API.g_exc_unexpected_error THEN
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;
384:
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;
384:
385: WHEN OTHERS THEN
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);
391: --then add it to the message api list
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);
391: --then add it to the message api list
392: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
393: END IF;
394: IF (c_dnr_lines%isopen) THEN
400: */
401:
402: BEGIN
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:
401:
402: BEGIN
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
433: start_date = to_date(to_char(p_new_start_date, 'DD/MM/YYYY')|| to_char(start_date,'HH24:MI:SS'), 'DD/MM/YYYYHH24:MI:SS'),
434: end_date = to_date(to_char(p_new_end_date, 'DD/MM/YYYY')|| to_char(end_date,'HH24:MI:SS'), 'DD/MM/YYYYHH24:MI:SS')
435: WHERE dnz_chr_id = p_chr_id;
436:
437: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
438: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_keep', 'end no keep duration lines, done with date updates ,x_return_status='||x_return_status);
439: END IF;
440: RETURN;
441:
434: end_date = to_date(to_char(p_new_end_date, 'DD/MM/YYYY')|| to_char(end_date,'HH24:MI:SS'), 'DD/MM/YYYYHH24:MI:SS')
435: WHERE dnz_chr_id = p_chr_id;
436:
437: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
438: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_keep', 'end no keep duration lines, done with date updates ,x_return_status='||x_return_status);
439: END IF;
440: RETURN;
441:
442: END IF;
447: LOOP
448: --fetch okc lines in heirarchial order
449: FETCH c_lines BULK COLLECT INTO l_lines_tbl LIMIT G_BULK_FETCH_LIMIT;
450:
451: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
452: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.c_lines_bulk_fetch', 'l_lines_tbl.count='||l_lines_tbl.count);
453: END IF;
454:
455: EXIT WHEN (l_lines_tbl.count = 0);
448: --fetch okc lines in heirarchial order
449: FETCH c_lines BULK COLLECT INTO l_lines_tbl LIMIT G_BULK_FETCH_LIMIT;
450:
451: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
452: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.c_lines_bulk_fetch', 'l_lines_tbl.count='||l_lines_tbl.count);
453: END IF;
454:
455: EXIT WHEN (l_lines_tbl.count = 0);
456:
455: EXIT WHEN (l_lines_tbl.count = 0);
456:
457: for i in l_lines_tbl.first..l_lines_tbl.last loop
458:
459: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
460: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_begin', 'i='||i||' ,l_lines_tbl(i).cle_id='||l_lines_tbl(i).cle_id);
461: END IF;
462:
463: --determine the parent lrt and parent dates
456:
457: for i in l_lines_tbl.first..l_lines_tbl.last loop
458:
459: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
460: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_begin', 'i='||i||' ,l_lines_tbl(i).cle_id='||l_lines_tbl(i).cle_id);
461: END IF;
462:
463: --determine the parent lrt and parent dates
464: --for top lines
479: l_parent_old_start_date := trunc(l_parent_rec.old_start_date);
480: end if; --of if lines_tbl(i).cle_id is null then
481:
482:
483: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
484: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_parent', 'i='||i||' ,l_parent_new_start_date='||l_parent_new_start_date||' ,l_parent_new_end_date='||l_parent_new_end_date);
485: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_parent',' l_parent_old_start_date='||l_parent_old_start_date||' ,l_lines_tbl(i).lrt='||l_lines_tbl(i).lrt);
486: END IF;
487:
480: end if; --of if lines_tbl(i).cle_id is null then
481:
482:
483: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
484: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_parent', 'i='||i||' ,l_parent_new_start_date='||l_parent_new_start_date||' ,l_parent_new_end_date='||l_parent_new_end_date);
485: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_parent',' l_parent_old_start_date='||l_parent_old_start_date||' ,l_lines_tbl(i).lrt='||l_lines_tbl(i).lrt);
486: END IF;
487:
488: --determine the new dates based on renewal type
481:
482:
483: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
484: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_parent', 'i='||i||' ,l_parent_new_start_date='||l_parent_new_start_date||' ,l_parent_new_end_date='||l_parent_new_end_date);
485: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_parent',' l_parent_old_start_date='||l_parent_old_start_date||' ,l_lines_tbl(i).lrt='||l_lines_tbl(i).lrt);
486: END IF;
487:
488: --determine the new dates based on renewal type
489: if l_lines_tbl(i).lrt = 'FUL' then
490: -- line dates are the same as parent dates
491: l_lines_tbl(i).new_start_date := trunc(l_parent_new_start_date);
492: l_lines_tbl(i).new_end_date := trunc(l_parent_new_end_date);
493:
494: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
495: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_FUL', 'i='||i||' ,l_lines_tbl(i).new_start_date='||l_lines_tbl(i).new_start_date||' ,l_lines_tbl(i).new_end_date='||l_lines_tbl(i).new_end_date);
496: END IF;
497:
498: elsif l_lines_tbl(i).lrt = 'KEP' then
491: l_lines_tbl(i).new_start_date := trunc(l_parent_new_start_date);
492: l_lines_tbl(i).new_end_date := trunc(l_parent_new_end_date);
493:
494: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
495: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_FUL', 'i='||i||' ,l_lines_tbl(i).new_start_date='||l_lines_tbl(i).new_start_date||' ,l_lines_tbl(i).new_end_date='||l_lines_tbl(i).new_end_date);
496: END IF;
497:
498: elsif l_lines_tbl(i).lrt = 'KEP' then
499:
500: --get the original start date offset
501: l_duration := 0;
502: l_additional_days := 0;
503:
504: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
505: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_1', 'i='||i||' calling OKC_TIME_UTIL_PVT.get_oracle_months_and_days, p_start_date='||l_parent_old_start_date||' ,p_end_date='||l_lines_tbl(i).old_start_date);
506: END IF;
507:
508: OKC_TIME_UTIL_PVT.get_oracle_months_and_days(
501: l_duration := 0;
502: l_additional_days := 0;
503:
504: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
505: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_1', 'i='||i||' calling OKC_TIME_UTIL_PVT.get_oracle_months_and_days, p_start_date='||l_parent_old_start_date||' ,p_end_date='||l_lines_tbl(i).old_start_date);
506: END IF;
507:
508: OKC_TIME_UTIL_PVT.get_oracle_months_and_days(
509: p_start_date => trunc(l_parent_old_start_date),
511: x_month_duration => l_duration,
512: x_day_duration => l_additional_days,
513: x_return_status => x_return_status);
514:
515: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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:
512: x_day_duration => l_additional_days,
513: x_return_status => x_return_status);
514:
515: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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
532: --get the original end date offset
533: l_duration := 0;
534: l_additional_days := 0;
535:
536: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
537: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_2', 'i='||i||' calling OKC_TIME_UTIL_PVT.get_oracle_months_and_days, p_start_date='||l_parent_old_start_date||
538: ' ,p_end_date='||l_lines_tbl(i).old_end_date||' ,x_return_status='||x_return_status);
539: END IF;
540:
533: l_duration := 0;
534: l_additional_days := 0;
535:
536: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
537: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_2', 'i='||i||' calling OKC_TIME_UTIL_PVT.get_oracle_months_and_days, p_start_date='||l_parent_old_start_date||
538: ' ,p_end_date='||l_lines_tbl(i).old_end_date||' ,x_return_status='||x_return_status);
539: END IF;
540:
541: OKC_TIME_UTIL_PVT.get_oracle_months_and_days(
544: x_month_duration => l_duration,
545: x_day_duration => l_additional_days,
546: x_return_status => x_return_status);
547:
548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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:
545: x_day_duration => l_additional_days,
546: x_return_status => x_return_status);
547:
548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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
563: --chop line end date if it is greater than parent end date
564: if (trunc(l_lines_tbl(i).new_end_date) > trunc(l_parent_new_end_date)) then
565: l_lines_tbl(i).new_end_date := trunc(l_parent_new_end_date);
566:
567: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
568: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_4', 'i='||i||' chopped line end date, l_lines_tbl(i).new_end_date='||l_lines_tbl(i).new_end_date||
569: ' ,l_parent_new_end_date='||l_parent_new_end_date);
570: END IF;
571:
564: if (trunc(l_lines_tbl(i).new_end_date) > trunc(l_parent_new_end_date)) then
565: l_lines_tbl(i).new_end_date := trunc(l_parent_new_end_date);
566:
567: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
568: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_4', 'i='||i||' chopped line end date, l_lines_tbl(i).new_end_date='||l_lines_tbl(i).new_end_date||
569: ' ,l_parent_new_end_date='||l_parent_new_end_date);
570: END IF;
571:
572: end if;
576: --1 day renewal
577: l_lines_tbl(i).new_start_date := trunc(l_parent_new_start_date);
578: l_lines_tbl(i).new_end_date := trunc(l_parent_new_start_date);
579:
580: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
581: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_5', 'i='||i||', 1 day renewal, l_lines_tbl(i).new_start_date > l_parent_new_end_date l_lines_tbl(i).new_st_date='||
582: l_lines_tbl(i).new_start_date||' ,l_parent_new_end_date='||l_parent_new_end_date);
583: END IF;
584:
577: l_lines_tbl(i).new_start_date := trunc(l_parent_new_start_date);
578: l_lines_tbl(i).new_end_date := trunc(l_parent_new_start_date);
579:
580: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
581: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_5', 'i='||i||', 1 day renewal, l_lines_tbl(i).new_start_date > l_parent_new_end_date l_lines_tbl(i).new_st_date='||
582: l_lines_tbl(i).new_start_date||' ,l_parent_new_end_date='||l_parent_new_end_date);
583: END IF;
584:
585: end if;
589: l_id_tbl(i) := l_lines_tbl(i).id;
590: l_start_date_tbl(i) := trunc(l_lines_tbl(i).new_start_date);
591: l_end_date_tbl(i) := trunc(l_lines_tbl(i).new_end_date);
592:
593: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
594: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_end', 'i='||i||' ,l_id_tbl(i)='||l_id_tbl(i)||' ,l_start_date_tbl(i)='||l_start_date_tbl(i)||' ,l_end_date_tbl(i)='||l_end_date_tbl(i));
595: END IF;
596:
597: end loop; --of for i in l_lines_tbl.first..l_lines_tbl.last loop
590: l_start_date_tbl(i) := trunc(l_lines_tbl(i).new_start_date);
591: l_end_date_tbl(i) := trunc(l_lines_tbl(i).new_end_date);
592:
593: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
594: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_end', 'i='||i||' ,l_id_tbl(i)='||l_id_tbl(i)||' ,l_start_date_tbl(i)='||l_start_date_tbl(i)||' ,l_end_date_tbl(i)='||l_end_date_tbl(i));
595: END IF;
596:
597: end loop; --of for i in l_lines_tbl.first..l_lines_tbl.last loop
598:
597: end loop; --of for i in l_lines_tbl.first..l_lines_tbl.last loop
598:
599:
600: --now we have determined the new start/end dates of all the lines
601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
602: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.forall_update_stmt ', 'l_id_tbl.count='||l_id_tbl.count||' ,x_return_status='||x_return_status);
603: END IF;
604:
605: --becuase of bug 2689096, we need to capture the time component also for each
598:
599:
600: --now we have determined the new start/end dates of all the lines
601: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
602: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.forall_update_stmt ', 'l_id_tbl.count='||l_id_tbl.count||' ,x_return_status='||x_return_status);
603: END IF;
604:
605: --becuase of bug 2689096, we need to capture the time component also for each
606: --start date and end date
617:
618: -- populate the cache for next bulk fetch
619: -- this gets all the parents of the last record and stores them in a local table
620: -- this is necessary to derive the parent for the lines obtained in the next bulk fetch.
621: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
622: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_populate_cache', 'l_lines_tbl(l_lines_tbl.last).id='||l_lines_tbl(l_lines_tbl.last).id||' ,x_return_status='||x_return_status);
623: END IF;
624: populate_cache(l_lines_tbl(l_lines_tbl.last));
625:
618: -- populate the cache for next bulk fetch
619: -- this gets all the parents of the last record and stores them in a local table
620: -- this is necessary to derive the parent for the lines obtained in the next bulk fetch.
621: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
622: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_populate_cache', 'l_lines_tbl(l_lines_tbl.last).id='||l_lines_tbl(l_lines_tbl.last).id||' ,x_return_status='||x_return_status);
623: END IF;
624: populate_cache(l_lines_tbl(l_lines_tbl.last));
625:
626: end loop; -- main bulk fetch limit loop
630: l_start_date_tbl.delete;
631: l_end_date_tbl.delete;
632:
633:
634: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
635: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='||x_return_status);
636: END IF;
637:
638: EXCEPTION
631: l_end_date_tbl.delete;
632:
633:
634: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
635: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='||x_return_status);
636: END IF;
637:
638: EXCEPTION
639:
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;
646:
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;
646:
647: WHEN FND_API.g_exc_unexpected_error THEN
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;
653:
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;
653:
654: WHEN OTHERS THEN
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);
660: --then add it to the message api list
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);
660: --then add it to the message api list
661: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
662: END IF;
663: IF (c_lines%isopen) THEN
702: AND ol.object_cle_id = okl.id AND okl.dnz_chr_id = cp_old_chr_id;
703:
704: BEGIN
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:
703:
704: BEGIN
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:
717: OPEN c_old_lines(p_new_chr_id, p_old_chr_id);
718: LOOP
719: FETCH c_old_lines BULK COLLECT INTO l_id_tbl LIMIT G_BULK_FETCH_LIMIT;
720:
721: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
722: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_fetch', 'l_id_tbl.count='||l_id_tbl.count);
723: END IF;
724:
725: EXIT WHEN (l_id_tbl.count = 0);
718: LOOP
719: FETCH c_old_lines BULK COLLECT INTO l_id_tbl LIMIT G_BULK_FETCH_LIMIT;
720:
721: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
722: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_fetch', 'l_id_tbl.count='||l_id_tbl.count);
723: END IF;
724:
725: EXIT WHEN (l_id_tbl.count = 0);
726:
734: END LOOP;
735: CLOSE c_old_lines;
736: l_id_tbl.delete;
737:
738: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
739: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='||x_return_status);
740: END IF;
741:
742: EXCEPTION
735: CLOSE c_old_lines;
736: l_id_tbl.delete;
737:
738: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
749:
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;
749:
750: WHEN FND_API.g_exc_unexpected_error THEN
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;
756:
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;
756:
757: WHEN OTHERS THEN
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);
763: END IF;
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);
763: END IF;
764: IF (c_old_lines%isopen) THEN
765: CLOSE c_old_lines;
806: l_date_inactive_tbl date_tbl_type;
807:
808: BEGIN
809:
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;
807:
808: BEGIN
809:
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;
819:
820: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
821: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_fetch', 'l_cond_tbl.count='||l_cond_tbl.count);
822: END IF;
823:
824: exit when (l_cond_tbl.count = 0);
817: loop
818: fetch c_condition_headers bulk collect into l_cond_tbl limit G_BULK_FETCH_LIMIT;
819:
820: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
821: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_fetch', 'l_cond_tbl.count='||l_cond_tbl.count);
822: END IF;
823:
824: exit when (l_cond_tbl.count = 0);
825:
854:
855: end loop;
856: close c_condition_headers;
857:
858: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
859: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='||x_return_status);
860: END IF;
861:
862: EXCEPTION
855: end loop;
856: close c_condition_headers;
857:
858: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
869:
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;
869:
870: WHEN FND_API.g_exc_unexpected_error THEN
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;
876:
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;
876:
877: WHEN OTHERS THEN
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);
883: END IF;
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);
883: END IF;
884: IF (c_condition_headers%isopen) THEN
885: CLOSE c_condition_headers;
931:
932: BEGIN
933:
934: --log key input parameters
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;
932: BEGIN
933:
934: --log key input parameters
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:
960: l_reprice_rec.price_type := 'MAN';
961: END IF;
962:
963:
964: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
965: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.call_pricing_api', 'calling OKS_REPRICE_PVT.call_pricing_api p_reprice_rec.contract_id=' || l_reprice_rec.contract_id ||' ,.price_type='||l_reprice_rec.price_type||
966: ' ,.price_list_id='||l_reprice_rec.price_list_id||' ,.markup_percent='||l_reprice_rec.markup_percent);
967: END IF;
968:
961: END IF;
962:
963:
964: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
965: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.call_pricing_api', 'calling OKS_REPRICE_PVT.call_pricing_api p_reprice_rec.contract_id=' || l_reprice_rec.contract_id ||' ,.price_type='||l_reprice_rec.price_type||
966: ' ,.price_list_id='||l_reprice_rec.price_list_id||' ,.markup_percent='||l_reprice_rec.markup_percent);
967: END IF;
968:
969: OKS_REPRICE_PVT.call_pricing_api(
973: x_return_status => x_return_status,
974: x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data);
976:
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
974: x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data);
976:
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;
989: --no need for warranty(14 - cannot be renewed) and subscription (46 - no toplines)
990: OPEN c_top_lines(p_chr_id);
991: LOOP
992: FETCH c_top_lines BULK COLLECT INTO l_id_tbl, l_price_tbl, l_tax_tbl LIMIT G_BULK_FETCH_LIMIT;
993: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
994: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_loop', 'l_id_tbl.count='|| l_id_tbl.count);
995: END IF;
996:
997: EXIT WHEN (l_id_tbl.count = 0);
990: OPEN c_top_lines(p_chr_id);
991: LOOP
992: FETCH c_top_lines BULK COLLECT INTO l_id_tbl, l_price_tbl, l_tax_tbl LIMIT G_BULK_FETCH_LIMIT;
993: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
994: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_loop', 'l_id_tbl.count='|| l_id_tbl.count);
995: END IF;
996:
997: EXIT WHEN (l_id_tbl.count = 0);
998:
1010: l_id_tbl.delete;
1011: l_price_tbl.delete;
1012: l_tax_tbl.delete;
1013:
1014: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1015: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_header', 'updating okc-oks header etimated_amount and tax_amount');
1016: END IF;
1017:
1018: --update the header
1011: l_price_tbl.delete;
1012: l_tax_tbl.delete;
1013:
1014: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1015: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_header', 'updating okc-oks header etimated_amount and tax_amount');
1016: END IF;
1017:
1018: --update the header
1019: UPDATE okc_k_headers_all_b h
1030: AND ctl.lse_id IN (1,12,19,46) AND stl.cle_id = ctl.id)
1031: WHERE h.chr_id = p_chr_id;
1032:
1033:
1034: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1035: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1036: END IF;
1037:
1038: EXCEPTION
1031: WHERE h.chr_id = p_chr_id;
1032:
1033:
1034: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
1054: IF (c_top_lines%isopen) THEN
1055: CLOSE c_top_lines;
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
1055: CLOSE c_top_lines;
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);
1065: --then add it to the message api list
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);
1065: --then add it to the message api list
1066: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
1067: END IF;
1068: IF (c_top_lines%isopen) THEN
1120:
1121: BEGIN
1122:
1123: --log key input parameters
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;
1121: BEGIN
1122:
1123: --log key input parameters
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:
1139: FETCH c_customer_details INTO l_party_name, l_country_code, l_state_code;
1140: CLOSE c_customer_details;
1141: END IF;
1142:
1143: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1144: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_country_state', 'profile:OKS_SRC_TERR_QUALFIERS=' || l_prof_terr_qual||' ,l_party_name='||l_party_name||' ,l_country_code='||l_country_code||' ,l_state_code='||l_state_code);
1145: END IF;
1146:
1147: l_gen_bulk_rec.trans_object_id.EXTEND;
1140: CLOSE c_customer_details;
1141: END IF;
1142:
1143: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1144: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_country_state', 'profile:OKS_SRC_TERR_QUALFIERS=' || l_prof_terr_qual||' ,l_party_name='||l_party_name||' ,l_country_code='||l_country_code||' ,l_state_code='||l_state_code);
1145: END IF;
1146:
1147: l_gen_bulk_rec.trans_object_id.EXTEND;
1148: l_gen_bulk_rec.trans_detail_object_id.EXTEND;
1157: l_gen_bulk_rec.SQUAL_CHAR04(1) := l_state_code;
1158: l_gen_bulk_rec.SQUAL_CHAR07(1) := l_country_code;
1159: l_gen_bulk_rec.SQUAL_NUM01(1) := p_party_id;
1160:
1161: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1162: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners', 'calling JTF_TERR_ASSIGN_PUB.get_winners, p_use_type=RESOURCE, p_source_id=-1500, p_trans_id=-1501');
1163: END IF;
1164:
1165: fnd_file.put_line(FND_FILE.LOG,' ');
1158: l_gen_bulk_rec.SQUAL_CHAR07(1) := l_country_code;
1159: l_gen_bulk_rec.SQUAL_NUM01(1) := p_party_id;
1160:
1161: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1162: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners', 'calling JTF_TERR_ASSIGN_PUB.get_winners, p_use_type=RESOURCE, p_source_id=-1500, p_trans_id=-1501');
1163: END IF;
1164:
1165: fnd_file.put_line(FND_FILE.LOG,' ');
1166: fnd_file.put_line(FND_FILE.LOG,'Calling JTF_TERR_ASSIGN_PUB.get_winners ');
1195: fnd_file.put_line(FND_FILE.LOG,'x_msg_count : '||x_msg_count);
1196: fnd_file.put_line(FND_FILE.LOG,'x_msg_data : '||x_msg_data);
1197: fnd_file.put_line(FND_FILE.LOG,' ');
1198:
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
1196: fnd_file.put_line(FND_FILE.LOG,'x_msg_data : '||x_msg_data);
1197: fnd_file.put_line(FND_FILE.LOG,' ');
1198:
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;
1208:
1209: -- bug 5493685
1210: l_count := NVL(l_gen_return_rec.resource_id.COUNT,0);
1211: fnd_file.put_line(FND_FILE.LOG,'Resource Count : '||l_count);
1212: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1213: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners','l_count : '||l_count);
1214: END IF;
1215:
1216: IF l_count > 0 THEN
1209: -- bug 5493685
1210: l_count := NVL(l_gen_return_rec.resource_id.COUNT,0);
1211: fnd_file.put_line(FND_FILE.LOG,'Resource Count : '||l_count);
1212: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1213: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners','l_count : '||l_count);
1214: END IF;
1215:
1216: IF l_count > 0 THEN
1217: fnd_file.put_line(FND_FILE.LOG,'l_gen_return_rec.resource_id.FIRST : '||l_gen_return_rec.resource_id.FIRST);
1217: fnd_file.put_line(FND_FILE.LOG,'l_gen_return_rec.resource_id.FIRST : '||l_gen_return_rec.resource_id.FIRST);
1218: --set OUT parameter
1219: x_winning_res_id := l_gen_return_rec.resource_id(l_gen_return_rec.resource_id.FIRST);
1220: fnd_file.put_line(FND_FILE.LOG,'x_winning_res_id : '||x_winning_res_id);
1221: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1222: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners','x_winning_res_id : '||x_winning_res_id);
1223: END IF;
1224: END IF; -- l_count > 0
1225: -- end added bug 5493685
1218: --set OUT parameter
1219: x_winning_res_id := l_gen_return_rec.resource_id(l_gen_return_rec.resource_id.FIRST);
1220: fnd_file.put_line(FND_FILE.LOG,'x_winning_res_id : '||x_winning_res_id);
1221: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1222: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners','x_winning_res_id : '||x_winning_res_id);
1223: END IF;
1224: END IF; -- l_count > 0
1225: -- end added bug 5493685
1226:
1236: END IF;
1237: l_counter := l_counter + 1;
1238: l_count := l_count + 1;
1239:
1240: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1241: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners_loop', 'l_counter='||l_counter||' ,l_gen_return_rec.resource_id='||l_gen_return_rec.resource_id(l_counter));
1242: END IF;
1243:
1244: END LOOP;
1237: l_counter := l_counter + 1;
1238: l_count := l_count + 1;
1239:
1240: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1241: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners_loop', 'l_counter='||l_counter||' ,l_gen_return_rec.resource_id='||l_gen_return_rec.resource_id(l_counter));
1242: END IF;
1243:
1244: END LOOP;
1245:
1249: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_JTF_RESOURCE');
1250: FND_MESSAGE.set_token('PARTY', l_party_name);
1251: FND_MESSAGE.set_token('COUNTRY', l_country_code);
1252: FND_MESSAGE.set_token('STATE', l_state_code);
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;
1250: FND_MESSAGE.set_token('PARTY', l_party_name);
1251: FND_MESSAGE.set_token('COUNTRY', l_country_code);
1252: FND_MESSAGE.set_token('STATE', l_state_code);
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;
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);
1262: END IF;
1263:
1264: EXCEPTION
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);
1262: END IF;
1263:
1264: EXCEPTION
1265: WHEN FND_API.g_exc_error THEN
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
1271: CLOSE c_vendor_details;
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
1271: CLOSE c_vendor_details;
1272: 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
1284: CLOSE c_vendor_details;
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
1284: CLOSE c_vendor_details;
1285: 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);
1297: --then add it to the message api list
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);
1297: --then add it to the message api list
1298: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
1299: END IF;
1300: IF (c_vendor_details%isopen) THEN
1404:
1405: BEGIN
1406:
1407: --log key input parameters
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;
1405: BEGIN
1406:
1407: --log key input parameters
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:
1418: --lookup for revenue type : Select name , id1 from OKX_SALES_CRED_TYPES_V order by NAME;
1419: --1:Quota Sales Credit, 2:Non-quota Sales Credit
1420: l_prof_rev_type := FND_PROFILE.VALUE('OKS_REVENUE_TYPE');
1421:
1422: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1423: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.profile_options', 'OKS_ENABLE_SALES_CREDIT=' || l_prof_enable_sc||' ,OKS_REVENUE_TYPE='||l_prof_rev_type);
1424: END IF;
1425:
1426: IF (l_prof_enable_sc = 'R') THEN
1419: --1:Quota Sales Credit, 2:Non-quota Sales Credit
1420: l_prof_rev_type := FND_PROFILE.VALUE('OKS_REVENUE_TYPE');
1421:
1422: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1423: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.profile_options', 'OKS_ENABLE_SALES_CREDIT=' || l_prof_enable_sc||' ,OKS_REVENUE_TYPE='||l_prof_rev_type);
1424: END IF;
1425:
1426: IF (l_prof_enable_sc = 'R') THEN
1427: --for R:Retain, do nothing
1424: END IF;
1425:
1426: IF (l_prof_enable_sc = 'R') THEN
1427: --for R:Retain, do nothing
1428: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1429: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end_1', 'Profile OKS_ENABLE_SALES_CREDIT=R(Retain), no processing required');
1430: END IF;
1431: RETURN;
1432: ELSIF (l_prof_enable_sc = 'NO') THEN
1425:
1426: IF (l_prof_enable_sc = 'R') THEN
1427: --for R:Retain, do nothing
1428: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1429: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end_1', 'Profile OKS_ENABLE_SALES_CREDIT=R(Retain), no processing required');
1430: END IF;
1431: RETURN;
1432: ELSIF (l_prof_enable_sc = 'NO') THEN
1433: --for NO:Drop, delete all existing sales credits and return
1432: ELSIF (l_prof_enable_sc = 'NO') THEN
1433: --for NO:Drop, delete all existing sales credits and return
1434: DELETE FROM oks_k_sales_credits
1435: WHERE chr_id = p_chr_id;
1436: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1437: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end_2', 'Profile OKS_ENABLE_SALES_CREDIT=NO(Drop), deleted sales credits, no fruther processsing');
1438: END IF;
1439: RETURN;
1440: ELSIF(l_prof_enable_sc = 'YES') THEN
1433: --for NO:Drop, delete all existing sales credits and return
1434: DELETE FROM oks_k_sales_credits
1435: WHERE chr_id = p_chr_id;
1436: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1437: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end_2', 'Profile OKS_ENABLE_SALES_CREDIT=NO(Drop), deleted sales credits, no fruther processsing');
1438: END IF;
1439: RETURN;
1440: ELSIF(l_prof_enable_sc = 'YES') THEN
1441: --for YES:Derive, delete all existing sales credits and derive specified type of sales credit
1442: IF (l_prof_rev_type IS NULL) THEN
1443: --without the profile setup we cannot recreate the sales credit
1444: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1445: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
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;
1443: --without the profile setup we cannot recreate the sales credit
1444: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1445: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
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
1456: --for DRT:Derive for Revenue Type and Retain Other, delete and derive specified type of sales credit
1457: IF (l_prof_rev_type IS NULL) THEN
1458: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1459: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
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;
1457: IF (l_prof_rev_type IS NULL) THEN
1458: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1459: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
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
1471: --we come here only if l_prof_enable_sc = 'YES' or 'DRT'
1472: --derive the sales credits for the specified revenue type
1473:
1474: --get the contract org and customer/subscriber party id
1475: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1476: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_k_org_party', 'getting contract org and customer/subscriber party for p_chr_id='||p_chr_id);
1477: END IF;
1478:
1479: OPEN c_k_hdr(p_chr_id);
1472: --derive the sales credits for the specified revenue type
1473:
1474: --get the contract org and customer/subscriber party id
1475: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1476: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_k_org_party', 'getting contract org and customer/subscriber party for p_chr_id='||p_chr_id);
1477: END IF;
1478:
1479: OPEN c_k_hdr(p_chr_id);
1480: FETCH c_k_hdr INTO l_org_id, l_party_id;
1481: CLOSE c_k_hdr;
1482: IF (l_org_id IS NULL) THEN
1483: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
1484: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
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;
1482: IF (l_org_id IS NULL) THEN
1483: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
1484: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
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');
1494:
1495: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1496: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_k_org_party', 'l_org_id='||l_org_id||' ,l_party_id='||l_party_id||' ,Profile OKS_USE_JTF='||l_prof_use_jtf);
1497: END IF;
1498:
1499: IF (l_prof_use_jtf = 'YES') THEN
1492: --get the winning salesrep either from JTF or profile option
1493: l_prof_use_jtf := FND_PROFILE.VALUE('OKS_USE_JTF');
1494:
1495: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1496: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_k_org_party', 'l_org_id='||l_org_id||' ,l_party_id='||l_party_id||' ,Profile OKS_USE_JTF='||l_prof_use_jtf);
1497: END IF;
1498:
1499: IF (l_prof_use_jtf = 'YES') THEN
1500: --get the salesrep from JTF Territory setup
1498:
1499: IF (l_prof_use_jtf = 'YES') THEN
1500: --get the salesrep from JTF Territory setup
1501: --note this procedure will throw an error if no salesrep is setup in JTF
1502: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1503: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'calling get_salesrep_from_jtf');
1504: END IF;
1505:
1506: fnd_file.put_line(FND_FILE.LOG,'Calling get_salesrep_from_jtf');
1499: IF (l_prof_use_jtf = 'YES') THEN
1500: --get the salesrep from JTF Territory setup
1501: --note this procedure will throw an error if no salesrep is setup in JTF
1502: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1503: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'calling get_salesrep_from_jtf');
1504: END IF;
1505:
1506: fnd_file.put_line(FND_FILE.LOG,'Calling get_salesrep_from_jtf');
1507: get_salesrep_from_jtf(
1511: x_return_status => x_return_status,
1512: x_msg_count => x_msg_count,
1513: x_msg_data => x_msg_data);
1514:
1515: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1516: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'after call to get_salesrep_from_jtf, x_return_status='||x_return_status||' ,l_resource_id='||l_resource_id);
1517: END IF;
1518:
1519: --get the salesrep id corresponding to this resource and k org
1512: x_msg_count => x_msg_count,
1513: x_msg_data => x_msg_data);
1514:
1515: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1516: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'after call to get_salesrep_from_jtf, x_return_status='||x_return_status||' ,l_resource_id='||l_resource_id);
1517: END IF;
1518:
1519: --get the salesrep id corresponding to this resource and k org
1520: OPEN c_res_salesrep(l_resource_id, l_org_id);
1523:
1524: IF l_salesrep_id IS NULL THEN
1525: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SREP_FOR_RES');
1526: FND_MESSAGE.set_token('RESOURCE_ID', l_resource_id);
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;
1524: IF l_salesrep_id IS NULL THEN
1525: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SREP_FOR_RES');
1526: FND_MESSAGE.set_token('RESOURCE_ID', l_resource_id);
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;
1534: ELSE
1535: --get the salesrep from profile option
1536: l_salesrep_id := FND_PROFILE.value('OKS_SALESPERSON_ID');
1537:
1538: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1539: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'salesrep from profile option OKS_SALESPERSON_ID='||l_salesrep_id);
1540: END IF;
1541:
1542: IF l_salesrep_id IS NULL THEN
1535: --get the salesrep from profile option
1536: l_salesrep_id := FND_PROFILE.value('OKS_SALESPERSON_ID');
1537:
1538: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1539: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'salesrep from profile option OKS_SALESPERSON_ID='||l_salesrep_id);
1540: END IF;
1541:
1542: IF l_salesrep_id IS NULL THEN
1543: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1541:
1542: IF l_salesrep_id IS NULL THEN
1543: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1544: FND_MESSAGE.set_token('PROFILE', 'OKS_SALESPERSON_ID');
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;
1542: IF l_salesrep_id IS NULL THEN
1543: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1544: FND_MESSAGE.set_token('PROFILE', 'OKS_SALESPERSON_ID');
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:
1554: --now check if the salesrep belongs to the same org as the contract
1555: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1556: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.org_id_match', 'checking salerep org, l_salesrep_id='||l_salesrep_id||' ,l_org_id='||l_org_id);
1557: END IF;
1558:
1559: OPEN c_check_org_match(l_salesrep_id, l_org_id);/*bugfix 6672863*/
1552: END IF; --of IF (l_prof_use_jtf = 'YES') THEN
1553:
1554: --now check if the salesrep belongs to the same org as the contract
1555: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1556: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.org_id_match', 'checking salerep org, l_salesrep_id='||l_salesrep_id||' ,l_org_id='||l_org_id);
1557: END IF;
1558:
1559: OPEN c_check_org_match(l_salesrep_id, l_org_id);/*bugfix 6672863*/
1560: FETCH c_check_org_match INTO l_dummy_org_id, l_salesrep_name;
1570:
1571: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_SALESREP_ORG_MATCH');
1572: FND_MESSAGE.set_token('SALESREP_NAME', l_salesrep_name);
1573: FND_MESSAGE.set_token('ORG_NAME', l_org_name);
1574: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1575: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.org_id_match', FALSE);
1576: END IF;
1577: FND_MSG_PUB.add;
1578: x_return_status := OKC_API.g_ret_sts_warning;
1571: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_SALESREP_ORG_MATCH');
1572: FND_MESSAGE.set_token('SALESREP_NAME', l_salesrep_name);
1573: FND_MESSAGE.set_token('ORG_NAME', l_org_name);
1574: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1575: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.org_id_match', FALSE);
1576: END IF;
1577: FND_MSG_PUB.add;
1578: x_return_status := OKC_API.g_ret_sts_warning;
1579: RETURN;
1583: OPEN c_get_ven_mer_id(p_chr_id);
1584: FETCH c_get_ven_mer_id INTO l_cpl_id, l_rle_code;
1585: CLOSE c_get_ven_mer_id;
1586:
1587: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1588: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_ven_mer_id', 'vendor/merhant details, l_cpl_id='||l_cpl_id||' ,l_rle_code='||l_rle_code);
1589: END IF;
1590:
1591: IF (l_cpl_id IS NULL) THEN
1584: FETCH c_get_ven_mer_id INTO l_cpl_id, l_rle_code;
1585: CLOSE c_get_ven_mer_id;
1586:
1587: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1588: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_ven_mer_id', 'vendor/merhant details, l_cpl_id='||l_cpl_id||' ,l_rle_code='||l_rle_code);
1589: END IF;
1590:
1591: IF (l_cpl_id IS NULL) THEN
1592: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_VENDOR_MERCHANT');
1590:
1591: IF (l_cpl_id IS NULL) THEN
1592: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_VENDOR_MERCHANT');
1593: FND_MESSAGE.set_token('CONTRACT_ID', to_char(p_chr_id));
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;
1591: IF (l_cpl_id IS NULL) THEN
1592: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_VENDOR_MERCHANT');
1593: FND_MESSAGE.set_token('CONTRACT_ID', to_char(p_chr_id));
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;
1604: OPEN c_get_cro_code(l_rle_code);
1605: FETCH c_get_cro_code INTO l_cro_code;
1606: CLOSE c_get_cro_code;
1607:
1608: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1609: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_cro_code', 'cro_code for role '||l_rle_code||' ,l_cro_code='||l_cro_code);
1610: END IF;
1611:
1612: IF (l_cro_code IS NULL) THEN
1605: FETCH c_get_cro_code INTO l_cro_code;
1606: CLOSE c_get_cro_code;
1607:
1608: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1609: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_cro_code', 'cro_code for role '||l_rle_code||' ,l_cro_code='||l_cro_code);
1610: END IF;
1611:
1612: IF (l_cro_code IS NULL) THEN
1613: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_K_SRC_FOR_SREP');
1611:
1612: IF (l_cro_code IS NULL) THEN
1613: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_K_SRC_FOR_SREP');
1614: FND_MESSAGE.set_token('RLE_CODE', l_rle_code);
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;
1612: IF (l_cro_code IS NULL) THEN
1613: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_K_SRC_FOR_SREP');
1614: FND_MESSAGE.set_token('RLE_CODE', l_rle_code);
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;
1620: END IF;
1621:
1622: --get the sales group id for the salesrep
1623: --function returns -1 for errors
1624: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1625: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sales_group', 'calling jtf_rs_integration_pub.get_default_sales_group, p_salesrep_id='||l_salesrep_id||' ,p_org_id='||l_org_id||' ,p_date='||sysdate);
1626: END IF;
1627:
1628: l_sales_group_id := JTF_RS_INTEGRATION_PUB.get_default_sales_group(
1621:
1622: --get the sales group id for the salesrep
1623: --function returns -1 for errors
1624: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1625: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sales_group', 'calling jtf_rs_integration_pub.get_default_sales_group, p_salesrep_id='||l_salesrep_id||' ,p_org_id='||l_org_id||' ,p_date='||sysdate);
1626: END IF;
1627:
1628: l_sales_group_id := JTF_RS_INTEGRATION_PUB.get_default_sales_group(
1629: p_salesrep_id => l_salesrep_id,
1629: p_salesrep_id => l_salesrep_id,
1630: p_org_id => l_org_id,
1631: p_date => sysdate);
1632:
1633: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1634: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sales_group', 'after call to JTF_RS_INTEGRATION_PUB.get_default_sales_group, l_sales_group_id='||l_sales_group_id);
1635: END IF;
1636:
1637: --just log the fact that no salesgroup was found, no error thrown
1630: p_org_id => l_org_id,
1631: p_date => sysdate);
1632:
1633: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1634: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sales_group', 'after call to JTF_RS_INTEGRATION_PUB.get_default_sales_group, l_sales_group_id='||l_sales_group_id);
1635: END IF;
1636:
1637: --just log the fact that no salesgroup was found, no error thrown
1638: IF (l_sales_group_id = -1) THEN
1635: END IF;
1636:
1637: --just log the fact that no salesgroup was found, no error thrown
1638: IF (l_sales_group_id = -1) THEN
1639: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1640: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SALES_GROUP');
1641: FND_MESSAGE.set_token('SALESREP_ID', to_char(l_salesrep_id));
1642: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.get_sales_group', TRUE);
1643: END IF;
1638: IF (l_sales_group_id = -1) THEN
1639: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1640: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SALES_GROUP');
1641: FND_MESSAGE.set_token('SALESREP_ID', to_char(l_salesrep_id));
1642: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.get_sales_group', TRUE);
1643: END IF;
1644: END IF;
1645:
1646: --delete any old vendor/merchant contacts based on jtf object OKX_SALEPERS
1655: l_created_by := FND_GLOBAL.USER_ID;
1656: l_date := sysdate;
1657: l_login_id := FND_GLOBAL.LOGIN_ID;
1658:
1659: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1660: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_contact', 'deleted old contacts, creating new contact for salesrep id='||l_salesrep_id);
1661: END IF;
1662:
1663: INSERT INTO OKC_CONTACTS(
1656: l_date := sysdate;
1657: l_login_id := FND_GLOBAL.LOGIN_ID;
1658:
1659: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1660: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_contact', 'deleted old contacts, creating new contact for salesrep id='||l_salesrep_id);
1661: END IF;
1662:
1663: INSERT INTO OKC_CONTACTS(
1664: id,
1697:
1698: IF (l_percent < 0 OR l_percent > 100) THEN
1699: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1700: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE_DIST');
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;
1698: IF (l_percent < 0 OR l_percent > 100) THEN
1699: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1700: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE_DIST');
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;
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);
1710: END IF;
1711:
1712: INSERT INTO oks_k_sales_credits(
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);
1710: END IF;
1711:
1712: INSERT INTO oks_k_sales_credits(
1713: id,
1743: OPEN c_get_top_lines(p_chr_id);
1744: LOOP
1745: FETCH c_get_top_lines BULK COLLECT INTO l_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1746:
1747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1748: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.line_sales_credit', 'l_id_tbl.count='||l_id_tbl.count);
1749: END IF;
1750:
1751: EXIT WHEN (l_id_tbl.count = 0);
1744: LOOP
1745: FETCH c_get_top_lines BULK COLLECT INTO l_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1746:
1747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1748: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.line_sales_credit', 'l_id_tbl.count='||l_id_tbl.count);
1749: END IF;
1750:
1751: EXIT WHEN (l_id_tbl.count = 0);
1752: FORALL i in l_id_tbl.first..l_id_tbl.last
1784: END LOOP;
1785: CLOSE c_get_top_lines;
1786: l_id_tbl.delete;
1787:
1788: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1789: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1790: END IF;
1791:
1792: EXCEPTION
1785: CLOSE c_get_top_lines;
1786: l_id_tbl.delete;
1787:
1788: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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
1799: CLOSE c_res_salesrep;
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
1799: CLOSE c_res_salesrep;
1800: 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
1824: CLOSE c_res_salesrep;
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
1824: CLOSE c_res_salesrep;
1825: 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);
1849: --then add it to the message api list
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);
1849: --then add it to the message api list
1850: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
1851: END IF;
1852: IF ( c_res_salesrep%isopen ) THEN
1902:
1903: BEGIN
1904:
1905: --log key input parameters
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;
1903: BEGIN
1904:
1905: --log key input parameters
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;
1915:
1916: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1917: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.subcr_service_loop', 'l_id_tbl.count='||l_id_tbl.count);
1918: END IF;
1919: EXIT WHEN (l_id_tbl.count = 0);
1920:
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;
1915:
1916: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1917: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.subcr_service_loop', 'l_id_tbl.count='||l_id_tbl.count);
1918: END IF;
1919: EXIT WHEN (l_id_tbl.count = 0);
1920:
1921: FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1918: END IF;
1919: EXIT WHEN (l_id_tbl.count = 0);
1920:
1921: FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1922: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1923: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.subcr_service_loop', 'i='||i||' ,l_id_tbl(i)='||l_id_tbl(i)||', l_lse_id_tbl(i)='||l_lse_id_tbl(i)||' ,l_old_id_tbl(i)='||l_old_id_tbl(i));
1924: END IF;
1925:
1926: --recreate coverage entities
1919: EXIT WHEN (l_id_tbl.count = 0);
1920:
1921: FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1922: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1923: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.subcr_service_loop', 'i='||i||' ,l_id_tbl(i)='||l_id_tbl(i)||', l_lse_id_tbl(i)='||l_lse_id_tbl(i)||' ,l_old_id_tbl(i)='||l_old_id_tbl(i));
1924: END IF;
1925:
1926: --recreate coverage entities
1927: IF( l_lse_id_tbl(i) IN (1,19) ) THEN
1925:
1926: --recreate coverage entities
1927: IF( l_lse_id_tbl(i) IN (1,19) ) THEN
1928:
1929: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1930: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_coverage', 'calling OKS_COVERAGES_PVT.Copy_Coverage, p_contract_line_id='||l_id_tbl(i));
1931: END IF;
1932:
1933: OKS_COVERAGES_PVT.copy_coverage(
1926: --recreate coverage entities
1927: IF( l_lse_id_tbl(i) IN (1,19) ) THEN
1928:
1929: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1930: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_coverage', 'calling OKS_COVERAGES_PVT.Copy_Coverage, p_contract_line_id='||l_id_tbl(i));
1931: END IF;
1932:
1933: OKS_COVERAGES_PVT.copy_coverage(
1934: p_api_version => 1.0,
1937: x_msg_count => x_msg_count,
1938: x_msg_data => x_msg_data,
1939: p_contract_line_id => l_id_tbl(i));
1940:
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
1938: x_msg_data => x_msg_data,
1939: p_contract_line_id => l_id_tbl(i));
1940:
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;
1949: END IF;
1950:
1951: ELSIF (l_lse_id_tbl(i) = 46) THEN
1952:
1953: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1954: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_subscr', 'calling OKS_SUBSCRIPTION_PUB.copy_subscription, p_source_cle_id='||l_old_id_tbl(i)||' ,p_target_cle_id='||l_id_tbl(i)||', p_intent=RENEW');
1955: END IF;
1956:
1957: OKS_SUBSCRIPTION_PUB.copy_subscription(
1950:
1951: ELSIF (l_lse_id_tbl(i) = 46) THEN
1952:
1953: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1954: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_subscr', 'calling OKS_SUBSCRIPTION_PUB.copy_subscription, p_source_cle_id='||l_old_id_tbl(i)||' ,p_target_cle_id='||l_id_tbl(i)||', p_intent=RENEW');
1955: END IF;
1956:
1957: OKS_SUBSCRIPTION_PUB.copy_subscription(
1958: p_api_version => 1.0,
1963: p_source_cle_id => l_old_id_tbl(i),
1964: p_target_cle_id => l_id_tbl(i),
1965: p_intent => 'RENEW');
1966:
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
1964: p_target_cle_id => l_id_tbl(i),
1965: p_intent => 'RENEW');
1966:
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;
1981: l_id_tbl.delete;
1982: l_old_id_tbl.delete;
1983: l_lse_id_tbl.delete;
1984:
1985: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1986: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1987: END IF;
1988:
1989: EXCEPTION
1982: l_old_id_tbl.delete;
1983: l_lse_id_tbl.delete;
1984:
1985: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
2005: IF ( c_subscr_service_lines%isopen ) THEN
2006: CLOSE c_subscr_service_lines;
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
2006: CLOSE c_subscr_service_lines;
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);
2016: --then add it to the message api list
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);
2016: --then add it to the message api list
2017: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2018: END IF;
2019: IF ( c_subscr_service_lines%isopen ) THEN
2073:
2074: BEGIN
2075:
2076: --log key input parameters
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;
2074: BEGIN
2075:
2076: --log key input parameters
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;
2086:
2087: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2088: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_locks_loop', 'l_new_cid_tbl.count='||l_new_cid_tbl.count);
2089: END IF;
2090: EXIT WHEN (l_new_cid_tbl.count = 0);
2091:
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;
2086:
2087: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2088: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_locks_loop', 'l_new_cid_tbl.count='||l_new_cid_tbl.count);
2089: END IF;
2090: EXIT WHEN (l_new_cid_tbl.count = 0);
2091:
2092: --lock prices for each usage line
2090: EXIT WHEN (l_new_cid_tbl.count = 0);
2091:
2092: --lock prices for each usage line
2093: FOR i IN l_new_cid_tbl.first..l_new_cid_tbl.last LOOP
2094: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2095: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'usage_locks_loop', 'i='||i||' ,l_old_lpll_tbl(i)='||l_old_lpll_tbl(i));
2096: END IF;
2097:
2098: l_locked_price_list_id := null;
2091:
2092: --lock prices for each usage line
2093: FOR i IN l_new_cid_tbl.first..l_new_cid_tbl.last LOOP
2094: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2095: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'usage_locks_loop', 'i='||i||' ,l_old_lpll_tbl(i)='||l_old_lpll_tbl(i));
2096: END IF;
2097:
2098: l_locked_price_list_id := null;
2099: l_locked_price_list_line_id := null;
2099: l_locked_price_list_line_id := null;
2100: l_new_lpl_tbl(i) := null;
2101: l_new_lpll_tbl(i) := null;
2102:
2103: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2104: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'usage_locks_loop', 'calling QP_LOCK_PRICELIST_GRP.lock_price, p_source_list_line_id='||l_old_lpll_tbl(i)||' ,p_list_source_code=OKS ,p_orig_system_header_ref='||p_contract_number);
2105: END IF;
2106:
2107: --no bulk price lock api
2100: l_new_lpl_tbl(i) := null;
2101: l_new_lpll_tbl(i) := null;
2102:
2103: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2104: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'usage_locks_loop', 'calling QP_LOCK_PRICELIST_GRP.lock_price, p_source_list_line_id='||l_old_lpll_tbl(i)||' ,p_list_source_code=OKS ,p_orig_system_header_ref='||p_contract_number);
2105: END IF;
2106:
2107: --no bulk price lock api
2108: QP_LOCK_PRICELIST_GRP.lock_price(
2115: x_return_status => x_return_status,
2116: x_msg_count => x_msg_count,
2117: x_msg_data => x_msg_data);
2118:
2119: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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:
2116: x_msg_count => x_msg_count,
2117: x_msg_data => x_msg_data);
2118:
2119: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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
2150: l_new_lpl_tbl.delete;
2151: l_new_lpll_tbl.delete;
2152: l_old_break_uom_tbl.delete;
2153:
2154: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2155: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2156: END IF;
2157:
2158: EXCEPTION
2151: l_new_lpll_tbl.delete;
2152: l_old_break_uom_tbl.delete;
2153:
2154: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
2174: IF ( c_get_usage_price_locks%isopen ) THEN
2175: CLOSE c_get_usage_price_locks;
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
2175: CLOSE c_get_usage_price_locks;
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);
2185: --then add it to the message api list
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);
2185: --then add it to the message api list
2186: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2187: END IF;
2188: IF ( c_get_usage_price_locks%isopen ) THEN
2226: l_sll_ctr NUMBER := 0;
2227:
2228: BEGIN
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:
2227:
2228: BEGIN
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);
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;
2238: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2239: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_hdr_strlvl_tbl.count=' || l_hdr_strlvl_tbl.count);
2240: END IF;
2241: EXIT WHEN (l_hdr_strlvl_tbl.count = 0);
2242:
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;
2238: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2239: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_hdr_strlvl_tbl.count=' || l_hdr_strlvl_tbl.count);
2240: END IF;
2241: EXIT WHEN (l_hdr_strlvl_tbl.count = 0);
2242:
2243: FOR i IN l_hdr_strlvl_tbl.first..l_hdr_strlvl_tbl.last LOOP
2264: END LOOP; --hdr bulk fetch loop
2265: CLOSE c_hdr_strlvl;
2266: l_hdr_strlvl_tbl.delete;
2267:
2268: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2269: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_sllv_tbl.count=' || l_sllv_tbl.count);
2270: END IF;
2271:
2272: IF (l_sllv_tbl.count > 0) THEN
2265: CLOSE c_hdr_strlvl;
2266: l_hdr_strlvl_tbl.delete;
2267:
2268: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2269: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_sllv_tbl.count=' || l_sllv_tbl.count);
2270: END IF;
2271:
2272: IF (l_sllv_tbl.count > 0) THEN
2273:
2270: END IF;
2271:
2272: IF (l_sllv_tbl.count > 0) THEN
2273:
2274: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2275: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_CONTRACT_SLL_PUB.create_sll');
2276: END IF;
2277:
2278: OKS_CONTRACT_SLL_PUB.create_sll (
2271:
2272: IF (l_sllv_tbl.count > 0) THEN
2273:
2274: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2275: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_CONTRACT_SLL_PUB.create_sll');
2276: END IF;
2277:
2278: OKS_CONTRACT_SLL_PUB.create_sll (
2279: p_api_version => 1,
2287:
2288: l_sllv_tbl.delete;
2289: x_sllv_tbl.delete;
2290:
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
2288: l_sllv_tbl.delete;
2289: x_sllv_tbl.delete;
2290:
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;
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');
2303: END IF;
2304:
2305: OKS_BILL_SCH.create_hdr_schedule(
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');
2303: END IF;
2304:
2305: OKS_BILL_SCH.create_hdr_schedule(
2306: p_contract_id => p_chr_id,
2307: x_return_status => x_return_status,
2308: x_msg_count => x_msg_count,
2309: x_msg_data => x_msg_data);
2310:
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
2308: x_msg_count => x_msg_count,
2309: x_msg_data => x_msg_data);
2310:
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;
2320:
2321: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2322:
2323:
2324: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2325: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2326: END IF;
2327:
2328: EXCEPTION
2321: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2322:
2323:
2324: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
2344: IF (c_hdr_strlvl%isopen) THEN
2345: CLOSE c_hdr_strlvl;
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
2345: CLOSE c_hdr_strlvl;
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);
2355: --then add it to the message api list
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);
2355: --then add it to the message api list
2356: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2357: END IF;
2358: IF (c_hdr_strlvl%isopen) THEN
2412: l_line_sll_ctr NUMBER := 0;
2413:
2414: BEGIN
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:
2413:
2414: BEGIN
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);
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;
2424:
2425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2426: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_toplines', 'l_top_line_tbl.count=' || l_top_line_tbl.count);
2427: END IF;
2428:
2429: EXIT WHEN (l_top_line_tbl.count = 0);
2422: LOOP
2423: FETCH c_get_top_lines BULK COLLECT INTO l_top_line_tbl LIMIT G_BULK_FETCH_LIMIT;
2424:
2425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2426: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_toplines', 'l_top_line_tbl.count=' || l_top_line_tbl.count);
2427: END IF;
2428:
2429: EXIT WHEN (l_top_line_tbl.count = 0);
2430:
2430:
2431: --for each topline and it's sublines recreate the billing schedule
2432: FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2433:
2434: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2435: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'i='||i||
2436: ' id='||l_top_line_tbl(i).id||
2437: ' ,billing_schedule_type='||l_top_line_tbl(i).billing_schedule_type||
2438: ' ,inv_rule_id='||l_top_line_tbl(i).inv_rule_id||
2431: --for each topline and it's sublines recreate the billing schedule
2432: FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2433:
2434: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2435: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'i='||i||
2436: ' id='||l_top_line_tbl(i).id||
2437: ' ,billing_schedule_type='||l_top_line_tbl(i).billing_schedule_type||
2438: ' ,inv_rule_id='||l_top_line_tbl(i).inv_rule_id||
2439: ',new_line_amt='||l_top_line_tbl(i).new_line_amt||
2449: OPEN c_line_strlvl(l_top_line_tbl(i).orig_system_id1);
2450: LOOP
2451: FETCH c_line_strlvl BULK COLLECT INTO l_line_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2452:
2453: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2454: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_topline_sll', 'i='||i||'l_top_line_tbl(i).orig_system_id1='||l_top_line_tbl(i).orig_system_id1||' ,l_line_strlvl_tbl.count=' || l_line_strlvl_tbl.count);
2455: END IF;
2456:
2457: EXIT WHEN (l_line_strlvl_tbl.count = 0);
2450: LOOP
2451: FETCH c_line_strlvl BULK COLLECT INTO l_line_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2452:
2453: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2454: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_topline_sll', 'i='||i||'l_top_line_tbl(i).orig_system_id1='||l_top_line_tbl(i).orig_system_id1||' ,l_line_strlvl_tbl.count=' || l_line_strlvl_tbl.count);
2455: END IF;
2456:
2457: EXIT WHEN (l_line_strlvl_tbl.count = 0);
2458:
2495: CLOSE c_line_strlvl;
2496: l_line_strlvl_tbl.delete;
2497:
2498: --call the billing api to create the billing schedule for the topline and it's sublines
2499: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2500: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'calling OKS_BILL_SCH.create_bill_sch_rules');
2501: END IF;
2502:
2503: OKS_BILL_SCH.create_bill_sch_rules(
2496: l_line_strlvl_tbl.delete;
2497:
2498: --call the billing api to create the billing schedule for the topline and it's sublines
2499: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2500: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'calling OKS_BILL_SCH.create_bill_sch_rules');
2501: END IF;
2502:
2503: OKS_BILL_SCH.create_bill_sch_rules(
2504: p_billing_type => l_top_line_tbl(i).billing_schedule_type,
2506: p_invoice_rule_id => l_top_line_tbl(i).inv_rule_id,
2507: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
2508: x_return_status => x_return_status);
2509:
2510: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2511: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'after call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status='||x_return_status);
2512: END IF;
2513:
2514: l_bil_sch_out_tbl.delete;
2507: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
2508: x_return_status => x_return_status);
2509:
2510: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2511: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'after call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status='||x_return_status);
2512: END IF;
2513:
2514: l_bil_sch_out_tbl.delete;
2515: l_line_sllv_tbl.delete;
2525: END LOOP; --topline bulk fetch loop
2526: CLOSE c_get_top_lines;
2527: l_top_line_tbl.delete;
2528:
2529: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2530: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2531: END IF;
2532:
2533: EXCEPTION
2526: CLOSE c_get_top_lines;
2527: l_top_line_tbl.delete;
2528:
2529: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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
2540: CLOSE c_get_top_lines;
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
2540: CLOSE c_get_top_lines;
2541: 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
2553: CLOSE c_get_top_lines;
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
2553: CLOSE c_get_top_lines;
2554: 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);
2566: --then add it to the message api list
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);
2566: --then add it to the message api list
2567: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2568: END IF;
2569: IF (c_get_top_lines%isopen) THEN
2633: l_var_usg_typ_flag BOOLEAN := FALSE;
2634:
2635: BEGIN
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:
2634:
2635: BEGIN
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);
2642: OPEN c_bp_toplines(p_chr_id);
2643: LOOP
2644:
2645: FETCH c_bp_toplines BULK COLLECT INTO l_id_tbl, l_start_dt_tbl, l_end_dt_tbl, l_bsch_typ_tbl, l_lse_id_tbl, l_usage_typ_tbl LIMIT G_BULK_FETCH_LIMIT;
2646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2647: FND_LOG.string(FND_LOG.level_statement, l_mod_name ,'get_toplines : l_id_tbl.count=' || l_id_tbl.count);
2648: END IF;
2649: EXIT WHEN (l_id_tbl.count = 0);
2650:
2643: LOOP
2644:
2645: FETCH c_bp_toplines BULK COLLECT INTO l_id_tbl, l_start_dt_tbl, l_end_dt_tbl, l_bsch_typ_tbl, l_lse_id_tbl, l_usage_typ_tbl LIMIT G_BULK_FETCH_LIMIT;
2646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2647: FND_LOG.string(FND_LOG.level_statement, l_mod_name ,'get_toplines : l_id_tbl.count=' || l_id_tbl.count);
2648: END IF;
2649: EXIT WHEN (l_id_tbl.count = 0);
2650:
2651: --for each topline
2660: l_bsch_typ_tbl(i) := NULL;
2661: END IF;
2662:
2663: --get the billing profile based sll
2664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2665: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'get_tl_bill_sch : i='||i||
2666: ' calling OKS_BILLING_PROFILES_PUB.get_billing_schedule, l_rec.cle_id='||l_rec.cle_id||
2667: ' ,l_rec.start_date='||l_rec.start_date||' ,l_rec.end_date='||l_rec.end_date);
2668: END IF;
2661: END IF;
2662:
2663: --get the billing profile based sll
2664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2665: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'get_tl_bill_sch : i='||i||
2666: ' calling OKS_BILLING_PROFILES_PUB.get_billing_schedule, l_rec.cle_id='||l_rec.cle_id||
2667: ' ,l_rec.start_date='||l_rec.start_date||' ,l_rec.end_date='||l_rec.end_date);
2668: END IF;
2669:
2675: x_return_status => x_return_status,
2676: x_msg_count => x_msg_count,
2677: x_msg_data => x_msg_data);
2678:
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
2676: x_msg_count => x_msg_count,
2677: x_msg_data => x_msg_data);
2678:
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;
2714:
2715: END LOOP;
2716:
2717: --create billing schedule for the topline and it's sublines
2718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2719: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'create_tl_bill_sch: i='||i||' calling OKS_BILL_SCH.create_bill_sch_rules');
2720: END IF;
2721:
2722: --for usage lines with variable usage type (Actual by Qty, Actual by Period)
2715: END LOOP;
2716:
2717: --create billing schedule for the topline and it's sublines
2718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2719: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'create_tl_bill_sch: i='||i||' calling OKS_BILL_SCH.create_bill_sch_rules');
2720: END IF;
2721:
2722: --for usage lines with variable usage type (Actual by Qty, Actual by Period)
2723: --the invoice rule has to be "Arrears" (-3), irrespective of the billing profile value
2723: --the invoice rule has to be "Arrears" (-3), irrespective of the billing profile value
2724: IF ( (l_lse_id_tbl(i) = 12) AND (l_usage_typ_tbl(i) IN ('VRT', 'QTY'))
2725: AND (l_invoice_rule_id <> -3) ) THEN
2726:
2727: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2728: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'var_usage_chk: i='||i||' ,l_invoice_rule_id='||l_invoice_rule_id||' ,l_usage_typ_tbl(i)='||l_usage_typ_tbl(i)||' ,id='||l_id_tbl(i));
2729: END IF;
2730:
2731: l_var_usg_typ_flag := TRUE;
2724: IF ( (l_lse_id_tbl(i) = 12) AND (l_usage_typ_tbl(i) IN ('VRT', 'QTY'))
2725: AND (l_invoice_rule_id <> -3) ) THEN
2726:
2727: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2728: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'var_usage_chk: i='||i||' ,l_invoice_rule_id='||l_invoice_rule_id||' ,l_usage_typ_tbl(i)='||l_usage_typ_tbl(i)||' ,id='||l_id_tbl(i));
2729: END IF;
2730:
2731: l_var_usg_typ_flag := TRUE;
2732: OKS_BILL_SCH.create_bill_sch_rules(
2743: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
2744: x_return_status => x_return_status);
2745: END IF;
2746:
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
2744: x_return_status => x_return_status);
2745: END IF;
2746:
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;
2771: -- bug 5112991
2772: -- If there are NO top lines then bypass the below code
2773: IF l_id_tbl.count <> 0 THEN
2774:
2775: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2776: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'validate_invoice_rule : l_invoice_rule_id='||l_invoice_rule_id);
2777: END IF;
2778:
2779: l_rule_id := NULL;
2772: -- If there are NO top lines then bypass the below code
2773: IF l_id_tbl.count <> 0 THEN
2774:
2775: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2776: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'validate_invoice_rule : l_invoice_rule_id='||l_invoice_rule_id);
2777: END IF;
2778:
2779: l_rule_id := NULL;
2780: OPEN c_chk_invoice_rule(l_invoice_rule_id);
2783:
2784: IF(l_rule_id IS NULL) THEN
2785: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_INVOICE_RULE');
2786: FND_MESSAGE.set_token('INVOICE_RULE_ID', l_invoice_rule_id);
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;
2784: IF(l_rule_id IS NULL) THEN
2785: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_INVOICE_RULE');
2786: FND_MESSAGE.set_token('INVOICE_RULE_ID', l_invoice_rule_id);
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;
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);
2796: END IF;
2797:
2798: l_rule_id := NULL;
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);
2796: END IF;
2797:
2798: l_rule_id := NULL;
2799: OPEN c_chk_accounting_rule(l_account_rule_id);
2802:
2803: IF(l_rule_id IS NULL) THEN
2804: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_ACCTG_RULE');
2805: FND_MESSAGE.set_token('ACCTG_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;
2803: IF(l_rule_id IS NULL) THEN
2804: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_ACCTG_RULE');
2805: FND_MESSAGE.set_token('ACCTG_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;
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');
2815: END IF;
2816: --update okc_k_lines_b toplines with inv_rule_id
2817: UPDATE okc_k_lines_b
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');
2815: END IF;
2816: --update okc_k_lines_b toplines with inv_rule_id
2817: UPDATE okc_k_lines_b
2818: SET inv_rule_id = l_invoice_rule_id
2821: --update variarable usage type lines with "Arrears" (-3) invoice rule if billing profile's invoice
2822: --rule is different
2823: IF (l_var_usg_typ_flag) THEN
2824:
2825: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2826: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_inv_rul : updating usage invoice rule');
2827: END IF;
2828:
2829: UPDATE okc_k_lines_b a
2822: --rule is different
2823: IF (l_var_usg_typ_flag) THEN
2824:
2825: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2826: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_inv_rul : updating usage invoice rule');
2827: END IF;
2828:
2829: UPDATE okc_k_lines_b a
2830: SET a.inv_rule_id = -3
2832: AND EXISTS (SELECT 1 FROM oks_k_lines_b b
2833: WHERE b.cle_id = a.id AND b.usage_type IN ('VRT', 'QTY'));
2834: END IF;
2835:
2836: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2837: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_acctg_rul : updating accounting rule');
2838: END IF;
2839: --update oks_k_lines_b toplines with acct_rule_id
2840: UPDATE oks_k_lines_b
2833: WHERE b.cle_id = a.id AND b.usage_type IN ('VRT', 'QTY'));
2834: END IF;
2835:
2836: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2837: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_acctg_rul : updating accounting rule');
2838: END IF;
2839: --update oks_k_lines_b toplines with acct_rule_id
2840: UPDATE oks_k_lines_b
2841: SET acct_rule_id = l_account_rule_id
2843: WHERE dnz_chr_id = p_chr_id AND cle_id IS NULL);
2844:
2845: END IF;-- bug 5112991 l_id_tbl.count <> 0 THEN
2846:
2847: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2848: FND_LOG.string(FND_LOG.level_procedure, l_mod_name,'end : x_return_status='|| x_return_status);
2849: END IF;
2850:
2851: EXCEPTION
2844:
2845: END IF;-- bug 5112991 l_id_tbl.count <> 0 THEN
2846:
2847: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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
2858: CLOSE c_bp_toplines;
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
2858: CLOSE c_bp_toplines;
2859: 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
2874: CLOSE c_bp_toplines;
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
2874: CLOSE c_bp_toplines;
2875: 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);
2890: --then add it to the message api list
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);
2890: --then add it to the message api list
2891: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2892: END IF;
2893: IF (c_bp_toplines%isopen) THEN
2959:
2960: BEGIN
2961:
2962: --log key input parameters
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;
2960: BEGIN
2961:
2962: --log key input parameters
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;
2972:
2973: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2974: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_new', 'calling OKC_TIME_UTIL_PUB.get_duration, l_new_start_date='||l_new_start_date||' ,l_new_end_date='||l_new_end_date);
2975: END IF;
2976:
2977: OKC_TIME_UTIL_PUB.get_duration(
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;
2972:
2973: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2974: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_new', 'calling OKC_TIME_UTIL_PUB.get_duration, l_new_start_date='||l_new_start_date||' ,l_new_end_date='||l_new_end_date);
2975: END IF;
2976:
2977: OKC_TIME_UTIL_PUB.get_duration(
2978: p_start_date => l_new_start_date,
2980: x_duration => l_new_duration,
2981: x_timeunit => l_new_period,
2982: x_return_status => x_return_status);
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;
2981: x_timeunit => l_new_period,
2982: x_return_status => x_return_status);
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
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);
2995: END IF;
2996:
2997: OKC_TIME_UTIL_PUB.get_duration(
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);
2995: END IF;
2996:
2997: OKC_TIME_UTIL_PUB.get_duration(
2998: p_start_date => l_old_start_date,
3000: x_duration => l_old_duration,
3001: x_timeunit => l_old_period,
3002: x_return_status => x_return_status);
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;
3001: x_timeunit => l_old_period,
3002: x_return_status => x_return_status);
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
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
3015: (p_billing_profile_id IS NOT NULL) ) THEN
3016:
3017: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3018: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'p_billing_profile_id='||p_billing_profile_id);
3019: END IF;
3020:
3021: DELETE FROM oks_level_elements
3014: IF((l_old_duration <> l_new_duration) OR (l_old_period <> l_new_period) OR
3015: (p_billing_profile_id IS NOT NULL) ) THEN
3016:
3017: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3018: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'p_billing_profile_id='||p_billing_profile_id);
3019: END IF;
3020:
3021: DELETE FROM oks_level_elements
3022: WHERE dnz_chr_id = p_chr_id;
3031: WHERE cle_id IN
3032: (SELECT id FROM OKC_K_LINES_B WHERE dnz_chr_id = p_chr_id
3033: AND lse_id IN (7,8,9,10,11,35,13,18,25));
3034:
3035: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3036: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'done');
3037: END IF;
3038:
3039: END IF; --of IF((l_old_duration <> l_new_duration....
3032: (SELECT id FROM OKC_K_LINES_B WHERE dnz_chr_id = p_chr_id
3033: AND lse_id IN (7,8,9,10,11,35,13,18,25));
3034:
3035: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3036: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'done');
3037: END IF;
3038:
3039: END IF; --of IF((l_old_duration <> l_new_duration....
3040:
3048: IF( ( nvl(l_new_period_type, 'X') = nvl(l_old_period_type, 'X') ) AND
3049: ( nvl(l_new_period_start, 'X') = nvl(l_old_period_start, 'X') ) ) THEN
3050:
3051: --first recreate header billing schedule
3052: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3053: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'calling recreate_hdr_billing, p_chr_id='||p_chr_id||' ,p_old_chr_id='||l_old_chr_id);
3054: END IF;
3055:
3056: recreate_hdr_billing(
3049: ( nvl(l_new_period_start, 'X') = nvl(l_old_period_start, 'X') ) ) THEN
3050:
3051: --first recreate header billing schedule
3052: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3053: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'calling recreate_hdr_billing, p_chr_id='||p_chr_id||' ,p_old_chr_id='||l_old_chr_id);
3054: END IF;
3055:
3056: recreate_hdr_billing(
3057: p_chr_id => p_chr_id,
3059: x_msg_count => x_msg_count,
3060: x_msg_data => x_msg_data,
3061: x_return_status => x_return_status);
3062:
3063: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3064: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_hdr_billing, x_return_status='||x_return_status);
3065: END IF;
3066: --end of contract header billing schedule
3067:
3060: x_msg_data => x_msg_data,
3061: x_return_status => x_return_status);
3062:
3063: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3064: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_hdr_billing, x_return_status='||x_return_status);
3065: END IF;
3066: --end of contract header billing schedule
3067:
3068: --now recreate lines billing schedule
3065: END IF;
3066: --end of contract header billing schedule
3067:
3068: --now recreate lines billing schedule
3069: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3070: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'calling recreate_line_billing, p_chr_id='||p_chr_id);
3071: END IF;
3072:
3073: recreate_line_billing(
3066: --end of contract header billing schedule
3067:
3068: --now recreate lines billing schedule
3069: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3070: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'calling recreate_line_billing, p_chr_id='||p_chr_id);
3071: END IF;
3072:
3073: recreate_line_billing(
3074: p_chr_id => p_chr_id,
3075: x_msg_count => x_msg_count,
3076: x_msg_data => x_msg_data,
3077: x_return_status => x_return_status);
3078:
3079: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3080: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_line_billing, x_return_status='||x_return_status);
3081: END IF;
3082: --end of lines billing schedule
3083:
3076: x_msg_data => x_msg_data,
3077: x_return_status => x_return_status);
3078:
3079: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3080: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_line_billing, x_return_status='||x_return_status);
3081: END IF;
3082: --end of lines billing schedule
3083:
3084: END IF;
3088:
3089: --if billing profile specified, recreate billing schedule using billing profile
3090: IF (p_billing_profile_id IS NOT NULL) THEN
3091:
3092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3093: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bp_not_null', 'calling recreate_billing_from_bp, p_chr_id='||p_chr_id||' ,p_billing_profile_id='||p_billing_profile_id);
3094: END IF;
3095:
3096: recreate_billing_from_bp(
3089: --if billing profile specified, recreate billing schedule using billing profile
3090: IF (p_billing_profile_id IS NOT NULL) THEN
3091:
3092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3093: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bp_not_null', 'calling recreate_billing_from_bp, p_chr_id='||p_chr_id||' ,p_billing_profile_id='||p_billing_profile_id);
3094: END IF;
3095:
3096: recreate_billing_from_bp(
3097: p_chr_id => p_chr_id,
3099: x_msg_count => x_msg_count,
3100: x_msg_data => x_msg_data,
3101: x_return_status => x_return_status);
3102:
3103: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3104: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bp_not_null', 'after call to recreate_billing_from_bp, x_return_status='||x_return_status);
3105: END IF;
3106:
3107: END IF; --IF (p_billing_profile_id IS NOT NULL) THEN
3100: x_msg_data => x_msg_data,
3101: x_return_status => x_return_status);
3102:
3103: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3104: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bp_not_null', 'after call to recreate_billing_from_bp, x_return_status='||x_return_status);
3105: END IF;
3106:
3107: END IF; --IF (p_billing_profile_id IS NOT NULL) THEN
3108:
3109:
3110: --If duration/period don't match and billing profile is NULL, no billing schedule
3111: --is created, such a contract will later fail QA check
3112:
3113: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3114: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3115: END IF;
3116:
3117: EXCEPTION
3110: --If duration/period don't match and billing profile is NULL, no billing schedule
3111: --is created, such a contract will later fail QA check
3112:
3113: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
3133: IF (c_hdr_dates%isopen) THEN
3134: CLOSE c_hdr_dates;
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
3134: CLOSE c_hdr_dates;
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);
3144: --then add it to the message api list
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);
3144: --then add it to the message api list
3145: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3146: END IF;
3147: IF (c_hdr_dates%isopen) THEN
3183:
3184: BEGIN
3185:
3186: --log key input parameters
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;
3184: BEGIN
3185:
3186: --log key input parameters
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:
3194: OPEN c_group_csr(p_chr_id, p_chr_group_id);
3195: FETCH c_group_csr INTO l_dummy;
3196: CLOSE c_group_csr;
3197:
3198: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3199: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_grp', 'l_dummy='||l_dummy);
3200: END IF;
3201:
3202: --only assign the contract to the group is it is not a member of that group
3195: FETCH c_group_csr INTO l_dummy;
3196: CLOSE c_group_csr;
3197:
3198: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3199: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_grp', 'l_dummy='||l_dummy);
3200: END IF;
3201:
3202: --only assign the contract to the group is it is not a member of that group
3203: IF (l_dummy IS NULL) THEN
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(
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,
3224: x_msg_data => x_msg_data,
3225: p_cgcv_rec => l_cgcv_rec_in,
3226: x_cgcv_rec => l_cgcv_rec_out);
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;
3225: p_cgcv_rec => l_cgcv_rec_in,
3226: x_cgcv_rec => l_cgcv_rec_out);
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
3235: END IF;
3236:
3237: END IF;
3238:
3239: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3240: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3241: END IF;
3242:
3243: EXCEPTION
3236:
3237: END IF;
3238:
3239: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
3259: IF (c_group_csr%isopen) THEN
3260: CLOSE c_group_csr;
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
3260: CLOSE c_group_csr;
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);
3270: --then add it to the message api list
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);
3270: --then add it to the message api list
3271: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3272: END IF;
3273: IF (c_group_csr%isopen) THEN
3309:
3310: BEGIN
3311:
3312: --log key input parameters
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;
3310: BEGIN
3311:
3312: --log key input parameters
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:
3320: OPEN c_pdf(p_chr_id);
3321: FETCH c_pdf INTO l_id, l_pdf_id;
3322: CLOSE c_pdf;
3323:
3324: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3325: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_process', 'l_id='||l_id||' ,l_pdf_id='||l_pdf_id);
3326: END IF;
3327:
3328: IF (l_id IS NULL) THEN
3321: FETCH c_pdf INTO l_id, l_pdf_id;
3322: CLOSE c_pdf;
3323:
3324: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3325: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_process', 'l_id='||l_id||' ,l_pdf_id='||l_pdf_id);
3326: END IF;
3327:
3328: IF (l_id IS NULL) THEN
3329:
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;
3345:
3346: OKC_CONTRACT_PVT.create_contract_process(
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;
3345:
3346: OKC_CONTRACT_PVT.create_contract_process(
3347: p_api_version => 1,
3351: x_msg_data => x_msg_data,
3352: p_cpsv_rec => l_cpsv_rec_in,
3353: x_cpsv_rec => l_cpsv_rec_out);
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;
3352: p_cpsv_rec => l_cpsv_rec_in,
3353: x_cpsv_rec => l_cpsv_rec_out);
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
3373: --update the contract process record
3374: l_cpsv_rec_in.pdf_id := p_pdf_id;
3375: l_cpsv_rec_in.id := l_id;
3376:
3377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3378: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'calling OKC_CONTRACT_PVT.update_contract_process');
3379: END IF;
3380:
3381: OKC_CONTRACT_PVT.update_contract_process(
3374: l_cpsv_rec_in.pdf_id := p_pdf_id;
3375: l_cpsv_rec_in.id := l_id;
3376:
3377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3378: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'calling OKC_CONTRACT_PVT.update_contract_process');
3379: END IF;
3380:
3381: OKC_CONTRACT_PVT.update_contract_process(
3382: p_api_version => 1,
3386: x_msg_data => x_msg_data,
3387: p_cpsv_rec => l_cpsv_rec_in,
3388: x_cpsv_rec => l_cpsv_rec_out);
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;
3387: p_cpsv_rec => l_cpsv_rec_in,
3388: x_cpsv_rec => l_cpsv_rec_out);
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
3399: END IF;
3400: END IF;
3401:
3402:
3403: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3404: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3405: END IF;
3406:
3407: EXCEPTION
3400: END IF;
3401:
3402:
3403: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
3423: IF (c_pdf%isopen) THEN
3424: CLOSE c_pdf;
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
3424: CLOSE c_pdf;
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);
3434: --then add it to the message api list
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);
3434: --then add it to the message api list
3435: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3436: END IF;
3437: IF (c_pdf%isopen) THEN
3533:
3534: BEGIN
3535:
3536: --log key input parameters
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;
3534: BEGIN
3535:
3536: --log key input parameters
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:
3584: l_conv_euro_rate := NULL;
3585: END IF;
3586:
3587: --determine the renewal type and corresponding approval type
3588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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,
3585: END IF;
3586:
3587: --determine the renewal type and corresponding approval type
3588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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,
3601: x_renewal_type => l_renewal_type,
3602: x_approval_type => l_approval_type,
3603: x_threshold_used => l_threshold_used);
3604:
3605: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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:
3602: x_approval_type => l_approval_type,
3603: x_threshold_used => l_threshold_used);
3604:
3605: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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
3630: p_start_date => trunc(l_date_renewed),
3631: p_duration => p_rnrl_rec.revenue_estimated_duration,
3632: p_timeunit => p_rnrl_rec.revenue_estimated_period) + l_est_rev_date_offset; --bug 4967105
3633:
3634: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3635: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_enddate', 'after call to OKC_TIME_UTIL_PUB.get_enddate, l_est_rev_date='||l_est_rev_date);
3636: END IF;
3637:
3638: l_grace_period := nvl(p_rnrl_rec.grace_period, l_grace_period);
3631: p_duration => p_rnrl_rec.revenue_estimated_duration,
3632: p_timeunit => p_rnrl_rec.revenue_estimated_period) + l_est_rev_date_offset; --bug 4967105
3633:
3634: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3635: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_enddate', 'after call to OKC_TIME_UTIL_PUB.get_enddate, l_est_rev_date='||l_est_rev_date);
3636: END IF;
3637:
3638: l_grace_period := nvl(p_rnrl_rec.grace_period, l_grace_period);
3639: l_grace_duration := nvl(p_rnrl_rec.grace_duration, l_grace_duration);
3747: l_wf_attributes.item_key := l_wf_item_key;
3748: l_wf_attributes.irr_flag := l_approval_type;
3749: l_wf_attributes.process_type := l_renewal_type;
3750:
3751: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3752: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.wfprocess', 'calling OKS_WF_K_PROCESS_PVT.launch_k_process_wf p_wf_attributes: .contract_id='||p_chr_id||
3753: ' ,.contract_number='||l_k_num||' ,.contract_modifier='||l_k_mod||' ,.negotiation_status='||l_renewal_status||' ,.item_key='||l_wf_item_key||' ,.irr_flag='||l_approval_type||' ,.process_type='||l_renewal_type);
3754: END IF;
3755:
3748: l_wf_attributes.irr_flag := l_approval_type;
3749: l_wf_attributes.process_type := l_renewal_type;
3750:
3751: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3752: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.wfprocess', 'calling OKS_WF_K_PROCESS_PVT.launch_k_process_wf p_wf_attributes: .contract_id='||p_chr_id||
3753: ' ,.contract_number='||l_k_num||' ,.contract_modifier='||l_k_mod||' ,.negotiation_status='||l_renewal_status||' ,.item_key='||l_wf_item_key||' ,.irr_flag='||l_approval_type||' ,.process_type='||l_renewal_type);
3754: END IF;
3755:
3756: OKS_WF_K_PROCESS_PVT.launch_k_process_wf(
3760: x_return_status => x_return_status,
3761: x_msg_count => x_msg_count,
3762: x_msg_data => x_msg_data) ;
3763:
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
3761: x_msg_count => x_msg_count,
3762: x_msg_data => x_msg_data) ;
3763:
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;
3773:
3774: -- bug 6086893
3775: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3776:
3777: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3778: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'BEFORE call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , p_k_class='||l_cls_code||' ,p_k_nbr_mod= '||l_k_mod||' ,p_k_number= '||l_k_num);
3779: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_k_subclass= '||l_old_scs_code||' ,p_k_status_code= '||l_old_sts_code||' ,p_estimated_amount= '||l_old_estimated_amount);
3780: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_new_k_end_date= '||l_new_end_date||' ,p_new_k_id= '||p_chr_id||' ,p_new_k_start_date= '||l_new_start_date||' ,p_original_k_end_date= '||l_old_end_date);
3781: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_original_kid= '||l_old_k_id||' ,p_original_k_start_date= '||l_old_start_date);
3774: -- bug 6086893
3775: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3776:
3777: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3778: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'BEFORE call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , p_k_class='||l_cls_code||' ,p_k_nbr_mod= '||l_k_mod||' ,p_k_number= '||l_k_num);
3779: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_k_subclass= '||l_old_scs_code||' ,p_k_status_code= '||l_old_sts_code||' ,p_estimated_amount= '||l_old_estimated_amount);
3780: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_new_k_end_date= '||l_new_end_date||' ,p_new_k_id= '||p_chr_id||' ,p_new_k_start_date= '||l_new_start_date||' ,p_original_k_end_date= '||l_old_end_date);
3781: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_original_kid= '||l_old_k_id||' ,p_original_k_start_date= '||l_old_start_date);
3782: END IF;
3775: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3776:
3777: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3778: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'BEFORE call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , p_k_class='||l_cls_code||' ,p_k_nbr_mod= '||l_k_mod||' ,p_k_number= '||l_k_num);
3779: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_k_subclass= '||l_old_scs_code||' ,p_k_status_code= '||l_old_sts_code||' ,p_estimated_amount= '||l_old_estimated_amount);
3780: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_new_k_end_date= '||l_new_end_date||' ,p_new_k_id= '||p_chr_id||' ,p_new_k_start_date= '||l_new_start_date||' ,p_original_k_end_date= '||l_old_end_date);
3781: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_original_kid= '||l_old_k_id||' ,p_original_k_start_date= '||l_old_start_date);
3782: END IF;
3783:
3776:
3777: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3778: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'BEFORE call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , p_k_class='||l_cls_code||' ,p_k_nbr_mod= '||l_k_mod||' ,p_k_number= '||l_k_num);
3779: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_k_subclass= '||l_old_scs_code||' ,p_k_status_code= '||l_old_sts_code||' ,p_estimated_amount= '||l_old_estimated_amount);
3780: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_new_k_end_date= '||l_new_end_date||' ,p_new_k_id= '||p_chr_id||' ,p_new_k_start_date= '||l_new_start_date||' ,p_original_k_end_date= '||l_old_end_date);
3781: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_original_kid= '||l_old_k_id||' ,p_original_k_start_date= '||l_old_start_date);
3782: END IF;
3783:
3784: OKC_K_RENEW_ASMBLR_PVT.acn_assemble(
3777: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3778: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'BEFORE call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , p_k_class='||l_cls_code||' ,p_k_nbr_mod= '||l_k_mod||' ,p_k_number= '||l_k_num);
3779: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_k_subclass= '||l_old_scs_code||' ,p_k_status_code= '||l_old_sts_code||' ,p_estimated_amount= '||l_old_estimated_amount);
3780: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_new_k_end_date= '||l_new_end_date||' ,p_new_k_id= '||p_chr_id||' ,p_new_k_start_date= '||l_new_start_date||' ,p_original_k_end_date= '||l_old_end_date);
3781: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble','p_original_kid= '||l_old_k_id||' ,p_original_k_start_date= '||l_old_start_date);
3782: END IF;
3783:
3784: OKC_K_RENEW_ASMBLR_PVT.acn_assemble(
3785: p_api_version => 1,
3800: p_original_kid => l_old_k_id,
3801: p_original_k_start_date => l_old_start_date);
3802:
3803:
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
3801: p_original_k_start_date => l_old_start_date);
3802:
3803:
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;
3814:
3815:
3816: -- end added bug 6086893
3817:
3818: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3819: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3820: END IF;
3821:
3822: EXCEPTION
3815:
3816: -- end added bug 6086893
3817:
3818: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
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;
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;
3838: IF (c_k_hdr%isopen) THEN
3839: CLOSE c_k_hdr;
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
3839: CLOSE c_k_hdr;
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);
3849: --then add it to the message api list
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);
3849: --then add it to the message api list
3850: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3851: END IF;
3852: IF (c_k_hdr%isopen) THEN
4021: l_renk_ste_code okc_statuses_b.ste_code%TYPE;
4022: l_valid_line_exists BOOLEAN := FALSE;
4023: BEGIN
4024: --log key input parameters
4025: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
4022: l_valid_line_exists BOOLEAN := FALSE;
4023: BEGIN
4024: --log key input parameters
4025: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
4043:
4044: IF (c_k_hdr%notfound) THEN
4045: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4046: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
4047: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
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;
4044: IF (c_k_hdr%notfound) THEN
4045: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4046: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
4047: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
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;
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
4057: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_c_k_hdr', 'l_k_app_id=' || l_k_app_id ||' ,l_k_num='|| l_k_num ||' ,l_k_mod='|| l_k_mod ||' ,l_k_ste_code='|| l_k_ste_code ||' ,l_k_ste_meaning='|| l_k_ste_meaning
4058: ||', l_k_scs_code='|| l_k_scs_code ||' ,l_k_template_yn='|| l_k_template_yn ||', l_k_date_terminated='|| l_k_date_terminated ||' ,l_k_date_renewed='|| l_k_date_renewed ||' ,l_k_end_date='|| l_k_end_date);
4059: END IF;
4060:
4053: END IF;
4054: CLOSE c_k_hdr;
4055:
4056: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4057: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_c_k_hdr', 'l_k_app_id=' || l_k_app_id ||' ,l_k_num='|| l_k_num ||' ,l_k_mod='|| l_k_mod ||' ,l_k_ste_code='|| l_k_ste_code ||' ,l_k_ste_meaning='|| l_k_ste_meaning
4058: ||', l_k_scs_code='|| l_k_scs_code ||' ,l_k_template_yn='|| l_k_template_yn ||', l_k_date_terminated='|| l_k_date_terminated ||' ,l_k_date_renewed='|| l_k_date_renewed ||' ,l_k_end_date='|| l_k_end_date);
4059: END IF;
4060:
4061: -- no checks if not service contract
4138: --and set the appropriate message in the validation table.
4139: END IF;
4140:
4141: --error if user does not have update access for the contract
4142: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4143: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_k_access_level', 'p_chr_id=' || p_chr_id ||', l_k_app_id='|| l_k_app_id ||' ,l_k_scs_code='|| l_k_scs_code);
4144: END IF;
4145:
4146: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4139: END IF;
4140:
4141: --error if user does not have update access for the contract
4142: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4143: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_k_access_level', 'p_chr_id=' || p_chr_id ||', l_k_app_id='|| l_k_app_id ||' ,l_k_scs_code='|| l_k_scs_code);
4144: END IF;
4145:
4146: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4147:
4144: END IF;
4145:
4146: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4147:
4148: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4149: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_k_access_level', 'l_k_access_level=' || l_k_access_level);
4150: END IF;
4151:
4152: IF (nvl(l_k_access_level, 'X') <> 'U') THEN
4145:
4146: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4147:
4148: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4149: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_k_access_level', 'l_k_access_level=' || l_k_access_level);
4150: END IF;
4151:
4152: IF (nvl(l_k_access_level, 'X') <> 'U') THEN
4153: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_UPDATE');
4163: OPEN c_check_valid_line(p_chr_id);
4164: FETCH c_check_valid_line INTO l_k_line_id;
4165: CLOSE c_check_valid_line;
4166:
4167: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4168: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_valid_line_check', 'l_k_line_id=' || l_k_line_id);
4169: END IF;
4170:
4171: IF ( l_k_line_id IS NULL ) THEN
4164: FETCH c_check_valid_line INTO l_k_line_id;
4165: CLOSE c_check_valid_line;
4166:
4167: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4168: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_valid_line_check', 'l_k_line_id=' || l_k_line_id);
4169: END IF;
4170:
4171: IF ( l_k_line_id IS NULL ) THEN
4172: l_valid_line_exists := FALSE;
4190: END IF;
4191: END IF;
4192:
4193: --error if effective renewal type of contract is DNR
4194: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4195: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| l_date);
4196: END IF;
4197:
4198: OKS_RENEW_UTIL_PVT.get_renew_rules(
4191: END IF;
4192:
4193: --error if effective renewal type of contract is DNR
4194: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4195: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| l_date);
4196: END IF;
4197:
4198: OKS_RENEW_UTIL_PVT.get_renew_rules(
4199: x_return_status => x_return_status,
4209: x_msg_data => x_msg_data);
4210:
4211: l_k_ren_type := x_rnrl_rec.renewal_type;
4212:
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
4210:
4211: l_k_ren_type := x_rnrl_rec.renewal_type;
4212:
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;
4241: OPEN c_check_hdr_renew (p_chr_id);
4242: FETCH c_check_hdr_renew INTO l_renk_num, l_renk_mod, l_renk_ste_code;
4243: CLOSE c_check_hdr_renew;
4244:
4245: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4246: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.checking_for_renewals', 'l_renk_num=' || l_renk_num ||' ,l_renk_mod='|| l_renk_mod ||' ,l_renk_ste_code='|| l_renk_ste_code);
4247: END IF;
4248:
4249: --if a renewed contract is found, set error/warning message as per status
4242: FETCH c_check_hdr_renew INTO l_renk_num, l_renk_mod, l_renk_ste_code;
4243: CLOSE c_check_hdr_renew;
4244:
4245: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4246: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.checking_for_renewals', 'l_renk_num=' || l_renk_num ||' ,l_renk_mod='|| l_renk_mod ||' ,l_renk_ste_code='|| l_renk_ste_code);
4247: END IF;
4248:
4249: --if a renewed contract is found, set error/warning message as per status
4250: IF (l_renk_num IS NOT NULL) THEN
4296:
4297: --now do the warning checks if p_validation_level = 'A'
4298: IF (p_validation_level = G_VALIDATE_ALL) THEN
4299:
4300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4301: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.checking_for_warnings', 'begin');
4302: END IF;
4303:
4304: IF (l_valid_line_exists) THEN
4297: --now do the warning checks if p_validation_level = 'A'
4298: IF (p_validation_level = G_VALIDATE_ALL) THEN
4299:
4300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4301: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.checking_for_warnings', 'begin');
4302: END IF;
4303:
4304: IF (l_valid_line_exists) THEN
4305:
4338: END IF; --of IF (l_valid_line_exists) THEN
4339:
4340: END IF; --of IF (p_validation_level = G_VALIDATE_ALL) THEN
4341:
4342: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4343: IF (x_validation_tbl.count > 0 ) THEN
4344: FOR i IN x_validation_tbl.first..x_validation_tbl.last LOOP
4345: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.validation_mesg', 'i=' || i ||' , code='|| x_validation_tbl(i).code ||' ,message='|| x_validation_tbl(i).message);
4346: END LOOP;
4341:
4342: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4343: IF (x_validation_tbl.count > 0 ) THEN
4344: FOR i IN x_validation_tbl.first..x_validation_tbl.last LOOP
4345: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.validation_mesg', 'i=' || i ||' , code='|| x_validation_tbl(i).code ||' ,message='|| x_validation_tbl(i).message);
4346: END LOOP;
4347: END IF;
4348: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_validation_status=' || x_validation_status ||', x_return_status='|| x_return_status);
4349: END IF;
4344: FOR i IN x_validation_tbl.first..x_validation_tbl.last LOOP
4345: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.validation_mesg', 'i=' || i ||' , code='|| x_validation_tbl(i).code ||' ,message='|| x_validation_tbl(i).message);
4346: END LOOP;
4347: END IF;
4348: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_validation_status=' || x_validation_status ||', x_return_status='|| x_return_status);
4349: END IF;
4350: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4351:
4352: EXCEPTION
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;
4359: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4360:
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;
4359: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4360:
4361: IF (c_k_hdr%isopen) THEN
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;
4389: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4390:
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;
4389: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4390:
4391: IF (c_k_hdr%isopen) THEN
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);
4419: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4420: --then add it to the message api list
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);
4419: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4420: --then add it to the message api list
4421: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
4422: END IF;
4423: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4615:
4616: BEGIN
4617:
4618: --log key input parameters
4619: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4620: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4621: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
4622: END IF;
4623: END IF;
4616: BEGIN
4617:
4618: --log key input parameters
4619: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4620: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4621: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
4622: END IF;
4623: END IF;
4624:
4617:
4618: --log key input parameters
4619: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4620: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4621: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
4622: END IF;
4623: END IF;
4624:
4625: --standard api initilization and checks
4636: OPEN c_get_topline_txt(p_chr_id);
4637: LOOP
4638: FETCH c_get_topline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
4639:
4640: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4641: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_top_lines', 'l_line_tbl.count='||l_line_tbl.count);
4642: END IF;
4643:
4644: EXIT WHEN (l_line_tbl.count = 0);
4637: LOOP
4638: FETCH c_get_topline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
4639:
4640: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4641: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_top_lines', 'l_line_tbl.count='||l_line_tbl.count);
4642: END IF;
4643:
4644: EXIT WHEN (l_line_tbl.count = 0);
4645:
4646: FOR i in l_line_tbl.first..l_line_tbl.last LOOP
4647: l_sl_id_tbl(i) := l_line_tbl(i).sl_id;
4648: l_inv_txt_tbl(i) := SUBSTR(l_line_tbl(i).name || ':' || l_line_tbl(i).start_date || ':' || l_line_tbl(i).end_date, 1, 450);
4649:
4650: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4651: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_top_lines_loop', 'i='||i||' ,l_line_tbl(i).name='||l_line_tbl(i).name
4652: ||' ,l_line_tbl(i).start_date='||l_line_tbl(i).start_date||' ,l_line_tbl(i).end_date='||l_line_tbl(i).end_date);
4653: END IF;
4654:
4647: l_sl_id_tbl(i) := l_line_tbl(i).sl_id;
4648: l_inv_txt_tbl(i) := SUBSTR(l_line_tbl(i).name || ':' || l_line_tbl(i).start_date || ':' || l_line_tbl(i).end_date, 1, 450);
4649:
4650: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4651: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_top_lines_loop', 'i='||i||' ,l_line_tbl(i).name='||l_line_tbl(i).name
4652: ||' ,l_line_tbl(i).start_date='||l_line_tbl(i).start_date||' ,l_line_tbl(i).end_date='||l_line_tbl(i).end_date);
4653: END IF;
4654:
4655: END LOOP;
4675: OPEN c_get_subline_txt(p_chr_id);
4676: LOOP
4677: FETCH c_get_subline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
4678:
4679: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4680: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sub_lines', 'l_line_tbl.count='||l_line_tbl.count);
4681: END IF;
4682:
4683: EXIT WHEN (l_line_tbl.count = 0);
4676: LOOP
4677: FETCH c_get_subline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
4678:
4679: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4680: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sub_lines', 'l_line_tbl.count='||l_line_tbl.count);
4681: END IF;
4682:
4683: EXIT WHEN (l_line_tbl.count = 0);
4684:
4710: l_inv_txt_tbl(i) := SUBSTR(l_line_tbl(i).num_of_items || ':' || l_line_tbl(i).descr|| ':'|| l_line_tbl(i).start_date || ':' || l_line_tbl(i).end_date, 1, 450);
4711: END IF;
4712: END IF;
4713:
4714: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4715: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sub_lines_loop', 'i='||i||' ,l_line_tbl(i).name='||l_line_tbl(i).name||' ,l_line_tbl(i).descr='||l_line_tbl(i).descr||
4716: ' ,l_line_tbl(i).num_of_items='||l_line_tbl(i).num_of_items||' ,l_line_tbl(i).start_date='||l_line_tbl(i).start_date||' ,l_line_tbl(i).end_date='||l_line_tbl(i).end_date);
4717: END IF;
4718:
4711: END IF;
4712: END IF;
4713:
4714: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4715: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_sub_lines_loop', 'i='||i||' ,l_line_tbl(i).name='||l_line_tbl(i).name||' ,l_line_tbl(i).descr='||l_line_tbl(i).descr||
4716: ' ,l_line_tbl(i).num_of_items='||l_line_tbl(i).num_of_items||' ,l_line_tbl(i).start_date='||l_line_tbl(i).start_date||' ,l_line_tbl(i).end_date='||l_line_tbl(i).end_date);
4717: END IF;
4718:
4719: END LOOP;
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
4748: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
4749: END IF;
4750: END IF;
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
4748: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
4749: END IF;
4750: END IF;
4751: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
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
4748: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
4749: END IF;
4750: END IF;
4751: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4752:
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;
4761: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4762:
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;
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
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:
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
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);
4779: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4780: --then add it to the message api list
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);
4779: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4780: --then add it to the message api list
4781: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
4782: END IF;
4783: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4856:
4857: BEGIN
4858:
4859: --log key input parameters
4860: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
4857: BEGIN
4858:
4859: --log key input parameters
4860: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
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
4877:
4878: IF (l_org_id IS NULL) THEN
4879: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4880: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_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;
4878: IF (l_org_id IS NULL) THEN
4879: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4880: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_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;
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);
4890: END IF;
4891:
4892: --now get the fnd user id/name for the contact of type 'OKX_SALEPERS', if a vendor/merchant party
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);
4890: END IF;
4891:
4892: --now get the fnd user id/name for the contact of type 'OKX_SALEPERS', if a vendor/merchant party
4893: --is found
4896: OPEN c_k_srep_user(p_chr_id, l_cpl_id, l_org_id);
4897: FETCH c_k_srep_user INTO l_user_id, l_user_name;
4898: CLOSE c_k_srep_user;
4899:
4900: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4901: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_k_user', 'l_user_id='||l_user_id||' , l_user_name='||l_user_name);
4902: END IF;
4903:
4904: END IF;
4897: FETCH c_k_srep_user INTO l_user_id, l_user_name;
4898: CLOSE c_k_srep_user;
4899:
4900: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4901: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_k_user', 'l_user_id='||l_user_id||' , l_user_name='||l_user_name);
4902: END IF;
4903:
4904: END IF;
4905:
4904: END IF;
4905:
4906: --if no salesrep found, default to helpdesk user
4907: IF (l_user_id IS NULL) THEN
4908: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4909: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'no salesrep found in contract, getting the helpdesk user');
4910: END IF;
4911:
4912: IF (p_hdesk_user_id IS NOT NULL) THEN
4905:
4906: --if no salesrep found, default to helpdesk user
4907: IF (l_user_id IS NULL) THEN
4908: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4909: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'no salesrep found in contract, getting the helpdesk user');
4910: END IF;
4911:
4912: IF (p_hdesk_user_id IS NOT NULL) THEN
4913: l_user_id := p_hdesk_user_id;
4912: IF (p_hdesk_user_id IS NOT NULL) THEN
4913: l_user_id := p_hdesk_user_id;
4914: ElSE
4915: --get the helpdesk user id from GCD
4916: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4917: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| sysdate);
4918: END IF;
4919:
4920: OKS_RENEW_UTIL_PVT.get_renew_rules(
4913: l_user_id := p_hdesk_user_id;
4914: ElSE
4915: --get the helpdesk user id from GCD
4916: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4917: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| sysdate);
4918: END IF;
4919:
4920: OKS_RENEW_UTIL_PVT.get_renew_rules(
4921: x_return_status => x_return_status,
4929: x_rnrl_rec => x_rnrl_rec,
4930: x_msg_count => x_msg_count,
4931: x_msg_data => x_msg_data);
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;
4930: x_msg_count => x_msg_count,
4931: x_msg_data => x_msg_data);
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
4947: --so that renewal can continue
4948: /*
4949: IF (l_user_id IS NULL) THEN
4950: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_HELPDESK');
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;
4948: /*
4949: IF (l_user_id IS NULL) THEN
4950: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_HELPDESK');
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;
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
4960: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'getting user name for user id='||l_user_id);
4961: END IF;
4962:
4963: OPEN c_fnd_user(l_user_id);
4956: END IF;
4957: */
4958:
4959: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4960: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'getting user name for user id='||l_user_id);
4961: END IF;
4962:
4963: OPEN c_fnd_user(l_user_id);
4964: FETCH c_fnd_user INTO l_user_name;
4967: x_user_id := l_user_id;
4968: x_user_name := l_user_name;
4969:
4970:
4971: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4972: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status||' ,x_user_id='||x_user_id||' ,x_user_name='||x_user_name);
4973: END IF;
4974: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4975:
4968: x_user_name := l_user_name;
4969:
4970:
4971: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4972: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status||' ,x_user_id='||x_user_id||' ,x_user_name='||x_user_name);
4973: END IF;
4974: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4975:
4976: EXCEPTION
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;
4983: IF (c_k_hdr%isopen) THEN
4984: CLOSE c_k_hdr;
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;
4983: IF (c_k_hdr%isopen) THEN
4984: CLOSE c_k_hdr;
4985: END IF;
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;
5000: IF (c_k_hdr%isopen) THEN
5001: CLOSE c_k_hdr;
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;
5000: IF (c_k_hdr%isopen) THEN
5001: CLOSE c_k_hdr;
5002: END IF;
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);
5017: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5018: --then add it to the message api list
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);
5017: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5018: --then add it to the message api list
5019: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
5020: END IF;
5021: IF (c_k_hdr%isopen) THEN
5127: l_warnings BOOLEAN := FALSE;
5128:
5129: BEGIN
5130: --log key input parameters
5131: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5132: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5133: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_api_version=' || p_api_version ||' ,p_commit='|| p_commit ||' ,p_chr_id='|| p_chr_id||' , p_new_contract_number='||p_new_contract_number||
5134: ' ,p_new_contract_modifier='||p_new_contract_modifier||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||
5135: ' ,p_new_duration='||p_new_duration||' ,p_new_uom_code='||p_new_uom_code||' ,p_renewal_called_from_ui='||p_renewal_called_from_ui);
5128:
5129: BEGIN
5130: --log key input parameters
5131: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5132: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5133: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_api_version=' || p_api_version ||' ,p_commit='|| p_commit ||' ,p_chr_id='|| p_chr_id||' , p_new_contract_number='||p_new_contract_number||
5134: ' ,p_new_contract_modifier='||p_new_contract_modifier||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||
5135: ' ,p_new_duration='||p_new_duration||' ,p_new_uom_code='||p_new_uom_code||' ,p_renewal_called_from_ui='||p_renewal_called_from_ui);
5136: END IF;
5129: BEGIN
5130: --log key input parameters
5131: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5132: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5133: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_api_version=' || p_api_version ||' ,p_commit='|| p_commit ||' ,p_chr_id='|| p_chr_id||' , p_new_contract_number='||p_new_contract_number||
5134: ' ,p_new_contract_modifier='||p_new_contract_modifier||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||
5135: ' ,p_new_duration='||p_new_duration||' ,p_new_uom_code='||p_new_uom_code||' ,p_renewal_called_from_ui='||p_renewal_called_from_ui);
5136: END IF;
5137: END IF;
5188: --invalid contract id or if it's not a service contract
5189: IF (c_k_hdr%notfound) THEN
5190: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
5191: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
5192: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
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;
5189: IF (c_k_hdr%notfound) THEN
5190: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
5191: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
5192: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
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;
5200:
5201: --new start date < original end date
5202: IF (p_new_start_date IS NOT NULL) AND (p_new_start_date < l_k_end_date) THEN
5203: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NEW_START_MORE_END');
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;
5201: --new start date < original end date
5202: IF (p_new_start_date IS NOT NULL) AND (p_new_start_date < l_k_end_date) THEN
5203: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NEW_START_MORE_END');
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;
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
5213: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVALID_END_DATE');
5214: FND_MESSAGE.set_token('START_DATE', to_char(nvl(p_new_start_date, l_k_end_date + 1)));
5215: FND_MESSAGE.set_token('END_DATE', to_char(p_new_end_date));
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;
5213: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVALID_END_DATE');
5214: FND_MESSAGE.set_token('START_DATE', to_char(nvl(p_new_start_date, l_k_end_date + 1)));
5215: FND_MESSAGE.set_token('END_DATE', to_char(p_new_end_date));
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;
5240: ELSE
5241: l_validation_level := G_VALIDATE_ALL;
5242: END IF;
5243:
5244: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5245: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.renewal_validation', 'calling OKS_RENEW_UTIL_PVT.validate_renewal, p_chr_id='||p_chr_id||' ,p_date='||to_char(nvl(p_new_start_date, l_k_end_date + 1))||
5246: ' ,p_validation_level='||l_validation_level);
5247: END IF;
5248:
5241: l_validation_level := G_VALIDATE_ALL;
5242: END IF;
5243:
5244: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5245: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.renewal_validation', 'calling OKS_RENEW_UTIL_PVT.validate_renewal, p_chr_id='||p_chr_id||' ,p_date='||to_char(nvl(p_new_start_date, l_k_end_date + 1))||
5246: ' ,p_validation_level='||l_validation_level);
5247: END IF;
5248:
5249: validate_renewal(
5258: x_rnrl_rec => l_rnrl_rec,
5259: x_validation_status => l_validation_status,
5260: x_validation_tbl => l_validation_tbl);
5261:
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
5259: x_validation_status => l_validation_status,
5260: x_validation_tbl => l_validation_tbl);
5261:
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;
5313: p_renewal_end_date => l_k_renewal_end_date,
5314: p_ren_type => l_k_ren_type,
5315: x_return_status => x_return_status);
5316:
5317: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5318: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.default_attributes', 'done l_renk_num='||l_renk_num||' ,l_renk_mod='||l_renk_mod||' ,l_renk_start_date='||to_char(l_renk_start_date)||
5319: ' ,l_renk_end_date='||to_char(l_renk_end_date)||' ,x_return_status='||x_return_status);
5320: END IF;
5321: --end default attributes
5314: p_ren_type => l_k_ren_type,
5315: x_return_status => x_return_status);
5316:
5317: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5318: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.default_attributes', 'done l_renk_num='||l_renk_num||' ,l_renk_mod='||l_renk_mod||' ,l_renk_start_date='||to_char(l_renk_start_date)||
5319: ' ,l_renk_end_date='||to_char(l_renk_end_date)||' ,x_return_status='||x_return_status);
5320: END IF;
5321: --end default attributes
5322:
5331: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5332: fnd_file.put_line(FND_FILE.LOG,' ');
5333:
5334: --Step 4 copy contract
5335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5336: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.copy_contract', 'calling OKC_COPY_CONTRACT_PUB.copy_contract, p_chr_id='||p_chr_id||' ,p_contract_number='||l_renk_num||' ,p_contract_number_modifier='||l_renk_mod||
5337: ' ,p_to_template_yn=N, p_renew_ref_yn=Y, p_override_org=Y, p_copy_lines_yn=Y ,p_commit=F');
5338: END IF;
5339:
5332: fnd_file.put_line(FND_FILE.LOG,' ');
5333:
5334: --Step 4 copy contract
5335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5336: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.copy_contract', 'calling OKC_COPY_CONTRACT_PUB.copy_contract, p_chr_id='||p_chr_id||' ,p_contract_number='||l_renk_num||' ,p_contract_number_modifier='||l_renk_mod||
5337: ' ,p_to_template_yn=N, p_renew_ref_yn=Y, p_override_org=Y, p_copy_lines_yn=Y ,p_commit=F');
5338: END IF;
5339:
5340: OKS_COPY_CONTRACT_PVT.copy_contract(
5350: p_to_template_yn => 'N',
5351: P_renew_ref_yn => 'Y',
5352: x_to_chr_id => x_chr_id);
5353:
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
5351: P_renew_ref_yn => 'Y',
5352: x_to_chr_id => x_chr_id);
5353:
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;
5385: CLOSE c_renk_hdr;
5386:
5387: IF (l_renk_currency_code <> l_k_currency_code) THEN
5388:
5389: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5390: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || x_chr_id ||', p_date='|| l_renk_start_date||' ,l_k_currency_code='||l_k_currency_code||' ,l_renk_currency_code='||l_renk_currency_code);
5391: END IF;
5392:
5393: OKS_RENEW_UTIL_PVT.get_renew_rules(
5386:
5387: IF (l_renk_currency_code <> l_k_currency_code) THEN
5388:
5389: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5390: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || x_chr_id ||', p_date='|| l_renk_start_date||' ,l_k_currency_code='||l_k_currency_code||' ,l_renk_currency_code='||l_renk_currency_code);
5391: END IF;
5392:
5393: OKS_RENEW_UTIL_PVT.get_renew_rules(
5394: x_return_status => x_return_status,
5402: x_rnrl_rec => l_rnrl_rec,
5403: x_msg_count => x_msg_count,
5404: x_msg_data => x_msg_data);
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;
5403: x_msg_count => x_msg_count,
5404: x_msg_data => x_msg_data);
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
5426: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5427: fnd_file.put_line(FND_FILE.LOG,' ');
5428:
5429: --Step 6 adjust the header and line dates
5430: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5431: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_dates', 'calling update_renewal_dates, p_chr_id='||x_chr_id||' ,p_new_start_date='||l_renk_start_date||
5432: ' ,p_new_end_date='||l_renk_end_date||' ,p_old_start_date='||l_k_start_date);
5433: END IF;
5434: update_renewal_dates(
5427: fnd_file.put_line(FND_FILE.LOG,' ');
5428:
5429: --Step 6 adjust the header and line dates
5430: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5431: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_dates', 'calling update_renewal_dates, p_chr_id='||x_chr_id||' ,p_new_start_date='||l_renk_start_date||
5432: ' ,p_new_end_date='||l_renk_end_date||' ,p_old_start_date='||l_k_start_date);
5433: END IF;
5434: update_renewal_dates(
5435: p_chr_id => x_chr_id,
5439: x_msg_count => x_msg_count,
5440: x_msg_data => x_msg_data,
5441: x_return_status => x_return_status);
5442:
5443: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5444: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_dates', 'after update_renewal_dates, x_return_status='||x_return_status);
5445: END IF;
5446: --end of adjust dates
5447:
5440: x_msg_data => x_msg_data,
5441: x_return_status => x_return_status);
5442:
5443: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5444: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_dates', 'after update_renewal_dates, x_return_status='||x_return_status);
5445: END IF;
5446: --end of adjust dates
5447:
5448: /*
5457: fnd_file.put_line(FND_FILE.LOG,' ');
5458:
5459: -- Step 6.1 Update annualized_factor for the renewed contract lines
5460: -- bug 4768227
5461: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5462: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5463: END IF;
5464:
5465: UPDATE okc_k_lines_b
5458:
5459: -- Step 6.1 Update annualized_factor for the renewed contract lines
5460: -- bug 4768227
5461: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5462: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5463: END IF;
5464:
5465: UPDATE okc_k_lines_b
5466: SET annualized_factor = OKS_SETUP_UTIL_PUB.Get_Annualized_Factor(start_date, end_date, lse_id)
5465: UPDATE okc_k_lines_b
5466: SET annualized_factor = OKS_SETUP_UTIL_PUB.Get_Annualized_Factor(start_date, end_date, lse_id)
5467: WHERE dnz_chr_id = x_chr_id;
5468:
5469: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5470: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' After calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5471: END IF;
5472:
5473: /*
5466: SET annualized_factor = OKS_SETUP_UTIL_PUB.Get_Annualized_Factor(start_date, end_date, lse_id)
5467: WHERE dnz_chr_id = x_chr_id;
5468:
5469: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5470: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' After calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5471: END IF;
5472:
5473: /*
5474: Step 7: update the old contract's date renewed column for the lines that are actually renewed
5481: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5482: fnd_file.put_line(FND_FILE.LOG,' ');
5483:
5484: --Step 7 update the old contract's date renewed column for the lines that are actually renewed
5485: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5486: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_source_contract', 'calling update_source_contract, p_new_chr_id='||x_chr_id||' ,p_old_chr_id='||p_chr_id);
5487: END IF;
5488: update_source_contract(
5489: p_new_chr_id => x_chr_id,
5482: fnd_file.put_line(FND_FILE.LOG,' ');
5483:
5484: --Step 7 update the old contract's date renewed column for the lines that are actually renewed
5485: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5486: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_source_contract', 'calling update_source_contract, p_new_chr_id='||x_chr_id||' ,p_old_chr_id='||p_chr_id);
5487: END IF;
5488: update_source_contract(
5489: p_new_chr_id => x_chr_id,
5490: p_old_chr_id => p_chr_id,
5489: p_new_chr_id => x_chr_id,
5490: p_old_chr_id => p_chr_id,
5491: x_return_status => x_return_status);
5492:
5493: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5494: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_source_contract', 'after update_source_contract, x_return_status='||x_return_status);
5495: END IF;
5496: --end of adjust date
5497:
5490: p_old_chr_id => p_chr_id,
5491: x_return_status => x_return_status);
5492:
5493: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5494: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_source_contract', 'after update_source_contract, x_return_status='||x_return_status);
5495: END IF;
5496: --end of adjust date
5497:
5498: /*
5507: fnd_file.put_line(FND_FILE.LOG,' ');
5508:
5509: --now adjust all date dependent entities
5510: --Step 8 adjust the invoice text that is based on the line dates
5511: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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,
5508:
5509: --now adjust all date dependent entities
5510: --Step 8 adjust the invoice text that is based on the line dates
5511: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
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,
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;
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
5533: /*
5534: bug 4775295 : Commented call to procedure update_condition_headers
5535:
5536: --Step 9 update contract condition(event) headers
5537: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5538: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.condition_header', 'calling update_condition_headers, p_chr_id='||x_chr_id||' ,p_new_start_date='||l_renk_start_date||' ,p_new_end_date='||l_renk_end_date
5539: ||' ,p_old_start_date='||l_k_start_date||' ,p_old_end_date='||l_k_end_date);
5540: END IF;
5541:
5534: bug 4775295 : Commented call to procedure update_condition_headers
5535:
5536: --Step 9 update contract condition(event) headers
5537: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5538: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.condition_header', 'calling update_condition_headers, p_chr_id='||x_chr_id||' ,p_new_start_date='||l_renk_start_date||' ,p_new_end_date='||l_renk_end_date
5539: ||' ,p_old_start_date='||l_k_start_date||' ,p_old_end_date='||l_k_end_date);
5540: END IF;
5541:
5542: update_condition_headers(
5546: p_old_start_date => l_k_start_date,
5547: p_old_end_date => l_k_end_date,
5548: x_return_status => x_return_status);
5549:
5550: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5551: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.condition_header', 'after update_condition_headers, x_return_status='||x_return_status);
5552: END IF;
5553: --end of contract condition(event) headers
5554:
5547: p_old_end_date => l_k_end_date,
5548: x_return_status => x_return_status);
5549:
5550: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5551: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.condition_header', 'after update_condition_headers, x_return_status='||x_return_status);
5552: END IF;
5553: --end of contract condition(event) headers
5554:
5555: */
5565: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5566: fnd_file.put_line(FND_FILE.LOG,' ');
5567:
5568: --Step 10 Regenerate subscription schedule/details and coverage entities based on the new dates
5569: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5570: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'calling recreate_cov_subscr, p_chr_id='||x_chr_id);
5571: END IF;
5572: recreate_cov_subscr(
5573: p_chr_id => x_chr_id,
5566: fnd_file.put_line(FND_FILE.LOG,' ');
5567:
5568: --Step 10 Regenerate subscription schedule/details and coverage entities based on the new dates
5569: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5570: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'calling recreate_cov_subscr, p_chr_id='||x_chr_id);
5571: END IF;
5572: recreate_cov_subscr(
5573: p_chr_id => x_chr_id,
5574: x_msg_count => x_msg_count,
5574: x_msg_count => x_msg_count,
5575: x_msg_data => x_msg_data,
5576: x_return_status => x_return_status);
5577:
5578: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5579: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'after call to recreate_cov_subscr, x_return_status='||x_return_status);
5580: END IF;
5581: --end of coverage/subscription recreation
5582:
5575: x_msg_data => x_msg_data,
5576: x_return_status => x_return_status);
5577:
5578: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5579: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'after call to recreate_cov_subscr, x_return_status='||x_return_status);
5580: END IF;
5581: --end of coverage/subscription recreation
5582:
5583: /*
5593:
5594: --Step 11 Call pricing API to reprice the contract based on new dates
5595: --and renewal pricing rules. This will also rollup price/tax values at the topline and header
5596: --level and stamp the pricelist on the lines.
5597: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5598: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.repricing', 'calling reprice_contract, p_chr_id='||x_chr_id||' ,p_price_method='||l_rnrl_rec.renewal_pricing_type||' ,p_price_list_id='||l_rnrl_rec.price_list_id1
5599: ||' ,p_markup_percent='||l_rnrl_rec.markup_percent);
5600: END IF;
5601:
5594: --Step 11 Call pricing API to reprice the contract based on new dates
5595: --and renewal pricing rules. This will also rollup price/tax values at the topline and header
5596: --level and stamp the pricelist on the lines.
5597: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5598: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.repricing', 'calling reprice_contract, p_chr_id='||x_chr_id||' ,p_price_method='||l_rnrl_rec.renewal_pricing_type||' ,p_price_list_id='||l_rnrl_rec.price_list_id1
5599: ||' ,p_markup_percent='||l_rnrl_rec.markup_percent);
5600: END IF;
5601:
5602: reprice_contract(
5607: x_msg_count => x_msg_count,
5608: x_msg_data => x_msg_data,
5609: x_return_status => x_return_status);
5610:
5611: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5612: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.repricing', 'after call to reprice_contract, x_return_status='||x_return_status);
5613: END IF;
5614: --end of repricing
5615:
5608: x_msg_data => x_msg_data,
5609: x_return_status => x_return_status);
5610:
5611: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5612: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.repricing', 'after call to reprice_contract, x_return_status='||x_return_status);
5613: END IF;
5614: --end of repricing
5615:
5616: /*
5625: fnd_file.put_line(FND_FILE.LOG,' ');
5626:
5627: --Step 12 copy usage price locks if any
5628: --Can be done only after the line pricelist has been updated (in reprice_contract)
5629: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5630: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_price_locks', 'calling copy_usage_price_locks, p_chr_id='||x_chr_id||' ,p_contract_number='||l_renk_num);
5631: END IF;
5632: copy_usage_price_locks(
5633: p_chr_id => x_chr_id,
5626:
5627: --Step 12 copy usage price locks if any
5628: --Can be done only after the line pricelist has been updated (in reprice_contract)
5629: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5630: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_price_locks', 'calling copy_usage_price_locks, p_chr_id='||x_chr_id||' ,p_contract_number='||l_renk_num);
5631: END IF;
5632: copy_usage_price_locks(
5633: p_chr_id => x_chr_id,
5634: p_org_id => l_renk_org_id,
5636: x_msg_count => x_msg_count,
5637: x_msg_data => x_msg_data,
5638: x_return_status => x_return_status);
5639:
5640: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5641: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_price_locks', 'after call to copy_usage_price_locks, x_return_status='||x_return_status);
5642: END IF;
5643: --end of copy usage price locks
5644:
5637: x_msg_data => x_msg_data,
5638: x_return_status => x_return_status);
5639:
5640: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5641: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_price_locks', 'after call to copy_usage_price_locks, x_return_status='||x_return_status);
5642: END IF;
5643: --end of copy usage price locks
5644:
5645:
5655: fnd_file.put_line(FND_FILE.LOG,' ');
5656:
5657: --Step 13 Recreate billing schedules for the lines/header.
5658: --Can be done only after dates adjustment and repricing the contract
5659: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5660: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'calling recreate_billing, p_chr_id='||x_chr_id);
5661: END IF;
5662: recreate_billing(
5663: p_chr_id => x_chr_id,
5656:
5657: --Step 13 Recreate billing schedules for the lines/header.
5658: --Can be done only after dates adjustment and repricing the contract
5659: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5660: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'calling recreate_billing, p_chr_id='||x_chr_id);
5661: END IF;
5662: recreate_billing(
5663: p_chr_id => x_chr_id,
5664: p_billing_profile_id => l_rnrl_rec.billing_profile_id,
5664: p_billing_profile_id => l_rnrl_rec.billing_profile_id,
5665: x_msg_count => x_msg_count,
5666: x_msg_data => x_msg_data,
5667: x_return_status => x_return_status);
5668: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5669: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'after call to recreate_billing, x_return_status='||x_return_status);
5670: END IF;
5671: --end of billing
5672:
5665: x_msg_count => x_msg_count,
5666: x_msg_data => x_msg_data,
5667: x_return_status => x_return_status);
5668: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5669: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'after call to recreate_billing, x_return_status='||x_return_status);
5670: END IF;
5671: --end of billing
5672:
5673: /*
5681: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5682: fnd_file.put_line(FND_FILE.LOG,' ');
5683:
5684: --Step 14 Process Sales credits
5685: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5686: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sales_credits', 'calling process_sales_credit, p_chr_id='||x_chr_id);
5687: END IF;
5688:
5689: fnd_file.put_line(FND_FILE.LOG,'Calling process_sales_credit ');
5682: fnd_file.put_line(FND_FILE.LOG,' ');
5683:
5684: --Step 14 Process Sales credits
5685: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5686: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sales_credits', 'calling process_sales_credit, p_chr_id='||x_chr_id);
5687: END IF;
5688:
5689: fnd_file.put_line(FND_FILE.LOG,'Calling process_sales_credit ');
5690:
5693: x_msg_count => x_msg_count,
5694: x_msg_data => x_msg_data,
5695: x_return_status => x_return_status);
5696:
5697: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5698: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sales_credits', 'after call to process_sales_credit, x_return_status='||x_return_status);
5699: END IF;
5700:
5701: --sales credit and copy are the 2 places we can return with a warning
5694: x_msg_data => x_msg_data,
5695: x_return_status => x_return_status);
5696:
5697: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5698: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sales_credits', 'after call to process_sales_credit, x_return_status='||x_return_status);
5699: END IF;
5700:
5701: --sales credit and copy are the 2 places we can return with a warning
5702: IF x_return_status = OKC_API.g_ret_sts_warning THEN -- 'W'
5716: fnd_file.put_line(FND_FILE.LOG,' ');
5717:
5718: --Step 15 get the user id and name (salesperson) of the contact who will be
5719: --the performer for the workflow. Can be done only after sales credits
5720: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5721: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_user_name', 'calling get_user_name, p_chr_id='||x_chr_id||' ,p_hdesk_user_id='||l_rnrl_rec.user_id);
5722: END IF;
5723:
5724: get_user_name(
5717:
5718: --Step 15 get the user id and name (salesperson) of the contact who will be
5719: --the performer for the workflow. Can be done only after sales credits
5720: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5721: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_user_name', 'calling get_user_name, p_chr_id='||x_chr_id||' ,p_hdesk_user_id='||l_rnrl_rec.user_id);
5722: END IF;
5723:
5724: get_user_name(
5725: p_api_version => 1,
5731: p_hdesk_user_id => l_rnrl_rec.user_id,
5732: x_user_id => l_user_id,
5733: x_user_name => l_user_name);
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;
5732: x_user_id => l_user_id,
5733: x_user_name => l_user_name);
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
5754: fnd_file.put_line(FND_FILE.LOG,' ');
5755:
5756: --Step 16 check and assign contract to contract group specified in GCD
5757: IF( l_rnrl_rec.cgp_renew_id IS NOT NULL) THEN
5758: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5759: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_group', 'calling assign_contract_group p_chr_id='||p_chr_id||' ,p_chr_group_id='||l_rnrl_rec.cgp_renew_id);
5760: END IF;
5761: assign_contract_group(
5762: p_chr_id => x_chr_id,
5755:
5756: --Step 16 check and assign contract to contract group specified in GCD
5757: IF( l_rnrl_rec.cgp_renew_id IS NOT NULL) THEN
5758: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5759: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_group', 'calling assign_contract_group p_chr_id='||p_chr_id||' ,p_chr_group_id='||l_rnrl_rec.cgp_renew_id);
5760: END IF;
5761: assign_contract_group(
5762: p_chr_id => x_chr_id,
5763: p_chr_group_id => l_rnrl_rec.cgp_renew_id,
5763: p_chr_group_id => l_rnrl_rec.cgp_renew_id,
5764: x_msg_count => x_msg_count,
5765: x_msg_data => x_msg_data,
5766: x_return_status => x_return_status);
5767: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5768: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_group', 'after call to assign_contract_group, x_return_status='||x_return_status);
5769: END IF;
5770: END IF;
5771: --end of contract group
5764: x_msg_count => x_msg_count,
5765: x_msg_data => x_msg_data,
5766: x_return_status => x_return_status);
5767: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5768: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_group', 'after call to assign_contract_group, x_return_status='||x_return_status);
5769: END IF;
5770: END IF;
5771: --end of contract group
5772: /*
5781: fnd_file.put_line(FND_FILE.LOG,' ');
5782:
5783: --Step 17 check and update/create contract approval process specified in GCD
5784: IF( l_rnrl_rec.pdf_id IS NOT NULL) THEN
5785: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5786: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_process', 'calling assign_contract_process p_chr_id='||p_chr_id||' ,p_pdf_id='||l_rnrl_rec.pdf_id);
5787: END IF;
5788: assign_contract_process(
5789: p_chr_id => x_chr_id,
5782:
5783: --Step 17 check and update/create contract approval process specified in GCD
5784: IF( l_rnrl_rec.pdf_id IS NOT NULL) THEN
5785: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5786: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_process', 'calling assign_contract_process p_chr_id='||p_chr_id||' ,p_pdf_id='||l_rnrl_rec.pdf_id);
5787: END IF;
5788: assign_contract_process(
5789: p_chr_id => x_chr_id,
5790: p_pdf_id => l_rnrl_rec.pdf_id,
5790: p_pdf_id => l_rnrl_rec.pdf_id,
5791: x_msg_count => x_msg_count,
5792: x_msg_data => x_msg_data,
5793: x_return_status => x_return_status);
5794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5795: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_process', 'after call to assign_contract_process, x_return_status='||x_return_status);
5796: END IF;
5797: END IF;
5798: --end of contract approval process
5791: x_msg_count => x_msg_count,
5792: x_msg_data => x_msg_data,
5793: x_return_status => x_return_status);
5794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5795: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_process', 'after call to assign_contract_process, x_return_status='||x_return_status);
5796: END IF;
5797: END IF;
5798: --end of contract approval process
5799:
5809: fnd_file.put_line(FND_FILE.LOG,' ');
5810:
5811: --Step 18 update contract (OKC and OKS) with the renewal rules, inlcuding determination
5812: --renewal type and launching/modification of workflow
5813: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5814: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_contract', 'calling update_renewed_contract p_chr_id='||p_chr_id||' ,p_notify_to='||l_user_id);
5815: END IF;
5816: update_renewed_contract(
5817: p_chr_id => x_chr_id,
5810:
5811: --Step 18 update contract (OKC and OKS) with the renewal rules, inlcuding determination
5812: --renewal type and launching/modification of workflow
5813: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5814: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_contract', 'calling update_renewed_contract p_chr_id='||p_chr_id||' ,p_notify_to='||l_user_id);
5815: END IF;
5816: update_renewed_contract(
5817: p_chr_id => x_chr_id,
5818: p_rnrl_rec => l_rnrl_rec,
5819: p_notify_to => l_user_id,
5820: x_msg_count => x_msg_count,
5821: x_msg_data => x_msg_data,
5822: x_return_status => x_return_status);
5823: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5824: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_contract', 'after call to update_renewed_contract, x_return_status='||x_return_status);
5825: END IF;
5826: --end of update contract
5827:
5820: x_msg_count => x_msg_count,
5821: x_msg_data => x_msg_data,
5822: x_return_status => x_return_status);
5823: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5824: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_contract', 'after call to update_renewed_contract, x_return_status='||x_return_status);
5825: END IF;
5826: --end of update contract
5827:
5828: IF (l_warnings) THEN
5840: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
5841: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5842: fnd_file.put_line(FND_FILE.LOG,' ');
5843:
5844: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5845: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5846: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_chr_id=' || x_chr_id ||', x_return_status='|| x_return_status);
5847: END IF;
5848: END IF;
5841: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5842: fnd_file.put_line(FND_FILE.LOG,' ');
5843:
5844: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5845: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5846: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_chr_id=' || x_chr_id ||', x_return_status='|| x_return_status);
5847: END IF;
5848: END IF;
5849: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5842: fnd_file.put_line(FND_FILE.LOG,' ');
5843:
5844: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5845: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5846: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_chr_id=' || x_chr_id ||', x_return_status='|| x_return_status);
5847: END IF;
5848: END IF;
5849: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5850:
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;
5859: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5860: IF (c_k_hdr%isopen) 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;
5859: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5860: IF (c_k_hdr%isopen) THEN
5861: CLOSE c_k_hdr;
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;
5874: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5875: IF (c_k_hdr%isopen) 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;
5874: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5875: IF (c_k_hdr%isopen) THEN
5876: CLOSE c_k_hdr;
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);
5889: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5890: --then add it to the message api list
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);
5889: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5890: --then add it to the message api list
5891: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
5892: END IF;
5893: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );