DBA Data[Home] [Help]

APPS.OKC_EXP_DATE_ASMBLR_PVT dependencies on OKC_API

Line 23: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

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;

Line 92: l_return_status := OKC_API.START_ACTIVITY(l_api_name

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: );

Line 98: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN

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;

Line 99: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

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:

Line 100: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN

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

Line 101: RAISE OKC_API.G_EXCEPTION_ERROR;

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

Line 209: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN

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

Line 210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

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;

Line 211: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN

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;

Line 212: RAISE OKC_API.G_EXCEPTION_ERROR;

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:

Line 213: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN

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');

Line 223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

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);

Line 232: WHEN OKC_API.G_EXCEPTION_ERROR THEN

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',

Line 233: x_return_status := OKC_API.HANDLE_EXCEPTIONS

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,

Line 236: 'OKC_API.G_RET_STS_ERROR',

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

Line 244: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR 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',

Line 245: x_return_status := OKC_API.HANDLE_EXCEPTIONS

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,

Line 248: 'OKC_API.G_RET_STS_UNEXP_ERROR',

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

Line 257: x_return_status := OKC_API.HANDLE_EXCEPTIONS

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,

Line 287: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

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;

Line 364: l_return_status := OKC_API.START_ACTIVITY(l_api_name

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: );

Line 374: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN

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;

Line 375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

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:

Line 376: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN

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

Line 377: RAISE OKC_API.G_EXCEPTION_ERROR;

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

Line 507: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN

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;

Line 508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

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:

Line 509: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN

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');

Line 510: RAISE OKC_API.G_EXCEPTION_ERROR;

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'));

Line 526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);

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;

Line 534: WHEN OKC_API.G_EXCEPTION_ERROR THEN

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;

Line 539: x_return_status := OKC_API.HANDLE_EXCEPTIONS

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,

Line 542: 'OKC_API.G_RET_STS_ERROR',

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

Line 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;

Line 551: x_return_status := OKC_API.HANDLE_EXCEPTIONS

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,

Line 554: 'OKC_API.G_RET_STS_UNEXP_ERROR',

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

Line 563: x_return_status := OKC_API.HANDLE_EXCEPTIONS

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,