19:
20:
21: l_api_name CONSTANT VARCHAR2(30) := 'exp_date_assemble';
22: l_api_version CONSTANT NUMBER := 1.0;
23: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
24: k NUMBER;
25: l_last_rundate DATE;
26: l_variance okc_condition_headers_b.cnh_variance%TYPE;
27: --l_corrid_rec okc_aq_pub.corrid_rec_typ;
89: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Last Rundate (dd/mm/yyyy:hh24:mi:ss) :'||to_char(p_last_rundate,'dd/mm/yyyy:hh24:mi:ss'));
90: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End_Date Range (dd/mm/yyyy:hh24:mi:ss) :'||to_char((p_cnh_variance + trunc(p_last_rundate) + 1),'dd/mm/yyyy:hh24:mi:ss') || ' and ' || to_char((trunc(sysdate) + p_cnh_variance + 0.99999),'dd/mm/yyyy:hh24:mi:ss' ));
91: -- call start_activity to create savepoint, check comptability
92: -- and initialize message list
93: l_return_status := OKC_API.START_ACTIVITY(l_api_name
94: ,p_init_msg_list
95: ,'_PROCESS'
96: ,x_return_status
97: );
95: ,'_PROCESS'
96: ,x_return_status
97: );
98: -- check if activity started successfully
99: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
102: RAISE OKC_API.G_EXCEPTION_ERROR;
103: END IF;
96: ,x_return_status
97: );
98: -- check if activity started successfully
99: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
102: RAISE OKC_API.G_EXCEPTION_ERROR;
103: END IF;
104:
97: );
98: -- check if activity started successfully
99: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
102: RAISE OKC_API.G_EXCEPTION_ERROR;
103: END IF;
104:
105: --Get the correlation
98: -- check if activity started successfully
99: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
102: RAISE OKC_API.G_EXCEPTION_ERROR;
103: END IF;
104:
105: --Get the correlation
106: /* SELECT acn.correlation INTO l_corrid_rec FROM okc_actions_v acn
220: x_msg_data =>x_msg_data,
221: p_cnh_id =>p_cnh_id ,
222: p_msg_tab =>l_msg_tbl
223: );
224: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
227: RAISE OKC_API.G_EXCEPTION_ERROR;
228: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
221: p_cnh_id =>p_cnh_id ,
222: p_msg_tab =>l_msg_tbl
223: );
224: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
227: RAISE OKC_API.G_EXCEPTION_ERROR;
228: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
229: --commit;
222: p_msg_tab =>l_msg_tbl
223: );
224: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
227: RAISE OKC_API.G_EXCEPTION_ERROR;
228: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
229: --commit;
230: END IF;
223: );
224: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
227: RAISE OKC_API.G_EXCEPTION_ERROR;
228: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
229: --commit;
230: END IF;
231:
224: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
227: RAISE OKC_API.G_EXCEPTION_ERROR;
228: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
229: --commit;
230: END IF;
231:
232: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
235: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
236: END IF; -- l_hook_filter if
237: END LOOP; -- end of k1_csr
238: COMMIT;
239: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
240:
241:
242: IF (l_debug = 'Y') THEN
243: okc_debug.Log('1000: Leaving ',2);
244: okc_debug.Reset_Indentation;
245: END IF;
246:
247: EXCEPTION
248: WHEN OKC_API.G_EXCEPTION_ERROR THEN
249: x_return_status := OKC_API.HANDLE_EXCEPTIONS
250: (l_api_name,
251: G_PKG_NAME,
252: 'OKC_API.G_RET_STS_ERROR',
245: END IF;
246:
247: EXCEPTION
248: WHEN OKC_API.G_EXCEPTION_ERROR THEN
249: x_return_status := OKC_API.HANDLE_EXCEPTIONS
250: (l_api_name,
251: G_PKG_NAME,
252: 'OKC_API.G_RET_STS_ERROR',
253: x_msg_count,
248: WHEN OKC_API.G_EXCEPTION_ERROR THEN
249: x_return_status := OKC_API.HANDLE_EXCEPTIONS
250: (l_api_name,
251: G_PKG_NAME,
252: 'OKC_API.G_RET_STS_ERROR',
253: x_msg_count,
254: x_msg_data,
255: '_PROCESS');
256: IF (l_debug = 'Y') THEN
256: IF (l_debug = 'Y') THEN
257: okc_debug.Log('2000: Leaving ',2);
258: okc_debug.Reset_Indentation;
259: END IF;
260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
261: x_return_status := OKC_API.HANDLE_EXCEPTIONS
262: (l_api_name,
263: G_PKG_NAME,
264: 'OKC_API.G_RET_STS_UNEXP_ERROR',
257: okc_debug.Log('2000: Leaving ',2);
258: okc_debug.Reset_Indentation;
259: END IF;
260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
261: x_return_status := OKC_API.HANDLE_EXCEPTIONS
262: (l_api_name,
263: G_PKG_NAME,
264: 'OKC_API.G_RET_STS_UNEXP_ERROR',
265: x_msg_count,
260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
261: x_return_status := OKC_API.HANDLE_EXCEPTIONS
262: (l_api_name,
263: G_PKG_NAME,
264: 'OKC_API.G_RET_STS_UNEXP_ERROR',
265: x_msg_count,
266: x_msg_data,
267: '_PROCESS');
268: IF (l_debug = 'Y') THEN
269: okc_debug.Log('3000: Leaving ',2);
270: okc_debug.Reset_Indentation;
271: END IF;
272: WHEN OTHERS THEN
273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
274: (l_api_name,
275: G_PKG_NAME,
276: 'OTHERS',
277: x_msg_count,
299:
300: -- l_api_name CONSTANT VARCHAR2(30) := 'exp_lines_date_assemble';
301: l_api_name CONSTANT VARCHAR2(30) := 'exp_ln_date_ass';
302: l_api_version CONSTANT NUMBER := 1.0;
303: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
304: k NUMBER;
305: l_last_rundate DATE;
306: l_variance okc_condition_headers_b.cnh_variance%TYPE;
307: --l_corrid_rec okc_aq_pub.corrid_rec_typ;
376:
377:
378: -- call start_activity to create savepoint, check comptability
379: -- and initialize message list
380: l_return_status := OKC_API.START_ACTIVITY(l_api_name
381: ,p_init_msg_list
382: ,'_PROCESS'
383: ,x_return_status
384: );
386: okc_debug.Log('110: l_return_status : '||l_return_status ,2);
387: END IF;
388:
389: -- check if activity started successfully
390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
393: RAISE OKC_API.G_EXCEPTION_ERROR;
394: END IF;
387: END IF;
388:
389: -- check if activity started successfully
390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
393: RAISE OKC_API.G_EXCEPTION_ERROR;
394: END IF;
395:
388:
389: -- check if activity started successfully
390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
393: RAISE OKC_API.G_EXCEPTION_ERROR;
394: END IF;
395:
396: --Get the correlation
389: -- check if activity started successfully
390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
393: RAISE OKC_API.G_EXCEPTION_ERROR;
394: END IF;
395:
396: --Get the correlation
397: /*SELECT acn.correlation INTO l_corrid_rec FROM okc_actions_v acn
519: okc_debug.Log('150: Called OKC_AQ_PUB.send_message ',2);
520: okc_debug.Log('160: l_return_status : '||l_return_status,2);
521: END IF;
522:
523: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
525: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
526: RAISE OKC_API.G_EXCEPTION_ERROR;
527: END IF;
520: okc_debug.Log('160: l_return_status : '||l_return_status,2);
521: END IF;
522:
523: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
525: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
526: RAISE OKC_API.G_EXCEPTION_ERROR;
527: END IF;
528:
521: END IF;
522:
523: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
525: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
526: RAISE OKC_API.G_EXCEPTION_ERROR;
527: END IF;
528:
529: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
522:
523: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
525: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
526: RAISE OKC_API.G_EXCEPTION_ERROR;
527: END IF;
528:
529: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
530: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||':Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
538: END LOOP; -- for each K
539:
540: COMMIT;
541:
542: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
543:
544: IF (l_debug = 'Y') THEN
545: okc_debug.Log('1000: Leaving ',2);
546: okc_debug.Reset_Indentation;
546: okc_debug.Reset_Indentation;
547: END IF;
548:
549: EXCEPTION
550: WHEN OKC_API.G_EXCEPTION_ERROR THEN
551: IF (l_debug = 'Y') THEN
552: okc_debug.Log('2000: Leaving ',2);
553: okc_debug.Reset_Indentation;
554: END IF;
551: IF (l_debug = 'Y') THEN
552: okc_debug.Log('2000: Leaving ',2);
553: okc_debug.Reset_Indentation;
554: END IF;
555: x_return_status := OKC_API.HANDLE_EXCEPTIONS
556: (l_api_name,
557: G_PKG_NAME,
558: 'OKC_API.G_RET_STS_ERROR',
559: x_msg_count,
554: END IF;
555: x_return_status := OKC_API.HANDLE_EXCEPTIONS
556: (l_api_name,
557: G_PKG_NAME,
558: 'OKC_API.G_RET_STS_ERROR',
559: x_msg_count,
560: x_msg_data,
561: '_PROCESS');
562: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
558: 'OKC_API.G_RET_STS_ERROR',
559: x_msg_count,
560: x_msg_data,
561: '_PROCESS');
562: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
563: IF (l_debug = 'Y') THEN
564: okc_debug.Log('3000: Leaving ',2);
565: okc_debug.Reset_Indentation;
566: END IF;
563: IF (l_debug = 'Y') THEN
564: okc_debug.Log('3000: Leaving ',2);
565: okc_debug.Reset_Indentation;
566: END IF;
567: x_return_status := OKC_API.HANDLE_EXCEPTIONS
568: (l_api_name,
569: G_PKG_NAME,
570: 'OKC_API.G_RET_STS_UNEXP_ERROR',
571: x_msg_count,
566: END IF;
567: x_return_status := OKC_API.HANDLE_EXCEPTIONS
568: (l_api_name,
569: G_PKG_NAME,
570: 'OKC_API.G_RET_STS_UNEXP_ERROR',
571: x_msg_count,
572: x_msg_data,
573: '_PROCESS');
574: WHEN OTHERS THEN
575: IF (l_debug = 'Y') THEN
576: okc_debug.Log('4000: Leaving ',2);
577: okc_debug.Reset_Indentation;
578: END IF;
579: x_return_status := OKC_API.HANDLE_EXCEPTIONS
580: (l_api_name,
581: G_PKG_NAME,
582: 'OTHERS',
583: x_msg_count,