43: CLOSE c_exist;
44:
45: EXCEPTION
46: WHEN OTHERS THEN
47: OKE_API.set_message(p_app_name => G_APP_NAME ,
48: p_msg_name => G_UNEXPECTED_ERROR ,
49: p_token1 => G_SQLCODE_TOKEN ,
50: p_token1_value => SQLCODE ,
51: p_token2 => G_SQLERRM_TOKEN ,
55: IF (c_exist%ISOPEN) THEN
56: CLOSE c_exist;
57: END IF;
58:
59: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
60:
61: END check_update_add_pa;
62:
63:
96: CLOSE c_update;
97:
98: EXCEPTION
99: WHEN OTHERS THEN
100: OKE_API.set_message(p_app_name => G_APP_NAME ,
101: p_msg_name => G_UNEXPECTED_ERROR ,
102: p_token1 => G_SQLCODE_TOKEN ,
103: p_token1_value => SQLCODE ,
104: p_token2 => G_SQLERRM_TOKEN ,
108: IF (c_update%ISOPEN) THEN
109: CLOSE c_update;
110: END IF;
111:
112: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
113:
114: END check_update_add;
115:
116:
136:
137: BEGIN
138:
139: IF (p_agreement_id is null) OR
140: (p_agreement_id = OKE_API.G_MISS_NUM) THEN
141:
142: OKE_API.set_message(p_app_name => G_APP_NAME ,
143: p_msg_name => 'OKE_API_MISSING_VALUE' ,
144: p_token1 => 'VALUE' ,
138:
139: IF (p_agreement_id is null) OR
140: (p_agreement_id = OKE_API.G_MISS_NUM) THEN
141:
142: OKE_API.set_message(p_app_name => G_APP_NAME ,
143: p_msg_name => 'OKE_API_MISSING_VALUE' ,
144: p_token1 => 'VALUE' ,
145: p_token1_value => 'agreement_id'
146: );
139: IF (p_agreement_id is null) OR
140: (p_agreement_id = OKE_API.G_MISS_NUM) THEN
141:
142: OKE_API.set_message(p_app_name => G_APP_NAME ,
143: p_msg_name => 'OKE_API_MISSING_VALUE' ,
144: p_token1 => 'VALUE' ,
145: p_token1_value => 'agreement_id'
146: );
147:
144: p_token1 => 'VALUE' ,
145: p_token1_value => 'agreement_id'
146: );
147:
148: RAISE OKE_API.G_EXCEPTION_ERROR;
149:
150: END IF;
151:
152: OPEN c_agreement((LENGTH(p_funding_source_id) + 1));
154: CLOSE c_agreement;
155:
156: IF (l_dummy_value = '?') THEN
157:
158: OKE_API.set_message(p_app_name => G_APP_NAME ,
159: p_msg_name => 'OKE_API_INVALID_VALUE' ,
160: p_token1 => 'VALUE' ,
161: p_token1_value => 'agreement_id'
162: );
155:
156: IF (l_dummy_value = '?') THEN
157:
158: OKE_API.set_message(p_app_name => G_APP_NAME ,
159: p_msg_name => 'OKE_API_INVALID_VALUE' ,
160: p_token1 => 'VALUE' ,
161: p_token1_value => 'agreement_id'
162: );
163:
160: p_token1 => 'VALUE' ,
161: p_token1_value => 'agreement_id'
162: );
163:
164: RAISE OKE_API.G_EXCEPTION_ERROR;
165:
166: END IF;
167:
168: EXCEPTION
166: END IF;
167:
168: EXCEPTION
169: WHEN OTHERS THEN
170: OKE_API.set_message(p_app_name => G_APP_NAME ,
171: p_msg_name => G_UNEXPECTED_ERROR ,
172: p_token1 => G_SQLCODE_TOKEN ,
173: p_token1_value => SQLCODE ,
174: p_token2 => G_SQLERRM_TOKEN ,
178: IF (c_agreement%ISOPEN) THEN
179: CLOSE c_agreement;
180: END IF;
181:
182: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
183:
184: END validate_agreement_id;
185:
186:
227: RETURN (l_allocation_in_rec);
228:
229: EXCEPTION
230: WHEN OTHERS THEN
231: OKE_API.set_message(p_app_name => G_APP_NAME ,
232: p_msg_name => G_UNEXPECTED_ERROR ,
233: p_token1 => G_SQLCODE_TOKEN ,
234: p_token1_value => SQLCODE ,
235: p_token2 => G_SQLERRM_TOKEN ,
239: IF (c_allocation%ISOPEN) THEN
240: CLOSE c_allocation;
241: END IF;
242:
243: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
244:
245: END get_record;
246:
247:
258: -- Procedure: create_pa_oke_funding
259: --
260: -- Description: This procedure is used to create contract funding and pa agreement
261: --
262: -- Calling subprograms: OKE_API.start_activity
263: -- OKE_API.end_activity
264: -- OKE_FUNDSOURCE_PVT.fetch_create_funding
265: --
266:
259: --
260: -- Description: This procedure is used to create contract funding and pa agreement
261: --
262: -- Calling subprograms: OKE_API.start_activity
263: -- OKE_API.end_activity
264: -- OKE_FUNDSOURCE_PVT.fetch_create_funding
265: --
266:
267: PROCEDURE create_pa_oke_funding(p_api_version IN NUMBER ,
264: -- OKE_FUNDSOURCE_PVT.fetch_create_funding
265: --
266:
267: PROCEDURE create_pa_oke_funding(p_api_version IN NUMBER ,
268: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
269: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
270: x_return_status OUT NOCOPY VARCHAR2 ,
271: x_msg_count OUT NOCOPY NUMBER ,
272: x_msg_data OUT NOCOPY VARCHAR2 ,
265: --
266:
267: PROCEDURE create_pa_oke_funding(p_api_version IN NUMBER ,
268: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
269: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
270: x_return_status OUT NOCOPY VARCHAR2 ,
271: x_msg_count OUT NOCOPY NUMBER ,
272: x_msg_data OUT NOCOPY VARCHAR2 ,
273: x_funding_source_id OUT NOCOPY NUMBER ,
288: l_return_status VARCHAR2(1);
289:
290: BEGIN
291:
292: x_return_status := OKE_API.G_RET_STS_SUCCESS;
293:
294: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
295: p_pkg_name => G_PKG_NAME ,
296: p_init_msg_list => p_init_msg_list ,
290: BEGIN
291:
292: x_return_status := OKE_API.G_RET_STS_SUCCESS;
293:
294: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
295: p_pkg_name => G_PKG_NAME ,
296: p_init_msg_list => p_init_msg_list ,
297: l_api_version => G_API_VERSION_NUMBER ,
298: p_api_version => p_api_version ,
299: p_api_type => '_PUB' ,
300: x_return_status => x_return_status
301: );
302:
303: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
304:
305: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
306:
307: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
301: );
302:
303: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
304:
305: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
306:
307: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
308:
309: RAISE OKE_API.G_EXCEPTION_ERROR;
303: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
304:
305: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
306:
307: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
308:
309: RAISE OKE_API.G_EXCEPTION_ERROR;
310:
311: END IF;
305: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
306:
307: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
308:
309: RAISE OKE_API.G_EXCEPTION_ERROR;
310:
311: END IF;
312:
313: OKE_FUNDSOURCE_PVT.fetch_create_funding(p_init_msg_list => OKE_API.G_FALSE ,
309: RAISE OKE_API.G_EXCEPTION_ERROR;
310:
311: END IF;
312:
313: OKE_FUNDSOURCE_PVT.fetch_create_funding(p_init_msg_list => OKE_API.G_FALSE ,
314: p_api_version => p_api_version ,
315: p_msg_count => x_msg_count ,
316: p_msg_data => x_msg_data ,
317: p_commit => OKE_API.G_FALSE ,
313: OKE_FUNDSOURCE_PVT.fetch_create_funding(p_init_msg_list => OKE_API.G_FALSE ,
314: p_api_version => p_api_version ,
315: p_msg_count => x_msg_count ,
316: p_msg_data => x_msg_data ,
317: p_commit => OKE_API.G_FALSE ,
318: p_pool_party_id => p_pool_party_id ,
319: p_party_id => p_party_id ,
320: --p_source_currency => p_source_currency ,
321: p_agreement_id => p_agreement_id ,
329: p_funding_source_id => x_funding_source_id ,
330: p_return_status => x_return_status
331: );
332:
333: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
334:
335: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
336:
337: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
331: );
332:
333: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
334:
335: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
336:
337: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
338:
339: RAISE OKE_API.G_EXCEPTION_ERROR;
333: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
334:
335: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
336:
337: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
338:
339: RAISE OKE_API.G_EXCEPTION_ERROR;
340:
341: END IF;
335: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
336:
337: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
338:
339: RAISE OKE_API.G_EXCEPTION_ERROR;
340:
341: END IF;
342:
343: IF FND_API.to_boolean(p_commit) THEN
345: COMMIT WORK;
346:
347: END IF;
348:
349: OKE_API.END_ACTIVITY(x_msg_count => x_msg_count ,
350: x_msg_data => x_msg_data
351: );
352:
353: EXCEPTION
350: x_msg_data => x_msg_data
351: );
352:
353: EXCEPTION
354: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
355: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
356: p_pkg_name => G_PKG_NAME ,
357: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
358: x_msg_count => x_msg_count ,
351: );
352:
353: EXCEPTION
354: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
355: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
356: p_pkg_name => G_PKG_NAME ,
357: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
358: x_msg_count => x_msg_count ,
359: x_msg_data => x_msg_data ,
353: EXCEPTION
354: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
355: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
356: p_pkg_name => G_PKG_NAME ,
357: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
358: x_msg_count => x_msg_count ,
359: x_msg_data => x_msg_data ,
360: p_api_type => '_PUB'
361: );
359: x_msg_data => x_msg_data ,
360: p_api_type => '_PUB'
361: );
362:
363: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
364: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
365: p_pkg_name => G_PKG_NAME ,
366: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
367: x_msg_count => x_msg_count ,
360: p_api_type => '_PUB'
361: );
362:
363: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
364: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
365: p_pkg_name => G_PKG_NAME ,
366: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
367: x_msg_count => x_msg_count ,
368: x_msg_data => x_msg_data ,
362:
363: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
364: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
365: p_pkg_name => G_PKG_NAME ,
366: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
367: x_msg_count => x_msg_count ,
368: x_msg_data => x_msg_data ,
369: p_api_type => '_PUB'
370: );
369: p_api_type => '_PUB'
370: );
371:
372: WHEN OTHERS THEN
373: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
374: p_pkg_name => G_PKG_NAME ,
375: p_exc_name => 'OTHERS' ,
376: x_msg_count => x_msg_count ,
377: x_msg_data => x_msg_data ,
385: -- Procedure: create_funding
386: --
387: -- Description: This procedure is used to create contract funding and pa agreement
388: --
389: -- Calling subprograms: OKE_API.start_activity
390: -- OKE_API.end_activity
391: -- OKE_FUNDSOURCE_PVT.create_funding
392: -- OKE_ALLOCATION_PVT.add_allocation
393: -- OKE_FUNDSOURCE_PVT.update_funding
386: --
387: -- Description: This procedure is used to create contract funding and pa agreement
388: --
389: -- Calling subprograms: OKE_API.start_activity
390: -- OKE_API.end_activity
391: -- OKE_FUNDSOURCE_PVT.create_funding
392: -- OKE_ALLOCATION_PVT.add_allocation
393: -- OKE_FUNDSOURCE_PVT.update_funding
394: -- OKE_AGREEMENT_PVT.create_agreement
394: -- OKE_AGREEMENT_PVT.create_agreement
395: --
396:
397: PROCEDURE create_funding(p_api_version IN NUMBER ,
398: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
399: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
400: x_return_status OUT NOCOPY VARCHAR2 ,
401: x_msg_count OUT NOCOPY NUMBER ,
402: x_msg_data OUT NOCOPY VARCHAR2 ,
395: --
396:
397: PROCEDURE create_funding(p_api_version IN NUMBER ,
398: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
399: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
400: x_return_status OUT NOCOPY VARCHAR2 ,
401: x_msg_count OUT NOCOPY NUMBER ,
402: x_msg_data OUT NOCOPY VARCHAR2 ,
403: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
399: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
400: x_return_status OUT NOCOPY VARCHAR2 ,
401: x_msg_count OUT NOCOPY NUMBER ,
402: x_msg_data OUT NOCOPY VARCHAR2 ,
403: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
404: p_agreement_type IN VARCHAR2 ,
405: p_funding_in_rec IN FUNDING_REC_IN_TYPE ,
406: x_funding_out_rec OUT NOCOPY FUNDING_REC_OUT_TYPE ,
407: p_allocation_in_tbl IN ALLOCATION_IN_TBL_TYPE ,
419:
420: --dbms_output.put_line('entering oke_funding_pub.create_funding');
421: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.create_funding');
422:
423: x_return_status := OKE_API.G_RET_STS_SUCCESS;
424: x_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
425:
426: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
427: p_pkg_name => G_PKG_NAME ,
420: --dbms_output.put_line('entering oke_funding_pub.create_funding');
421: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.create_funding');
422:
423: x_return_status := OKE_API.G_RET_STS_SUCCESS;
424: x_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
425:
426: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
427: p_pkg_name => G_PKG_NAME ,
428: p_init_msg_list => p_init_msg_list ,
422:
423: x_return_status := OKE_API.G_RET_STS_SUCCESS;
424: x_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
425:
426: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
427: p_pkg_name => G_PKG_NAME ,
428: p_init_msg_list => p_init_msg_list ,
429: l_api_version => G_API_VERSION_NUMBER ,
430: p_api_version => p_api_version ,
431: p_api_type => '_PUB' ,
432: x_return_status => x_return_status
433: );
434:
435: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
436:
437: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
438:
439: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
433: );
434:
435: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
436:
437: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
438:
439: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
440:
441: RAISE OKE_API.G_EXCEPTION_ERROR;
435: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
436:
437: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
438:
439: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
440:
441: RAISE OKE_API.G_EXCEPTION_ERROR;
442:
443: END IF;
437: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
438:
439: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
440:
441: RAISE OKE_API.G_EXCEPTION_ERROR;
442:
443: END IF;
444:
445: --
449: --dbms_output.put_line('calling oke_fundsource_pvt.create_funding from oke_funding_pub');
450: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_fundsource_pvt.create_funding from oke_funding_pub');
451:
452: OKE_FUNDSOURCE_PVT.create_funding(p_api_version => p_api_version ,
453: p_init_msg_list => OKE_API.G_FALSE ,
454: p_commit => OKE_API.G_FALSE ,
455: p_msg_count => x_msg_count ,
456: p_msg_data => x_msg_data ,
457: p_funding_in_rec => p_funding_in_rec ,
450: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_fundsource_pvt.create_funding from oke_funding_pub');
451:
452: OKE_FUNDSOURCE_PVT.create_funding(p_api_version => p_api_version ,
453: p_init_msg_list => OKE_API.G_FALSE ,
454: p_commit => OKE_API.G_FALSE ,
455: p_msg_count => x_msg_count ,
456: p_msg_data => x_msg_data ,
457: p_funding_in_rec => p_funding_in_rec ,
458: p_funding_out_rec => x_funding_out_rec ,
458: p_funding_out_rec => x_funding_out_rec ,
459: p_return_status => x_return_status
460: );
461:
462: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
463:
464: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465:
466: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
460: );
461:
462: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
463:
464: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465:
466: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
467:
468: RAISE OKE_API.G_EXCEPTION_ERROR;
462: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
463:
464: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465:
466: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
467:
468: RAISE OKE_API.G_EXCEPTION_ERROR;
469:
470: END IF;
464: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465:
466: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
467:
468: RAISE OKE_API.G_EXCEPTION_ERROR;
469:
470: END IF;
471:
472: l_funding_in_rec := p_funding_in_rec;
488: l_allocation_in_rec := p_allocation_in_tbl(i);
489: l_allocation_in_rec.funding_source_id := x_funding_out_rec.funding_source_id;
490:
491: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
492: p_init_msg_list => OKE_API.G_FALSE ,
493: p_commit => OKE_API.G_FALSE ,
494: p_return_status => x_return_status ,
495: p_msg_count => x_msg_count ,
496: p_msg_data => x_msg_data ,
489: l_allocation_in_rec.funding_source_id := x_funding_out_rec.funding_source_id;
490:
491: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
492: p_init_msg_list => OKE_API.G_FALSE ,
493: p_commit => OKE_API.G_FALSE ,
494: p_return_status => x_return_status ,
495: p_msg_count => x_msg_count ,
496: p_msg_data => x_msg_data ,
497: p_allocation_in_rec => l_allocation_in_rec ,
495: p_msg_count => x_msg_count ,
496: p_msg_data => x_msg_data ,
497: p_allocation_in_rec => l_allocation_in_rec ,
498: p_allocation_out_rec => l_allocation_out_rec ,
499: p_validation_flag => OKE_API.G_FALSE
500: );
501:
502: x_allocation_out_tbl(i) := l_allocation_out_rec;
503:
500: );
501:
502: x_allocation_out_tbl(i) := l_allocation_out_rec;
503:
504: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
505:
506: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
507:
508: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
502: x_allocation_out_tbl(i) := l_allocation_out_rec;
503:
504: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
505:
506: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
507:
508: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
509:
510: RAISE OKE_API.G_EXCEPTION_ERROR;
504: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
505:
506: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
507:
508: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
509:
510: RAISE OKE_API.G_EXCEPTION_ERROR;
511:
512: END IF;
506: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
507:
508: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
509:
510: RAISE OKE_API.G_EXCEPTION_ERROR;
511:
512: END IF;
513:
514: EXIT WHEN (i = p_allocation_in_tbl.LAST);
522: -- Call OKE_FUNDSOURCE_PVT.update_funding to validate the entire funding record
523: --
524:
525: OKE_FUNDSOURCE_PVT.update_funding(p_api_version => p_api_version ,
526: p_init_msg_list => OKE_API.G_FALSE ,
527: p_commit => OKE_API.G_FALSE ,
528: p_msg_count => x_msg_count ,
529: p_msg_data => x_msg_data ,
530: p_funding_in_rec => l_funding_in_rec ,
523: --
524:
525: OKE_FUNDSOURCE_PVT.update_funding(p_api_version => p_api_version ,
526: p_init_msg_list => OKE_API.G_FALSE ,
527: p_commit => OKE_API.G_FALSE ,
528: p_msg_count => x_msg_count ,
529: p_msg_data => x_msg_data ,
530: p_funding_in_rec => l_funding_in_rec ,
531: p_funding_out_rec => x_funding_out_rec ,
531: p_funding_out_rec => x_funding_out_rec ,
532: p_return_status => x_return_status
533: );
534:
535: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
536:
537: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
538:
539: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
533: );
534:
535: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
536:
537: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
538:
539: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
540:
541: RAISE OKE_API.G_EXCEPTION_ERROR;
535: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
536:
537: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
538:
539: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
540:
541: RAISE OKE_API.G_EXCEPTION_ERROR;
542:
543: END IF;
537: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
538:
539: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
540:
541: RAISE OKE_API.G_EXCEPTION_ERROR;
542:
543: END IF;
544:
545: --
551: --dbms_output.put_line('calling oke_agreement_pvt.create_agreement');
552: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.create_agreement');
553:
554: OKE_AGREEMENT_PVT.create_agreement(p_api_version => G_API_VERSION_NUMBER ,
555: p_init_msg_list => OKE_API.G_FALSE ,
556: p_commit => OKE_API.G_FALSE ,
557: p_msg_count => x_msg_count ,
558: p_msg_data => x_msg_data ,
559: p_agreement_type => p_agreement_type ,
552: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.create_agreement');
553:
554: OKE_AGREEMENT_PVT.create_agreement(p_api_version => G_API_VERSION_NUMBER ,
555: p_init_msg_list => OKE_API.G_FALSE ,
556: p_commit => OKE_API.G_FALSE ,
557: p_msg_count => x_msg_count ,
558: p_msg_data => x_msg_data ,
559: p_agreement_type => p_agreement_type ,
560: p_funding_in_rec => l_funding_in_rec ,
561: -- p_allocation_in_tbl => p_allocation_in_tbl ,
562: p_return_status => x_return_status
563: );
564:
565: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
566:
567: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568:
569: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
563: );
564:
565: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
566:
567: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568:
569: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
570:
571: RAISE OKE_API.G_EXCEPTION_ERROR;
565: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
566:
567: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568:
569: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
570:
571: RAISE OKE_API.G_EXCEPTION_ERROR;
572:
573: END IF;
567: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568:
569: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
570:
571: RAISE OKE_API.G_EXCEPTION_ERROR;
572:
573: END IF;
574:
575: END IF;
582:
583: --dbms_output.put_line('finished oke_funding_pub.create_funding w/ ' || x_return_status);
584: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished oke_funding_pub.create_funding w/ ' || x_return_status);
585:
586: OKE_API.END_ACTIVITY(x_msg_count => x_msg_count ,
587: x_msg_data => x_msg_data
588: );
589:
590: EXCEPTION
587: x_msg_data => x_msg_data
588: );
589:
590: EXCEPTION
591: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
592: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
593: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
594: p_pkg_name => G_PKG_NAME ,
595: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
588: );
589:
590: EXCEPTION
591: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
592: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
593: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
594: p_pkg_name => G_PKG_NAME ,
595: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
596: x_msg_count => x_msg_count ,
589:
590: EXCEPTION
591: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
592: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
593: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
594: p_pkg_name => G_PKG_NAME ,
595: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
596: x_msg_count => x_msg_count ,
597: x_msg_data => x_msg_data ,
591: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
592: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
593: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
594: p_pkg_name => G_PKG_NAME ,
595: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
596: x_msg_count => x_msg_count ,
597: x_msg_data => x_msg_data ,
598: p_api_type => '_PUB'
599: );
597: x_msg_data => x_msg_data ,
598: p_api_type => '_PUB'
599: );
600:
601: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
602: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
603: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
604: p_pkg_name => G_PKG_NAME ,
605: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
598: p_api_type => '_PUB'
599: );
600:
601: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
602: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
603: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
604: p_pkg_name => G_PKG_NAME ,
605: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
606: x_msg_count => x_msg_count ,
599: );
600:
601: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
602: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
603: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
604: p_pkg_name => G_PKG_NAME ,
605: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
606: x_msg_count => x_msg_count ,
607: x_msg_data => x_msg_data ,
601: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
602: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
603: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
604: p_pkg_name => G_PKG_NAME ,
605: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
606: x_msg_count => x_msg_count ,
607: x_msg_data => x_msg_data ,
608: p_api_type => '_PUB'
609: );
608: p_api_type => '_PUB'
609: );
610:
611: WHEN OTHERS THEN
612: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
613: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
614: p_pkg_name => G_PKG_NAME ,
615: p_exc_name => 'OTHERS' ,
616: x_msg_count => x_msg_count ,
609: );
610:
611: WHEN OTHERS THEN
612: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
613: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
614: p_pkg_name => G_PKG_NAME ,
615: p_exc_name => 'OTHERS' ,
616: x_msg_count => x_msg_count ,
617: x_msg_data => x_msg_data ,
625: -- Procedure: update_funding
626: --
627: -- Description: This procedure is used to update contract funding and pa agreement
628: --
629: -- Calling subprograms: OKE_API.start_activity
630: -- OKE_API.end_activity
631: -- OKE_FUNDSOURCE_PVT.update_funding
632: -- OKE_API.set_message
633: -- OKE_AGREEMENT_PVT.update_agreement
626: --
627: -- Description: This procedure is used to update contract funding and pa agreement
628: --
629: -- Calling subprograms: OKE_API.start_activity
630: -- OKE_API.end_activity
631: -- OKE_FUNDSOURCE_PVT.update_funding
632: -- OKE_API.set_message
633: -- OKE_AGREEMENT_PVT.update_agreement
634: -- OKE_AGREEMENT_PVT.create_agreement
628: --
629: -- Calling subprograms: OKE_API.start_activity
630: -- OKE_API.end_activity
631: -- OKE_FUNDSOURCE_PVT.update_funding
632: -- OKE_API.set_message
633: -- OKE_AGREEMENT_PVT.update_agreement
634: -- OKE_AGREEMENT_PVT.create_agreement
635: -- OKE_FUNDING_UTIL_PKG.check_agreement_exist
636: -- check_update_add
638: -- OKE_ALLOCATION_PVT.update_allocation
639: --
640:
641: PROCEDURE update_funding(p_api_version IN NUMBER ,
642: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
643: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
644: x_return_status OUT NOCOPY VARCHAR2 ,
645: x_msg_count OUT NOCOPY NUMBER ,
646: x_msg_data OUT NOCOPY VARCHAR2 ,
639: --
640:
641: PROCEDURE update_funding(p_api_version IN NUMBER ,
642: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
643: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
644: x_return_status OUT NOCOPY VARCHAR2 ,
645: x_msg_count OUT NOCOPY NUMBER ,
646: x_msg_data OUT NOCOPY VARCHAR2 ,
647: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
643: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
644: x_return_status OUT NOCOPY VARCHAR2 ,
645: x_msg_count OUT NOCOPY NUMBER ,
646: x_msg_data OUT NOCOPY VARCHAR2 ,
647: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
648: p_agreement_type IN VARCHAR2 ,
649: p_funding_in_rec IN FUNDING_REC_IN_TYPE ,
650: x_funding_out_rec OUT NOCOPY FUNDING_REC_OUT_TYPE ,
651: p_allocation_in_tbl IN ALLOCATION_IN_TBL_TYPE ,
664: --dbms_output.put_line('entering oke_funding_pub.update_funding');
665: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.update_funding');
666:
667: x_return_status := FND_API.G_RET_STS_SUCCESS;
668: x_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
669:
670: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
671: p_pkg_name => G_PKG_NAME ,
672: p_init_msg_list => p_init_msg_list ,
666:
667: x_return_status := FND_API.G_RET_STS_SUCCESS;
668: x_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
669:
670: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
671: p_pkg_name => G_PKG_NAME ,
672: p_init_msg_list => p_init_msg_list ,
673: l_api_version => G_API_VERSION_NUMBER ,
674: p_api_version => p_api_version ,
675: p_api_type => '_PUB' ,
676: x_return_status => x_return_status
677: );
678:
679: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
680:
681: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
682:
683: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
677: );
678:
679: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
680:
681: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
682:
683: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
684:
685: RAISE OKE_API.G_EXCEPTION_ERROR;
679: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
680:
681: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
682:
683: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
684:
685: RAISE OKE_API.G_EXCEPTION_ERROR;
686:
687: END IF;
681: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
682:
683: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
684:
685: RAISE OKE_API.G_EXCEPTION_ERROR;
686:
687: END IF;
688:
689: --
706: --
707:
708: IF (l_allocation_in_rec.funding_source_id <> p_funding_in_rec.funding_source_id) THEN
709:
710: OKE_API.set_message(p_app_name => G_APP_NAME ,
711: p_msg_name => 'OKE_API_INVALID_VALUE' ,
712: p_token1 => 'VALUE' ,
713: p_token1_value => 'allocation.funding_source_id'
714: );
707:
708: IF (l_allocation_in_rec.funding_source_id <> p_funding_in_rec.funding_source_id) THEN
709:
710: OKE_API.set_message(p_app_name => G_APP_NAME ,
711: p_msg_name => 'OKE_API_INVALID_VALUE' ,
712: p_token1 => 'VALUE' ,
713: p_token1_value => 'allocation.funding_source_id'
714: );
715:
719:
720: IF (check_update_add(p_fund_allocation_id => l_allocation_in_rec.fund_allocation_id)) THEN
721:
722: OKE_ALLOCATION_PVT.update_allocation(p_api_version => p_api_version ,
723: p_init_msg_list => OKE_API.G_FALSE ,
724: p_commit => OKE_API.G_FALSE ,
725: p_return_status => x_return_status ,
726: p_msg_count => x_msg_count ,
727: p_msg_data => x_msg_data ,
720: IF (check_update_add(p_fund_allocation_id => l_allocation_in_rec.fund_allocation_id)) THEN
721:
722: OKE_ALLOCATION_PVT.update_allocation(p_api_version => p_api_version ,
723: p_init_msg_list => OKE_API.G_FALSE ,
724: p_commit => OKE_API.G_FALSE ,
725: p_return_status => x_return_status ,
726: p_msg_count => x_msg_count ,
727: p_msg_data => x_msg_data ,
728: p_allocation_in_rec => l_allocation_in_rec ,
726: p_msg_count => x_msg_count ,
727: p_msg_data => x_msg_data ,
728: p_allocation_in_rec => l_allocation_in_rec ,
729: p_allocation_out_rec => l_allocation_out_rec ,
730: p_validation_flag => OKE_API.G_FALSE
731: );
732:
733: ELSE
734:
732:
733: ELSE
734:
735: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
736: p_init_msg_list => OKE_API.G_FALSE ,
737: p_commit => OKE_API.G_FALSE ,
738: p_return_status => x_return_status ,
739: p_msg_count => x_msg_count ,
740: p_msg_data => x_msg_data ,
733: ELSE
734:
735: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
736: p_init_msg_list => OKE_API.G_FALSE ,
737: p_commit => OKE_API.G_FALSE ,
738: p_return_status => x_return_status ,
739: p_msg_count => x_msg_count ,
740: p_msg_data => x_msg_data ,
741: p_validation_flag => OKE_API.G_FALSE ,
737: p_commit => OKE_API.G_FALSE ,
738: p_return_status => x_return_status ,
739: p_msg_count => x_msg_count ,
740: p_msg_data => x_msg_data ,
741: p_validation_flag => OKE_API.G_FALSE ,
742: p_allocation_in_rec => l_allocation_in_rec ,
743: p_allocation_out_rec => l_allocation_out_rec
744: );
745:
746: END IF;
747:
748: x_allocation_out_tbl(i) := l_allocation_out_rec;
749:
750: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
751:
752: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
753:
754: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
748: x_allocation_out_tbl(i) := l_allocation_out_rec;
749:
750: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
751:
752: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
753:
754: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
755:
756: RAISE OKE_API.G_EXCEPTION_ERROR;
750: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
751:
752: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
753:
754: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
755:
756: RAISE OKE_API.G_EXCEPTION_ERROR;
757:
758: END IF;
752: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
753:
754: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
755:
756: RAISE OKE_API.G_EXCEPTION_ERROR;
757:
758: END IF;
759:
760: EXIT WHEN (i = p_allocation_in_tbl.LAST);
771: --dbms_output.put_line('calling oke_fundsource_pvt.update_funding');
772: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_fundsource_pvt.update_funding');
773:
774: OKE_FUNDSOURCE_PVT.update_funding(p_api_version => p_api_version ,
775: p_init_msg_list => OKE_API.G_FALSE ,
776: p_commit => OKE_API.G_FALSE ,
777: p_msg_count => x_msg_count ,
778: p_msg_data => x_msg_data ,
779: p_funding_in_rec => p_funding_in_rec ,
772: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_fundsource_pvt.update_funding');
773:
774: OKE_FUNDSOURCE_PVT.update_funding(p_api_version => p_api_version ,
775: p_init_msg_list => OKE_API.G_FALSE ,
776: p_commit => OKE_API.G_FALSE ,
777: p_msg_count => x_msg_count ,
778: p_msg_data => x_msg_data ,
779: p_funding_in_rec => p_funding_in_rec ,
780: p_funding_out_rec => x_funding_out_rec ,
779: p_funding_in_rec => p_funding_in_rec ,
780: p_funding_out_rec => x_funding_out_rec ,
781: p_return_status => x_return_status );
782:
783: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
784:
785: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
786:
787: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
781: p_return_status => x_return_status );
782:
783: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
784:
785: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
786:
787: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
788:
789: RAISE OKE_API.G_EXCEPTION_ERROR;
783: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
784:
785: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
786:
787: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
788:
789: RAISE OKE_API.G_EXCEPTION_ERROR;
790:
791: END IF;
785: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
786:
787: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
788:
789: RAISE OKE_API.G_EXCEPTION_ERROR;
790:
791: END IF;
792:
793: --
804: --dbms_output.put_line('calling oke_agreement_pvt.update_agreement');
805: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.update_agreement');
806:
807: OKE_AGREEMENT_PVT.update_agreement(p_api_version => p_api_version ,
808: p_init_msg_list => OKE_API.G_FALSE ,
809: p_commit => OKE_API.G_FALSE ,
810: p_msg_count => x_msg_count ,
811: p_msg_data => x_msg_data ,
812: p_agreement_type => p_agreement_type ,
805: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.update_agreement');
806:
807: OKE_AGREEMENT_PVT.update_agreement(p_api_version => p_api_version ,
808: p_init_msg_list => OKE_API.G_FALSE ,
809: p_commit => OKE_API.G_FALSE ,
810: p_msg_count => x_msg_count ,
811: p_msg_data => x_msg_data ,
812: p_agreement_type => p_agreement_type ,
813: p_funding_in_rec => p_funding_in_rec ,
820: --dbms_output.put_line('calling oke_agreement_pvt.create_agreement');
821: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.create_agreement');
822:
823: OKE_AGREEMENT_PVT.create_agreement(p_api_version => p_api_version ,
824: p_init_msg_list => OKE_API.G_FALSE ,
825: p_commit => OKE_API.G_FALSE ,
826: p_msg_count => x_msg_count ,
827: p_msg_data => x_msg_data ,
828: p_agreement_type => p_agreement_type ,
821: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.create_agreement');
822:
823: OKE_AGREEMENT_PVT.create_agreement(p_api_version => p_api_version ,
824: p_init_msg_list => OKE_API.G_FALSE ,
825: p_commit => OKE_API.G_FALSE ,
826: p_msg_count => x_msg_count ,
827: p_msg_data => x_msg_data ,
828: p_agreement_type => p_agreement_type ,
829: p_funding_in_rec => p_funding_in_rec ,
832: );
833:
834: END IF;
835:
836: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
837:
838: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
839:
840: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
834: END IF;
835:
836: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
837:
838: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
839:
840: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
841:
842: RAISE OKE_API.G_EXCEPTION_ERROR;
836: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
837:
838: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
839:
840: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
841:
842: RAISE OKE_API.G_EXCEPTION_ERROR;
843:
844: END IF;
838: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
839:
840: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
841:
842: RAISE OKE_API.G_EXCEPTION_ERROR;
843:
844: END IF;
845:
846: END IF;
853:
854: --dbms_output.put_line('finished oke_funding_pub.create_funding w/ ' || x_return_status);
855: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished oke_funding_pub.create_funding w/ ' || x_return_status);
856:
857: OKE_API.END_ACTIVITY(x_msg_count => x_msg_count ,
858: x_msg_data => x_msg_data
859: );
860:
861: EXCEPTION
858: x_msg_data => x_msg_data
859: );
860:
861: EXCEPTION
862: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
863: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
864: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
865: p_pkg_name => G_PKG_NAME ,
866: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
859: );
860:
861: EXCEPTION
862: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
863: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
864: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
865: p_pkg_name => G_PKG_NAME ,
866: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
867: x_msg_count => x_msg_count ,
860:
861: EXCEPTION
862: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
863: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
864: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
865: p_pkg_name => G_PKG_NAME ,
866: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
867: x_msg_count => x_msg_count ,
868: x_msg_data => x_msg_data ,
862: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
863: x_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
864: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
865: p_pkg_name => G_PKG_NAME ,
866: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
867: x_msg_count => x_msg_count ,
868: x_msg_data => x_msg_data ,
869: p_api_type => '_PUB'
870: );
868: x_msg_data => x_msg_data ,
869: p_api_type => '_PUB'
870: );
871:
872: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
873: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
874: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
875: p_pkg_name => G_PKG_NAME ,
876: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
869: p_api_type => '_PUB'
870: );
871:
872: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
873: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
874: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
875: p_pkg_name => G_PKG_NAME ,
876: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
877: x_msg_count => x_msg_count ,
870: );
871:
872: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
873: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
874: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
875: p_pkg_name => G_PKG_NAME ,
876: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
877: x_msg_count => x_msg_count ,
878: x_msg_data => x_msg_data ,
872: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
873: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
874: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
875: p_pkg_name => G_PKG_NAME ,
876: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
877: x_msg_count => x_msg_count ,
878: x_msg_data => x_msg_data ,
879: p_api_type => '_PUB'
880: );
879: p_api_type => '_PUB'
880: );
881:
882: WHEN OTHERS THEN
883: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
884: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
885: p_pkg_name => G_PKG_NAME ,
886: p_exc_name => 'OTHERS' ,
887: x_msg_count => x_msg_count ,
880: );
881:
882: WHEN OTHERS THEN
883: x_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
884: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
885: p_pkg_name => G_PKG_NAME ,
886: p_exc_name => 'OTHERS' ,
887: x_msg_count => x_msg_count ,
888: x_msg_data => x_msg_data ,
895: -- Procedure: delete_funding
896: --
897: -- Description: This procedure is used to delete contract funding and pa agreement
898: --
899: -- Calling subprograms: OKE_API.start_activity
900: -- OKE_API.end_activity
901: -- OKE_FUNDSOURCE_PVT.delete_funding
902: -- OKE_FUNDING_PUB.delete_allocation
903: --
896: --
897: -- Description: This procedure is used to delete contract funding and pa agreement
898: --
899: -- Calling subprograms: OKE_API.start_activity
900: -- OKE_API.end_activity
901: -- OKE_FUNDSOURCE_PVT.delete_funding
902: -- OKE_FUNDING_PUB.delete_allocation
903: --
904:
902: -- OKE_FUNDING_PUB.delete_allocation
903: --
904:
905: PROCEDURE delete_funding(p_api_version IN NUMBER ,
906: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
907: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
908: x_return_status OUT NOCOPY VARCHAR2 ,
909: x_msg_count OUT NOCOPY NUMBER ,
910: x_msg_data OUT NOCOPY VARCHAR2 ,
903: --
904:
905: PROCEDURE delete_funding(p_api_version IN NUMBER ,
906: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
907: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
908: x_return_status OUT NOCOPY VARCHAR2 ,
909: x_msg_count OUT NOCOPY NUMBER ,
910: x_msg_data OUT NOCOPY VARCHAR2 ,
911: p_funding_source_id IN NUMBER
908: x_return_status OUT NOCOPY VARCHAR2 ,
909: x_msg_count OUT NOCOPY NUMBER ,
910: x_msg_data OUT NOCOPY VARCHAR2 ,
911: p_funding_source_id IN NUMBER
912: -- p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE
913: ) is
914:
915: -- l_length NUMBER;
916: -- l_temp_val VARCHAR2(1) :='?';
929:
930: --dbms_output.put_line('entering oke_funding_pub.delete_funding');
931: -- --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.delete_funding');
932:
933: x_return_status := OKE_API.G_RET_STS_SUCCESS;
934:
935: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
936: p_pkg_name => G_PKG_NAME ,
937: p_init_msg_list => p_init_msg_list ,
931: -- --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.delete_funding');
932:
933: x_return_status := OKE_API.G_RET_STS_SUCCESS;
934:
935: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
936: p_pkg_name => G_PKG_NAME ,
937: p_init_msg_list => p_init_msg_list ,
938: l_api_version => G_API_VERSION_NUMBER ,
939: p_api_version => p_api_version ,
940: p_api_type => '_PUB' ,
941: x_return_status => x_return_status
942: );
943:
944: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
945:
946: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
947:
948: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
942: );
943:
944: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
945:
946: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
947:
948: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
949:
950: RAISE OKE_API.G_EXCEPTION_ERROR;
944: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
945:
946: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
947:
948: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
949:
950: RAISE OKE_API.G_EXCEPTION_ERROR;
951:
952: END IF;
946: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
947:
948: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
949:
950: RAISE OKE_API.G_EXCEPTION_ERROR;
951:
952: END IF;
953:
954: --
960:
961: FOR l_allocation_id IN c_fund_allocation_id(p_funding_source_id) LOOP
962:
963: OKE_ALLOCATION_PVT.delete_allocation(p_api_version => p_api_version ,
964: p_init_msg_list => OKE_API.G_FALSE ,
965: p_commit => OKE_API.G_FALSE ,
966: p_return_status => x_return_status ,
967: p_msg_count => x_msg_count ,
968: p_msg_data => x_msg_data ,
961: FOR l_allocation_id IN c_fund_allocation_id(p_funding_source_id) LOOP
962:
963: OKE_ALLOCATION_PVT.delete_allocation(p_api_version => p_api_version ,
964: p_init_msg_list => OKE_API.G_FALSE ,
965: p_commit => OKE_API.G_FALSE ,
966: p_return_status => x_return_status ,
967: p_msg_count => x_msg_count ,
968: p_msg_data => x_msg_data ,
969: p_fund_allocation_id => l_allocation_id.fund_allocation_id
968: p_msg_data => x_msg_data ,
969: p_fund_allocation_id => l_allocation_id.fund_allocation_id
970: );
971:
972: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
973:
974: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
975:
976: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
970: );
971:
972: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
973:
974: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
975:
976: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
977:
978: RAISE OKE_API.G_EXCEPTION_ERROR;
972: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
973:
974: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
975:
976: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
977:
978: RAISE OKE_API.G_EXCEPTION_ERROR;
979:
980: END IF;
974: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
975:
976: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
977:
978: RAISE OKE_API.G_EXCEPTION_ERROR;
979:
980: END IF;
981:
982: END LOOP;
991: --dbms_output.put_line('calling oke_fundsource_pvt.delete_funding');
992: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_fundsource_pvt.delete_funding');
993:
994: OKE_FUNDSOURCE_PVT.delete_funding(p_api_version => p_api_version ,
995: p_commit => OKE_API.G_FALSE ,
996: p_init_msg_list => OKE_API.G_FALSE ,
997: p_msg_count => x_msg_count ,
998: p_msg_data => x_msg_data ,
999: p_funding_source_id => p_funding_source_id ,
992: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_fundsource_pvt.delete_funding');
993:
994: OKE_FUNDSOURCE_PVT.delete_funding(p_api_version => p_api_version ,
995: p_commit => OKE_API.G_FALSE ,
996: p_init_msg_list => OKE_API.G_FALSE ,
997: p_msg_count => x_msg_count ,
998: p_msg_data => x_msg_data ,
999: p_funding_source_id => p_funding_source_id ,
1000: -- p_agreement_flag => p_agreement_flag ,
1000: -- p_agreement_flag => p_agreement_flag ,
1001: p_return_status => x_return_status
1002: );
1003:
1004: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1005:
1006: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1007:
1008: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1002: );
1003:
1004: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1005:
1006: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1007:
1008: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1009:
1010: RAISE OKE_API.G_EXCEPTION_ERROR;
1004: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1005:
1006: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1007:
1008: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1009:
1010: RAISE OKE_API.G_EXCEPTION_ERROR;
1011:
1012: END IF;
1006: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1007:
1008: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1009:
1010: RAISE OKE_API.G_EXCEPTION_ERROR;
1011:
1012: END IF;
1013:
1014: --dbms_output.put_line('finished oke_funding_pub.delete_funding w/ ' || x_return_status);
1019: COMMIT WORK;
1020:
1021: END IF;
1022:
1023: OKE_API.END_ACTIVITY(x_msg_count => x_msg_count ,
1024: x_msg_data => x_msg_data
1025: );
1026:
1027: EXCEPTION
1024: x_msg_data => x_msg_data
1025: );
1026:
1027: EXCEPTION
1028: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1029: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1030: p_pkg_name => G_PKG_NAME ,
1031: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1032: x_msg_count => x_msg_count ,
1025: );
1026:
1027: EXCEPTION
1028: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1029: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1030: p_pkg_name => G_PKG_NAME ,
1031: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1032: x_msg_count => x_msg_count ,
1033: x_msg_data => x_msg_data ,
1027: EXCEPTION
1028: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1029: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1030: p_pkg_name => G_PKG_NAME ,
1031: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1032: x_msg_count => x_msg_count ,
1033: x_msg_data => x_msg_data ,
1034: p_api_type => '_PUB'
1035: );
1033: x_msg_data => x_msg_data ,
1034: p_api_type => '_PUB'
1035: );
1036:
1037: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1038: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1039: p_pkg_name => G_PKG_NAME ,
1040: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1041: x_msg_count => x_msg_count ,
1034: p_api_type => '_PUB'
1035: );
1036:
1037: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1038: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1039: p_pkg_name => G_PKG_NAME ,
1040: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1041: x_msg_count => x_msg_count ,
1042: x_msg_data => x_msg_data ,
1036:
1037: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1038: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1039: p_pkg_name => G_PKG_NAME ,
1040: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1041: x_msg_count => x_msg_count ,
1042: x_msg_data => x_msg_data ,
1043: p_api_type => '_PUB'
1044: );
1043: p_api_type => '_PUB'
1044: );
1045:
1046: WHEN OTHERS THEN
1047: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1048: p_pkg_name => G_PKG_NAME ,
1049: p_exc_name => 'OTHERS' ,
1050: x_msg_count => x_msg_count ,
1051: x_msg_data => x_msg_data ,
1059: -- Procedure: add_allocation
1060: --
1061: -- Description: This procedure is used to create funding allocation and update/add pa funding
1062: --
1063: -- Calling subprograms: OKE_API.start_activity
1064: -- OKE_API.end_activity
1065: -- OKE_ALLOCATION_PVT.add_allocation
1066: -- OKE_AGREEMENT_PVT.add_pa_funding
1067: --
1060: --
1061: -- Description: This procedure is used to create funding allocation and update/add pa funding
1062: --
1063: -- Calling subprograms: OKE_API.start_activity
1064: -- OKE_API.end_activity
1065: -- OKE_ALLOCATION_PVT.add_allocation
1066: -- OKE_AGREEMENT_PVT.add_pa_funding
1067: --
1068:
1066: -- OKE_AGREEMENT_PVT.add_pa_funding
1067: --
1068:
1069: PROCEDURE add_allocation(p_api_version IN NUMBER ,
1070: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
1071: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1072: x_return_status OUT NOCOPY VARCHAR2 ,
1073: x_msg_count OUT NOCOPY NUMBER ,
1074: x_msg_data OUT NOCOPY VARCHAR2 ,
1067: --
1068:
1069: PROCEDURE add_allocation(p_api_version IN NUMBER ,
1070: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
1071: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1072: x_return_status OUT NOCOPY VARCHAR2 ,
1073: x_msg_count OUT NOCOPY NUMBER ,
1074: x_msg_data OUT NOCOPY VARCHAR2 ,
1075: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
1071: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1072: x_return_status OUT NOCOPY VARCHAR2 ,
1073: x_msg_count OUT NOCOPY NUMBER ,
1074: x_msg_data OUT NOCOPY VARCHAR2 ,
1075: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
1076: p_allocation_in_rec IN ALLOCATION_REC_IN_TYPE ,
1077: x_allocation_out_rec OUT NOCOPY ALLOCATION_REC_OUT_TYPE
1078: ) is
1079:
1085:
1086: --dbms_output.put_line('entering oke_funding_pub.add_allocation');
1087: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.add_allocation');
1088:
1089: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1090: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
1091:
1092: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1093: p_pkg_name => G_PKG_NAME ,
1086: --dbms_output.put_line('entering oke_funding_pub.add_allocation');
1087: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.add_allocation');
1088:
1089: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1090: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
1091:
1092: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1093: p_pkg_name => G_PKG_NAME ,
1094: p_init_msg_list => p_init_msg_list ,
1088:
1089: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1090: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
1091:
1092: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1093: p_pkg_name => G_PKG_NAME ,
1094: p_init_msg_list => p_init_msg_list ,
1095: l_api_version => G_API_VERSION_NUMBER ,
1096: p_api_version => p_api_version ,
1097: p_api_type => '_PUB' ,
1098: x_return_status => x_return_status
1099: );
1100:
1101: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1102:
1103: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104:
1105: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1099: );
1100:
1101: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1102:
1103: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104:
1105: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1106:
1107: RAISE OKE_API.G_EXCEPTION_ERROR;
1101: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1102:
1103: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104:
1105: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1106:
1107: RAISE OKE_API.G_EXCEPTION_ERROR;
1108:
1109: END IF;
1103: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104:
1105: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1106:
1107: RAISE OKE_API.G_EXCEPTION_ERROR;
1108:
1109: END IF;
1110:
1111: --
1115: --dbms_output.put_line('calling oke_allocation_pvt.add_allocation from oke_funding_pub');
1116: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_allocation_pvt.add_allocation from oke_funding_pub');
1117:
1118: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
1119: p_init_msg_list => OKE_API.G_FALSE ,
1120: p_commit => OKE_API.G_FALSE ,
1121: p_msg_count => x_msg_count ,
1122: p_msg_data => x_msg_data ,
1123: p_allocation_in_rec => p_allocation_in_rec ,
1116: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_allocation_pvt.add_allocation from oke_funding_pub');
1117:
1118: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
1119: p_init_msg_list => OKE_API.G_FALSE ,
1120: p_commit => OKE_API.G_FALSE ,
1121: p_msg_count => x_msg_count ,
1122: p_msg_data => x_msg_data ,
1123: p_allocation_in_rec => p_allocation_in_rec ,
1124: p_allocation_out_rec => x_allocation_out_rec ,
1121: p_msg_count => x_msg_count ,
1122: p_msg_data => x_msg_data ,
1123: p_allocation_in_rec => p_allocation_in_rec ,
1124: p_allocation_out_rec => x_allocation_out_rec ,
1125: p_validation_flag => OKE_API.G_TRUE ,
1126: p_return_status => x_return_status
1127: );
1128:
1129: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1125: p_validation_flag => OKE_API.G_TRUE ,
1126: p_return_status => x_return_status
1127: );
1128:
1129: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1130:
1131: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132:
1133: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1127: );
1128:
1129: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1130:
1131: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132:
1133: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1134:
1135: RAISE OKE_API.G_EXCEPTION_ERROR;
1129: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1130:
1131: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132:
1133: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1134:
1135: RAISE OKE_API.G_EXCEPTION_ERROR;
1136:
1137: END IF;
1131: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132:
1133: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1134:
1135: RAISE OKE_API.G_EXCEPTION_ERROR;
1136:
1137: END IF;
1138:
1139: --
1163: --dbms_output.put_line('calling oke_agreement_pvt.add_pa_funding from oke_funding_pub');
1164: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.add_pa_funding from oke_funding_pub');
1165:
1166: OKE_AGREEMENT_PVT.add_pa_funding(p_api_version => p_api_version ,
1167: p_init_msg_list => OKE_API.G_FALSE ,
1168: p_commit => OKE_API.G_FALSE ,
1169: p_msg_count => x_msg_count ,
1170: p_msg_data => x_msg_data ,
1171: p_allocation_in_rec => l_allocation_in_rec ,
1164: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.add_pa_funding from oke_funding_pub');
1165:
1166: OKE_AGREEMENT_PVT.add_pa_funding(p_api_version => p_api_version ,
1167: p_init_msg_list => OKE_API.G_FALSE ,
1168: p_commit => OKE_API.G_FALSE ,
1169: p_msg_count => x_msg_count ,
1170: p_msg_data => x_msg_data ,
1171: p_allocation_in_rec => l_allocation_in_rec ,
1172: p_return_status => x_return_status
1171: p_allocation_in_rec => l_allocation_in_rec ,
1172: p_return_status => x_return_status
1173: );
1174:
1175: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1176:
1177: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178:
1179: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1173: );
1174:
1175: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1176:
1177: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178:
1179: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1180:
1181: RAISE OKE_API.G_EXCEPTION_ERROR;
1175: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1176:
1177: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178:
1179: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1180:
1181: RAISE OKE_API.G_EXCEPTION_ERROR;
1182:
1183: END IF;
1177: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178:
1179: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1180:
1181: RAISE OKE_API.G_EXCEPTION_ERROR;
1182:
1183: END IF;
1184:
1185: END IF;
1192: COMMIT WORK;
1193:
1194: END IF;
1195:
1196: OKE_API.END_ACTIVITY(x_msg_count => x_msg_count ,
1197: x_msg_data => x_msg_data
1198: );
1199:
1200: EXCEPTION
1197: x_msg_data => x_msg_data
1198: );
1199:
1200: EXCEPTION
1201: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1202: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1203: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1204: p_pkg_name => G_PKG_NAME ,
1205: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1198: );
1199:
1200: EXCEPTION
1201: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1202: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1203: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1204: p_pkg_name => G_PKG_NAME ,
1205: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1206: x_msg_count => x_msg_count ,
1199:
1200: EXCEPTION
1201: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1202: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1203: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1204: p_pkg_name => G_PKG_NAME ,
1205: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1206: x_msg_count => x_msg_count ,
1207: x_msg_data => x_msg_data ,
1201: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1202: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1203: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1204: p_pkg_name => G_PKG_NAME ,
1205: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1206: x_msg_count => x_msg_count ,
1207: x_msg_data => x_msg_data ,
1208: p_api_type => '_PUB'
1209: );
1207: x_msg_data => x_msg_data ,
1208: p_api_type => '_PUB'
1209: );
1210:
1211: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1212: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1214: p_pkg_name => G_PKG_NAME ,
1215: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1208: p_api_type => '_PUB'
1209: );
1210:
1211: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1212: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1214: p_pkg_name => G_PKG_NAME ,
1215: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1216: x_msg_count => x_msg_count ,
1209: );
1210:
1211: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1212: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1214: p_pkg_name => G_PKG_NAME ,
1215: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1216: x_msg_count => x_msg_count ,
1217: x_msg_data => x_msg_data ,
1211: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1212: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1213: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1214: p_pkg_name => G_PKG_NAME ,
1215: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1216: x_msg_count => x_msg_count ,
1217: x_msg_data => x_msg_data ,
1218: p_api_type => '_PUB'
1219: );
1218: p_api_type => '_PUB'
1219: );
1220:
1221: WHEN OTHERS THEN
1222: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1223: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1224: p_pkg_name => G_PKG_NAME ,
1225: p_exc_name => 'OTHERS' ,
1226: x_msg_count => x_msg_count ,
1219: );
1220:
1221: WHEN OTHERS THEN
1222: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1223: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1224: p_pkg_name => G_PKG_NAME ,
1225: p_exc_name => 'OTHERS' ,
1226: x_msg_count => x_msg_count ,
1227: x_msg_data => x_msg_data ,
1234: -- Procedure: update_allocation
1235: --
1236: -- Description: This procedure is used to update contract funding allocation and pa funding line
1237: --
1238: -- Calling subprograms: OKE_API.start_activity
1239: -- OKE_API.end_activity
1240: -- OKE_ALLOCATION_PVT.update_allocation
1241: -- OKE_AGREEMENT_PVT.update_pa_funding
1242: -- OKE_AGREEMENT_PVT.add_pa_funding
1235: --
1236: -- Description: This procedure is used to update contract funding allocation and pa funding line
1237: --
1238: -- Calling subprograms: OKE_API.start_activity
1239: -- OKE_API.end_activity
1240: -- OKE_ALLOCATION_PVT.update_allocation
1241: -- OKE_AGREEMENT_PVT.update_pa_funding
1242: -- OKE_AGREEMENT_PVT.add_pa_funding
1243: -- check_update_add_pa
1243: -- check_update_add_pa
1244: --
1245:
1246: PROCEDURE update_allocation(p_api_version IN NUMBER ,
1247: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
1248: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1249: x_return_status OUT NOCOPY VARCHAR2 ,
1250: x_msg_count OUT NOCOPY NUMBER ,
1251: x_msg_data OUT NOCOPY VARCHAR2 ,
1244: --
1245:
1246: PROCEDURE update_allocation(p_api_version IN NUMBER ,
1247: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
1248: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1249: x_return_status OUT NOCOPY VARCHAR2 ,
1250: x_msg_count OUT NOCOPY NUMBER ,
1251: x_msg_data OUT NOCOPY VARCHAR2 ,
1252: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
1248: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1249: x_return_status OUT NOCOPY VARCHAR2 ,
1250: x_msg_count OUT NOCOPY NUMBER ,
1251: x_msg_data OUT NOCOPY VARCHAR2 ,
1252: p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
1253: p_allocation_in_rec IN ALLOCATION_REC_IN_TYPE ,
1254: x_allocation_out_rec OUT NOCOPY ALLOCATION_REC_OUT_TYPE
1255: ) is
1256:
1262:
1263: --dbms_output.put_line('entering oke_funding_pub.update_allocation');
1264: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.update_allocation');
1265:
1266: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1267: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
1268:
1269: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1270: p_pkg_name => G_PKG_NAME ,
1263: --dbms_output.put_line('entering oke_funding_pub.update_allocation');
1264: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.update_allocation');
1265:
1266: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1267: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
1268:
1269: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1270: p_pkg_name => G_PKG_NAME ,
1271: p_init_msg_list => p_init_msg_list ,
1265:
1266: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1267: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
1268:
1269: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1270: p_pkg_name => G_PKG_NAME ,
1271: p_init_msg_list => p_init_msg_list ,
1272: l_api_version => G_API_VERSION_NUMBER ,
1273: p_api_version => p_api_version ,
1274: p_api_type => '_PUB' ,
1275: x_return_status => x_return_status
1276: );
1277:
1278: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1279:
1280: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1281:
1282: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1276: );
1277:
1278: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1279:
1280: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1281:
1282: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1283:
1284: RAISE OKE_API.G_EXCEPTION_ERROR;
1278: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1279:
1280: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1281:
1282: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1283:
1284: RAISE OKE_API.G_EXCEPTION_ERROR;
1285:
1286: END IF;
1280: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1281:
1282: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1283:
1284: RAISE OKE_API.G_EXCEPTION_ERROR;
1285:
1286: END IF;
1287:
1288: x_allocation_out_rec.fund_allocation_id := p_allocation_in_rec.fund_allocation_id;
1294: --dbms_output.put_line('calling oke_allocation_pvt.update_allocation from oke_funding_pub');
1295: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_allocation_pvt.update_allocation from oke_funding_pub');
1296:
1297: OKE_ALLOCATION_PVT.update_allocation(p_api_version => p_api_version ,
1298: p_init_msg_list => OKE_API.G_FALSE ,
1299: p_commit => OKE_API.G_FALSE ,
1300: p_msg_count => x_msg_count ,
1301: p_msg_data => x_msg_data ,
1302: p_allocation_in_rec => p_allocation_in_rec ,
1295: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_allocation_pvt.update_allocation from oke_funding_pub');
1296:
1297: OKE_ALLOCATION_PVT.update_allocation(p_api_version => p_api_version ,
1298: p_init_msg_list => OKE_API.G_FALSE ,
1299: p_commit => OKE_API.G_FALSE ,
1300: p_msg_count => x_msg_count ,
1301: p_msg_data => x_msg_data ,
1302: p_allocation_in_rec => p_allocation_in_rec ,
1303: p_allocation_out_rec => x_allocation_out_rec ,
1300: p_msg_count => x_msg_count ,
1301: p_msg_data => x_msg_data ,
1302: p_allocation_in_rec => p_allocation_in_rec ,
1303: p_allocation_out_rec => x_allocation_out_rec ,
1304: p_validation_flag => OKE_API.G_TRUE ,
1305: p_return_status => x_return_status
1306: );
1307:
1308: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1304: p_validation_flag => OKE_API.G_TRUE ,
1305: p_return_status => x_return_status
1306: );
1307:
1308: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1309:
1310: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1311:
1312: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1306: );
1307:
1308: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1309:
1310: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1311:
1312: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1313:
1314: RAISE OKE_API.G_EXCEPTION_ERROR;
1308: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1309:
1310: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1311:
1312: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1313:
1314: RAISE OKE_API.G_EXCEPTION_ERROR;
1315:
1316: END IF;
1310: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1311:
1312: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1313:
1314: RAISE OKE_API.G_EXCEPTION_ERROR;
1315:
1316: END IF;
1317:
1318: --
1342: --dbms_output.put_line('calling oke_agreement_pvt.update_pa_funding from oke_funding_pub');
1343: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.update_pa_funding from oke_funding_pub');
1344:
1345: OKE_AGREEMENT_PVT.update_pa_funding(p_api_version => p_api_version ,
1346: p_init_msg_list => OKE_API.G_FALSE ,
1347: p_commit => OKE_API.G_FALSE ,
1348: p_msg_count => x_msg_count ,
1349: p_msg_data => x_msg_data ,
1350: p_allocation_in_rec => l_allocation_in_rec ,
1343: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.update_pa_funding from oke_funding_pub');
1344:
1345: OKE_AGREEMENT_PVT.update_pa_funding(p_api_version => p_api_version ,
1346: p_init_msg_list => OKE_API.G_FALSE ,
1347: p_commit => OKE_API.G_FALSE ,
1348: p_msg_count => x_msg_count ,
1349: p_msg_data => x_msg_data ,
1350: p_allocation_in_rec => l_allocation_in_rec ,
1351: p_return_status => x_return_status
1355: --dbms_output.put_line('calling oke_agreement_pvt.add_pa_funding from oke_funding_pub');
1356: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.add_pa_funding from oke_funding_pub');
1357:
1358: OKE_AGREEMENT_PVT.add_pa_funding(p_api_version => p_api_version ,
1359: p_init_msg_list => OKE_API.G_FALSE ,
1360: p_commit => OKE_API.G_FALSE ,
1361: p_msg_count => x_msg_count ,
1362: p_msg_data => x_msg_data ,
1363: p_allocation_in_rec => l_allocation_in_rec ,
1356: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_agreement_pvt.add_pa_funding from oke_funding_pub');
1357:
1358: OKE_AGREEMENT_PVT.add_pa_funding(p_api_version => p_api_version ,
1359: p_init_msg_list => OKE_API.G_FALSE ,
1360: p_commit => OKE_API.G_FALSE ,
1361: p_msg_count => x_msg_count ,
1362: p_msg_data => x_msg_data ,
1363: p_allocation_in_rec => l_allocation_in_rec ,
1364: p_return_status => x_return_status
1365: );
1366:
1367: END IF;
1368:
1369: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1370:
1371: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372:
1373: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1367: END IF;
1368:
1369: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1370:
1371: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372:
1373: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1374:
1375: RAISE OKE_API.G_EXCEPTION_ERROR;
1369: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1370:
1371: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372:
1373: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1374:
1375: RAISE OKE_API.G_EXCEPTION_ERROR;
1376:
1377: END IF;
1371: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372:
1373: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1374:
1375: RAISE OKE_API.G_EXCEPTION_ERROR;
1376:
1377: END IF;
1378:
1379: END IF;
1386: COMMIT WORK;
1387:
1388: END IF;
1389:
1390: OKE_API.END_ACTIVITY(x_msg_count => x_msg_count ,
1391: x_msg_data => x_msg_data
1392: );
1393:
1394: EXCEPTION
1391: x_msg_data => x_msg_data
1392: );
1393:
1394: EXCEPTION
1395: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1396: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1397: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1398: p_pkg_name => G_PKG_NAME ,
1399: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1392: );
1393:
1394: EXCEPTION
1395: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1396: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1397: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1398: p_pkg_name => G_PKG_NAME ,
1399: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1400: x_msg_count => x_msg_count ,
1393:
1394: EXCEPTION
1395: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1396: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1397: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1398: p_pkg_name => G_PKG_NAME ,
1399: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1400: x_msg_count => x_msg_count ,
1401: x_msg_data => x_msg_data ,
1395: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1396: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
1397: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1398: p_pkg_name => G_PKG_NAME ,
1399: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1400: x_msg_count => x_msg_count ,
1401: x_msg_data => x_msg_data ,
1402: p_api_type => '_PUB'
1403: );
1401: x_msg_data => x_msg_data ,
1402: p_api_type => '_PUB'
1403: );
1404:
1405: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1406: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1408: p_pkg_name => G_PKG_NAME ,
1409: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1402: p_api_type => '_PUB'
1403: );
1404:
1405: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1406: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1408: p_pkg_name => G_PKG_NAME ,
1409: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1410: x_msg_count => x_msg_count ,
1403: );
1404:
1405: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1406: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1408: p_pkg_name => G_PKG_NAME ,
1409: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1410: x_msg_count => x_msg_count ,
1411: x_msg_data => x_msg_data ,
1405: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1406: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1408: p_pkg_name => G_PKG_NAME ,
1409: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1410: x_msg_count => x_msg_count ,
1411: x_msg_data => x_msg_data ,
1412: p_api_type => '_PUB'
1413: );
1412: p_api_type => '_PUB'
1413: );
1414:
1415: WHEN OTHERS THEN
1416: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1417: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1418: p_pkg_name => G_PKG_NAME ,
1419: p_exc_name => 'OTHERS' ,
1420: x_msg_count => x_msg_count ,
1413: );
1414:
1415: WHEN OTHERS THEN
1416: x_allocation_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1417: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1418: p_pkg_name => G_PKG_NAME ,
1419: p_exc_name => 'OTHERS' ,
1420: x_msg_count => x_msg_count ,
1421: x_msg_data => x_msg_data ,
1429: -- Procedure: delete_allocation
1430: --
1431: -- Description: This procedure is used to delete contract funding allocation and pa project_funding
1432: --
1433: -- Calling subprograms: OKE_API.start_activity
1434: -- OKE_API.end_activity
1435: -- OKE_ALLOCATION_PVT.delete_allocation
1436: --
1437:
1430: --
1431: -- Description: This procedure is used to delete contract funding allocation and pa project_funding
1432: --
1433: -- Calling subprograms: OKE_API.start_activity
1434: -- OKE_API.end_activity
1435: -- OKE_ALLOCATION_PVT.delete_allocation
1436: --
1437:
1438: PROCEDURE delete_allocation(p_api_version IN NUMBER ,
1435: -- OKE_ALLOCATION_PVT.delete_allocation
1436: --
1437:
1438: PROCEDURE delete_allocation(p_api_version IN NUMBER ,
1439: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
1440: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1441: x_return_status OUT NOCOPY VARCHAR2 ,
1442: x_msg_count OUT NOCOPY NUMBER ,
1443: x_msg_data OUT NOCOPY VARCHAR2 ,
1436: --
1437:
1438: PROCEDURE delete_allocation(p_api_version IN NUMBER ,
1439: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
1440: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
1441: x_return_status OUT NOCOPY VARCHAR2 ,
1442: x_msg_count OUT NOCOPY NUMBER ,
1443: x_msg_data OUT NOCOPY VARCHAR2 ,
1444: p_fund_allocation_id IN NUMBER
1441: x_return_status OUT NOCOPY VARCHAR2 ,
1442: x_msg_count OUT NOCOPY NUMBER ,
1443: x_msg_data OUT NOCOPY VARCHAR2 ,
1444: p_fund_allocation_id IN NUMBER
1445: -- p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE
1446: ) is
1447:
1448: l_api_name CONSTANT VARCHAR2(30) := 'delete_allocation';
1449: l_return_status VARCHAR2(1);
1473:
1474: --dbms_output.put_line('entering oke_funding_pub.delete_allocation');
1475: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.delete_allocation');
1476:
1477: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1478:
1479: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1480: p_pkg_name => G_PKG_NAME ,
1481: p_init_msg_list => p_init_msg_list ,
1475: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'entering oke_funding_pub.delete_allocation');
1476:
1477: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1478:
1479: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
1480: p_pkg_name => G_PKG_NAME ,
1481: p_init_msg_list => p_init_msg_list ,
1482: l_api_version => G_API_VERSION_NUMBER ,
1483: p_api_version => p_api_version ,
1484: p_api_type => '_PUB' ,
1485: x_return_status => x_return_status
1486: );
1487:
1488: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1489:
1490: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1486: );
1487:
1488: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1489:
1490: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1493:
1494: RAISE OKE_API.G_EXCEPTION_ERROR;
1488: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1489:
1490: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1493:
1494: RAISE OKE_API.G_EXCEPTION_ERROR;
1495:
1496: END IF;
1490: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1493:
1494: RAISE OKE_API.G_EXCEPTION_ERROR;
1495:
1496: END IF;
1497:
1498: --
1502: FETCH c_source INTO l_s_amount, l_s_hard_limit, l_s_revenue_limit, l_funding_source_id;
1503: IF (c_source%NOTFOUND) THEN
1504:
1505: CLOSE c_source;
1506: OKE_API.set_message(p_app_name => 'OKE' ,
1507: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1508: p_token1 => 'VALUE' ,
1509: p_token1_value => 'fund_allocation_id'
1510: );
1503: IF (c_source%NOTFOUND) THEN
1504:
1505: CLOSE c_source;
1506: OKE_API.set_message(p_app_name => 'OKE' ,
1507: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1508: p_token1 => 'VALUE' ,
1509: p_token1_value => 'fund_allocation_id'
1510: );
1511:
1521: --dbms_output.put_line('calling oke_allocation_pvt.delete_allocation from oke_funding_pub');
1522: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_allocation_pvt.delete_allocation from oke_funding_pub');
1523:
1524: OKE_ALLOCATION_PVT.delete_allocation(p_api_version => p_api_version ,
1525: p_commit => OKE_API.G_FALSE ,
1526: p_init_msg_list => OKE_API.G_FALSE ,
1527: p_msg_count => x_msg_count ,
1528: p_msg_data => x_msg_data ,
1529: p_fund_allocation_id => p_fund_allocation_id ,
1522: --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'calling oke_allocation_pvt.delete_allocation from oke_funding_pub');
1523:
1524: OKE_ALLOCATION_PVT.delete_allocation(p_api_version => p_api_version ,
1525: p_commit => OKE_API.G_FALSE ,
1526: p_init_msg_list => OKE_API.G_FALSE ,
1527: p_msg_count => x_msg_count ,
1528: p_msg_data => x_msg_data ,
1529: p_fund_allocation_id => p_fund_allocation_id ,
1530: p_return_status => x_return_status
1529: p_fund_allocation_id => p_fund_allocation_id ,
1530: p_return_status => x_return_status
1531: );
1532:
1533: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1534:
1535: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1536:
1537: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1531: );
1532:
1533: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1534:
1535: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1536:
1537: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1538:
1539: RAISE OKE_API.G_EXCEPTION_ERROR;
1533: IF (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1534:
1535: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1536:
1537: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1538:
1539: RAISE OKE_API.G_EXCEPTION_ERROR;
1540:
1541: END IF;
1535: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1536:
1537: ELSIF (x_return_status = OKE_API.G_RET_STS_ERROR) THEN
1538:
1539: RAISE OKE_API.G_EXCEPTION_ERROR;
1540:
1541: END IF;
1542:
1543: --
1556: CLOSE c_allocation;
1557:
1558: IF (l_a_amount < 0) THEN
1559:
1560: OKE_API.set_message(p_app_name => 'OKE' ,
1561: p_msg_name => 'OKE_NEGATIVE_ALLOCATION_SUM'
1562: );
1563:
1564: RAISE G_EXCEPTION_HALT_VALIDATION;
1564: RAISE G_EXCEPTION_HALT_VALIDATION;
1565:
1566: ELSIF (l_a_amount > l_s_amount) THEN
1567:
1568: OKE_API.set_message(p_app_name => 'OKE' ,
1569: p_msg_name => 'OKE_FUND_AMT_EXCEED'
1570: );
1571:
1572: RAISE G_EXCEPTION_HALT_VALIDATION;
1574: END IF;
1575:
1576: IF (l_a_hard_limit < 0) THEN
1577:
1578: OKE_API.set_message(p_app_name => 'OKE' ,
1579: p_msg_name => 'OKE_NEGATIVE_HARD_LIMIT_SUM'
1580: );
1581:
1582: RAISE G_EXCEPTION_HALT_VALIDATION;
1582: RAISE G_EXCEPTION_HALT_VALIDATION;
1583:
1584: ELSIF (l_a_hard_limit > l_s_hard_limit) THEN
1585:
1586: OKE_API.set_message(p_app_name => 'OKE' ,
1587: p_msg_name => 'OKE_HARD_LIMIT_EXCEED'
1588: );
1589:
1590: RAISE G_EXCEPTION_HALT_VALIDATION;
1592: END IF;
1593:
1594: IF (l_a_revenue_limit < 0) THEN
1595:
1596: OKE_API.set_message(p_app_name => 'OKE' ,
1597: p_msg_name => 'OKE_NEGATIVE_REV_LIMIT_SUM'
1598: );
1599:
1600: RAISE G_EXCEPTION_HALT_VALIDATION;
1600: RAISE G_EXCEPTION_HALT_VALIDATION;
1601:
1602: ELSIF (l_a_revenue_limit > l_s_revenue_limit) THEN
1603:
1604: OKE_API.set_message(p_app_name => 'OKE' ,
1605: p_msg_name => 'OKE_REV_LIMIT_EXCEED'
1606: );
1607:
1608: RAISE G_EXCEPTION_HALT_VALIDATION;
1617: COMMIT WORK;
1618:
1619: END IF;
1620:
1621: OKE_API.END_ACTIVITY(x_msg_count => x_msg_count ,
1622: x_msg_data => x_msg_data
1623: );
1624:
1625: EXCEPTION
1622: x_msg_data => x_msg_data
1623: );
1624:
1625: EXCEPTION
1626: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1627: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1628: p_pkg_name => G_PKG_NAME ,
1629: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1630: x_msg_count => x_msg_count ,
1623: );
1624:
1625: EXCEPTION
1626: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1627: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1628: p_pkg_name => G_PKG_NAME ,
1629: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1630: x_msg_count => x_msg_count ,
1631: x_msg_data => x_msg_data ,
1625: EXCEPTION
1626: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
1627: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1628: p_pkg_name => G_PKG_NAME ,
1629: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
1630: x_msg_count => x_msg_count ,
1631: x_msg_data => x_msg_data ,
1632: p_api_type => '_PUB'
1633: );
1631: x_msg_data => x_msg_data ,
1632: p_api_type => '_PUB'
1633: );
1634:
1635: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1636: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1637: p_pkg_name => G_PKG_NAME ,
1638: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1639: x_msg_count => x_msg_count ,
1632: p_api_type => '_PUB'
1633: );
1634:
1635: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1636: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1637: p_pkg_name => G_PKG_NAME ,
1638: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1639: x_msg_count => x_msg_count ,
1640: x_msg_data => x_msg_data ,
1634:
1635: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1636: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1637: p_pkg_name => G_PKG_NAME ,
1638: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
1639: x_msg_count => x_msg_count ,
1640: x_msg_data => x_msg_data ,
1641: p_api_type => '_PUB'
1642: );
1641: p_api_type => '_PUB'
1642: );
1643:
1644: WHEN OTHERS THEN
1645: x_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
1646: p_pkg_name => G_PKG_NAME ,
1647: p_exc_name => 'OTHERS' ,
1648: x_msg_count => x_msg_count ,
1649: x_msg_data => x_msg_data ,