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;
88: 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'));
89: 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' ));
90: -- call start_activity to create savepoint, check comptability
91: -- and initialize message list
92: l_return_status := OKC_API.START_ACTIVITY(l_api_name
93: ,p_init_msg_list
94: ,'_PROCESS'
95: ,x_return_status
96: );
94: ,'_PROCESS'
95: ,x_return_status
96: );
97: -- check if activity started successfully
98: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
99: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
101: RAISE OKC_API.G_EXCEPTION_ERROR;
102: END IF;
95: ,x_return_status
96: );
97: -- check if activity started successfully
98: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
99: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
101: RAISE OKC_API.G_EXCEPTION_ERROR;
102: END IF;
103:
96: );
97: -- check if activity started successfully
98: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
99: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
101: RAISE OKC_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104: --Get the correlation
97: -- check if activity started successfully
98: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
99: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
101: RAISE OKC_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104: --Get the correlation
105: /* SELECT acn.correlation INTO l_corrid_rec FROM okc_actions_v acn
205: x_msg_data =>x_msg_data,
206: p_cnh_id =>p_cnh_id ,
207: p_msg_tab =>l_msg_tbl
208: );
209: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
212: RAISE OKC_API.G_EXCEPTION_ERROR;
213: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
206: p_cnh_id =>p_cnh_id ,
207: p_msg_tab =>l_msg_tbl
208: );
209: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
212: RAISE OKC_API.G_EXCEPTION_ERROR;
213: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
214: --commit;
207: p_msg_tab =>l_msg_tbl
208: );
209: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
212: RAISE OKC_API.G_EXCEPTION_ERROR;
213: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
214: --commit;
215: END IF;
208: );
209: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
212: RAISE OKC_API.G_EXCEPTION_ERROR;
213: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
214: --commit;
215: END IF;
216:
209: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
212: RAISE OKC_API.G_EXCEPTION_ERROR;
213: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
214: --commit;
215: END IF;
216:
217: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
219: 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'));
220: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
221: END LOOP;
222: commit;
223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
224:
225:
226: IF (l_debug = 'Y') THEN
227: okc_debug.Log('1000: Leaving ',2);
228: okc_debug.Reset_Indentation;
229: END IF;
230:
231: EXCEPTION
232: WHEN OKC_API.G_EXCEPTION_ERROR THEN
233: x_return_status := OKC_API.HANDLE_EXCEPTIONS
234: (l_api_name,
235: G_PKG_NAME,
236: 'OKC_API.G_RET_STS_ERROR',
229: END IF;
230:
231: EXCEPTION
232: WHEN OKC_API.G_EXCEPTION_ERROR THEN
233: x_return_status := OKC_API.HANDLE_EXCEPTIONS
234: (l_api_name,
235: G_PKG_NAME,
236: 'OKC_API.G_RET_STS_ERROR',
237: x_msg_count,
232: WHEN OKC_API.G_EXCEPTION_ERROR THEN
233: x_return_status := OKC_API.HANDLE_EXCEPTIONS
234: (l_api_name,
235: G_PKG_NAME,
236: 'OKC_API.G_RET_STS_ERROR',
237: x_msg_count,
238: x_msg_data,
239: '_PROCESS');
240: IF (l_debug = 'Y') THEN
240: IF (l_debug = 'Y') THEN
241: okc_debug.Log('2000: Leaving ',2);
242: okc_debug.Reset_Indentation;
243: END IF;
244: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
246: (l_api_name,
247: G_PKG_NAME,
248: 'OKC_API.G_RET_STS_UNEXP_ERROR',
241: okc_debug.Log('2000: Leaving ',2);
242: okc_debug.Reset_Indentation;
243: END IF;
244: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
246: (l_api_name,
247: G_PKG_NAME,
248: 'OKC_API.G_RET_STS_UNEXP_ERROR',
249: x_msg_count,
244: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
246: (l_api_name,
247: G_PKG_NAME,
248: 'OKC_API.G_RET_STS_UNEXP_ERROR',
249: x_msg_count,
250: x_msg_data,
251: '_PROCESS');
252: IF (l_debug = 'Y') THEN
253: okc_debug.Log('3000: Leaving ',2);
254: okc_debug.Reset_Indentation;
255: END IF;
256: WHEN OTHERS THEN
257: x_return_status := OKC_API.HANDLE_EXCEPTIONS
258: (l_api_name,
259: G_PKG_NAME,
260: 'OTHERS',
261: x_msg_count,
283:
284: -- l_api_name CONSTANT VARCHAR2(30) := 'exp_lines_date_assemble';
285: l_api_name CONSTANT VARCHAR2(30) := 'exp_ln_date_ass';
286: l_api_version CONSTANT NUMBER := 1.0;
287: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
288: k NUMBER;
289: l_last_rundate DATE;
290: l_variance okc_condition_headers_b.cnh_variance%TYPE;
291: --l_corrid_rec okc_aq_pub.corrid_rec_typ;
360:
361:
362: -- call start_activity to create savepoint, check comptability
363: -- and initialize message list
364: l_return_status := OKC_API.START_ACTIVITY(l_api_name
365: ,p_init_msg_list
366: ,'_PROCESS'
367: ,x_return_status
368: );
370: okc_debug.Log('110: l_return_status : '||l_return_status ,2);
371: END IF;
372:
373: -- check if activity started successfully
374: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
377: RAISE OKC_API.G_EXCEPTION_ERROR;
378: END IF;
371: END IF;
372:
373: -- check if activity started successfully
374: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
377: RAISE OKC_API.G_EXCEPTION_ERROR;
378: END IF;
379:
372:
373: -- check if activity started successfully
374: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
377: RAISE OKC_API.G_EXCEPTION_ERROR;
378: END IF;
379:
380: --Get the correlation
373: -- check if activity started successfully
374: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
377: RAISE OKC_API.G_EXCEPTION_ERROR;
378: END IF;
379:
380: --Get the correlation
381: /*SELECT acn.correlation INTO l_corrid_rec FROM okc_actions_v acn
503: okc_debug.Log('150: Called OKC_AQ_PUB.send_message ',2);
504: okc_debug.Log('160: l_return_status : '||l_return_status,2);
505: END IF;
506:
507: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
509: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
510: RAISE OKC_API.G_EXCEPTION_ERROR;
511: END IF;
504: okc_debug.Log('160: l_return_status : '||l_return_status,2);
505: END IF;
506:
507: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
509: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
510: RAISE OKC_API.G_EXCEPTION_ERROR;
511: END IF;
512:
505: END IF;
506:
507: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
509: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
510: RAISE OKC_API.G_EXCEPTION_ERROR;
511: END IF;
512:
513: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
506:
507: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
509: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
510: RAISE OKC_API.G_EXCEPTION_ERROR;
511: END IF;
512:
513: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
514: 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'));
522: END LOOP; -- for each K
523:
524: COMMIT;
525:
526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
527:
528: IF (l_debug = 'Y') THEN
529: okc_debug.Log('1000: Leaving ',2);
530: okc_debug.Reset_Indentation;
530: okc_debug.Reset_Indentation;
531: END IF;
532:
533: EXCEPTION
534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
535: IF (l_debug = 'Y') THEN
536: okc_debug.Log('2000: Leaving ',2);
537: okc_debug.Reset_Indentation;
538: END IF;
535: IF (l_debug = 'Y') THEN
536: okc_debug.Log('2000: Leaving ',2);
537: okc_debug.Reset_Indentation;
538: END IF;
539: x_return_status := OKC_API.HANDLE_EXCEPTIONS
540: (l_api_name,
541: G_PKG_NAME,
542: 'OKC_API.G_RET_STS_ERROR',
543: x_msg_count,
538: END IF;
539: x_return_status := OKC_API.HANDLE_EXCEPTIONS
540: (l_api_name,
541: G_PKG_NAME,
542: 'OKC_API.G_RET_STS_ERROR',
543: x_msg_count,
544: x_msg_data,
545: '_PROCESS');
546: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
542: 'OKC_API.G_RET_STS_ERROR',
543: x_msg_count,
544: x_msg_data,
545: '_PROCESS');
546: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
547: IF (l_debug = 'Y') THEN
548: okc_debug.Log('3000: Leaving ',2);
549: okc_debug.Reset_Indentation;
550: END IF;
547: IF (l_debug = 'Y') THEN
548: okc_debug.Log('3000: Leaving ',2);
549: okc_debug.Reset_Indentation;
550: END IF;
551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
552: (l_api_name,
553: G_PKG_NAME,
554: 'OKC_API.G_RET_STS_UNEXP_ERROR',
555: x_msg_count,
550: END IF;
551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
552: (l_api_name,
553: G_PKG_NAME,
554: 'OKC_API.G_RET_STS_UNEXP_ERROR',
555: x_msg_count,
556: x_msg_data,
557: '_PROCESS');
558: WHEN OTHERS THEN
559: IF (l_debug = 'Y') THEN
560: okc_debug.Log('4000: Leaving ',2);
561: okc_debug.Reset_Indentation;
562: END IF;
563: x_return_status := OKC_API.HANDLE_EXCEPTIONS
564: (l_api_name,
565: G_PKG_NAME,
566: 'OTHERS',
567: x_msg_count,