[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
1405:
1406: BEGIN
1407:
1408: --log key input parameters
1409: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1410: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1411: END IF;
1412:
1413: x_return_status := FND_API.G_RET_STS_SUCCESS;
1406: BEGIN
1407:
1408: --log key input parameters
1409: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1410: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1411: END IF;
1412:
1413: x_return_status := FND_API.G_RET_STS_SUCCESS;
1414:
1419: --lookup for revenue type : Select name , id1 from OKX_SALES_CRED_TYPES_V order by NAME;
1420: --1:Quota Sales Credit, 2:Non-quota Sales Credit
1421: l_prof_rev_type := FND_PROFILE.VALUE('OKS_REVENUE_TYPE');
1422:
1423: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1424: 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);
1425: END IF;
1426:
1427: IF (l_prof_enable_sc = 'R') THEN
1420: --1:Quota Sales Credit, 2:Non-quota Sales Credit
1421: l_prof_rev_type := FND_PROFILE.VALUE('OKS_REVENUE_TYPE');
1422:
1423: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1424: 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);
1425: END IF;
1426:
1427: IF (l_prof_enable_sc = 'R') THEN
1428: --for R:Retain, do nothing
1425: END IF;
1426:
1427: IF (l_prof_enable_sc = 'R') THEN
1428: --for R:Retain, do nothing
1429: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1430: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end_1', 'Profile OKS_ENABLE_SALES_CREDIT=R(Retain), no processing required');
1431: END IF;
1432: RETURN;
1433: ELSIF (l_prof_enable_sc = 'NO') THEN
1426:
1427: IF (l_prof_enable_sc = 'R') THEN
1428: --for R:Retain, do nothing
1429: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1430: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end_1', 'Profile OKS_ENABLE_SALES_CREDIT=R(Retain), no processing required');
1431: END IF;
1432: RETURN;
1433: ELSIF (l_prof_enable_sc = 'NO') THEN
1434: --for NO:Drop, delete all existing sales credits and return
1433: ELSIF (l_prof_enable_sc = 'NO') THEN
1434: --for NO:Drop, delete all existing sales credits and return
1435: DELETE FROM oks_k_sales_credits
1436: WHERE chr_id = p_chr_id;
1437: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1438: 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');
1439: END IF;
1440: RETURN;
1441: ELSIF(l_prof_enable_sc = 'YES') THEN
1434: --for NO:Drop, delete all existing sales credits and return
1435: DELETE FROM oks_k_sales_credits
1436: WHERE chr_id = p_chr_id;
1437: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1438: 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');
1439: END IF;
1440: RETURN;
1441: ELSIF(l_prof_enable_sc = 'YES') THEN
1442: --for YES:Derive, delete all existing sales credits and derive specified type of sales credit
1443: IF (l_prof_rev_type IS NULL) THEN
1444: --without the profile setup we cannot recreate the sales credit
1445: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1446: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
1447: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1448: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1449: END IF;
1450: FND_MSG_PUB.add;
1451: RAISE FND_API.g_exc_error;
1444: --without the profile setup we cannot recreate the sales credit
1445: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1446: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
1447: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1448: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1449: END IF;
1450: FND_MSG_PUB.add;
1451: RAISE FND_API.g_exc_error;
1452: ELSE
1457: --for DRT:Derive for Revenue Type and Retain Other, delete and derive specified type of sales credit
1458: IF (l_prof_rev_type IS NULL) THEN
1459: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1460: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
1461: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1462: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1463: END IF;
1464: FND_MSG_PUB.add;
1465: RAISE FND_API.g_exc_error;
1458: IF (l_prof_rev_type IS NULL) THEN
1459: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1460: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE');
1461: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1462: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1463: END IF;
1464: FND_MSG_PUB.add;
1465: RAISE FND_API.g_exc_error;
1466: ELSE
1472: --we come here only if l_prof_enable_sc = 'YES' or 'DRT'
1473: --derive the sales credits for the specified revenue type
1474:
1475: --get the contract org and customer/subscriber party id
1476: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1477: 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);
1478: END IF;
1479:
1480: OPEN c_k_hdr(p_chr_id);
1473: --derive the sales credits for the specified revenue type
1474:
1475: --get the contract org and customer/subscriber party id
1476: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1477: 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);
1478: END IF;
1479:
1480: OPEN c_k_hdr(p_chr_id);
1481: FETCH c_k_hdr INTO l_org_id, l_party_id;
1482: CLOSE c_k_hdr;
1483: IF (l_org_id IS NULL) THEN
1484: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
1485: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
1486: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1487: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_org_party', FALSE);
1488: END IF;
1489: FND_MSG_PUB.ADD;
1490: RAISE FND_API.g_exc_error;
1483: IF (l_org_id IS NULL) THEN
1484: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
1485: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
1486: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1487: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_org_party', FALSE);
1488: END IF;
1489: FND_MSG_PUB.ADD;
1490: RAISE FND_API.g_exc_error;
1491: END IF;
1492:
1493: --get the winning salesrep either from JTF or profile option
1494: l_prof_use_jtf := FND_PROFILE.VALUE('OKS_USE_JTF');
1495:
1496: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1497: 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);
1498: END IF;
1499:
1500: IF (l_prof_use_jtf = 'YES') THEN
1493: --get the winning salesrep either from JTF or profile option
1494: l_prof_use_jtf := FND_PROFILE.VALUE('OKS_USE_JTF');
1495:
1496: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1497: 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);
1498: END IF;
1499:
1500: IF (l_prof_use_jtf = 'YES') THEN
1501: --get the salesrep from JTF Territory setup
1499:
1500: IF (l_prof_use_jtf = 'YES') THEN
1501: --get the salesrep from JTF Territory setup
1502: --note this procedure will throw an error if no salesrep is setup in JTF
1503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1504: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'calling get_salesrep_from_jtf');
1505: END IF;
1506:
1507: fnd_file.put_line(FND_FILE.LOG,'Calling get_salesrep_from_jtf');
1500: IF (l_prof_use_jtf = 'YES') THEN
1501: --get the salesrep from JTF Territory setup
1502: --note this procedure will throw an error if no salesrep is setup in JTF
1503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1504: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'calling get_salesrep_from_jtf');
1505: END IF;
1506:
1507: fnd_file.put_line(FND_FILE.LOG,'Calling get_salesrep_from_jtf');
1508: get_salesrep_from_jtf(
1512: x_return_status => x_return_status,
1513: x_msg_count => x_msg_count,
1514: x_msg_data => x_msg_data);
1515:
1516: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1517: 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);
1518: END IF;
1519:
1520: --get the salesrep id corresponding to this resource and k org
1513: x_msg_count => x_msg_count,
1514: x_msg_data => x_msg_data);
1515:
1516: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1517: 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);
1518: END IF;
1519:
1520: --get the salesrep id corresponding to this resource and k org
1521: OPEN c_res_salesrep(l_resource_id, l_org_id);
1524:
1525: IF l_salesrep_id IS NULL THEN
1526: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SREP_FOR_RES');
1527: FND_MESSAGE.set_token('RESOURCE_ID', l_resource_id);
1528: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1529: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_jtf_salesrep', FALSE);
1530: END IF;
1531: FND_MSG_PUB.ADD;
1532: RAISE FND_API.g_exc_error;
1525: IF l_salesrep_id IS NULL THEN
1526: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SREP_FOR_RES');
1527: FND_MESSAGE.set_token('RESOURCE_ID', l_resource_id);
1528: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1529: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_jtf_salesrep', FALSE);
1530: END IF;
1531: FND_MSG_PUB.ADD;
1532: RAISE FND_API.g_exc_error;
1533: END IF;
1535: ELSE
1536: --get the salesrep from profile option
1537: l_salesrep_id := FND_PROFILE.value('OKS_SALESPERSON_ID');
1538:
1539: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1540: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'salesrep from profile option OKS_SALESPERSON_ID='||l_salesrep_id);
1541: END IF;
1542:
1543: IF l_salesrep_id IS NULL THEN
1536: --get the salesrep from profile option
1537: l_salesrep_id := FND_PROFILE.value('OKS_SALESPERSON_ID');
1538:
1539: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1540: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_salesrep', 'salesrep from profile option OKS_SALESPERSON_ID='||l_salesrep_id);
1541: END IF;
1542:
1543: IF l_salesrep_id IS NULL THEN
1544: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1542:
1543: IF l_salesrep_id IS NULL THEN
1544: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1545: FND_MESSAGE.set_token('PROFILE', 'OKS_SALESPERSON_ID');
1546: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1547: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_prof_salesrep', FALSE);
1548: END IF;
1549: FND_MSG_PUB.add;
1550: RAISE FND_API.g_exc_error;
1543: IF l_salesrep_id IS NULL THEN
1544: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1545: FND_MESSAGE.set_token('PROFILE', 'OKS_SALESPERSON_ID');
1546: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1547: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_prof_salesrep', FALSE);
1548: END IF;
1549: FND_MSG_PUB.add;
1550: RAISE FND_API.g_exc_error;
1551: END IF;
1552:
1553: END IF; --of IF (l_prof_use_jtf = 'YES') THEN
1554:
1555: --now check if the salesrep belongs to the same org as the contract
1556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1557: 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);
1558: END IF;
1559:
1560: OPEN c_check_org_match(l_salesrep_id, l_org_id);/*bugfix 6672863*/
1553: END IF; --of IF (l_prof_use_jtf = 'YES') THEN
1554:
1555: --now check if the salesrep belongs to the same org as the contract
1556: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1557: 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);
1558: END IF;
1559:
1560: OPEN c_check_org_match(l_salesrep_id, l_org_id);/*bugfix 6672863*/
1561: FETCH c_check_org_match INTO l_dummy_org_id, l_salesrep_name;
1571:
1572: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_SALESREP_ORG_MATCH');
1573: FND_MESSAGE.set_token('SALESREP_NAME', l_salesrep_name);
1574: FND_MESSAGE.set_token('ORG_NAME', l_org_name);
1575: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1576: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.org_id_match', FALSE);
1577: END IF;
1578: FND_MSG_PUB.add;
1579: x_return_status := OKC_API.g_ret_sts_warning;
1572: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_SALESREP_ORG_MATCH');
1573: FND_MESSAGE.set_token('SALESREP_NAME', l_salesrep_name);
1574: FND_MESSAGE.set_token('ORG_NAME', l_org_name);
1575: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1576: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.org_id_match', FALSE);
1577: END IF;
1578: FND_MSG_PUB.add;
1579: x_return_status := OKC_API.g_ret_sts_warning;
1580: RETURN;
1584: OPEN c_get_ven_mer_id(p_chr_id);
1585: FETCH c_get_ven_mer_id INTO l_cpl_id, l_rle_code;
1586: CLOSE c_get_ven_mer_id;
1587:
1588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1589: 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);
1590: END IF;
1591:
1592: IF (l_cpl_id IS NULL) THEN
1585: FETCH c_get_ven_mer_id INTO l_cpl_id, l_rle_code;
1586: CLOSE c_get_ven_mer_id;
1587:
1588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1589: 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);
1590: END IF;
1591:
1592: IF (l_cpl_id IS NULL) THEN
1593: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_VENDOR_MERCHANT');
1591:
1592: IF (l_cpl_id IS NULL) THEN
1593: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_VENDOR_MERCHANT');
1594: FND_MESSAGE.set_token('CONTRACT_ID', to_char(p_chr_id));
1595: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1596: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_ven_mer_id', FALSE);
1597: END IF;
1598: FND_MSG_PUB.add;
1599: RAISE FND_API.g_exc_error;
1592: IF (l_cpl_id IS NULL) THEN
1593: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_VENDOR_MERCHANT');
1594: FND_MESSAGE.set_token('CONTRACT_ID', to_char(p_chr_id));
1595: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1596: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_ven_mer_id', FALSE);
1597: END IF;
1598: FND_MSG_PUB.add;
1599: RAISE FND_API.g_exc_error;
1600: END IF;
1605: OPEN c_get_cro_code(l_rle_code);
1606: FETCH c_get_cro_code INTO l_cro_code;
1607: CLOSE c_get_cro_code;
1608:
1609: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1610: 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);
1611: END IF;
1612:
1613: IF (l_cro_code IS NULL) THEN
1606: FETCH c_get_cro_code INTO l_cro_code;
1607: CLOSE c_get_cro_code;
1608:
1609: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1610: 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);
1611: END IF;
1612:
1613: IF (l_cro_code IS NULL) THEN
1614: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_K_SRC_FOR_SREP');
1612:
1613: IF (l_cro_code IS NULL) THEN
1614: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_K_SRC_FOR_SREP');
1615: FND_MESSAGE.set_token('RLE_CODE', l_rle_code);
1616: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1617: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_cro_code', FALSE);
1618: END IF;
1619: FND_MSG_PUB.add;
1620: RAISE FND_API.g_exc_error;
1613: IF (l_cro_code IS NULL) THEN
1614: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_K_SRC_FOR_SREP');
1615: FND_MESSAGE.set_token('RLE_CODE', l_rle_code);
1616: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1617: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_cro_code', FALSE);
1618: END IF;
1619: FND_MSG_PUB.add;
1620: RAISE FND_API.g_exc_error;
1621: END IF;
1621: END IF;
1622:
1623: --get the sales group id for the salesrep
1624: --function returns -1 for errors
1625: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1626: 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);
1627: END IF;
1628:
1629: l_sales_group_id := JTF_RS_INTEGRATION_PUB.get_default_sales_group(
1622:
1623: --get the sales group id for the salesrep
1624: --function returns -1 for errors
1625: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1626: 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);
1627: END IF;
1628:
1629: l_sales_group_id := JTF_RS_INTEGRATION_PUB.get_default_sales_group(
1630: p_salesrep_id => l_salesrep_id,
1630: p_salesrep_id => l_salesrep_id,
1631: p_org_id => l_org_id,
1632: p_date => sysdate);
1633:
1634: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1635: 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);
1636: END IF;
1637:
1638: --just log the fact that no salesgroup was found, no error thrown
1631: p_org_id => l_org_id,
1632: p_date => sysdate);
1633:
1634: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1635: 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);
1636: END IF;
1637:
1638: --just log the fact that no salesgroup was found, no error thrown
1639: IF (l_sales_group_id = -1) THEN
1636: END IF;
1637:
1638: --just log the fact that no salesgroup was found, no error thrown
1639: IF (l_sales_group_id = -1) THEN
1640: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1641: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SALES_GROUP');
1642: FND_MESSAGE.set_token('SALESREP_ID', to_char(l_salesrep_id));
1643: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.get_sales_group', TRUE);
1644: END IF;
1639: IF (l_sales_group_id = -1) THEN
1640: IF (FND_LOG.level_event >= FND_LOG.g_current_runtime_level) THEN
1641: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_SALES_GROUP');
1642: FND_MESSAGE.set_token('SALESREP_ID', to_char(l_salesrep_id));
1643: FND_LOG.message(FND_LOG.level_event, l_mod_name || '.get_sales_group', TRUE);
1644: END IF;
1645: END IF;
1646:
1647: --delete any old vendor/merchant contacts based on jtf object OKX_SALEPERS
1656: l_created_by := FND_GLOBAL.USER_ID;
1657: l_date := sysdate;
1658: l_login_id := FND_GLOBAL.LOGIN_ID;
1659:
1660: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1661: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_contact', 'deleted old contacts, creating new contact for salesrep id='||l_salesrep_id);
1662: END IF;
1663:
1664: INSERT INTO OKC_CONTACTS(
1657: l_date := sysdate;
1658: l_login_id := FND_GLOBAL.LOGIN_ID;
1659:
1660: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1661: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_contact', 'deleted old contacts, creating new contact for salesrep id='||l_salesrep_id);
1662: END IF;
1663:
1664: INSERT INTO OKC_CONTACTS(
1665: id,
1705:
1706: IF (l_percent < 0 OR l_percent > 100) THEN
1707: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1708: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE_DIST');
1709: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1710: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_rev_type_dist', FALSE);
1711: END IF;
1712: FND_MSG_PUB.add;
1713: RAISE FND_API.g_exc_error;
1706: IF (l_percent < 0 OR l_percent > 100) THEN
1707: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVD_PROFILE_VALUE');
1708: FND_MESSAGE.set_token('PROFILE', 'OKS_REVENUE_TYPE_DIST');
1709: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1710: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_rev_type_dist', FALSE);
1711: END IF;
1712: FND_MSG_PUB.add;
1713: RAISE FND_API.g_exc_error;
1714: END IF;
1712: FND_MSG_PUB.add;
1713: RAISE FND_API.g_exc_error;
1714: END IF;
1715:
1716: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1717: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.hdr_sales_credit', 'creating hdr sales credits with OKS_REVENUE_TYPE_DIST='||l_prof_rev_type_dist);
1718: END IF;
1719:
1720: INSERT INTO oks_k_sales_credits(
1713: RAISE FND_API.g_exc_error;
1714: END IF;
1715:
1716: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1717: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.hdr_sales_credit', 'creating hdr sales credits with OKS_REVENUE_TYPE_DIST='||l_prof_rev_type_dist);
1718: END IF;
1719:
1720: INSERT INTO oks_k_sales_credits(
1721: id,
1751: OPEN c_get_top_lines(p_chr_id);
1752: LOOP
1753: FETCH c_get_top_lines BULK COLLECT INTO l_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1754:
1755: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1756: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.line_sales_credit', 'l_id_tbl.count='||l_id_tbl.count);
1757: END IF;
1758:
1759: EXIT WHEN (l_id_tbl.count = 0);
1752: LOOP
1753: FETCH c_get_top_lines BULK COLLECT INTO l_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1754:
1755: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1756: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.line_sales_credit', 'l_id_tbl.count='||l_id_tbl.count);
1757: END IF;
1758:
1759: EXIT WHEN (l_id_tbl.count = 0);
1760: FORALL i in l_id_tbl.first..l_id_tbl.last
1792: END LOOP;
1793: CLOSE c_get_top_lines;
1794: l_id_tbl.delete;
1795:
1796: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1797: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1798: END IF;
1799:
1800: EXCEPTION
1793: CLOSE c_get_top_lines;
1794: l_id_tbl.delete;
1795:
1796: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1797: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1798: END IF;
1799:
1800: EXCEPTION
1801: WHEN FND_API.g_exc_error THEN
1799:
1800: EXCEPTION
1801: WHEN FND_API.g_exc_error THEN
1802: x_return_status := FND_API.g_ret_sts_error;
1803: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1804: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1805: END IF;
1806: IF ( c_res_salesrep%isopen ) THEN
1807: CLOSE c_res_salesrep;
1800: EXCEPTION
1801: WHEN FND_API.g_exc_error THEN
1802: x_return_status := FND_API.g_ret_sts_error;
1803: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1804: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1805: END IF;
1806: IF ( c_res_salesrep%isopen ) THEN
1807: CLOSE c_res_salesrep;
1808: END IF;
1824: RAISE;
1825:
1826: WHEN FND_API.g_exc_unexpected_error THEN
1827: x_return_status := FND_API.g_ret_sts_unexp_error ;
1828: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1829: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1830: END IF;
1831: IF ( c_res_salesrep%isopen ) THEN
1832: CLOSE c_res_salesrep;
1825:
1826: WHEN FND_API.g_exc_unexpected_error THEN
1827: x_return_status := FND_API.g_ret_sts_unexp_error ;
1828: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1829: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1830: END IF;
1831: IF ( c_res_salesrep%isopen ) THEN
1832: CLOSE c_res_salesrep;
1833: END IF;
1849: RAISE;
1850:
1851: WHEN OTHERS THEN
1852: x_return_status := FND_API.g_ret_sts_unexp_error ;
1853: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1854: --first log the sqlerrm
1855: l_error_text := substr (SQLERRM, 1, 240);
1856: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
1857: --then add it to the message api list
1852: x_return_status := FND_API.g_ret_sts_unexp_error ;
1853: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1854: --first log the sqlerrm
1855: l_error_text := substr (SQLERRM, 1, 240);
1856: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
1857: --then add it to the message api list
1858: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
1859: END IF;
1860: IF ( c_res_salesrep%isopen ) THEN
1910:
1911: BEGIN
1912:
1913: --log key input parameters
1914: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1915: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1916: END IF;
1917:
1918: x_return_status := FND_API.G_RET_STS_SUCCESS;
1911: BEGIN
1912:
1913: --log key input parameters
1914: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1915: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1916: END IF;
1917:
1918: x_return_status := FND_API.G_RET_STS_SUCCESS;
1919:
1920: OPEN c_subscr_service_lines(p_chr_id);
1921: LOOP
1922: FETCH c_subscr_service_lines BULK COLLECT INTO l_id_tbl, l_old_id_tbl, l_lse_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1923:
1924: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1925: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.subcr_service_loop', 'l_id_tbl.count='||l_id_tbl.count);
1926: END IF;
1927: EXIT WHEN (l_id_tbl.count = 0);
1928:
1921: LOOP
1922: FETCH c_subscr_service_lines BULK COLLECT INTO l_id_tbl, l_old_id_tbl, l_lse_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1923:
1924: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1925: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.subcr_service_loop', 'l_id_tbl.count='||l_id_tbl.count);
1926: END IF;
1927: EXIT WHEN (l_id_tbl.count = 0);
1928:
1929: FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1926: END IF;
1927: EXIT WHEN (l_id_tbl.count = 0);
1928:
1929: FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1930: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1931: 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));
1932: END IF;
1933:
1934: --recreate coverage entities
1927: EXIT WHEN (l_id_tbl.count = 0);
1928:
1929: FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1930: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1931: 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));
1932: END IF;
1933:
1934: --recreate coverage entities
1935: IF( l_lse_id_tbl(i) IN (1,19) ) THEN
1933:
1934: --recreate coverage entities
1935: IF( l_lse_id_tbl(i) IN (1,19) ) THEN
1936:
1937: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1938: 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));
1939: END IF;
1940:
1941: OKS_COVERAGES_PVT.copy_coverage(
1934: --recreate coverage entities
1935: IF( l_lse_id_tbl(i) IN (1,19) ) THEN
1936:
1937: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1938: 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));
1939: END IF;
1940:
1941: OKS_COVERAGES_PVT.copy_coverage(
1942: p_api_version => 1.0,
1945: x_msg_count => x_msg_count,
1946: x_msg_data => x_msg_data,
1947: p_contract_line_id => l_id_tbl(i));
1948:
1949: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1950: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_coverage', 'after call to OKS_COVERAGES_PVT.Copy_Coverage, x_return_status='||x_return_status);
1951: END IF;
1952:
1953: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1946: x_msg_data => x_msg_data,
1947: p_contract_line_id => l_id_tbl(i));
1948:
1949: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1950: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_coverage', 'after call to OKS_COVERAGES_PVT.Copy_Coverage, x_return_status='||x_return_status);
1951: END IF;
1952:
1953: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1954: RAISE FND_API.g_exc_unexpected_error;
1957: END IF;
1958:
1959: ELSIF (l_lse_id_tbl(i) = 46) THEN
1960:
1961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1962: 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');
1963: END IF;
1964:
1965: OKS_SUBSCRIPTION_PUB.copy_subscription(
1958:
1959: ELSIF (l_lse_id_tbl(i) = 46) THEN
1960:
1961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1962: 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');
1963: END IF;
1964:
1965: OKS_SUBSCRIPTION_PUB.copy_subscription(
1966: p_api_version => 1.0,
1971: p_source_cle_id => l_old_id_tbl(i),
1972: p_target_cle_id => l_id_tbl(i),
1973: p_intent => 'RENEW');
1974:
1975: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1976: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_subscr', 'after call to OKS_SUBSCRIPTION_PUB.copy_subscription, x_return_status='||x_return_status);
1977: END IF;
1978:
1979: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1972: p_target_cle_id => l_id_tbl(i),
1973: p_intent => 'RENEW');
1974:
1975: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1976: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_subscr', 'after call to OKS_SUBSCRIPTION_PUB.copy_subscription, x_return_status='||x_return_status);
1977: END IF;
1978:
1979: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1980: RAISE FND_API.g_exc_unexpected_error;
1989: l_id_tbl.delete;
1990: l_old_id_tbl.delete;
1991: l_lse_id_tbl.delete;
1992:
1993: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1994: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1995: END IF;
1996:
1997: EXCEPTION
1990: l_old_id_tbl.delete;
1991: l_lse_id_tbl.delete;
1992:
1993: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1994: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1995: END IF;
1996:
1997: EXCEPTION
1998: WHEN FND_API.g_exc_error THEN
1996:
1997: EXCEPTION
1998: WHEN FND_API.g_exc_error THEN
1999: x_return_status := FND_API.g_ret_sts_error;
2000: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2001: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2002: END IF;
2003: IF ( c_subscr_service_lines%isopen ) THEN
2004: CLOSE c_subscr_service_lines;
1997: EXCEPTION
1998: WHEN FND_API.g_exc_error THEN
1999: x_return_status := FND_API.g_ret_sts_error;
2000: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2001: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2002: END IF;
2003: IF ( c_subscr_service_lines%isopen ) THEN
2004: CLOSE c_subscr_service_lines;
2005: END IF;
2006: RAISE;
2007:
2008: WHEN FND_API.g_exc_unexpected_error THEN
2009: x_return_status := FND_API.g_ret_sts_unexp_error ;
2010: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2011: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2012: END IF;
2013: IF ( c_subscr_service_lines%isopen ) THEN
2014: CLOSE c_subscr_service_lines;
2007:
2008: WHEN FND_API.g_exc_unexpected_error THEN
2009: x_return_status := FND_API.g_ret_sts_unexp_error ;
2010: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2011: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2012: END IF;
2013: IF ( c_subscr_service_lines%isopen ) THEN
2014: CLOSE c_subscr_service_lines;
2015: END IF;
2016: RAISE;
2017:
2018: WHEN OTHERS THEN
2019: x_return_status := FND_API.g_ret_sts_unexp_error ;
2020: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2021: --first log the sqlerrm
2022: l_error_text := substr (SQLERRM, 1, 240);
2023: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2024: --then add it to the message api list
2019: x_return_status := FND_API.g_ret_sts_unexp_error ;
2020: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2021: --first log the sqlerrm
2022: l_error_text := substr (SQLERRM, 1, 240);
2023: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2024: --then add it to the message api list
2025: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2026: END IF;
2027: IF ( c_subscr_service_lines%isopen ) THEN
2081:
2082: BEGIN
2083:
2084: --log key input parameters
2085: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2086: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_org_id='||p_org_id||' ,p_contract_number='||p_contract_number);
2087: END IF;
2088:
2089: x_return_status := FND_API.G_RET_STS_SUCCESS;
2082: BEGIN
2083:
2084: --log key input parameters
2085: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2086: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_org_id='||p_org_id||' ,p_contract_number='||p_contract_number);
2087: END IF;
2088:
2089: x_return_status := FND_API.G_RET_STS_SUCCESS;
2090:
2091: OPEN c_get_usage_price_locks(p_chr_id);
2092: LOOP
2093: FETCH c_get_usage_price_locks BULK COLLECT INTO l_old_lpll_tbl, l_new_cid_tbl, l_old_break_uom_tbl LIMIT G_BULK_FETCH_LIMIT;
2094:
2095: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2096: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_locks_loop', 'l_new_cid_tbl.count='||l_new_cid_tbl.count);
2097: END IF;
2098: EXIT WHEN (l_new_cid_tbl.count = 0);
2099:
2092: LOOP
2093: FETCH c_get_usage_price_locks BULK COLLECT INTO l_old_lpll_tbl, l_new_cid_tbl, l_old_break_uom_tbl LIMIT G_BULK_FETCH_LIMIT;
2094:
2095: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2096: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.usage_locks_loop', 'l_new_cid_tbl.count='||l_new_cid_tbl.count);
2097: END IF;
2098: EXIT WHEN (l_new_cid_tbl.count = 0);
2099:
2100: --lock prices for each usage line
2098: EXIT WHEN (l_new_cid_tbl.count = 0);
2099:
2100: --lock prices for each usage line
2101: FOR i IN l_new_cid_tbl.first..l_new_cid_tbl.last LOOP
2102: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2103: 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));
2104: END IF;
2105:
2106: l_locked_price_list_id := null;
2099:
2100: --lock prices for each usage line
2101: FOR i IN l_new_cid_tbl.first..l_new_cid_tbl.last LOOP
2102: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2103: 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));
2104: END IF;
2105:
2106: l_locked_price_list_id := null;
2107: l_locked_price_list_line_id := null;
2107: l_locked_price_list_line_id := null;
2108: l_new_lpl_tbl(i) := null;
2109: l_new_lpll_tbl(i) := null;
2110:
2111: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2112: 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);
2113: END IF;
2114:
2115: --no bulk price lock api
2108: l_new_lpl_tbl(i) := null;
2109: l_new_lpll_tbl(i) := null;
2110:
2111: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2112: 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);
2113: END IF;
2114:
2115: --no bulk price lock api
2116: QP_LOCK_PRICELIST_GRP.lock_price(
2123: x_return_status => x_return_status,
2124: x_msg_count => x_msg_count,
2125: x_msg_data => x_msg_data);
2126:
2127: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2128: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'usage_locks_loop', 'after call to QP_LOCK_PRICELIST_GRP.lock_price, x_return_status='||x_return_status||
2129: ' ,x_locked_price_list_id='||l_locked_price_list_id||' ,x_locked_list_line_id='||l_locked_price_list_line_id);
2130: END IF;
2131:
2124: x_msg_count => x_msg_count,
2125: x_msg_data => x_msg_data);
2126:
2127: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2128: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'usage_locks_loop', 'after call to QP_LOCK_PRICELIST_GRP.lock_price, x_return_status='||x_return_status||
2129: ' ,x_locked_price_list_id='||l_locked_price_list_id||' ,x_locked_list_line_id='||l_locked_price_list_line_id);
2130: END IF;
2131:
2132: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2158: l_new_lpl_tbl.delete;
2159: l_new_lpll_tbl.delete;
2160: l_old_break_uom_tbl.delete;
2161:
2162: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2163: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2164: END IF;
2165:
2166: EXCEPTION
2159: l_new_lpll_tbl.delete;
2160: l_old_break_uom_tbl.delete;
2161:
2162: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2163: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2164: END IF;
2165:
2166: EXCEPTION
2167: WHEN FND_API.g_exc_error THEN
2165:
2166: EXCEPTION
2167: WHEN FND_API.g_exc_error THEN
2168: x_return_status := FND_API.g_ret_sts_error;
2169: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2170: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2171: END IF;
2172: IF ( c_get_usage_price_locks%isopen ) THEN
2173: CLOSE c_get_usage_price_locks;
2166: EXCEPTION
2167: WHEN FND_API.g_exc_error THEN
2168: x_return_status := FND_API.g_ret_sts_error;
2169: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2170: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2171: END IF;
2172: IF ( c_get_usage_price_locks%isopen ) THEN
2173: CLOSE c_get_usage_price_locks;
2174: END IF;
2175: RAISE;
2176:
2177: WHEN FND_API.g_exc_unexpected_error THEN
2178: x_return_status := FND_API.g_ret_sts_unexp_error ;
2179: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2180: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2181: END IF;
2182: IF ( c_get_usage_price_locks%isopen ) THEN
2183: CLOSE c_get_usage_price_locks;
2176:
2177: WHEN FND_API.g_exc_unexpected_error THEN
2178: x_return_status := FND_API.g_ret_sts_unexp_error ;
2179: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2180: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2181: END IF;
2182: IF ( c_get_usage_price_locks%isopen ) THEN
2183: CLOSE c_get_usage_price_locks;
2184: END IF;
2185: RAISE;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2189: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2190: --first log the sqlerrm
2191: l_error_text := substr (SQLERRM, 1, 240);
2192: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2193: --then add it to the message api list
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2189: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2190: --first log the sqlerrm
2191: l_error_text := substr (SQLERRM, 1, 240);
2192: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2193: --then add it to the message api list
2194: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2195: END IF;
2196: IF ( c_get_usage_price_locks%isopen ) THEN
2235: l_sll_ctr NUMBER := 0;
2236:
2237: BEGIN
2238: --log key input parameters
2239: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2240: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_old_chr_id='||p_old_chr_id);
2241: END IF;
2242: x_return_status := FND_API.G_RET_STS_SUCCESS;
2243:
2236:
2237: BEGIN
2238: --log key input parameters
2239: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2240: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_old_chr_id='||p_old_chr_id);
2241: END IF;
2242: x_return_status := FND_API.G_RET_STS_SUCCESS;
2243:
2244: OPEN c_hdr_strlvl(p_old_chr_id);
2243:
2244: OPEN c_hdr_strlvl(p_old_chr_id);
2245: LOOP
2246: FETCH c_hdr_strlvl BULK COLLECT INTO l_hdr_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2247: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2248: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_hdr_strlvl_tbl.count=' || l_hdr_strlvl_tbl.count);
2249: END IF;
2250: EXIT WHEN (l_hdr_strlvl_tbl.count = 0);
2251:
2244: OPEN c_hdr_strlvl(p_old_chr_id);
2245: LOOP
2246: FETCH c_hdr_strlvl BULK COLLECT INTO l_hdr_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2247: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2248: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_hdr_strlvl_tbl.count=' || l_hdr_strlvl_tbl.count);
2249: END IF;
2250: EXIT WHEN (l_hdr_strlvl_tbl.count = 0);
2251:
2252: FOR i IN l_hdr_strlvl_tbl.first..l_hdr_strlvl_tbl.last LOOP
2273: END LOOP; --hdr bulk fetch loop
2274: CLOSE c_hdr_strlvl;
2275: l_hdr_strlvl_tbl.delete;
2276:
2277: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2278: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_sllv_tbl.count=' || l_sllv_tbl.count);
2279: END IF;
2280:
2281: IF (l_sllv_tbl.count > 0) THEN
2274: CLOSE c_hdr_strlvl;
2275: l_hdr_strlvl_tbl.delete;
2276:
2277: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2278: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_hdr_sll', 'l_sllv_tbl.count=' || l_sllv_tbl.count);
2279: END IF;
2280:
2281: IF (l_sllv_tbl.count > 0) THEN
2282:
2279: END IF;
2280:
2281: IF (l_sllv_tbl.count > 0) THEN
2282:
2283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2284: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_CONTRACT_SLL_PUB.create_sll');
2285: END IF;
2286:
2287: OKS_CONTRACT_SLL_PUB.create_sll (
2280:
2281: IF (l_sllv_tbl.count > 0) THEN
2282:
2283: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2284: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_CONTRACT_SLL_PUB.create_sll');
2285: END IF;
2286:
2287: OKS_CONTRACT_SLL_PUB.create_sll (
2288: p_api_version => 1,
2296:
2297: l_sllv_tbl.delete;
2298: x_sllv_tbl.delete;
2299:
2300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2301: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_CONTRACT_SLL_PUB.create_sll, x_return_status='||x_return_status);
2302: END IF;
2303:
2304: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2297: l_sllv_tbl.delete;
2298: x_sllv_tbl.delete;
2299:
2300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2301: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_CONTRACT_SLL_PUB.create_sll, x_return_status='||x_return_status);
2302: END IF;
2303:
2304: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2305: RAISE FND_API.g_exc_unexpected_error;
2306: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: END IF;
2309:
2310: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2311: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_BILL_SCH.create_hdr_schedule');
2312: END IF;
2313:
2314: OKS_BILL_SCH.create_hdr_schedule(
2307: RAISE FND_API.g_exc_error;
2308: END IF;
2309:
2310: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2311: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_BILL_SCH.create_hdr_schedule');
2312: END IF;
2313:
2314: OKS_BILL_SCH.create_hdr_schedule(
2315: p_contract_id => p_chr_id,
2316: x_return_status => x_return_status,
2317: x_msg_count => x_msg_count,
2318: x_msg_data => x_msg_data);
2319:
2320: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2321: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_BILL_SCH.create_hdr_schedule, x_return_status='||x_return_status);
2322: END IF;
2323:
2324: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2317: x_msg_count => x_msg_count,
2318: x_msg_data => x_msg_data);
2319:
2320: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2321: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_BILL_SCH.create_hdr_schedule, x_return_status='||x_return_status);
2322: END IF;
2323:
2324: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2325: RAISE FND_API.g_exc_unexpected_error;
2329:
2330: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2331:
2332:
2333: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2334: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2335: END IF;
2336:
2337: EXCEPTION
2330: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2331:
2332:
2333: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2334: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2335: END IF;
2336:
2337: EXCEPTION
2338: WHEN FND_API.g_exc_error THEN
2336:
2337: EXCEPTION
2338: WHEN FND_API.g_exc_error THEN
2339: x_return_status := FND_API.g_ret_sts_error;
2340: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2341: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2342: END IF;
2343: IF (c_hdr_strlvl%isopen) THEN
2344: CLOSE c_hdr_strlvl;
2337: EXCEPTION
2338: WHEN FND_API.g_exc_error THEN
2339: x_return_status := FND_API.g_ret_sts_error;
2340: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2341: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2342: END IF;
2343: IF (c_hdr_strlvl%isopen) THEN
2344: CLOSE c_hdr_strlvl;
2345: END IF;
2346: RAISE;
2347:
2348: WHEN FND_API.g_exc_unexpected_error THEN
2349: x_return_status := FND_API.g_ret_sts_unexp_error ;
2350: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2351: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2352: END IF;
2353: IF (c_hdr_strlvl%isopen) THEN
2354: CLOSE c_hdr_strlvl;
2347:
2348: WHEN FND_API.g_exc_unexpected_error THEN
2349: x_return_status := FND_API.g_ret_sts_unexp_error ;
2350: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2351: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2352: END IF;
2353: IF (c_hdr_strlvl%isopen) THEN
2354: CLOSE c_hdr_strlvl;
2355: END IF;
2356: RAISE;
2357:
2358: WHEN OTHERS THEN
2359: x_return_status := FND_API.g_ret_sts_unexp_error ;
2360: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2361: --first log the sqlerrm
2362: l_error_text := substr (SQLERRM, 1, 240);
2363: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2364: --then add it to the message api list
2359: x_return_status := FND_API.g_ret_sts_unexp_error ;
2360: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2361: --first log the sqlerrm
2362: l_error_text := substr (SQLERRM, 1, 240);
2363: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2364: --then add it to the message api list
2365: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2366: END IF;
2367: IF (c_hdr_strlvl%isopen) THEN
2423: l_line_sll_ctr NUMBER := 0;
2424:
2425: BEGIN
2426: --log key input parameters
2427: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2428: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
2429: END IF;
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2431:
2424:
2425: BEGIN
2426: --log key input parameters
2427: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2428: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
2429: END IF;
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2431:
2432: OPEN c_get_top_lines(p_chr_id);
2432: OPEN c_get_top_lines(p_chr_id);
2433: LOOP
2434: FETCH c_get_top_lines BULK COLLECT INTO l_top_line_tbl LIMIT G_BULK_FETCH_LIMIT;
2435:
2436: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2437: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_toplines', 'l_top_line_tbl.count=' || l_top_line_tbl.count);
2438: END IF;
2439:
2440: EXIT WHEN (l_top_line_tbl.count = 0);
2433: LOOP
2434: FETCH c_get_top_lines BULK COLLECT INTO l_top_line_tbl LIMIT G_BULK_FETCH_LIMIT;
2435:
2436: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2437: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_toplines', 'l_top_line_tbl.count=' || l_top_line_tbl.count);
2438: END IF;
2439:
2440: EXIT WHEN (l_top_line_tbl.count = 0);
2441:
2441:
2442: --for each topline and it's sublines recreate the billing schedule
2443: FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2444:
2445: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2446: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'i='||i||
2447: ' id='||l_top_line_tbl(i).id||
2448: ' ,billing_schedule_type='||l_top_line_tbl(i).billing_schedule_type||
2449: ' ,inv_rule_id='||l_top_line_tbl(i).inv_rule_id||
2442: --for each topline and it's sublines recreate the billing schedule
2443: FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2444:
2445: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2446: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.topline_billing', 'i='||i||
2447: ' id='||l_top_line_tbl(i).id||
2448: ' ,billing_schedule_type='||l_top_line_tbl(i).billing_schedule_type||
2449: ' ,inv_rule_id='||l_top_line_tbl(i).inv_rule_id||
2450: ',new_line_amt='||l_top_line_tbl(i).new_line_amt||
2460: OPEN c_line_strlvl(l_top_line_tbl(i).orig_system_id1);
2461: LOOP
2462: FETCH c_line_strlvl BULK COLLECT INTO l_line_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2463:
2464: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2465: 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);
2466: END IF;
2467:
2468: EXIT WHEN (l_line_strlvl_tbl.count = 0);
2461: LOOP
2462: FETCH c_line_strlvl BULK COLLECT INTO l_line_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2463:
2464: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2465: 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);
2466: END IF;
2467:
2468: EXIT WHEN (l_line_strlvl_tbl.count = 0);
2469:
2506: CLOSE c_line_strlvl;
2507: l_line_strlvl_tbl.delete;
2508:
2509: --call the billing api to create the billing schedule for the topline and it's sublines
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', 'calling OKS_BILL_SCH.create_bill_sch_rules');
2512: END IF;
2513:
2514: OKS_BILL_SCH.create_bill_sch_rules(
2507: l_line_strlvl_tbl.delete;
2508:
2509: --call the billing api to create the billing schedule for the topline and it's sublines
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', 'calling OKS_BILL_SCH.create_bill_sch_rules');
2512: END IF;
2513:
2514: OKS_BILL_SCH.create_bill_sch_rules(
2515: p_billing_type => l_top_line_tbl(i).billing_schedule_type,
2517: p_invoice_rule_id => l_top_line_tbl(i).inv_rule_id,
2518: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
2519: x_return_status => x_return_status);
2520:
2521: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2522: 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);
2523: END IF;
2524:
2525: l_bil_sch_out_tbl.delete;
2518: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
2519: x_return_status => x_return_status);
2520:
2521: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2522: 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);
2523: END IF;
2524:
2525: l_bil_sch_out_tbl.delete;
2526: l_line_sllv_tbl.delete;
2536: END LOOP; --topline bulk fetch loop
2537: CLOSE c_get_top_lines;
2538: l_top_line_tbl.delete;
2539:
2540: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2541: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2542: END IF;
2543:
2544: EXCEPTION
2537: CLOSE c_get_top_lines;
2538: l_top_line_tbl.delete;
2539:
2540: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2541: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2542: END IF;
2543:
2544: EXCEPTION
2545: WHEN FND_API.g_exc_error THEN
2543:
2544: EXCEPTION
2545: WHEN FND_API.g_exc_error THEN
2546: x_return_status := FND_API.g_ret_sts_error;
2547: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2548: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2549: END IF;
2550: IF (c_get_top_lines%isopen) THEN
2551: CLOSE c_get_top_lines;
2544: EXCEPTION
2545: WHEN FND_API.g_exc_error THEN
2546: x_return_status := FND_API.g_ret_sts_error;
2547: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2548: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2549: END IF;
2550: IF (c_get_top_lines%isopen) THEN
2551: CLOSE c_get_top_lines;
2552: END IF;
2556: RAISE;
2557:
2558: WHEN FND_API.g_exc_unexpected_error THEN
2559: x_return_status := FND_API.g_ret_sts_unexp_error ;
2560: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2561: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2562: END IF;
2563: IF (c_get_top_lines%isopen) THEN
2564: CLOSE c_get_top_lines;
2557:
2558: WHEN FND_API.g_exc_unexpected_error THEN
2559: x_return_status := FND_API.g_ret_sts_unexp_error ;
2560: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2561: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2562: END IF;
2563: IF (c_get_top_lines%isopen) THEN
2564: CLOSE c_get_top_lines;
2565: END IF;
2569: RAISE;
2570:
2571: WHEN OTHERS THEN
2572: x_return_status := FND_API.g_ret_sts_unexp_error ;
2573: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2574: --first log the sqlerrm
2575: l_error_text := substr (SQLERRM, 1, 240);
2576: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2577: --then add it to the message api list
2572: x_return_status := FND_API.g_ret_sts_unexp_error ;
2573: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2574: --first log the sqlerrm
2575: l_error_text := substr (SQLERRM, 1, 240);
2576: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2577: --then add it to the message api list
2578: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2579: END IF;
2580: IF (c_get_top_lines%isopen) THEN
2644: l_var_usg_typ_flag BOOLEAN := FALSE;
2645:
2646: BEGIN
2647: --log key input parameters
2648: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2649: FND_LOG.string(FND_LOG.level_procedure, l_mod_name, 'begin p_chr_id=' || p_chr_id||' , p_billing_profile_id='||p_billing_profile_id);
2650: END IF;
2651: x_return_status := FND_API.G_RET_STS_SUCCESS;
2652:
2645:
2646: BEGIN
2647: --log key input parameters
2648: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2649: FND_LOG.string(FND_LOG.level_procedure, l_mod_name, 'begin p_chr_id=' || p_chr_id||' , p_billing_profile_id='||p_billing_profile_id);
2650: END IF;
2651: x_return_status := FND_API.G_RET_STS_SUCCESS;
2652:
2653: OPEN c_bp_toplines(p_chr_id);
2653: OPEN c_bp_toplines(p_chr_id);
2654: LOOP
2655:
2656: 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;
2657: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2658: FND_LOG.string(FND_LOG.level_statement, l_mod_name ,'get_toplines : l_id_tbl.count=' || l_id_tbl.count);
2659: END IF;
2660: EXIT WHEN (l_id_tbl.count = 0);
2661:
2654: LOOP
2655:
2656: 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;
2657: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2658: FND_LOG.string(FND_LOG.level_statement, l_mod_name ,'get_toplines : l_id_tbl.count=' || l_id_tbl.count);
2659: END IF;
2660: EXIT WHEN (l_id_tbl.count = 0);
2661:
2662: --for each topline
2671: l_bsch_typ_tbl(i) := NULL;
2672: END IF;
2673:
2674: --get the billing profile based sll
2675: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2676: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'get_tl_bill_sch : i='||i||
2677: ' calling OKS_BILLING_PROFILES_PUB.get_billing_schedule, l_rec.cle_id='||l_rec.cle_id||
2678: ' ,l_rec.start_date='||l_rec.start_date||' ,l_rec.end_date='||l_rec.end_date);
2679: END IF;
2672: END IF;
2673:
2674: --get the billing profile based sll
2675: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2676: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'get_tl_bill_sch : i='||i||
2677: ' calling OKS_BILLING_PROFILES_PUB.get_billing_schedule, l_rec.cle_id='||l_rec.cle_id||
2678: ' ,l_rec.start_date='||l_rec.start_date||' ,l_rec.end_date='||l_rec.end_date);
2679: END IF;
2680:
2686: x_return_status => x_return_status,
2687: x_msg_count => x_msg_count,
2688: x_msg_data => x_msg_data);
2689:
2690: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2691: FND_LOG.string(FND_LOG.level_statement, l_mod_name,' get_tl_bill_sch: i='||i||' after call to OKS_BILLING_PROFILES_PUB.get_billing_schedule, x_return_status='||x_return_status||' ,l_sll_tbl_out.count='||l_sll_tbl_out.count);
2692: END IF;
2693:
2694: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2687: x_msg_count => x_msg_count,
2688: x_msg_data => x_msg_data);
2689:
2690: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2691: FND_LOG.string(FND_LOG.level_statement, l_mod_name,' get_tl_bill_sch: i='||i||' after call to OKS_BILLING_PROFILES_PUB.get_billing_schedule, x_return_status='||x_return_status||' ,l_sll_tbl_out.count='||l_sll_tbl_out.count);
2692: END IF;
2693:
2694: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2695: RAISE FND_API.g_exc_unexpected_error;
2725:
2726: END LOOP;
2727:
2728: --create billing schedule for the topline and it's sublines
2729: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2730: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'create_tl_bill_sch: i='||i||' calling OKS_BILL_SCH.create_bill_sch_rules');
2731: END IF;
2732:
2733: --for usage lines with variable usage type (Actual by Qty, Actual by Period)
2726: END LOOP;
2727:
2728: --create billing schedule for the topline and it's sublines
2729: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2730: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'create_tl_bill_sch: i='||i||' calling OKS_BILL_SCH.create_bill_sch_rules');
2731: END IF;
2732:
2733: --for usage lines with variable usage type (Actual by Qty, Actual by Period)
2734: --the invoice rule has to be "Arrears" (-3), irrespective of the billing profile value
2734: --the invoice rule has to be "Arrears" (-3), irrespective of the billing profile value
2735: IF ( (l_lse_id_tbl(i) = 12) AND (l_usage_typ_tbl(i) IN ('VRT', 'QTY'))
2736: AND (l_invoice_rule_id <> -3) ) THEN
2737:
2738: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2739: 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));
2740: END IF;
2741:
2742: l_var_usg_typ_flag := TRUE;
2735: IF ( (l_lse_id_tbl(i) = 12) AND (l_usage_typ_tbl(i) IN ('VRT', 'QTY'))
2736: AND (l_invoice_rule_id <> -3) ) THEN
2737:
2738: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2739: 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));
2740: END IF;
2741:
2742: l_var_usg_typ_flag := TRUE;
2743: OKS_BILL_SCH.create_bill_sch_rules(
2754: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
2755: x_return_status => x_return_status);
2756: END IF;
2757:
2758: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2759: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'create_tl_bill_sch: i='||i||' after call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status='||x_return_status);
2760: END IF;
2761:
2762: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2755: x_return_status => x_return_status);
2756: END IF;
2757:
2758: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2759: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'create_tl_bill_sch: i='||i||' after call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status='||x_return_status);
2760: END IF;
2761:
2762: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2763: RAISE FND_API.g_exc_unexpected_error;
2782: -- bug 5112991
2783: -- If there are NO top lines then bypass the below code
2784: IF l_id_tbl.count <> 0 THEN
2785:
2786: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2787: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'validate_invoice_rule : l_invoice_rule_id='||l_invoice_rule_id);
2788: END IF;
2789:
2790: l_rule_id := NULL;
2783: -- If there are NO top lines then bypass the below code
2784: IF l_id_tbl.count <> 0 THEN
2785:
2786: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2787: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'validate_invoice_rule : l_invoice_rule_id='||l_invoice_rule_id);
2788: END IF;
2789:
2790: l_rule_id := NULL;
2791: OPEN c_chk_invoice_rule(l_invoice_rule_id);
2794:
2795: IF(l_rule_id IS NULL) THEN
2796: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_INVOICE_RULE');
2797: FND_MESSAGE.set_token('INVOICE_RULE_ID', l_invoice_rule_id);
2798: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2799: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_invoice_rule', FALSE);
2800: END IF;
2801: FND_MSG_PUB.ADD;
2802: RAISE FND_API.g_exc_error;
2795: IF(l_rule_id IS NULL) THEN
2796: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_INVOICE_RULE');
2797: FND_MESSAGE.set_token('INVOICE_RULE_ID', l_invoice_rule_id);
2798: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2799: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_invoice_rule', FALSE);
2800: END IF;
2801: FND_MSG_PUB.ADD;
2802: RAISE FND_API.g_exc_error;
2803: END IF;
2801: FND_MSG_PUB.ADD;
2802: RAISE FND_API.g_exc_error;
2803: END IF;
2804:
2805: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2806: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.validate_accounting_rule', 'l_account_rule_id='||l_account_rule_id);
2807: END IF;
2808:
2809: l_rule_id := NULL;
2802: RAISE FND_API.g_exc_error;
2803: END IF;
2804:
2805: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2806: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.validate_accounting_rule', 'l_account_rule_id='||l_account_rule_id);
2807: END IF;
2808:
2809: l_rule_id := NULL;
2810: OPEN c_chk_accounting_rule(l_account_rule_id);
2813:
2814: IF(l_rule_id IS NULL) THEN
2815: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_ACCTG_RULE');
2816: FND_MESSAGE.set_token('ACCTG_RULE_ID', l_account_rule_id);
2817: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2818: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_accounting_rule', FALSE);
2819: END IF;
2820: FND_MSG_PUB.ADD;
2821: RAISE FND_API.g_exc_error;
2814: IF(l_rule_id IS NULL) THEN
2815: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_ACCTG_RULE');
2816: FND_MESSAGE.set_token('ACCTG_RULE_ID', l_account_rule_id);
2817: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2818: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_accounting_rule', FALSE);
2819: END IF;
2820: FND_MSG_PUB.ADD;
2821: RAISE FND_API.g_exc_error;
2822: END IF;
2820: FND_MSG_PUB.ADD;
2821: RAISE FND_API.g_exc_error;
2822: END IF;
2823:
2824: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2825: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_inv_rul : updating invoice rule');
2826: END IF;
2827: --update okc_k_lines_b toplines with inv_rule_id
2828: UPDATE okc_k_lines_b
2821: RAISE FND_API.g_exc_error;
2822: END IF;
2823:
2824: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2825: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_inv_rul : updating invoice rule');
2826: END IF;
2827: --update okc_k_lines_b toplines with inv_rule_id
2828: UPDATE okc_k_lines_b
2829: SET inv_rule_id = l_invoice_rule_id
2832: --update variarable usage type lines with "Arrears" (-3) invoice rule if billing profile's invoice
2833: --rule is different
2834: IF (l_var_usg_typ_flag) THEN
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_inv_rul : updating usage invoice rule');
2838: END IF;
2839:
2840: UPDATE okc_k_lines_b a
2833: --rule is different
2834: IF (l_var_usg_typ_flag) THEN
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_inv_rul : updating usage invoice rule');
2838: END IF;
2839:
2840: UPDATE okc_k_lines_b a
2841: SET a.inv_rule_id = -3
2843: AND EXISTS (SELECT 1 FROM oks_k_lines_b b
2844: WHERE b.cle_id = a.id AND b.usage_type IN ('VRT', 'QTY'));
2845: END IF;
2846:
2847: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2848: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_acctg_rul : updating accounting rule');
2849: END IF;
2850: --update oks_k_lines_b toplines with acct_rule_id
2851: UPDATE oks_k_lines_b
2844: WHERE b.cle_id = a.id AND b.usage_type IN ('VRT', 'QTY'));
2845: END IF;
2846:
2847: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2848: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_acctg_rul : updating accounting rule');
2849: END IF;
2850: --update oks_k_lines_b toplines with acct_rule_id
2851: UPDATE oks_k_lines_b
2852: SET acct_rule_id = l_account_rule_id
2854: WHERE dnz_chr_id = p_chr_id AND cle_id IS NULL);
2855:
2856: END IF;-- bug 5112991 l_id_tbl.count <> 0 THEN
2857:
2858: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2859: FND_LOG.string(FND_LOG.level_procedure, l_mod_name,'end : x_return_status='|| x_return_status);
2860: END IF;
2861:
2862: EXCEPTION
2855:
2856: END IF;-- bug 5112991 l_id_tbl.count <> 0 THEN
2857:
2858: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2859: FND_LOG.string(FND_LOG.level_procedure, l_mod_name,'end : x_return_status='|| x_return_status);
2860: END IF;
2861:
2862: EXCEPTION
2863: WHEN FND_API.g_exc_error THEN
2861:
2862: EXCEPTION
2863: WHEN FND_API.g_exc_error THEN
2864: x_return_status := FND_API.g_ret_sts_error;
2865: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2866: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2867: END IF;
2868: IF (c_bp_toplines%isopen) THEN
2869: CLOSE c_bp_toplines;
2862: EXCEPTION
2863: WHEN FND_API.g_exc_error THEN
2864: x_return_status := FND_API.g_ret_sts_error;
2865: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2866: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2867: END IF;
2868: IF (c_bp_toplines%isopen) THEN
2869: CLOSE c_bp_toplines;
2870: END IF;
2877: RAISE;
2878:
2879: WHEN FND_API.g_exc_unexpected_error THEN
2880: x_return_status := FND_API.g_ret_sts_unexp_error ;
2881: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2882: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2883: END IF;
2884: IF (c_bp_toplines%isopen) THEN
2885: CLOSE c_bp_toplines;
2878:
2879: WHEN FND_API.g_exc_unexpected_error THEN
2880: x_return_status := FND_API.g_ret_sts_unexp_error ;
2881: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2882: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2883: END IF;
2884: IF (c_bp_toplines%isopen) THEN
2885: CLOSE c_bp_toplines;
2886: END IF;
2893: RAISE;
2894:
2895: WHEN OTHERS THEN
2896: x_return_status := FND_API.g_ret_sts_unexp_error ;
2897: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2898: --first log the sqlerrm
2899: l_error_text := substr (SQLERRM, 1, 240);
2900: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2901: --then add it to the message api list
2896: x_return_status := FND_API.g_ret_sts_unexp_error ;
2897: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2898: --first log the sqlerrm
2899: l_error_text := substr (SQLERRM, 1, 240);
2900: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2901: --then add it to the message api list
2902: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
2903: END IF;
2904: IF (c_bp_toplines%isopen) THEN
2970:
2971: BEGIN
2972:
2973: --log key input parameters
2974: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2975: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_billing_profile_id='||p_billing_profile_id);
2976: END IF;
2977:
2978: x_return_status := FND_API.G_RET_STS_SUCCESS;
2971: BEGIN
2972:
2973: --log key input parameters
2974: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2975: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_billing_profile_id='||p_billing_profile_id);
2976: END IF;
2977:
2978: x_return_status := FND_API.G_RET_STS_SUCCESS;
2979:
2980: OPEN c_hdr_dates(p_chr_id);
2981: FETCH c_hdr_dates INTO l_new_start_date, l_new_end_date, l_old_start_date, l_old_end_date, l_old_chr_id, l_new_period_type, l_new_period_start, l_old_period_type, l_old_period_start;
2982: CLOSE c_hdr_dates;
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', 'calling OKC_TIME_UTIL_PUB.get_duration, l_new_start_date='||l_new_start_date||' ,l_new_end_date='||l_new_end_date);
2986: END IF;
2987:
2988: OKC_TIME_UTIL_PUB.get_duration(
2981: FETCH c_hdr_dates INTO l_new_start_date, l_new_end_date, l_old_start_date, l_old_end_date, l_old_chr_id, l_new_period_type, l_new_period_start, l_old_period_type, l_old_period_start;
2982: CLOSE c_hdr_dates;
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', 'calling OKC_TIME_UTIL_PUB.get_duration, l_new_start_date='||l_new_start_date||' ,l_new_end_date='||l_new_end_date);
2986: END IF;
2987:
2988: OKC_TIME_UTIL_PUB.get_duration(
2989: p_start_date => l_new_start_date,
2991: x_duration => l_new_duration,
2992: x_timeunit => l_new_period,
2993: x_return_status => x_return_status);
2994:
2995: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2996: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_new', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_new_duration='||l_new_duration||' ,l_new_period='||l_new_period);
2997: END IF;
2998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2999: RAISE FND_API.g_exc_unexpected_error;
2992: x_timeunit => l_new_period,
2993: x_return_status => x_return_status);
2994:
2995: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2996: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_new', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_new_duration='||l_new_duration||' ,l_new_period='||l_new_period);
2997: END IF;
2998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2999: RAISE FND_API.g_exc_unexpected_error;
3000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3001: RAISE FND_API.g_exc_error;
3002: END IF;
3003:
3004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3005: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'calling OKC_TIME_UTIL_PUB.get_duration, l_old_start_date='||l_old_start_date||' ,l_old_end_date='||l_old_end_date);
3006: END IF;
3007:
3008: OKC_TIME_UTIL_PUB.get_duration(
3001: RAISE FND_API.g_exc_error;
3002: END IF;
3003:
3004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3005: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'calling OKC_TIME_UTIL_PUB.get_duration, l_old_start_date='||l_old_start_date||' ,l_old_end_date='||l_old_end_date);
3006: END IF;
3007:
3008: OKC_TIME_UTIL_PUB.get_duration(
3009: p_start_date => l_old_start_date,
3011: x_duration => l_old_duration,
3012: x_timeunit => l_old_period,
3013: x_return_status => x_return_status);
3014:
3015: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3016: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_old_duration='||l_old_duration||' ,l_old_period='||l_old_period);
3017: END IF;
3018: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3019: RAISE FND_API.g_exc_unexpected_error;
3012: x_timeunit => l_old_period,
3013: x_return_status => x_return_status);
3014:
3015: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3016: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_old_duration='||l_old_duration||' ,l_old_period='||l_old_period);
3017: END IF;
3018: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3019: RAISE FND_API.g_exc_unexpected_error;
3020: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3024: --delete billing schedules if old duration <> new duration or billing profile specified
3025: IF((l_old_duration <> l_new_duration) OR (l_old_period <> l_new_period) OR
3026: (p_billing_profile_id IS NOT NULL) ) THEN
3027:
3028: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3029: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'p_billing_profile_id='||p_billing_profile_id);
3030: END IF;
3031:
3032: DELETE FROM oks_level_elements
3025: IF((l_old_duration <> l_new_duration) OR (l_old_period <> l_new_period) OR
3026: (p_billing_profile_id IS NOT NULL) ) THEN
3027:
3028: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3029: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'p_billing_profile_id='||p_billing_profile_id);
3030: END IF;
3031:
3032: DELETE FROM oks_level_elements
3033: WHERE dnz_chr_id = p_chr_id;
3042: WHERE cle_id IN
3043: (SELECT id FROM OKC_K_LINES_B WHERE dnz_chr_id = p_chr_id
3044: AND lse_id IN (7,8,9,10,11,35,13,18,25));
3045:
3046: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3047: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'done');
3048: END IF;
3049:
3050: END IF; --of IF((l_old_duration <> l_new_duration....
3043: (SELECT id FROM OKC_K_LINES_B WHERE dnz_chr_id = p_chr_id
3044: AND lse_id IN (7,8,9,10,11,35,13,18,25));
3045:
3046: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3047: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_billing', 'done');
3048: END IF;
3049:
3050: END IF; --of IF((l_old_duration <> l_new_duration....
3051:
3059: IF( ( nvl(l_new_period_type, 'X') = nvl(l_old_period_type, 'X') ) AND
3060: ( nvl(l_new_period_start, 'X') = nvl(l_old_period_start, 'X') ) ) THEN
3061:
3062: --first recreate header billing schedule
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', 'calling recreate_hdr_billing, p_chr_id='||p_chr_id||' ,p_old_chr_id='||l_old_chr_id);
3065: END IF;
3066:
3067: recreate_hdr_billing(
3060: ( nvl(l_new_period_start, 'X') = nvl(l_old_period_start, 'X') ) ) THEN
3061:
3062: --first recreate header billing schedule
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', 'calling recreate_hdr_billing, p_chr_id='||p_chr_id||' ,p_old_chr_id='||l_old_chr_id);
3065: END IF;
3066:
3067: recreate_hdr_billing(
3068: p_chr_id => p_chr_id,
3070: x_msg_count => x_msg_count,
3071: x_msg_data => x_msg_data,
3072: x_return_status => x_return_status);
3073:
3074: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3075: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_hdr_billing, x_return_status='||x_return_status);
3076: END IF;
3077: --end of contract header billing schedule
3078:
3071: x_msg_data => x_msg_data,
3072: x_return_status => x_return_status);
3073:
3074: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3075: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_hdr_billing, x_return_status='||x_return_status);
3076: END IF;
3077: --end of contract header billing schedule
3078:
3079: --now recreate lines billing schedule
3076: END IF;
3077: --end of contract header billing schedule
3078:
3079: --now recreate lines billing schedule
3080: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3081: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'calling recreate_line_billing, p_chr_id='||p_chr_id);
3082: END IF;
3083:
3084: recreate_line_billing(
3077: --end of contract header billing schedule
3078:
3079: --now recreate lines billing schedule
3080: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3081: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'calling recreate_line_billing, p_chr_id='||p_chr_id);
3082: END IF;
3083:
3084: recreate_line_billing(
3085: p_chr_id => p_chr_id,
3086: x_msg_count => x_msg_count,
3087: x_msg_data => x_msg_data,
3088: x_return_status => x_return_status);
3089:
3090: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3091: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_line_billing, x_return_status='||x_return_status);
3092: END IF;
3093: --end of lines billing schedule
3094:
3087: x_msg_data => x_msg_data,
3088: x_return_status => x_return_status);
3089:
3090: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3091: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.dur_match_bp_null', 'after recreate_line_billing, x_return_status='||x_return_status);
3092: END IF;
3093: --end of lines billing schedule
3094:
3095: END IF;
3099:
3100: --if billing profile specified, recreate billing schedule using billing profile
3101: IF (p_billing_profile_id IS NOT NULL) THEN
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', 'calling recreate_billing_from_bp, p_chr_id='||p_chr_id||' ,p_billing_profile_id='||p_billing_profile_id);
3105: END IF;
3106:
3107: recreate_billing_from_bp(
3100: --if billing profile specified, recreate billing schedule using billing profile
3101: IF (p_billing_profile_id IS NOT NULL) THEN
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', 'calling recreate_billing_from_bp, p_chr_id='||p_chr_id||' ,p_billing_profile_id='||p_billing_profile_id);
3105: END IF;
3106:
3107: recreate_billing_from_bp(
3108: p_chr_id => p_chr_id,
3110: x_msg_count => x_msg_count,
3111: x_msg_data => x_msg_data,
3112: x_return_status => x_return_status);
3113:
3114: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3115: 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);
3116: END IF;
3117:
3118: END IF; --IF (p_billing_profile_id IS NOT NULL) THEN
3111: x_msg_data => x_msg_data,
3112: x_return_status => x_return_status);
3113:
3114: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3115: 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);
3116: END IF;
3117:
3118: END IF; --IF (p_billing_profile_id IS NOT NULL) THEN
3119:
3120:
3121: --If duration/period don't match and billing profile is NULL, no billing schedule
3122: --is created, such a contract will later fail QA check
3123:
3124: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3125: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3126: END IF;
3127:
3128: EXCEPTION
3121: --If duration/period don't match and billing profile is NULL, no billing schedule
3122: --is created, such a contract will later fail QA check
3123:
3124: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3125: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3126: END IF;
3127:
3128: EXCEPTION
3129: WHEN FND_API.g_exc_error THEN
3127:
3128: EXCEPTION
3129: WHEN FND_API.g_exc_error THEN
3130: x_return_status := FND_API.g_ret_sts_error;
3131: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3132: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3133: END IF;
3134: IF (c_hdr_dates%isopen) THEN
3135: CLOSE c_hdr_dates;
3128: EXCEPTION
3129: WHEN FND_API.g_exc_error THEN
3130: x_return_status := FND_API.g_ret_sts_error;
3131: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3132: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3133: END IF;
3134: IF (c_hdr_dates%isopen) THEN
3135: CLOSE c_hdr_dates;
3136: END IF;
3137: RAISE;
3138:
3139: WHEN FND_API.g_exc_unexpected_error THEN
3140: x_return_status := FND_API.g_ret_sts_unexp_error ;
3141: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3142: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3143: END IF;
3144: IF (c_hdr_dates%isopen) THEN
3145: CLOSE c_hdr_dates;
3138:
3139: WHEN FND_API.g_exc_unexpected_error THEN
3140: x_return_status := FND_API.g_ret_sts_unexp_error ;
3141: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3142: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3143: END IF;
3144: IF (c_hdr_dates%isopen) THEN
3145: CLOSE c_hdr_dates;
3146: END IF;
3147: RAISE;
3148:
3149: WHEN OTHERS THEN
3150: x_return_status := FND_API.g_ret_sts_unexp_error ;
3151: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3152: --first log the sqlerrm
3153: l_error_text := substr (SQLERRM, 1, 240);
3154: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3155: --then add it to the message api list
3150: x_return_status := FND_API.g_ret_sts_unexp_error ;
3151: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3152: --first log the sqlerrm
3153: l_error_text := substr (SQLERRM, 1, 240);
3154: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3155: --then add it to the message api list
3156: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3157: END IF;
3158: IF (c_hdr_dates%isopen) THEN
3194:
3195: BEGIN
3196:
3197: --log key input parameters
3198: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3199: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_chr_group_id='||p_chr_group_id);
3200: END IF;
3201:
3202: x_return_status := FND_API.G_RET_STS_SUCCESS;
3195: BEGIN
3196:
3197: --log key input parameters
3198: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3199: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_chr_group_id='||p_chr_group_id);
3200: END IF;
3201:
3202: x_return_status := FND_API.G_RET_STS_SUCCESS;
3203:
3205: OPEN c_group_csr(p_chr_id, p_chr_group_id);
3206: FETCH c_group_csr INTO l_dummy;
3207: CLOSE c_group_csr;
3208:
3209: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3210: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_grp', 'l_dummy='||l_dummy);
3211: END IF;
3212:
3213: --only assign the contract to the group is it is not a member of that group
3206: FETCH c_group_csr INTO l_dummy;
3207: CLOSE c_group_csr;
3208:
3209: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3210: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_grp', 'l_dummy='||l_dummy);
3211: END IF;
3212:
3213: --only assign the contract to the group is it is not a member of that group
3214: IF (l_dummy IS NULL) THEN
3222: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3223: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3224: l_cgcv_rec_in.included_cgp_id := NULL;
3225:
3226: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3227: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'calling OKC_CONTRACT_GROUP_PVT.create_contract_grpngs');
3228: END IF;
3229:
3230: OKC_CONTRACT_GROUP_PVT.create_contract_grpngs(
3223: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3224: l_cgcv_rec_in.included_cgp_id := NULL;
3225:
3226: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3227: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'calling OKC_CONTRACT_GROUP_PVT.create_contract_grpngs');
3228: END IF;
3229:
3230: OKC_CONTRACT_GROUP_PVT.create_contract_grpngs(
3231: p_api_version => 1,
3235: x_msg_data => x_msg_data,
3236: p_cgcv_rec => l_cgcv_rec_in,
3237: x_cgcv_rec => l_cgcv_rec_out);
3238:
3239: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3240: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'after call to OKC_CONTRACT_GROUP_PVT.create_contract_grpngs, x_return_status='||x_return_status);
3241: END IF;
3242: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3243: RAISE FND_API.g_exc_unexpected_error;
3236: p_cgcv_rec => l_cgcv_rec_in,
3237: x_cgcv_rec => l_cgcv_rec_out);
3238:
3239: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3240: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'after call to OKC_CONTRACT_GROUP_PVT.create_contract_grpngs, x_return_status='||x_return_status);
3241: END IF;
3242: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3243: RAISE FND_API.g_exc_unexpected_error;
3244: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3246: END IF;
3247:
3248: END IF;
3249:
3250: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3251: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3252: END IF;
3253:
3254: EXCEPTION
3247:
3248: END IF;
3249:
3250: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3251: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3252: END IF;
3253:
3254: EXCEPTION
3255: WHEN FND_API.g_exc_error THEN
3253:
3254: EXCEPTION
3255: WHEN FND_API.g_exc_error THEN
3256: x_return_status := FND_API.g_ret_sts_error;
3257: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3258: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3259: END IF;
3260: IF (c_group_csr%isopen) THEN
3261: CLOSE c_group_csr;
3254: EXCEPTION
3255: WHEN FND_API.g_exc_error THEN
3256: x_return_status := FND_API.g_ret_sts_error;
3257: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3258: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3259: END IF;
3260: IF (c_group_csr%isopen) THEN
3261: CLOSE c_group_csr;
3262: END IF;
3263: RAISE;
3264:
3265: WHEN FND_API.g_exc_unexpected_error THEN
3266: x_return_status := FND_API.g_ret_sts_unexp_error ;
3267: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3268: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3269: END IF;
3270: IF (c_group_csr%isopen) THEN
3271: CLOSE c_group_csr;
3264:
3265: WHEN FND_API.g_exc_unexpected_error THEN
3266: x_return_status := FND_API.g_ret_sts_unexp_error ;
3267: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3268: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3269: END IF;
3270: IF (c_group_csr%isopen) THEN
3271: CLOSE c_group_csr;
3272: END IF;
3273: RAISE;
3274:
3275: WHEN OTHERS THEN
3276: x_return_status := FND_API.g_ret_sts_unexp_error ;
3277: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3278: --first log the sqlerrm
3279: l_error_text := substr (SQLERRM, 1, 240);
3280: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3281: --then add it to the message api list
3276: x_return_status := FND_API.g_ret_sts_unexp_error ;
3277: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3278: --first log the sqlerrm
3279: l_error_text := substr (SQLERRM, 1, 240);
3280: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3281: --then add it to the message api list
3282: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3283: END IF;
3284: IF (c_group_csr%isopen) THEN
3320:
3321: BEGIN
3322:
3323: --log key input parameters
3324: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3325: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_pdf_id='||p_pdf_id);
3326: END IF;
3327:
3328: x_return_status := FND_API.G_RET_STS_SUCCESS;
3321: BEGIN
3322:
3323: --log key input parameters
3324: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3325: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_pdf_id='||p_pdf_id);
3326: END IF;
3327:
3328: x_return_status := FND_API.G_RET_STS_SUCCESS;
3329:
3331: OPEN c_pdf(p_chr_id);
3332: FETCH c_pdf INTO l_id, l_pdf_id;
3333: CLOSE c_pdf;
3334:
3335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3336: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_process', 'l_id='||l_id||' ,l_pdf_id='||l_pdf_id);
3337: END IF;
3338:
3339: IF (l_id IS NULL) THEN
3332: FETCH c_pdf INTO l_id, l_pdf_id;
3333: CLOSE c_pdf;
3334:
3335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3336: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.chk_k_process', 'l_id='||l_id||' ,l_pdf_id='||l_pdf_id);
3337: END IF;
3338:
3339: IF (l_id IS NULL) THEN
3340:
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3351: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3352:
3353: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3354: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'calling OKC_CONTRACT_PVT.create_contract_process');
3355: END IF;
3356:
3357: OKC_CONTRACT_PVT.create_contract_process(
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3351: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3352:
3353: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3354: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'calling OKC_CONTRACT_PVT.create_contract_process');
3355: END IF;
3356:
3357: OKC_CONTRACT_PVT.create_contract_process(
3358: p_api_version => 1,
3362: x_msg_data => x_msg_data,
3363: p_cpsv_rec => l_cpsv_rec_in,
3364: x_cpsv_rec => l_cpsv_rec_out);
3365:
3366: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3367: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'after call to OKC_CONTRACT_PVT.create_contract_process, x_return_status='||x_return_status);
3368: END IF;
3369: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3363: p_cpsv_rec => l_cpsv_rec_in,
3364: x_cpsv_rec => l_cpsv_rec_out);
3365:
3366: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3367: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'after call to OKC_CONTRACT_PVT.create_contract_process, x_return_status='||x_return_status);
3368: END IF;
3369: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3384: --update the contract process record
3385: l_cpsv_rec_in.pdf_id := p_pdf_id;
3386: l_cpsv_rec_in.id := l_id;
3387:
3388: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3389: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'calling OKC_CONTRACT_PVT.update_contract_process');
3390: END IF;
3391:
3392: OKC_CONTRACT_PVT.update_contract_process(
3385: l_cpsv_rec_in.pdf_id := p_pdf_id;
3386: l_cpsv_rec_in.id := l_id;
3387:
3388: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3389: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'calling OKC_CONTRACT_PVT.update_contract_process');
3390: END IF;
3391:
3392: OKC_CONTRACT_PVT.update_contract_process(
3393: p_api_version => 1,
3397: x_msg_data => x_msg_data,
3398: p_cpsv_rec => l_cpsv_rec_in,
3399: x_cpsv_rec => l_cpsv_rec_out);
3400:
3401: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3402: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'after call to OKC_CONTRACT_PVT.update_contract_process, x_return_status='||x_return_status);
3403: END IF;
3404: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3405: RAISE FND_API.g_exc_unexpected_error;
3398: p_cpsv_rec => l_cpsv_rec_in,
3399: x_cpsv_rec => l_cpsv_rec_out);
3400:
3401: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3402: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'after call to OKC_CONTRACT_PVT.update_contract_process, x_return_status='||x_return_status);
3403: END IF;
3404: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3405: RAISE FND_API.g_exc_unexpected_error;
3406: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3410: END IF;
3411: END IF;
3412:
3413:
3414: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3415: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3416: END IF;
3417:
3418: EXCEPTION
3411: END IF;
3412:
3413:
3414: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3415: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3416: END IF;
3417:
3418: EXCEPTION
3419: WHEN FND_API.g_exc_error THEN
3417:
3418: EXCEPTION
3419: WHEN FND_API.g_exc_error THEN
3420: x_return_status := FND_API.g_ret_sts_error;
3421: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3422: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3423: END IF;
3424: IF (c_pdf%isopen) THEN
3425: CLOSE c_pdf;
3418: EXCEPTION
3419: WHEN FND_API.g_exc_error THEN
3420: x_return_status := FND_API.g_ret_sts_error;
3421: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3422: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3423: END IF;
3424: IF (c_pdf%isopen) THEN
3425: CLOSE c_pdf;
3426: END IF;
3427: RAISE;
3428:
3429: WHEN FND_API.g_exc_unexpected_error THEN
3430: x_return_status := FND_API.g_ret_sts_unexp_error ;
3431: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3432: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3433: END IF;
3434: IF (c_pdf%isopen) THEN
3435: CLOSE c_pdf;
3428:
3429: WHEN FND_API.g_exc_unexpected_error THEN
3430: x_return_status := FND_API.g_ret_sts_unexp_error ;
3431: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3432: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3433: END IF;
3434: IF (c_pdf%isopen) THEN
3435: CLOSE c_pdf;
3436: END IF;
3437: RAISE;
3438:
3439: WHEN OTHERS THEN
3440: x_return_status := FND_API.g_ret_sts_unexp_error ;
3441: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3442: --first log the sqlerrm
3443: l_error_text := substr (SQLERRM, 1, 240);
3444: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3445: --then add it to the message api list
3440: x_return_status := FND_API.g_ret_sts_unexp_error ;
3441: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3442: --first log the sqlerrm
3443: l_error_text := substr (SQLERRM, 1, 240);
3444: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3445: --then add it to the message api list
3446: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3447: END IF;
3448: IF (c_pdf%isopen) THEN
3556:
3557: BEGIN
3558:
3559: --log key input parameters
3560: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3561: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
3562: OKS_RENEW_UTIL_PVT.log_rules(l_mod_name || '.effective_renewal_rules', p_rnrl_rec);
3563: END IF;
3564: x_return_status := FND_API.G_RET_STS_SUCCESS;
3557: BEGIN
3558:
3559: --log key input parameters
3560: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3561: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
3562: OKS_RENEW_UTIL_PVT.log_rules(l_mod_name || '.effective_renewal_rules', p_rnrl_rec);
3563: END IF;
3564: x_return_status := FND_API.G_RET_STS_SUCCESS;
3565:
3607: l_conv_euro_rate := NULL;
3608: END IF;
3609:
3610: --determine the renewal type and corresponding approval type
3611: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3612: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.determine_renewal_type', 'calling OKS_RENEW_UTIL_PVT.get_renewal_type');
3613: END IF;
3614: OKS_RENEW_UTIL_PVT.get_renewal_type(
3615: p_api_version => 1,
3608: END IF;
3609:
3610: --determine the renewal type and corresponding approval type
3611: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3612: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.determine_renewal_type', 'calling OKS_RENEW_UTIL_PVT.get_renewal_type');
3613: END IF;
3614: OKS_RENEW_UTIL_PVT.get_renewal_type(
3615: p_api_version => 1,
3616: p_init_msg_list => FND_API.G_FALSE,
3624: x_renewal_type => l_renewal_type,
3625: x_approval_type => l_approval_type,
3626: x_threshold_used => l_threshold_used);
3627:
3628: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3629: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.determine_renewal_type', 'after call to OKS_RENEW_UTIL_PVT.get_renewal_type, x_renewal_type='||l_renewal_type||
3630: ' ,x_approval_type='||l_approval_type||' ,x_threshold_used='||l_threshold_used);
3631: END IF;
3632:
3625: x_approval_type => l_approval_type,
3626: x_threshold_used => l_threshold_used);
3627:
3628: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3629: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.determine_renewal_type', 'after call to OKS_RENEW_UTIL_PVT.get_renewal_type, x_renewal_type='||l_renewal_type||
3630: ' ,x_approval_type='||l_approval_type||' ,x_threshold_used='||l_threshold_used);
3631: END IF;
3632:
3633: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3653: p_start_date => trunc(l_date_renewed),
3654: p_duration => p_rnrl_rec.revenue_estimated_duration,
3655: p_timeunit => p_rnrl_rec.revenue_estimated_period) + l_est_rev_date_offset; --bug 4967105
3656:
3657: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3658: 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);
3659: END IF;
3660:
3661: l_grace_period := nvl(p_rnrl_rec.grace_period, l_grace_period);
3654: p_duration => p_rnrl_rec.revenue_estimated_duration,
3655: p_timeunit => p_rnrl_rec.revenue_estimated_period) + l_est_rev_date_offset; --bug 4967105
3656:
3657: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3658: 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);
3659: END IF;
3660:
3661: l_grace_period := nvl(p_rnrl_rec.grace_period, l_grace_period);
3662: l_grace_duration := nvl(p_rnrl_rec.grace_duration, l_grace_duration);
3782: l_wf_attributes.item_key := l_wf_item_key;
3783: l_wf_attributes.irr_flag := l_approval_type;
3784: l_wf_attributes.process_type := l_renewal_type;
3785:
3786: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3787: 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||
3788: ' ,.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);
3789: END IF;
3790:
3783: l_wf_attributes.irr_flag := l_approval_type;
3784: l_wf_attributes.process_type := l_renewal_type;
3785:
3786: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3787: 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||
3788: ' ,.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);
3789: END IF;
3790:
3791: OKS_WF_K_PROCESS_PVT.launch_k_process_wf(
3795: x_return_status => x_return_status,
3796: x_msg_count => x_msg_count,
3797: x_msg_data => x_msg_data) ;
3798:
3799: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3800: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.wfprocess', 'after call to OKS_WF_K_PROCESS_PVT.launch_k_process_wf, x_return_status='||x_return_status);
3801: END IF;
3802:
3803: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3796: x_msg_count => x_msg_count,
3797: x_msg_data => x_msg_data) ;
3798:
3799: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3800: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.wfprocess', 'after call to OKS_WF_K_PROCESS_PVT.launch_k_process_wf, x_return_status='||x_return_status);
3801: END IF;
3802:
3803: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3804: RAISE FND_API.g_exc_unexpected_error;
3808:
3809: -- bug 6086893
3810: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3811:
3812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3813: 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);
3814: 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);
3815: 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);
3816: 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);
3809: -- bug 6086893
3810: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3811:
3812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3813: 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);
3814: 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);
3815: 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);
3816: 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);
3817: END IF;
3810: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3811:
3812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3813: 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);
3814: 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);
3815: 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);
3816: 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);
3817: END IF;
3818:
3811:
3812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3813: 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);
3814: 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);
3815: 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);
3816: 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);
3817: END IF;
3818:
3819: OKC_K_RENEW_ASMBLR_PVT.acn_assemble(
3812: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3813: 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);
3814: 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);
3815: 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);
3816: 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);
3817: END IF;
3818:
3819: OKC_K_RENEW_ASMBLR_PVT.acn_assemble(
3820: p_api_version => 1,
3835: p_original_kid => l_old_k_id,
3836: p_original_k_start_date => l_old_start_date);
3837:
3838:
3839: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3840: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'after call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , x_return_status='||x_return_status);
3841: END IF;
3842:
3843: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3836: p_original_k_start_date => l_old_start_date);
3837:
3838:
3839: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3840: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'after call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , x_return_status='||x_return_status);
3841: END IF;
3842:
3843: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3844: RAISE FND_API.g_exc_unexpected_error;
3849:
3850:
3851: -- end added bug 6086893
3852:
3853: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3854: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3855: END IF;
3856:
3857: EXCEPTION
3850:
3851: -- end added bug 6086893
3852:
3853: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3854: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3855: END IF;
3856:
3857: EXCEPTION
3858: WHEN FND_API.g_exc_error THEN
3856:
3857: EXCEPTION
3858: WHEN FND_API.g_exc_error THEN
3859: x_return_status := FND_API.g_ret_sts_error;
3860: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3861: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3862: END IF;
3863: IF (c_k_hdr%isopen) THEN
3864: CLOSE c_k_hdr;
3857: EXCEPTION
3858: WHEN FND_API.g_exc_error THEN
3859: x_return_status := FND_API.g_ret_sts_error;
3860: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3861: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3862: END IF;
3863: IF (c_k_hdr%isopen) THEN
3864: CLOSE c_k_hdr;
3865: END IF;
3866: RAISE;
3867:
3868: WHEN FND_API.g_exc_unexpected_error THEN
3869: x_return_status := FND_API.g_ret_sts_unexp_error ;
3870: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3871: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3872: END IF;
3873: IF (c_k_hdr%isopen) THEN
3874: CLOSE c_k_hdr;
3867:
3868: WHEN FND_API.g_exc_unexpected_error THEN
3869: x_return_status := FND_API.g_ret_sts_unexp_error ;
3870: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3871: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3872: END IF;
3873: IF (c_k_hdr%isopen) THEN
3874: CLOSE c_k_hdr;
3875: END IF;
3876: RAISE;
3877:
3878: WHEN OTHERS THEN
3879: x_return_status := FND_API.g_ret_sts_unexp_error ;
3880: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3881: --first log the sqlerrm
3882: l_error_text := substr (SQLERRM, 1, 240);
3883: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3884: --then add it to the message api list
3879: x_return_status := FND_API.g_ret_sts_unexp_error ;
3880: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3881: --first log the sqlerrm
3882: l_error_text := substr (SQLERRM, 1, 240);
3883: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3884: --then add it to the message api list
3885: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3886: END IF;
3887: IF (c_k_hdr%isopen) THEN
4056: l_renk_ste_code okc_statuses_b.ste_code%TYPE;
4057: l_valid_line_exists BOOLEAN := FALSE;
4058: BEGIN
4059: --log key input parameters
4060: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4061: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id ||' ,p_date='|| p_date ||' ,p_validation_level='|| p_validation_level);
4062: END IF;
4063:
4064: --standard api initilization and checks
4057: l_valid_line_exists BOOLEAN := FALSE;
4058: BEGIN
4059: --log key input parameters
4060: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4061: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id ||' ,p_date='|| p_date ||' ,p_validation_level='|| p_validation_level);
4062: END IF;
4063:
4064: --standard api initilization and checks
4065: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4078:
4079: IF (c_k_hdr%notfound) THEN
4080: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4081: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
4082: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4083: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_values', FALSE);
4084: END IF;
4085: FND_MSG_PUB.ADD;
4086: CLOSE c_k_hdr;
4079: IF (c_k_hdr%notfound) THEN
4080: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4081: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
4082: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4083: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_values', FALSE);
4084: END IF;
4085: FND_MSG_PUB.ADD;
4086: CLOSE c_k_hdr;
4087: RAISE FND_API.g_exc_error;
4087: RAISE FND_API.g_exc_error;
4088: END IF;
4089: CLOSE c_k_hdr;
4090:
4091: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4092: 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
4093: ||', 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);
4094: END IF;
4095:
4088: END IF;
4089: CLOSE c_k_hdr;
4090:
4091: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4092: 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
4093: ||', 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);
4094: END IF;
4095:
4096: -- no checks if not service contract
4173: --and set the appropriate message in the validation table.
4174: END IF;
4175:
4176: --error if user does not have update access for the contract
4177: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4178: 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);
4179: END IF;
4180:
4181: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4174: END IF;
4175:
4176: --error if user does not have update access for the contract
4177: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4178: 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);
4179: END IF;
4180:
4181: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4182:
4179: END IF;
4180:
4181: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4182:
4183: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4184: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_k_access_level', 'l_k_access_level=' || l_k_access_level);
4185: END IF;
4186:
4187: IF (nvl(l_k_access_level, 'X') <> 'U') THEN
4180:
4181: l_k_access_level := OKC_UTIL.get_all_k_access_level(p_chr_id, l_k_app_id, l_k_scs_code);
4182:
4183: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4184: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_k_access_level', 'l_k_access_level=' || l_k_access_level);
4185: END IF;
4186:
4187: IF (nvl(l_k_access_level, 'X') <> 'U') THEN
4188: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_UPDATE');
4198: OPEN c_check_valid_line(p_chr_id);
4199: FETCH c_check_valid_line INTO l_k_line_id;
4200: CLOSE c_check_valid_line;
4201:
4202: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4203: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_valid_line_check', 'l_k_line_id=' || l_k_line_id);
4204: END IF;
4205:
4206: IF ( l_k_line_id IS NULL ) THEN
4199: FETCH c_check_valid_line INTO l_k_line_id;
4200: CLOSE c_check_valid_line;
4201:
4202: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4203: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_valid_line_check', 'l_k_line_id=' || l_k_line_id);
4204: END IF;
4205:
4206: IF ( l_k_line_id IS NULL ) THEN
4207: l_valid_line_exists := FALSE;
4225: END IF;
4226: END IF;
4227:
4228: --error if effective renewal type of contract is DNR
4229: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4230: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| l_date);
4231: END IF;
4232:
4233: OKS_RENEW_UTIL_PVT.get_renew_rules(
4226: END IF;
4227:
4228: --error if effective renewal type of contract is DNR
4229: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4230: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| l_date);
4231: END IF;
4232:
4233: OKS_RENEW_UTIL_PVT.get_renew_rules(
4234: x_return_status => x_return_status,
4244: x_msg_data => x_msg_data);
4245:
4246: l_k_ren_type := x_rnrl_rec.renewal_type;
4247:
4248: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4249: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_k_ren_type='|| l_k_ren_type);
4250: END IF;
4251:
4252: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4245:
4246: l_k_ren_type := x_rnrl_rec.renewal_type;
4247:
4248: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4249: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_k_ren_type='|| l_k_ren_type);
4250: END IF;
4251:
4252: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4253: RAISE FND_API.g_exc_unexpected_error;
4276: OPEN c_check_hdr_renew (p_chr_id);
4277: FETCH c_check_hdr_renew INTO l_renk_num, l_renk_mod, l_renk_ste_code;
4278: CLOSE c_check_hdr_renew;
4279:
4280: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4281: 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);
4282: END IF;
4283:
4284: --if a renewed contract is found, set error/warning message as per status
4277: FETCH c_check_hdr_renew INTO l_renk_num, l_renk_mod, l_renk_ste_code;
4278: CLOSE c_check_hdr_renew;
4279:
4280: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4281: 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);
4282: END IF;
4283:
4284: --if a renewed contract is found, set error/warning message as per status
4285: IF (l_renk_num IS NOT NULL) THEN
4331:
4332: --now do the warning checks if p_validation_level = 'A'
4333: IF (p_validation_level = G_VALIDATE_ALL) THEN
4334:
4335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4336: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.checking_for_warnings', 'begin');
4337: END IF;
4338:
4339: IF (l_valid_line_exists) THEN
4332: --now do the warning checks if p_validation_level = 'A'
4333: IF (p_validation_level = G_VALIDATE_ALL) THEN
4334:
4335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4336: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.checking_for_warnings', 'begin');
4337: END IF;
4338:
4339: IF (l_valid_line_exists) THEN
4340:
4373: END IF; --of IF (l_valid_line_exists) THEN
4374:
4375: END IF; --of IF (p_validation_level = G_VALIDATE_ALL) THEN
4376:
4377: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4378: IF (x_validation_tbl.count > 0 ) THEN
4379: FOR i IN x_validation_tbl.first..x_validation_tbl.last LOOP
4380: 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);
4381: END LOOP;
4376:
4377: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4378: IF (x_validation_tbl.count > 0 ) THEN
4379: FOR i IN x_validation_tbl.first..x_validation_tbl.last LOOP
4380: 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);
4381: END LOOP;
4382: END IF;
4383: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_validation_status=' || x_validation_status ||', x_return_status='|| x_return_status);
4384: END IF;
4379: FOR i IN x_validation_tbl.first..x_validation_tbl.last LOOP
4380: 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);
4381: END LOOP;
4382: END IF;
4383: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_validation_status=' || x_validation_status ||', x_return_status='|| x_return_status);
4384: END IF;
4385: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4386:
4387: EXCEPTION
4387: EXCEPTION
4388: WHEN FND_API.g_exc_error THEN
4389: x_return_status := FND_API.g_ret_sts_error ;
4390:
4391: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4392: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4393: END IF;
4394: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4395:
4388: WHEN FND_API.g_exc_error THEN
4389: x_return_status := FND_API.g_ret_sts_error ;
4390:
4391: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4392: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4393: END IF;
4394: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4395:
4396: IF (c_k_hdr%isopen) THEN
4417:
4418: WHEN FND_API.g_exc_unexpected_error THEN
4419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4420:
4421: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4422: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4423: END IF;
4424: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4425:
4418: WHEN FND_API.g_exc_unexpected_error THEN
4419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4420:
4421: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4422: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4423: END IF;
4424: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4425:
4426: IF (c_k_hdr%isopen) THEN
4447:
4448: WHEN OTHERS THEN
4449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4450:
4451: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4452: --first log the sqlerrm
4453: l_error_text := substr (SQLERRM, 1, 240);
4454: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4455: --then add it to the message api list
4450:
4451: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4452: --first log the sqlerrm
4453: l_error_text := substr (SQLERRM, 1, 240);
4454: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4455: --then add it to the message api list
4456: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
4457: END IF;
4458: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4650:
4651: BEGIN
4652:
4653: --log key input parameters
4654: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4655: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4656: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
4657: END IF;
4658: END IF;
4651: BEGIN
4652:
4653: --log key input parameters
4654: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4655: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4656: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
4657: END IF;
4658: END IF;
4659:
4652:
4653: --log key input parameters
4654: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4655: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4656: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
4657: END IF;
4658: END IF;
4659:
4660: --standard api initilization and checks
4671: OPEN c_get_topline_txt(p_chr_id);
4672: LOOP
4673: FETCH c_get_topline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
4674:
4675: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4676: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_top_lines', 'l_line_tbl.count='||l_line_tbl.count);
4677: END IF;
4678:
4679: EXIT WHEN (l_line_tbl.count = 0);
4672: LOOP
4673: FETCH c_get_topline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
4674:
4675: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4676: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_top_lines', 'l_line_tbl.count='||l_line_tbl.count);
4677: END IF;
4678:
4679: EXIT WHEN (l_line_tbl.count = 0);
4680:
4681: FOR i in l_line_tbl.first..l_line_tbl.last LOOP
4682: l_sl_id_tbl(i) := l_line_tbl(i).sl_id;
4683: 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);
4684:
4685: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4686: 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
4687: ||' ,l_line_tbl(i).start_date='||l_line_tbl(i).start_date||' ,l_line_tbl(i).end_date='||l_line_tbl(i).end_date);
4688: END IF;
4689:
4682: l_sl_id_tbl(i) := l_line_tbl(i).sl_id;
4683: 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);
4684:
4685: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4686: 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
4687: ||' ,l_line_tbl(i).start_date='||l_line_tbl(i).start_date||' ,l_line_tbl(i).end_date='||l_line_tbl(i).end_date);
4688: END IF;
4689:
4690: END LOOP;
4710: OPEN c_get_subline_txt(p_chr_id);
4711: LOOP
4712: FETCH c_get_subline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
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', 'l_line_tbl.count='||l_line_tbl.count);
4716: END IF;
4717:
4718: EXIT WHEN (l_line_tbl.count = 0);
4711: LOOP
4712: FETCH c_get_subline_txt BULK COLLECT INTO l_line_tbl LIMIT G_BULK_FETCH_LIMIT;
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', 'l_line_tbl.count='||l_line_tbl.count);
4716: END IF;
4717:
4718: EXIT WHEN (l_line_tbl.count = 0);
4719:
4745: 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);
4746: END IF;
4747: END IF;
4748:
4749: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4750: 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||
4751: ' ,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);
4752: END IF;
4753:
4746: END IF;
4747: END IF;
4748:
4749: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4750: 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||
4751: ' ,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);
4752: END IF;
4753:
4754: END LOOP;
4777: --standard check of p_commit
4778: IF FND_API.to_boolean( p_commit ) THEN
4779: COMMIT;
4780: END IF;
4781: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4782: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4783: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
4784: END IF;
4785: END IF;
4778: IF FND_API.to_boolean( p_commit ) THEN
4779: COMMIT;
4780: END IF;
4781: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4782: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4783: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
4784: END IF;
4785: END IF;
4786: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4779: COMMIT;
4780: END IF;
4781: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4782: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4783: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
4784: END IF;
4785: END IF;
4786: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4787:
4789: WHEN FND_API.g_exc_error THEN
4790: ROLLBACK TO update_invoice_text_PVT;
4791: x_return_status := FND_API.g_ret_sts_error ;
4792:
4793: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4794: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4795: END IF;
4796: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4797:
4790: ROLLBACK TO update_invoice_text_PVT;
4791: x_return_status := FND_API.g_ret_sts_error ;
4792:
4793: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4794: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4795: END IF;
4796: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4797:
4798: WHEN FND_API.g_exc_unexpected_error THEN
4798: WHEN FND_API.g_exc_unexpected_error THEN
4799: ROLLBACK TO update_invoice_text_PVT;
4800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4801:
4802: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4803: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4804: END IF;
4805: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4806:
4799: ROLLBACK TO update_invoice_text_PVT;
4800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4801:
4802: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4803: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4804: END IF;
4805: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4806:
4807: WHEN OTHERS THEN
4807: WHEN OTHERS THEN
4808: ROLLBACK TO update_invoice_text_PVT;
4809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4810:
4811: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4812: --first log the sqlerrm
4813: l_error_text := substr (SQLERRM, 1, 240);
4814: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4815: --then add it to the message api list
4810:
4811: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4812: --first log the sqlerrm
4813: l_error_text := substr (SQLERRM, 1, 240);
4814: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
4815: --then add it to the message api list
4816: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
4817: END IF;
4818: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4891:
4892: BEGIN
4893:
4894: --log key input parameters
4895: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4896: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_hdesk_user_id='||p_hdesk_user_id);
4897: END IF;
4898:
4899: --standard api initilization and checks
4892: BEGIN
4893:
4894: --log key input parameters
4895: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4896: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_hdesk_user_id='||p_hdesk_user_id);
4897: END IF;
4898:
4899: --standard api initilization and checks
4900: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4912:
4913: IF (l_org_id IS NULL) THEN
4914: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4915: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
4916: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4917: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation', FALSE);
4918: END IF;
4919: FND_MSG_PUB.ADD;
4920: RAISE FND_API.g_exc_error;
4913: IF (l_org_id IS NULL) THEN
4914: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
4915: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
4916: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4917: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation', FALSE);
4918: END IF;
4919: FND_MSG_PUB.ADD;
4920: RAISE FND_API.g_exc_error;
4921: END IF;
4919: FND_MSG_PUB.ADD;
4920: RAISE FND_API.g_exc_error;
4921: END IF;
4922:
4923: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4924: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_org_cpl', 'l_org_id=' || l_org_id||' ,l_cpl_id='||l_cpl_id);
4925: END IF;
4926:
4927: --now get the fnd user id/name for the contact of type 'OKX_SALEPERS', if a vendor/merchant party
4920: RAISE FND_API.g_exc_error;
4921: END IF;
4922:
4923: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4924: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_org_cpl', 'l_org_id=' || l_org_id||' ,l_cpl_id='||l_cpl_id);
4925: END IF;
4926:
4927: --now get the fnd user id/name for the contact of type 'OKX_SALEPERS', if a vendor/merchant party
4928: --is found
4931: OPEN c_k_srep_user(p_chr_id, l_cpl_id, l_org_id);
4932: FETCH c_k_srep_user INTO l_user_id, l_user_name;
4933: CLOSE c_k_srep_user;
4934:
4935: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4936: 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);
4937: END IF;
4938:
4939: END IF;
4932: FETCH c_k_srep_user INTO l_user_id, l_user_name;
4933: CLOSE c_k_srep_user;
4934:
4935: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4936: 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);
4937: END IF;
4938:
4939: END IF;
4940:
4939: END IF;
4940:
4941: --if no salesrep found, default to helpdesk user
4942: IF (l_user_id IS NULL) THEN
4943: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4944: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'no salesrep found in contract, getting the helpdesk user');
4945: END IF;
4946:
4947: IF (p_hdesk_user_id IS NOT NULL) THEN
4940:
4941: --if no salesrep found, default to helpdesk user
4942: IF (l_user_id IS NULL) THEN
4943: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4944: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'no salesrep found in contract, getting the helpdesk user');
4945: END IF;
4946:
4947: IF (p_hdesk_user_id IS NOT NULL) THEN
4948: l_user_id := p_hdesk_user_id;
4947: IF (p_hdesk_user_id IS NOT NULL) THEN
4948: l_user_id := p_hdesk_user_id;
4949: ElSE
4950: --get the helpdesk user id from GCD
4951: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4952: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| sysdate);
4953: END IF;
4954:
4955: OKS_RENEW_UTIL_PVT.get_renew_rules(
4948: l_user_id := p_hdesk_user_id;
4949: ElSE
4950: --get the helpdesk user id from GCD
4951: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4952: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calling_get_renew_rules', 'p_chr_id=' || p_chr_id ||', p_date='|| sysdate);
4953: END IF;
4954:
4955: OKS_RENEW_UTIL_PVT.get_renew_rules(
4956: x_return_status => x_return_status,
4964: x_rnrl_rec => x_rnrl_rec,
4965: x_msg_count => x_msg_count,
4966: x_msg_data => x_msg_data);
4967:
4968: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4969: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_user_id='|| x_rnrl_rec.user_id);
4970: END IF;
4971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4972: RAISE FND_API.g_exc_unexpected_error;
4965: x_msg_count => x_msg_count,
4966: x_msg_data => x_msg_data);
4967:
4968: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4969: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_user_id='|| x_rnrl_rec.user_id);
4970: END IF;
4971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4972: RAISE FND_API.g_exc_unexpected_error;
4973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4982: --so that renewal can continue
4983: /*
4984: IF (l_user_id IS NULL) THEN
4985: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_HELPDESK');
4986: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4987: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_helpdesk_user', FALSE);
4988: END IF;
4989: FND_MSG_PUB.ADD;
4990: RAISE FND_API.g_exc_error;
4983: /*
4984: IF (l_user_id IS NULL) THEN
4985: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NO_HELPDESK');
4986: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4987: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_helpdesk_user', FALSE);
4988: END IF;
4989: FND_MSG_PUB.ADD;
4990: RAISE FND_API.g_exc_error;
4991: END IF;
4990: RAISE FND_API.g_exc_error;
4991: END IF;
4992: */
4993:
4994: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4995: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'getting user name for user id='||l_user_id);
4996: END IF;
4997:
4998: OPEN c_fnd_user(l_user_id);
4991: END IF;
4992: */
4993:
4994: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4995: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_helpdesk_user', 'getting user name for user id='||l_user_id);
4996: END IF;
4997:
4998: OPEN c_fnd_user(l_user_id);
4999: FETCH c_fnd_user INTO l_user_name;
5002: x_user_id := l_user_id;
5003: x_user_name := l_user_name;
5004:
5005:
5006: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5007: 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);
5008: END IF;
5009: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5010:
5003: x_user_name := l_user_name;
5004:
5005:
5006: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5007: 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);
5008: END IF;
5009: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5010:
5011: EXCEPTION
5011: EXCEPTION
5012: WHEN FND_API.g_exc_error THEN
5013: x_return_status := FND_API.g_ret_sts_error ;
5014:
5015: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5016: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5017: END IF;
5018: IF (c_k_hdr%isopen) THEN
5019: CLOSE c_k_hdr;
5012: WHEN FND_API.g_exc_error THEN
5013: x_return_status := FND_API.g_ret_sts_error ;
5014:
5015: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5016: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5017: END IF;
5018: IF (c_k_hdr%isopen) THEN
5019: CLOSE c_k_hdr;
5020: END IF;
5028:
5029: WHEN FND_API.g_exc_unexpected_error THEN
5030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5031:
5032: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5033: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5034: END IF;
5035: IF (c_k_hdr%isopen) THEN
5036: CLOSE c_k_hdr;
5029: WHEN FND_API.g_exc_unexpected_error THEN
5030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5031:
5032: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5033: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5034: END IF;
5035: IF (c_k_hdr%isopen) THEN
5036: CLOSE c_k_hdr;
5037: END IF;
5045:
5046: WHEN OTHERS THEN
5047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5048:
5049: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5050: --first log the sqlerrm
5051: l_error_text := substr (SQLERRM, 1, 240);
5052: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5053: --then add it to the message api list
5048:
5049: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5050: --first log the sqlerrm
5051: l_error_text := substr (SQLERRM, 1, 240);
5052: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5053: --then add it to the message api list
5054: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
5055: END IF;
5056: IF (c_k_hdr%isopen) THEN
5162: l_warnings BOOLEAN := FALSE;
5163:
5164: BEGIN
5165: --log key input parameters
5166: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5167: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5168: 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||
5169: ' ,p_new_contract_modifier='||p_new_contract_modifier||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||
5170: ' ,p_new_duration='||p_new_duration||' ,p_new_uom_code='||p_new_uom_code||' ,p_renewal_called_from_ui='||p_renewal_called_from_ui);
5163:
5164: BEGIN
5165: --log key input parameters
5166: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5167: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5168: 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||
5169: ' ,p_new_contract_modifier='||p_new_contract_modifier||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||
5170: ' ,p_new_duration='||p_new_duration||' ,p_new_uom_code='||p_new_uom_code||' ,p_renewal_called_from_ui='||p_renewal_called_from_ui);
5171: END IF;
5164: BEGIN
5165: --log key input parameters
5166: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5167: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5168: 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||
5169: ' ,p_new_contract_modifier='||p_new_contract_modifier||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||
5170: ' ,p_new_duration='||p_new_duration||' ,p_new_uom_code='||p_new_uom_code||' ,p_renewal_called_from_ui='||p_renewal_called_from_ui);
5171: END IF;
5172: END IF;
5223: --invalid contract id or if it's not a service contract
5224: IF (c_k_hdr%notfound) THEN
5225: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
5226: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
5227: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5228: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation1', FALSE);
5229: END IF;
5230: FND_MSG_PUB.ADD;
5231: CLOSE c_k_hdr;
5224: IF (c_k_hdr%notfound) THEN
5225: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INV_CONTRACT');
5226: FND_MESSAGE.set_token('CONTRACT_ID', p_chr_id);
5227: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5228: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation1', FALSE);
5229: END IF;
5230: FND_MSG_PUB.ADD;
5231: CLOSE c_k_hdr;
5232: RAISE FND_API.g_exc_error;
5235:
5236: --new start date < original end date
5237: IF (p_new_start_date IS NOT NULL) AND (p_new_start_date < l_k_end_date) THEN
5238: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NEW_START_MORE_END');
5239: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5240: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation2', FALSE);
5241: END IF;
5242: FND_MSG_PUB.ADD;
5243: RAISE FND_API.g_exc_error;
5236: --new start date < original end date
5237: IF (p_new_start_date IS NOT NULL) AND (p_new_start_date < l_k_end_date) THEN
5238: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_NEW_START_MORE_END');
5239: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5240: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation2', FALSE);
5241: END IF;
5242: FND_MSG_PUB.ADD;
5243: RAISE FND_API.g_exc_error;
5244: END IF;
5247: IF (p_new_end_date IS NOT NULL) AND (p_new_end_date < nvl(p_new_start_date, l_k_end_date + 1)) THEN
5248: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVALID_END_DATE');
5249: FND_MESSAGE.set_token('START_DATE', to_char(nvl(p_new_start_date, l_k_end_date + 1)));
5250: FND_MESSAGE.set_token('END_DATE', to_char(p_new_end_date));
5251: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5252: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation3', FALSE);
5253: END IF;
5254: FND_MSG_PUB.ADD;
5255: RAISE FND_API.g_exc_error;
5248: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_INVALID_END_DATE');
5249: FND_MESSAGE.set_token('START_DATE', to_char(nvl(p_new_start_date, l_k_end_date + 1)));
5250: FND_MESSAGE.set_token('END_DATE', to_char(p_new_end_date));
5251: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5252: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation3', FALSE);
5253: END IF;
5254: FND_MSG_PUB.ADD;
5255: RAISE FND_API.g_exc_error;
5256: END IF;
5275: ELSE
5276: l_validation_level := G_VALIDATE_ALL;
5277: END IF;
5278:
5279: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5280: 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))||
5281: ' ,p_validation_level='||l_validation_level);
5282: END IF;
5283:
5276: l_validation_level := G_VALIDATE_ALL;
5277: END IF;
5278:
5279: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5280: 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))||
5281: ' ,p_validation_level='||l_validation_level);
5282: END IF;
5283:
5284: validate_renewal(
5293: x_rnrl_rec => l_rnrl_rec,
5294: x_validation_status => l_validation_status,
5295: x_validation_tbl => l_validation_tbl);
5296:
5297: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5298: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.renewal_validation', 'after call to OKS_RENEW_UTIL_PVT.validate_renewal, x_return_status='||x_return_status||' ,x_validation_status='||l_validation_status);
5299: END IF;
5300:
5301: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5294: x_validation_status => l_validation_status,
5295: x_validation_tbl => l_validation_tbl);
5296:
5297: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5298: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.renewal_validation', 'after call to OKS_RENEW_UTIL_PVT.validate_renewal, x_return_status='||x_return_status||' ,x_validation_status='||l_validation_status);
5299: END IF;
5300:
5301: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5302: RAISE FND_API.g_exc_unexpected_error;
5348: p_renewal_end_date => l_k_renewal_end_date,
5349: p_ren_type => l_k_ren_type,
5350: x_return_status => x_return_status);
5351:
5352: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5353: 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)||
5354: ' ,l_renk_end_date='||to_char(l_renk_end_date)||' ,x_return_status='||x_return_status);
5355: END IF;
5356: --end default attributes
5349: p_ren_type => l_k_ren_type,
5350: x_return_status => x_return_status);
5351:
5352: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5353: 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)||
5354: ' ,l_renk_end_date='||to_char(l_renk_end_date)||' ,x_return_status='||x_return_status);
5355: END IF;
5356: --end default attributes
5357:
5366: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5367: fnd_file.put_line(FND_FILE.LOG,' ');
5368:
5369: --Step 4 copy contract
5370: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5371: 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||
5372: ' ,p_to_template_yn=N, p_renew_ref_yn=Y, p_override_org=Y, p_copy_lines_yn=Y ,p_commit=F');
5373: END IF;
5374:
5367: fnd_file.put_line(FND_FILE.LOG,' ');
5368:
5369: --Step 4 copy contract
5370: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5371: 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||
5372: ' ,p_to_template_yn=N, p_renew_ref_yn=Y, p_override_org=Y, p_copy_lines_yn=Y ,p_commit=F');
5373: END IF;
5374:
5375: OKS_COPY_CONTRACT_PVT.copy_contract(
5385: p_to_template_yn => 'N',
5386: P_renew_ref_yn => 'Y',
5387: x_to_chr_id => x_chr_id);
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 || '.copy_contract', 'after call to OKC_COPY_CONTRACT_PUB.copy_contract, x_return_status='||x_return_status||' ,x_chr_id='||x_chr_id);
5391: END IF;
5392:
5393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5386: P_renew_ref_yn => 'Y',
5387: x_to_chr_id => x_chr_id);
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 || '.copy_contract', 'after call to OKC_COPY_CONTRACT_PUB.copy_contract, x_return_status='||x_return_status||' ,x_chr_id='||x_chr_id);
5391: END IF;
5392:
5393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5394: RAISE FND_API.g_exc_unexpected_error;
5420: CLOSE c_renk_hdr;
5421:
5422: IF (l_renk_currency_code <> l_k_currency_code) THEN
5423:
5424: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5425: 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);
5426: END IF;
5427:
5428: OKS_RENEW_UTIL_PVT.get_renew_rules(
5421:
5422: IF (l_renk_currency_code <> l_k_currency_code) THEN
5423:
5424: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5425: 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);
5426: END IF;
5427:
5428: OKS_RENEW_UTIL_PVT.get_renew_rules(
5429: x_return_status => x_return_status,
5437: x_rnrl_rec => l_rnrl_rec,
5438: x_msg_count => x_msg_count,
5439: x_msg_data => x_msg_data);
5440:
5441: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5442: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5443: END IF;
5444: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5438: x_msg_count => x_msg_count,
5439: x_msg_data => x_msg_data);
5440:
5441: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5442: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5443: END IF;
5444: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5461: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5462: fnd_file.put_line(FND_FILE.LOG,' ');
5463:
5464: --Step 6 adjust the header and line dates
5465: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5466: 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||
5467: ' ,p_new_end_date='||l_renk_end_date||' ,p_old_start_date='||l_k_start_date);
5468: END IF;
5469: update_renewal_dates(
5462: fnd_file.put_line(FND_FILE.LOG,' ');
5463:
5464: --Step 6 adjust the header and line dates
5465: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5466: 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||
5467: ' ,p_new_end_date='||l_renk_end_date||' ,p_old_start_date='||l_k_start_date);
5468: END IF;
5469: update_renewal_dates(
5470: p_chr_id => x_chr_id,
5474: x_msg_count => x_msg_count,
5475: x_msg_data => x_msg_data,
5476: x_return_status => x_return_status);
5477:
5478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5479: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_dates', 'after update_renewal_dates, x_return_status='||x_return_status);
5480: END IF;
5481: --end of adjust dates
5482:
5475: x_msg_data => x_msg_data,
5476: x_return_status => x_return_status);
5477:
5478: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5479: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_dates', 'after update_renewal_dates, x_return_status='||x_return_status);
5480: END IF;
5481: --end of adjust dates
5482:
5483: /*
5492: fnd_file.put_line(FND_FILE.LOG,' ');
5493:
5494: -- Step 6.1 Update annualized_factor for the renewed contract lines
5495: -- bug 4768227
5496: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5497: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5498: END IF;
5499:
5500: UPDATE okc_k_lines_b
5493:
5494: -- Step 6.1 Update annualized_factor for the renewed contract lines
5495: -- bug 4768227
5496: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5497: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5498: END IF;
5499:
5500: UPDATE okc_k_lines_b
5501: SET annualized_factor = OKS_SETUP_UTIL_PUB.Get_Annualized_Factor(start_date, end_date, lse_id)
5500: UPDATE okc_k_lines_b
5501: SET annualized_factor = OKS_SETUP_UTIL_PUB.Get_Annualized_Factor(start_date, end_date, lse_id)
5502: WHERE dnz_chr_id = x_chr_id;
5503:
5504: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5505: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' After calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5506: END IF;
5507:
5508: /*
5501: SET annualized_factor = OKS_SETUP_UTIL_PUB.Get_Annualized_Factor(start_date, end_date, lse_id)
5502: WHERE dnz_chr_id = x_chr_id;
5503:
5504: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5505: FND_LOG.string(FND_LOG.level_statement, l_mod_name , ' After calling update to annualized_factor , p_new_chr_id='||x_chr_id);
5506: END IF;
5507:
5508: /*
5509: Step 7: update the old contract's date renewed column for the lines that are actually renewed
5516: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5517: fnd_file.put_line(FND_FILE.LOG,' ');
5518:
5519: --Step 7 update the old contract's date renewed column for the lines that are actually renewed
5520: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5521: 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);
5522: END IF;
5523: update_source_contract(
5524: p_new_chr_id => x_chr_id,
5517: fnd_file.put_line(FND_FILE.LOG,' ');
5518:
5519: --Step 7 update the old contract's date renewed column for the lines that are actually renewed
5520: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5521: 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);
5522: END IF;
5523: update_source_contract(
5524: p_new_chr_id => x_chr_id,
5525: p_old_chr_id => p_chr_id,
5524: p_new_chr_id => x_chr_id,
5525: p_old_chr_id => p_chr_id,
5526: x_return_status => x_return_status);
5527:
5528: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5529: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_source_contract', 'after update_source_contract, x_return_status='||x_return_status);
5530: END IF;
5531: --end of adjust date
5532:
5525: p_old_chr_id => p_chr_id,
5526: x_return_status => x_return_status);
5527:
5528: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5529: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_source_contract', 'after update_source_contract, x_return_status='||x_return_status);
5530: END IF;
5531: --end of adjust date
5532:
5533: /*
5542: fnd_file.put_line(FND_FILE.LOG,' ');
5543:
5544: --now adjust all date dependent entities
5545: --Step 8 adjust the invoice text that is based on the line dates
5546: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5547: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'calling update_invoice_text, p_chr_id='||x_chr_id);
5548: END IF;
5549: update_invoice_text(
5550: p_api_version => 1,
5543:
5544: --now adjust all date dependent entities
5545: --Step 8 adjust the invoice text that is based on the line dates
5546: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5547: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'calling update_invoice_text, p_chr_id='||x_chr_id);
5548: END IF;
5549: update_invoice_text(
5550: p_api_version => 1,
5551: p_init_msg_list => FND_API.G_FALSE,
5554: x_msg_count => x_msg_count,
5555: x_msg_data => x_msg_data,
5556: p_chr_id => x_chr_id);
5557:
5558: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5559: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5560: END IF;
5561: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5562: RAISE FND_API.g_exc_unexpected_error;
5555: x_msg_data => x_msg_data,
5556: p_chr_id => x_chr_id);
5557:
5558: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5559: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5560: END IF;
5561: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5562: RAISE FND_API.g_exc_unexpected_error;
5563: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5568: /*
5569: bug 4775295 : Commented call to procedure update_condition_headers
5570:
5571: --Step 9 update contract condition(event) headers
5572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5573: 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
5574: ||' ,p_old_start_date='||l_k_start_date||' ,p_old_end_date='||l_k_end_date);
5575: END IF;
5576:
5569: bug 4775295 : Commented call to procedure update_condition_headers
5570:
5571: --Step 9 update contract condition(event) headers
5572: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5573: 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
5574: ||' ,p_old_start_date='||l_k_start_date||' ,p_old_end_date='||l_k_end_date);
5575: END IF;
5576:
5577: update_condition_headers(
5581: p_old_start_date => l_k_start_date,
5582: p_old_end_date => l_k_end_date,
5583: x_return_status => x_return_status);
5584:
5585: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5586: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.condition_header', 'after update_condition_headers, x_return_status='||x_return_status);
5587: END IF;
5588: --end of contract condition(event) headers
5589:
5582: p_old_end_date => l_k_end_date,
5583: x_return_status => x_return_status);
5584:
5585: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5586: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.condition_header', 'after update_condition_headers, x_return_status='||x_return_status);
5587: END IF;
5588: --end of contract condition(event) headers
5589:
5590: */
5600: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5601: fnd_file.put_line(FND_FILE.LOG,' ');
5602:
5603: --Step 10 Regenerate subscription schedule/details and coverage entities based on the new dates
5604: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5605: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'calling recreate_cov_subscr, p_chr_id='||x_chr_id);
5606: END IF;
5607: recreate_cov_subscr(
5608: p_chr_id => x_chr_id,
5601: fnd_file.put_line(FND_FILE.LOG,' ');
5602:
5603: --Step 10 Regenerate subscription schedule/details and coverage entities based on the new dates
5604: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5605: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'calling recreate_cov_subscr, p_chr_id='||x_chr_id);
5606: END IF;
5607: recreate_cov_subscr(
5608: p_chr_id => x_chr_id,
5609: x_msg_count => x_msg_count,
5609: x_msg_count => x_msg_count,
5610: x_msg_data => x_msg_data,
5611: x_return_status => x_return_status);
5612:
5613: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5614: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'after call to recreate_cov_subscr, x_return_status='||x_return_status);
5615: END IF;
5616: --end of coverage/subscription recreation
5617:
5610: x_msg_data => x_msg_data,
5611: x_return_status => x_return_status);
5612:
5613: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5614: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.coverage_subscription', 'after call to recreate_cov_subscr, x_return_status='||x_return_status);
5615: END IF;
5616: --end of coverage/subscription recreation
5617:
5618: /*
5628:
5629: --Step 11 Call pricing API to reprice the contract based on new dates
5630: --and renewal pricing rules. This will also rollup price/tax values at the topline and header
5631: --level and stamp the pricelist on the lines.
5632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5633: 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
5634: ||' ,p_markup_percent='||l_rnrl_rec.markup_percent);
5635: END IF;
5636:
5629: --Step 11 Call pricing API to reprice the contract based on new dates
5630: --and renewal pricing rules. This will also rollup price/tax values at the topline and header
5631: --level and stamp the pricelist on the lines.
5632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5633: 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
5634: ||' ,p_markup_percent='||l_rnrl_rec.markup_percent);
5635: END IF;
5636:
5637: reprice_contract(
5642: x_msg_count => x_msg_count,
5643: x_msg_data => x_msg_data,
5644: x_return_status => x_return_status);
5645:
5646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5647: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.repricing', 'after call to reprice_contract, x_return_status='||x_return_status);
5648: END IF;
5649: --end of repricing
5650:
5643: x_msg_data => x_msg_data,
5644: x_return_status => x_return_status);
5645:
5646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5647: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.repricing', 'after call to reprice_contract, x_return_status='||x_return_status);
5648: END IF;
5649: --end of repricing
5650:
5651: /*
5660: fnd_file.put_line(FND_FILE.LOG,' ');
5661:
5662: --Step 12 copy usage price locks if any
5663: --Can be done only after the line pricelist has been updated (in reprice_contract)
5664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5665: 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);
5666: END IF;
5667: copy_usage_price_locks(
5668: p_chr_id => x_chr_id,
5661:
5662: --Step 12 copy usage price locks if any
5663: --Can be done only after the line pricelist has been updated (in reprice_contract)
5664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5665: 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);
5666: END IF;
5667: copy_usage_price_locks(
5668: p_chr_id => x_chr_id,
5669: p_org_id => l_renk_org_id,
5671: x_msg_count => x_msg_count,
5672: x_msg_data => x_msg_data,
5673: x_return_status => x_return_status);
5674:
5675: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5676: 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);
5677: END IF;
5678: --end of copy usage price locks
5679:
5672: x_msg_data => x_msg_data,
5673: x_return_status => x_return_status);
5674:
5675: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5676: 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);
5677: END IF;
5678: --end of copy usage price locks
5679:
5680:
5690: fnd_file.put_line(FND_FILE.LOG,' ');
5691:
5692: --Step 13 Recreate billing schedules for the lines/header.
5693: --Can be done only after dates adjustment and repricing the contract
5694: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5695: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'calling recreate_billing, p_chr_id='||x_chr_id);
5696: END IF;
5697: recreate_billing(
5698: p_chr_id => x_chr_id,
5691:
5692: --Step 13 Recreate billing schedules for the lines/header.
5693: --Can be done only after dates adjustment and repricing the contract
5694: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5695: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'calling recreate_billing, p_chr_id='||x_chr_id);
5696: END IF;
5697: recreate_billing(
5698: p_chr_id => x_chr_id,
5699: p_billing_profile_id => l_rnrl_rec.billing_profile_id,
5699: p_billing_profile_id => l_rnrl_rec.billing_profile_id,
5700: x_msg_count => x_msg_count,
5701: x_msg_data => x_msg_data,
5702: x_return_status => x_return_status);
5703: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5704: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'after call to recreate_billing, x_return_status='||x_return_status);
5705: END IF;
5706: --end of billing
5707:
5700: x_msg_count => x_msg_count,
5701: x_msg_data => x_msg_data,
5702: x_return_status => x_return_status);
5703: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5704: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.billing', 'after call to recreate_billing, x_return_status='||x_return_status);
5705: END IF;
5706: --end of billing
5707:
5708: /*
5716: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5717: fnd_file.put_line(FND_FILE.LOG,' ');
5718:
5719: --Step 14 Process 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 || '.sales_credits', 'calling process_sales_credit, p_chr_id='||x_chr_id);
5722: END IF;
5723:
5724: fnd_file.put_line(FND_FILE.LOG,'Calling process_sales_credit ');
5717: fnd_file.put_line(FND_FILE.LOG,' ');
5718:
5719: --Step 14 Process 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 || '.sales_credits', 'calling process_sales_credit, p_chr_id='||x_chr_id);
5722: END IF;
5723:
5724: fnd_file.put_line(FND_FILE.LOG,'Calling process_sales_credit ');
5725:
5728: x_msg_count => x_msg_count,
5729: x_msg_data => x_msg_data,
5730: x_return_status => x_return_status);
5731:
5732: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5733: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sales_credits', 'after call to process_sales_credit, x_return_status='||x_return_status);
5734: END IF;
5735:
5736: --sales credit and copy are the 2 places we can return with a warning
5729: x_msg_data => x_msg_data,
5730: x_return_status => x_return_status);
5731:
5732: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5733: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sales_credits', 'after call to process_sales_credit, x_return_status='||x_return_status);
5734: END IF;
5735:
5736: --sales credit and copy are the 2 places we can return with a warning
5737: IF x_return_status = OKC_API.g_ret_sts_warning THEN -- 'W'
5751: fnd_file.put_line(FND_FILE.LOG,' ');
5752:
5753: --Step 15 get the user id and name (salesperson) of the contact who will be
5754: --the performer for the workflow. Can be done only after sales credits
5755: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5756: 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);
5757: END IF;
5758:
5759: get_user_name(
5752:
5753: --Step 15 get the user id and name (salesperson) of the contact who will be
5754: --the performer for the workflow. Can be done only after sales credits
5755: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5756: 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);
5757: END IF;
5758:
5759: get_user_name(
5760: p_api_version => 1,
5766: p_hdesk_user_id => l_rnrl_rec.user_id,
5767: x_user_id => l_user_id,
5768: x_user_name => l_user_name);
5769:
5770: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5771: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_user_name', 'after call to get_user_name, x_return_status='||x_return_status||' ,l_user_id='||l_user_id||' ,l_user_name='||l_user_name);
5772: END IF;
5773: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5774: RAISE FND_API.g_exc_unexpected_error;
5767: x_user_id => l_user_id,
5768: x_user_name => l_user_name);
5769:
5770: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5771: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_user_name', 'after call to get_user_name, x_return_status='||x_return_status||' ,l_user_id='||l_user_id||' ,l_user_name='||l_user_name);
5772: END IF;
5773: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5774: RAISE FND_API.g_exc_unexpected_error;
5775: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5789: fnd_file.put_line(FND_FILE.LOG,' ');
5790:
5791: --Step 16 check and assign contract to contract group specified in GCD
5792: IF( l_rnrl_rec.cgp_renew_id IS NOT NULL) THEN
5793: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5794: 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);
5795: END IF;
5796: assign_contract_group(
5797: p_chr_id => x_chr_id,
5790:
5791: --Step 16 check and assign contract to contract group specified in GCD
5792: IF( l_rnrl_rec.cgp_renew_id IS NOT NULL) THEN
5793: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5794: 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);
5795: END IF;
5796: assign_contract_group(
5797: p_chr_id => x_chr_id,
5798: p_chr_group_id => l_rnrl_rec.cgp_renew_id,
5798: p_chr_group_id => l_rnrl_rec.cgp_renew_id,
5799: x_msg_count => x_msg_count,
5800: x_msg_data => x_msg_data,
5801: x_return_status => x_return_status);
5802: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5803: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_group', 'after call to assign_contract_group, x_return_status='||x_return_status);
5804: END IF;
5805: END IF;
5806: --end of contract group
5799: x_msg_count => x_msg_count,
5800: x_msg_data => x_msg_data,
5801: x_return_status => x_return_status);
5802: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5803: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_group', 'after call to assign_contract_group, x_return_status='||x_return_status);
5804: END IF;
5805: END IF;
5806: --end of contract group
5807: /*
5816: fnd_file.put_line(FND_FILE.LOG,' ');
5817:
5818: --Step 17 check and update/create contract approval process specified in GCD
5819: IF( l_rnrl_rec.pdf_id IS NOT NULL) THEN
5820: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5821: 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);
5822: END IF;
5823: assign_contract_process(
5824: p_chr_id => x_chr_id,
5817:
5818: --Step 17 check and update/create contract approval process specified in GCD
5819: IF( l_rnrl_rec.pdf_id IS NOT NULL) THEN
5820: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5821: 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);
5822: END IF;
5823: assign_contract_process(
5824: p_chr_id => x_chr_id,
5825: p_pdf_id => l_rnrl_rec.pdf_id,
5825: p_pdf_id => l_rnrl_rec.pdf_id,
5826: x_msg_count => x_msg_count,
5827: x_msg_data => x_msg_data,
5828: x_return_status => x_return_status);
5829: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5830: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_process', 'after call to assign_contract_process, x_return_status='||x_return_status);
5831: END IF;
5832: END IF;
5833: --end of contract approval process
5826: x_msg_count => x_msg_count,
5827: x_msg_data => x_msg_data,
5828: x_return_status => x_return_status);
5829: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5830: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.contract_process', 'after call to assign_contract_process, x_return_status='||x_return_status);
5831: END IF;
5832: END IF;
5833: --end of contract approval process
5834:
5844: fnd_file.put_line(FND_FILE.LOG,' ');
5845:
5846: --Step 18 update contract (OKC and OKS) with the renewal rules, inlcuding determination
5847: --renewal type and launching/modification of workflow
5848: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5849: 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);
5850: END IF;
5851: update_renewed_contract(
5852: p_chr_id => x_chr_id,
5845:
5846: --Step 18 update contract (OKC and OKS) with the renewal rules, inlcuding determination
5847: --renewal type and launching/modification of workflow
5848: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5849: 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);
5850: END IF;
5851: update_renewed_contract(
5852: p_chr_id => x_chr_id,
5853: p_rnrl_rec => l_rnrl_rec,
5854: p_notify_to => l_user_id,
5855: x_msg_count => x_msg_count,
5856: x_msg_data => x_msg_data,
5857: x_return_status => x_return_status);
5858: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5859: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_contract', 'after call to update_renewed_contract, x_return_status='||x_return_status);
5860: END IF;
5861: --end of update contract
5862:
5855: x_msg_count => x_msg_count,
5856: x_msg_data => x_msg_data,
5857: x_return_status => x_return_status);
5858: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5859: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_contract', 'after call to update_renewed_contract, x_return_status='||x_return_status);
5860: END IF;
5861: --end of update contract
5862:
5863: IF (l_warnings) THEN
5875: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
5876: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5877: fnd_file.put_line(FND_FILE.LOG,' ');
5878:
5879: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5880: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5881: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_chr_id=' || x_chr_id ||', x_return_status='|| x_return_status);
5882: END IF;
5883: END IF;
5876: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
5877: fnd_file.put_line(FND_FILE.LOG,' ');
5878:
5879: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5880: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5881: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_chr_id=' || x_chr_id ||', x_return_status='|| x_return_status);
5882: END IF;
5883: END IF;
5884: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5877: fnd_file.put_line(FND_FILE.LOG,' ');
5878:
5879: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
5880: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
5881: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_chr_id=' || x_chr_id ||', x_return_status='|| x_return_status);
5882: END IF;
5883: END IF;
5884: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5885:
5887: WHEN FND_API.g_exc_error THEN
5888: ROLLBACK TO renew_contract_PVT;
5889: x_return_status := FND_API.g_ret_sts_error ;
5890:
5891: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5892: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5893: END IF;
5894: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5895: IF (c_k_hdr%isopen) THEN
5888: ROLLBACK TO renew_contract_PVT;
5889: x_return_status := FND_API.g_ret_sts_error ;
5890:
5891: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5892: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5893: END IF;
5894: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5895: IF (c_k_hdr%isopen) THEN
5896: CLOSE c_k_hdr;
5902: WHEN FND_API.g_exc_unexpected_error THEN
5903: ROLLBACK TO renew_contract_PVT;
5904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5905:
5906: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5907: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5908: END IF;
5909: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5910: IF (c_k_hdr%isopen) THEN
5903: ROLLBACK TO renew_contract_PVT;
5904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5905:
5906: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5907: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5908: END IF;
5909: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5910: IF (c_k_hdr%isopen) THEN
5911: CLOSE c_k_hdr;
5917: WHEN OTHERS THEN
5918: ROLLBACK TO renew_contract_PVT;
5919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5920:
5921: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5922: --first log the sqlerrm
5923: l_error_text := substr (SQLERRM, 1, 240);
5924: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5925: --then add it to the message api list
5920:
5921: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5922: --first log the sqlerrm
5923: l_error_text := substr (SQLERRM, 1, 240);
5924: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
5925: --then add it to the message api list
5926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
5927: END IF;
5928: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );