[Home] [Help]
45: l_install VARCHAR2(1);
46:
47: BEGIN
48:
49: p_return_status := OKE_API.G_RET_STS_SUCCESS;
50:
51: IF (p_agreement_org_id is not null) OR
52: (p_agreement_org_id <> OKE_API.G_MISS_NUM) THEN
53:
48:
49: p_return_status := OKE_API.G_RET_STS_SUCCESS;
50:
51: IF (p_agreement_org_id is not null) OR
52: (p_agreement_org_id <> OKE_API.G_MISS_NUM) THEN
53:
54: l_install := fnd_profile.value('PA_BILLING_LICENSED');
55:
56: if (nvl(l_install, 'N') = 'Y') then
68: end if;
69:
70: IF (l_dummy_value = '?') THEN
71:
72: OKE_API.set_message(p_app_name => G_APP_NAME ,
73: p_msg_name => 'OKE_API_INVALID_VALUE' ,
74: p_token1 => 'VALUE' ,
75: p_token1_value => 'agreement_org_id'
76: );
69:
70: IF (l_dummy_value = '?') THEN
71:
72: OKE_API.set_message(p_app_name => G_APP_NAME ,
73: p_msg_name => 'OKE_API_INVALID_VALUE' ,
74: p_token1 => 'VALUE' ,
75: p_token1_value => 'agreement_org_id'
76: );
77:
74: p_token1 => 'VALUE' ,
75: p_token1_value => 'agreement_org_id'
76: );
77:
78: p_return_status := OKE_API.G_RET_STS_ERROR;
79:
80: END IF;
81:
82: END IF;
82: END IF;
83:
84: EXCEPTION
85: WHEN OTHERS THEN
86: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
87: OKE_API.set_message(p_app_name => G_APP_NAME ,
88: p_msg_name => G_UNEXPECTED_ERROR ,
89: p_token1 => G_SQLCODE_TOKEN ,
90: p_token1_value => SQLCODE ,
83:
84: EXCEPTION
85: WHEN OTHERS THEN
86: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
87: OKE_API.set_message(p_app_name => G_APP_NAME ,
88: p_msg_name => G_UNEXPECTED_ERROR ,
89: p_token1 => G_SQLCODE_TOKEN ,
90: p_token1_value => SQLCODE ,
91: p_token2 => G_SQLERRM_TOKEN ,
140: FETCH c_currency into l_min_unit;
141:
142: IF (c_currency%NOTFOUND) THEN
143: CLOSE c_currency;
144: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
145: END IF;
146:
147: CLOSE c_currency;
148: return(l_min_unit);
147: CLOSE c_currency;
148: return(l_min_unit);
149:
150: EXCEPTION
151: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
152: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
153:
154: WHEN OTHERS THEN
155: OKE_API.set_message(p_app_name => G_APP_NAME ,
148: return(l_min_unit);
149:
150: EXCEPTION
151: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
152: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
153:
154: WHEN OTHERS THEN
155: OKE_API.set_message(p_app_name => G_APP_NAME ,
156: p_msg_name => G_UNEXPECTED_ERROR ,
151: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
152: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
153:
154: WHEN OTHERS THEN
155: OKE_API.set_message(p_app_name => G_APP_NAME ,
156: p_msg_name => G_UNEXPECTED_ERROR ,
157: p_token1 => G_SQLCODE_TOKEN ,
158: p_token1_value => SQLCODE ,
159: p_token2 => G_SQLERRM_TOKEN ,
162:
163: IF c_currency%ISOPEN THEN
164: CLOSE c_currency;
165: END IF;
166: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
167:
168: END get_min_unit;
169:
170:
191:
192: IF (c_currency%NOTFOUND) THEN
193:
194: CLOSE c_currency;
195: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
196:
197: END IF;
198:
199: return(l_currency_code);
199: return(l_currency_code);
200: CLOSE c_currency;
201:
202: EXCEPTION
203: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
204: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
205:
206: WHEN OTHERS THEN
207: OKE_API.set_message(p_app_name => G_APP_NAME ,
200: CLOSE c_currency;
201:
202: EXCEPTION
203: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
204: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
205:
206: WHEN OTHERS THEN
207: OKE_API.set_message(p_app_name => G_APP_NAME ,
208: p_msg_name => G_UNEXPECTED_ERROR ,
203: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
204: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
205:
206: WHEN OTHERS THEN
207: OKE_API.set_message(p_app_name => G_APP_NAME ,
208: p_msg_name => G_UNEXPECTED_ERROR ,
209: p_token1 => G_SQLCODE_TOKEN ,
210: p_token1_value => SQLCODE ,
211: p_token2 => G_SQLERRM_TOKEN ,
214:
215: IF c_currency%ISOPEN THEN
216: CLOSE c_currency;
217: END IF;
218: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
219:
220: END get_k_currency;
221:
222:
269: where agreement_id = p_agreement_id;
270:
271: EXCEPTION
272: WHEN OTHERS THEN
273: OKE_API.set_message(p_app_name => G_APP_NAME ,
274: p_msg_name => G_UNEXPECTED_ERROR ,
275: p_token1 => G_SQLCODE_TOKEN ,
276: p_token1_value => SQLCODE ,
277: p_token2 => G_SQLERRM_TOKEN ,
277: p_token2 => G_SQLERRM_TOKEN ,
278: p_token2_value => SQLERRM
279: );
280:
281: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
282:
283: END update_agreement_reference;
284:
285:
302: where project_funding_id = p_project_funding_id;
303:
304: EXCEPTION
305: WHEN OTHERS THEN
306: OKE_API.set_message(p_app_name => G_APP_NAME ,
307: p_msg_name => G_UNEXPECTED_ERROR ,
308: p_token1 => G_SQLCODE_TOKEN ,
309: p_token1_value => SQLCODE ,
310: p_token2 => G_SQLERRM_TOKEN ,
310: p_token2 => G_SQLERRM_TOKEN ,
311: p_token2_value => SQLERRM
312: );
313:
314: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
315:
316: END update_proj_fld_reference;
317:
318:
334: l_return_status VARCHAR2(1);
335:
336: BEGIN
337:
338: p_return_status := OKE_API.G_RET_STS_SUCCESS;
339:
340: IF (p_from_currency <> p_to_currency) THEN
341:
342: IF (p_conversion_type is null) THEN
340: IF (p_from_currency <> p_to_currency) THEN
341:
342: IF (p_conversion_type is null) THEN
343:
344: OKE_API.set_message(p_app_name => G_APP_NAME ,
345: p_msg_name => 'OKE_API_MISSING_VALUE' ,
346: p_token1 => 'VALUE' ,
347: p_token1_value => 'conversion_type'
348: );
341:
342: IF (p_conversion_type is null) THEN
343:
344: OKE_API.set_message(p_app_name => G_APP_NAME ,
345: p_msg_name => 'OKE_API_MISSING_VALUE' ,
346: p_token1 => 'VALUE' ,
347: p_token1_value => 'conversion_type'
348: );
349:
346: p_token1 => 'VALUE' ,
347: p_token1_value => 'conversion_type'
348: );
349:
350: p_return_status := OKE_API.G_RET_STS_ERROR;
351:
352:
353: ELSIF (p_conversion_date is null) THEN
354:
351:
352:
353: ELSIF (p_conversion_date is null) THEN
354:
355: OKE_API.set_message(p_app_name => G_APP_NAME ,
356: p_msg_name => 'OKE_API_MISSING_VALUE' ,
357: p_token1 => 'VALUE' ,
358: p_token1_value => 'conversion_date'
359: );
352:
353: ELSIF (p_conversion_date is null) THEN
354:
355: OKE_API.set_message(p_app_name => G_APP_NAME ,
356: p_msg_name => 'OKE_API_MISSING_VALUE' ,
357: p_token1 => 'VALUE' ,
358: p_token1_value => 'conversion_date'
359: );
360:
357: p_token1 => 'VALUE' ,
358: p_token1_value => 'conversion_date'
359: );
360:
361: p_return_status := OKE_API.G_RET_STS_ERROR;
362:
363: ELSE
364:
365: -- syho, bug 2208979
376: );
377:
378: IF (l_return_status = 'N') THEN
379:
380: OKE_API.set_message(p_app_name => G_APP_NAME ,
381: p_msg_name => 'OKE_FUND_NO_RATE'
382: );
383:
384: p_return_status := OKE_API.G_RET_STS_ERROR;
380: OKE_API.set_message(p_app_name => G_APP_NAME ,
381: p_msg_name => 'OKE_FUND_NO_RATE'
382: );
383:
384: p_return_status := OKE_API.G_RET_STS_ERROR;
385:
386: END IF;
387:
388: ELSE
386: END IF;
387:
388: ELSE
389:
390: OKE_API.set_message(p_app_name => G_APP_NAME ,
391: p_msg_name => 'OKE_API_INVALID_VALUE' ,
392: p_token1 => 'VALUE' ,
393: p_token1_value => 'conversion_rate'
394: );
387:
388: ELSE
389:
390: OKE_API.set_message(p_app_name => G_APP_NAME ,
391: p_msg_name => 'OKE_API_INVALID_VALUE' ,
392: p_token1 => 'VALUE' ,
393: p_token1_value => 'conversion_rate'
394: );
395:
392: p_token1 => 'VALUE' ,
393: p_token1_value => 'conversion_rate'
394: );
395:
396: p_return_status := OKE_API.G_RET_STS_ERROR;
397:
398: END IF;
399:
400: ELSIF (p_conversion_rate is null) THEN
398: END IF;
399:
400: ELSIF (p_conversion_rate is null) THEN
401:
402: OKE_API.set_message(p_app_name => G_APP_NAME ,
403: p_msg_name => 'OKE_API_INVALID_VALUE' ,
404: p_token1 => 'VALUE' ,
405: p_token1_value => 'conversion_rate'
406: );
399:
400: ELSIF (p_conversion_rate is null) THEN
401:
402: OKE_API.set_message(p_app_name => G_APP_NAME ,
403: p_msg_name => 'OKE_API_INVALID_VALUE' ,
404: p_token1 => 'VALUE' ,
405: p_token1_value => 'conversion_rate'
406: );
407:
404: p_token1 => 'VALUE' ,
405: p_token1_value => 'conversion_rate'
406: );
407:
408: p_return_status := OKE_API.G_RET_STS_ERROR;
409:
410: END IF;
411:
412: END IF;
412: END IF;
413:
414: ELSIF (p_conversion_type is not null) THEN
415:
416: OKE_API.set_message(p_app_name => G_APP_NAME ,
417: p_msg_name => 'OKE_API_INVALID_VALUE' ,
418: p_token1 => 'VALUE' ,
419: p_token1_value => 'conversion_type'
420: );
413:
414: ELSIF (p_conversion_type is not null) THEN
415:
416: OKE_API.set_message(p_app_name => G_APP_NAME ,
417: p_msg_name => 'OKE_API_INVALID_VALUE' ,
418: p_token1 => 'VALUE' ,
419: p_token1_value => 'conversion_type'
420: );
421:
418: p_token1 => 'VALUE' ,
419: p_token1_value => 'conversion_type'
420: );
421:
422: p_return_status := OKE_API.G_RET_STS_ERROR;
423:
424: ELSIF (p_conversion_date is not null) THEN
425:
426: OKE_API.set_message(p_app_name => G_APP_NAME ,
422: p_return_status := OKE_API.G_RET_STS_ERROR;
423:
424: ELSIF (p_conversion_date is not null) THEN
425:
426: OKE_API.set_message(p_app_name => G_APP_NAME ,
427: p_msg_name => 'OKE_API_INVALID_VALUE' ,
428: p_token1 => 'VALUE' ,
429: p_token1_value => 'conversion_date'
430: );
423:
424: ELSIF (p_conversion_date is not null) THEN
425:
426: OKE_API.set_message(p_app_name => G_APP_NAME ,
427: p_msg_name => 'OKE_API_INVALID_VALUE' ,
428: p_token1 => 'VALUE' ,
429: p_token1_value => 'conversion_date'
430: );
431:
428: p_token1 => 'VALUE' ,
429: p_token1_value => 'conversion_date'
430: );
431:
432: p_return_status := OKE_API.G_RET_STS_ERROR;
433:
434: ELSIF (p_conversion_rate is not null) THEN
435:
436: OKE_API.set_message(p_app_name => G_APP_NAME ,
432: p_return_status := OKE_API.G_RET_STS_ERROR;
433:
434: ELSIF (p_conversion_rate is not null) THEN
435:
436: OKE_API.set_message(p_app_name => G_APP_NAME ,
437: p_msg_name => 'OKE_API_INVALID_VALUE' ,
438: p_token1 => 'VALUE' ,
439: p_token1_value => 'conversion_rate'
440: );
433:
434: ELSIF (p_conversion_rate is not null) THEN
435:
436: OKE_API.set_message(p_app_name => G_APP_NAME ,
437: p_msg_name => 'OKE_API_INVALID_VALUE' ,
438: p_token1 => 'VALUE' ,
439: p_token1_value => 'conversion_rate'
440: );
441:
438: p_token1 => 'VALUE' ,
439: p_token1_value => 'conversion_rate'
440: );
441:
442: p_return_status := OKE_API.G_RET_STS_ERROR;
443:
444: END IF;
445:
446: END get_conversion;
457: p_return_status OUT NOCOPY VARCHAR2
458: ) is
459: BEGIN
460:
461: p_return_status := OKE_API.G_RET_STS_SUCCESS;
462:
463: IF (p_object_type is null) OR
464: (p_object_type = OKE_API.G_MISS_CHAR) THEN
465:
460:
461: p_return_status := OKE_API.G_RET_STS_SUCCESS;
462:
463: IF (p_object_type is null) OR
464: (p_object_type = OKE_API.G_MISS_CHAR) THEN
465:
466: OKE_API.set_message(p_app_name => G_APP_NAME ,
467: p_msg_name => 'OKE_API_MISSING_VALUE' ,
468: p_token1 => 'VALUE' ,
462:
463: IF (p_object_type is null) OR
464: (p_object_type = OKE_API.G_MISS_CHAR) THEN
465:
466: OKE_API.set_message(p_app_name => G_APP_NAME ,
467: p_msg_name => 'OKE_API_MISSING_VALUE' ,
468: p_token1 => 'VALUE' ,
469: p_token1_value => 'object_type'
470: );
463: IF (p_object_type is null) OR
464: (p_object_type = OKE_API.G_MISS_CHAR) THEN
465:
466: OKE_API.set_message(p_app_name => G_APP_NAME ,
467: p_msg_name => 'OKE_API_MISSING_VALUE' ,
468: p_token1 => 'VALUE' ,
469: p_token1_value => 'object_type'
470: );
471:
468: p_token1 => 'VALUE' ,
469: p_token1_value => 'object_type'
470: );
471:
472: p_return_status := OKE_API.G_RET_STS_ERROR;
473:
474: ELSE
475:
476: IF (upper(p_object_type) <> G_OBJECT_TYPE) THEN
474: ELSE
475:
476: IF (upper(p_object_type) <> G_OBJECT_TYPE) THEN
477:
478: OKE_API.set_message(p_app_name => G_APP_NAME ,
479: p_msg_name => 'OKE_API_INVALID_VALUE' ,
480: p_token1 => 'VALUE' ,
481: p_token1_value => 'object_type'
482: );
475:
476: IF (upper(p_object_type) <> G_OBJECT_TYPE) THEN
477:
478: OKE_API.set_message(p_app_name => G_APP_NAME ,
479: p_msg_name => 'OKE_API_INVALID_VALUE' ,
480: p_token1 => 'VALUE' ,
481: p_token1_value => 'object_type'
482: );
483:
480: p_token1 => 'VALUE' ,
481: p_token1_value => 'object_type'
482: );
483:
484: p_return_status := OKE_API.G_RET_STS_ERROR;
485:
486: END IF;
487:
488: END IF;
502: ) is
503:
504: BEGIN
505:
506: p_return_status := OKE_API.G_RET_STS_SUCCESS;
507:
508: IF (p_amount is null) OR
509: (p_amount = OKE_API.G_MISS_NUM) THEN
510:
505:
506: p_return_status := OKE_API.G_RET_STS_SUCCESS;
507:
508: IF (p_amount is null) OR
509: (p_amount = OKE_API.G_MISS_NUM) THEN
510:
511: OKE_API.set_message(p_app_name => G_APP_NAME ,
512: p_msg_name => 'OKE_API_MISSING_VALUE' ,
513: p_token1 => 'VALUE' ,
507:
508: IF (p_amount is null) OR
509: (p_amount = OKE_API.G_MISS_NUM) THEN
510:
511: OKE_API.set_message(p_app_name => G_APP_NAME ,
512: p_msg_name => 'OKE_API_MISSING_VALUE' ,
513: p_token1 => 'VALUE' ,
514: p_token1_value => 'amount'
515: );
508: IF (p_amount is null) OR
509: (p_amount = OKE_API.G_MISS_NUM) THEN
510:
511: OKE_API.set_message(p_app_name => G_APP_NAME ,
512: p_msg_name => 'OKE_API_MISSING_VALUE' ,
513: p_token1 => 'VALUE' ,
514: p_token1_value => 'amount'
515: );
516:
513: p_token1 => 'VALUE' ,
514: p_token1_value => 'amount'
515: );
516:
517: p_return_status := OKE_API.G_RET_STS_ERROR;
518:
519: ELSIF (p_amount < 0) THEN
520:
521: OKE_API.set_message(p_app_name => G_APP_NAME ,
517: p_return_status := OKE_API.G_RET_STS_ERROR;
518:
519: ELSIF (p_amount < 0) THEN
520:
521: OKE_API.set_message(p_app_name => G_APP_NAME ,
522: p_msg_name => 'OKE_FUND_NEGATIVE_AMT'
523: );
524:
525: p_return_status := OKE_API.G_RET_STS_ERROR;
521: OKE_API.set_message(p_app_name => G_APP_NAME ,
522: p_msg_name => 'OKE_FUND_NEGATIVE_AMT'
523: );
524:
525: p_return_status := OKE_API.G_RET_STS_ERROR;
526:
527: END IF;
528:
529: END validate_amount;
548:
549: BEGIN
550:
551: IF (p_funding_source_id is null) OR
552: (p_funding_source_id = OKE_API.G_MISS_NUM) THEN
553:
554: OKE_API.set_message(p_app_name => G_APP_NAME ,
555: p_msg_name => 'OKE_API_MISSING_VALUE' ,
556: p_token1 => 'VALUE' ,
550:
551: IF (p_funding_source_id is null) OR
552: (p_funding_source_id = OKE_API.G_MISS_NUM) THEN
553:
554: OKE_API.set_message(p_app_name => G_APP_NAME ,
555: p_msg_name => 'OKE_API_MISSING_VALUE' ,
556: p_token1 => 'VALUE' ,
557: p_token1_value => 'funding_source_id'
558: );
551: IF (p_funding_source_id is null) OR
552: (p_funding_source_id = OKE_API.G_MISS_NUM) THEN
553:
554: OKE_API.set_message(p_app_name => G_APP_NAME ,
555: p_msg_name => 'OKE_API_MISSING_VALUE' ,
556: p_token1 => 'VALUE' ,
557: p_token1_value => 'funding_source_id'
558: );
559:
565: FETCH c_funding_source_id into p_rowid, p_pool_party_id, p_agreement_flag;
566:
567: IF (c_funding_source_id%NOTFOUND) THEN
568:
569: OKE_API.set_message(p_app_name => G_APP_NAME ,
570: p_msg_name => 'OKE_API_INVALID_VALUE' ,
571: p_token1 => 'VALUE' ,
572: p_token1_value => 'funding_source_id'
573: );
566:
567: IF (c_funding_source_id%NOTFOUND) THEN
568:
569: OKE_API.set_message(p_app_name => G_APP_NAME ,
570: p_msg_name => 'OKE_API_INVALID_VALUE' ,
571: p_token1 => 'VALUE' ,
572: p_token1_value => 'funding_source_id'
573: );
574:
583: WHEN G_EXCEPTION_HALT_VALIDATION THEN
584: raise G_EXCEPTION_HALT_VALIDATION;
585:
586: WHEN OTHERS THEN
587: OKE_API.set_message(p_app_name => G_APP_NAME ,
588: p_msg_name => G_UNEXPECTED_ERROR ,
589: p_token1 => G_SQLCODE_TOKEN ,
590: p_token1_value => SQLCODE ,
591: p_token2 => G_SQLERRM_TOKEN ,
595: IF c_funding_source_id%ISOPEN THEN
596: CLOSE c_funding_source_id;
597: END IF;
598:
599: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
600:
601: END validate_funding_source_id;
602:
603:
620: l_dummy_value VARCHAR2(1) := '?';
621:
622: BEGIN
623:
624: p_return_status := OKE_API.G_RET_STS_SUCCESS;
625:
626: IF (p_object_id is null) OR
627: (p_object_id = OKE_API.G_MISS_NUM) THEN
628:
623:
624: p_return_status := OKE_API.G_RET_STS_SUCCESS;
625:
626: IF (p_object_id is null) OR
627: (p_object_id = OKE_API.G_MISS_NUM) THEN
628:
629: OKE_API.set_message(p_app_name => G_APP_NAME ,
630: p_msg_name => 'OKE_API_MISSING_VALUE' ,
631: p_token1 => 'VALUE' ,
625:
626: IF (p_object_id is null) OR
627: (p_object_id = OKE_API.G_MISS_NUM) THEN
628:
629: OKE_API.set_message(p_app_name => G_APP_NAME ,
630: p_msg_name => 'OKE_API_MISSING_VALUE' ,
631: p_token1 => 'VALUE' ,
632: p_token1_value => 'object_id'
633: );
626: IF (p_object_id is null) OR
627: (p_object_id = OKE_API.G_MISS_NUM) THEN
628:
629: OKE_API.set_message(p_app_name => G_APP_NAME ,
630: p_msg_name => 'OKE_API_MISSING_VALUE' ,
631: p_token1 => 'VALUE' ,
632: p_token1_value => 'object_id'
633: );
634:
631: p_token1 => 'VALUE' ,
632: p_token1_value => 'object_id'
633: );
634:
635: p_return_status := OKE_API.G_RET_STS_ERROR;
636:
637: ELSE
638:
639: OPEN c_object_id;
641: CLOSE c_object_id;
642:
643: IF (l_dummy_value = '?') THEN
644:
645: OKE_API.set_message(p_app_name => G_APP_NAME ,
646: p_msg_name => 'OKE_API_INVALID_VALUE' ,
647: p_token1 => 'VALUE' ,
648: p_token1_value => 'object_id'
649: );
642:
643: IF (l_dummy_value = '?') THEN
644:
645: OKE_API.set_message(p_app_name => G_APP_NAME ,
646: p_msg_name => 'OKE_API_INVALID_VALUE' ,
647: p_token1 => 'VALUE' ,
648: p_token1_value => 'object_id'
649: );
650:
647: p_token1 => 'VALUE' ,
648: p_token1_value => 'object_id'
649: );
650:
651: p_return_status := OKE_API.G_RET_STS_ERROR;
652:
653: END IF;
654:
655: END IF;
655: END IF;
656:
657: EXCEPTION
658: WHEN OTHERS THEN
659: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
660: OKE_API.set_message(p_app_name => G_APP_NAME ,
661: p_msg_name => G_UNEXPECTED_ERROR ,
662: p_token1 => G_SQLCODE_TOKEN ,
663: p_token1_value => SQLCODE ,
656:
657: EXCEPTION
658: WHEN OTHERS THEN
659: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
660: OKE_API.set_message(p_app_name => G_APP_NAME ,
661: p_msg_name => G_UNEXPECTED_ERROR ,
662: p_token1 => G_SQLCODE_TOKEN ,
663: p_token1_value => SQLCODE ,
664: p_token2 => G_SQLERRM_TOKEN ,
691: l_dummy_value VARCHAR2(1) := '?';
692:
693: BEGIN
694:
695: p_return_status := OKE_API.G_RET_STS_SUCCESS;
696:
697: IF (p_currency_code is null) OR
698: (p_currency_code = OKE_API.G_MISS_CHAR) THEN
699:
694:
695: p_return_status := OKE_API.G_RET_STS_SUCCESS;
696:
697: IF (p_currency_code is null) OR
698: (p_currency_code = OKE_API.G_MISS_CHAR) THEN
699:
700: OKE_API.set_message(p_app_name => G_APP_NAME ,
701: p_msg_name => 'OKE_API_MISSING_VALUE' ,
702: p_token1 => 'VALUE' ,
696:
697: IF (p_currency_code is null) OR
698: (p_currency_code = OKE_API.G_MISS_CHAR) THEN
699:
700: OKE_API.set_message(p_app_name => G_APP_NAME ,
701: p_msg_name => 'OKE_API_MISSING_VALUE' ,
702: p_token1 => 'VALUE' ,
703: p_token1_value => 'currency_code'
704: );
697: IF (p_currency_code is null) OR
698: (p_currency_code = OKE_API.G_MISS_CHAR) THEN
699:
700: OKE_API.set_message(p_app_name => G_APP_NAME ,
701: p_msg_name => 'OKE_API_MISSING_VALUE' ,
702: p_token1 => 'VALUE' ,
703: p_token1_value => 'currency_code'
704: );
705:
702: p_token1 => 'VALUE' ,
703: p_token1_value => 'currency_code'
704: );
705:
706: p_return_status := OKE_API.G_RET_STS_ERROR;
707:
708: ELSE
709:
710: OPEN c_currency_code;
712: CLOSE c_currency_code;
713:
714: IF (l_dummy_value = '?') THEN
715:
716: OKE_API.set_message(p_app_name => G_APP_NAME ,
717: p_msg_name => 'OKE_API_INVALID_VALUE' ,
718: p_token1 => 'VALUE' ,
719: p_token1_value => 'currency_code'
720: );
713:
714: IF (l_dummy_value = '?') THEN
715:
716: OKE_API.set_message(p_app_name => G_APP_NAME ,
717: p_msg_name => 'OKE_API_INVALID_VALUE' ,
718: p_token1 => 'VALUE' ,
719: p_token1_value => 'currency_code'
720: );
721:
718: p_token1 => 'VALUE' ,
719: p_token1_value => 'currency_code'
720: );
721:
722: p_return_status := OKE_API.G_RET_STS_ERROR;
723:
724: END IF;
725:
726: END IF;
726: END IF;
727:
728: EXCEPTION
729: WHEN OTHERS THEN
730: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
731: OKE_API.set_message(p_app_name => G_APP_NAME ,
732: p_msg_name => G_UNEXPECTED_ERROR ,
733: p_token1 => G_SQLCODE_TOKEN ,
734: p_token1_value => SQLCODE ,
727:
728: EXCEPTION
729: WHEN OTHERS THEN
730: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
731: OKE_API.set_message(p_app_name => G_APP_NAME ,
732: p_msg_name => G_UNEXPECTED_ERROR ,
733: p_token1 => G_SQLCODE_TOKEN ,
734: p_token1_value => SQLCODE ,
735: p_token2 => G_SQLERRM_TOKEN ,
785: l_project_id NUMBER;
786:
787: BEGIN
788:
789: p_return_status := OKE_API.G_RET_STS_SUCCESS;
790:
791: IF (p_agreement_id is null) OR
792: (p_agreement_id = OKE_API.G_MISS_NUM) THEN
793:
788:
789: p_return_status := OKE_API.G_RET_STS_SUCCESS;
790:
791: IF (p_agreement_id is null) OR
792: (p_agreement_id = OKE_API.G_MISS_NUM) THEN
793:
794: OKE_API.set_message(p_app_name => G_APP_NAME ,
795: p_msg_name => 'OKE_API_MISSING_VALUE' ,
796: p_token1 => 'VALUE' ,
790:
791: IF (p_agreement_id is null) OR
792: (p_agreement_id = OKE_API.G_MISS_NUM) THEN
793:
794: OKE_API.set_message(p_app_name => G_APP_NAME ,
795: p_msg_name => 'OKE_API_MISSING_VALUE' ,
796: p_token1 => 'VALUE' ,
797: p_token1_value => 'agreement_id'
798: );
791: IF (p_agreement_id is null) OR
792: (p_agreement_id = OKE_API.G_MISS_NUM) THEN
793:
794: OKE_API.set_message(p_app_name => G_APP_NAME ,
795: p_msg_name => 'OKE_API_MISSING_VALUE' ,
796: p_token1 => 'VALUE' ,
797: p_token1_value => 'agreement_id'
798: );
799:
796: p_token1 => 'VALUE' ,
797: p_token1_value => 'agreement_id'
798: );
799:
800: p_return_status := OKE_API.G_RET_STS_ERROR;
801:
802: ELSE
803:
804: OPEN c_agreement_id;
806: CLOSE c_agreement_id;
807:
808: IF (l_dummy_value = '?') THEN
809:
810: OKE_API.set_message(p_app_name => G_APP_NAME ,
811: p_msg_name => 'OKE_API_INVALID_VALUE' ,
812: p_token1 => 'VALUE' ,
813: p_token1_value => 'agreement_id'
814: );
807:
808: IF (l_dummy_value = '?') THEN
809:
810: OKE_API.set_message(p_app_name => G_APP_NAME ,
811: p_msg_name => 'OKE_API_INVALID_VALUE' ,
812: p_token1 => 'VALUE' ,
813: p_token1_value => 'agreement_id'
814: );
815:
812: p_token1 => 'VALUE' ,
813: p_token1_value => 'agreement_id'
814: );
815:
816: p_return_status := OKE_API.G_RET_STS_ERROR;
817:
818: END IF;
819:
820: OPEN c_master_project;
822: CLOSE c_master_project;
823:
824: IF (l_project_id is null) THEN
825:
826: OKE_API.set_message(p_app_name => G_APP_NAME ,
827: p_msg_name => 'OKE_API_INVALID_VALUE' ,
828: p_token1 => 'VALUE' ,
829: p_token1_value => 'agreement_id'
830: );
823:
824: IF (l_project_id is null) THEN
825:
826: OKE_API.set_message(p_app_name => G_APP_NAME ,
827: p_msg_name => 'OKE_API_INVALID_VALUE' ,
828: p_token1 => 'VALUE' ,
829: p_token1_value => 'agreement_id'
830: );
831:
828: p_token1 => 'VALUE' ,
829: p_token1_value => 'agreement_id'
830: );
831:
832: p_return_status := OKE_API.G_RET_STS_ERROR;
833:
834: ELSE
835:
836: l_dummy_value := '?';
839: CLOSE c_project;
840:
841: IF (l_dummy_value = 'x') THEN
842:
843: OKE_API.set_message(p_app_name => G_APP_NAME ,
844: p_msg_name => 'OKE_API_INVALID_VALUE' ,
845: p_token1 => 'VALUE' ,
846: p_token1_value => 'agreement_id'
847: );
840:
841: IF (l_dummy_value = 'x') THEN
842:
843: OKE_API.set_message(p_app_name => G_APP_NAME ,
844: p_msg_name => 'OKE_API_INVALID_VALUE' ,
845: p_token1 => 'VALUE' ,
846: p_token1_value => 'agreement_id'
847: );
848:
845: p_token1 => 'VALUE' ,
846: p_token1_value => 'agreement_id'
847: );
848:
849: p_return_status := OKE_API.G_RET_STS_ERROR;
850:
851: END IF;
852:
853: END IF;
855: END IF;
856:
857: EXCEPTION
858: WHEN OTHERS THEN
859: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
860: OKE_API.set_message(p_app_name => G_APP_NAME ,
861: p_msg_name => G_UNEXPECTED_ERROR ,
862: p_token1 => G_SQLCODE_TOKEN ,
863: p_token1_value => SQLCODE ,
856:
857: EXCEPTION
858: WHEN OTHERS THEN
859: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
860: OKE_API.set_message(p_app_name => G_APP_NAME ,
861: p_msg_name => G_UNEXPECTED_ERROR ,
862: p_token1 => G_SQLCODE_TOKEN ,
863: p_token1_value => SQLCODE ,
864: p_token2 => G_SQLERRM_TOKEN ,
893: l_dummy_value varchar2(1) := '?';
894:
895: BEGIN
896:
897: p_return_status := OKE_API.G_RET_STS_SUCCESS;
898:
899: OPEN c_agreement_id;
900: FETCH c_agreement_id into l_dummy_value;
901: CLOSE c_agreement_id;
901: CLOSE c_agreement_id;
902:
903: IF (l_dummy_value = '?') THEN
904:
905: OKE_API.set_message(p_app_name => G_APP_NAME ,
906: p_msg_name => 'OKE_API_INVALID_VALUE' ,
907: p_token1 => 'VALUE' ,
908: p_token1_value => 'agreement_id'
909: );
902:
903: IF (l_dummy_value = '?') THEN
904:
905: OKE_API.set_message(p_app_name => G_APP_NAME ,
906: p_msg_name => 'OKE_API_INVALID_VALUE' ,
907: p_token1 => 'VALUE' ,
908: p_token1_value => 'agreement_id'
909: );
910:
907: p_token1 => 'VALUE' ,
908: p_token1_value => 'agreement_id'
909: );
910:
911: p_return_status := OKE_API.G_RET_STS_ERROR;
912:
913: END IF;
914:
915: EXCEPTION
913: END IF;
914:
915: EXCEPTION
916: WHEN G_RESOURCE_BUSY THEN
917: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
918: OKE_API.set_message(p_app_name => G_APP_NAME ,
919: p_msg_name => 'OKE_ROW_LOCKED' ,
920: p_token1 => 'SOURCE' ,
921: p_token1_value => 'OKE_AGREEMENT_PROMPT' ,
914:
915: EXCEPTION
916: WHEN G_RESOURCE_BUSY THEN
917: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
918: OKE_API.set_message(p_app_name => G_APP_NAME ,
919: p_msg_name => 'OKE_ROW_LOCKED' ,
920: p_token1 => 'SOURCE' ,
921: p_token1_value => 'OKE_AGREEMENT_PROMPT' ,
922: p_token1_translate => OKE_API.G_TRUE ,
918: OKE_API.set_message(p_app_name => G_APP_NAME ,
919: p_msg_name => 'OKE_ROW_LOCKED' ,
920: p_token1 => 'SOURCE' ,
921: p_token1_value => 'OKE_AGREEMENT_PROMPT' ,
922: p_token1_translate => OKE_API.G_TRUE ,
923: p_token2 => 'ID' ,
924: p_token2_value => p_agreement_id
925: );
926:
928: CLOSE c_agreement_id;
929: END IF;
930:
931: WHEN OTHERS THEN
932: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
933: OKE_API.set_message(p_app_name => G_APP_NAME ,
934: p_msg_name => G_UNEXPECTED_ERROR ,
935: p_token1 => G_SQLCODE_TOKEN ,
936: p_token1_value => SQLCODE ,
929: END IF;
930:
931: WHEN OTHERS THEN
932: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
933: OKE_API.set_message(p_app_name => G_APP_NAME ,
934: p_msg_name => G_UNEXPECTED_ERROR ,
935: p_token1 => G_SQLCODE_TOKEN ,
936: p_token1_value => SQLCODE ,
937: p_token2 => G_SQLERRM_TOKEN ,
965: l_dummy_value varchar2(1) := '?';
966:
967: BEGIN
968:
969: p_return_status := OKE_API.G_RET_STS_SUCCESS;
970:
971: OPEN c_project_funding;
972: FETCH c_project_funding into l_dummy_value;
973: CLOSE c_project_funding;
973: CLOSE c_project_funding;
974:
975: EXCEPTION
976: WHEN G_RESOURCE_BUSY THEN
977: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
978: OKE_API.set_message(p_app_name => G_APP_NAME ,
979: p_msg_name => 'OKE_ROW_LOCKED' ,
980: p_token1 => 'SOURCE' ,
981: p_token1_value => 'OKE_PRJ_FUNDING_PROMPT' ,
974:
975: EXCEPTION
976: WHEN G_RESOURCE_BUSY THEN
977: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
978: OKE_API.set_message(p_app_name => G_APP_NAME ,
979: p_msg_name => 'OKE_ROW_LOCKED' ,
980: p_token1 => 'SOURCE' ,
981: p_token1_value => 'OKE_PRJ_FUNDING_PROMPT' ,
982: p_token1_translate => OKE_API.G_TRUE ,
978: OKE_API.set_message(p_app_name => G_APP_NAME ,
979: p_msg_name => 'OKE_ROW_LOCKED' ,
980: p_token1 => 'SOURCE' ,
981: p_token1_value => 'OKE_PRJ_FUNDING_PROMPT' ,
982: p_token1_translate => OKE_API.G_TRUE ,
983: p_token2 => 'ID' ,
984: p_token2_value => null
985: );
986:
988: CLOSE c_project_funding;
989: END IF;
990:
991: WHEN OTHERS THEN
992: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
993: OKE_API.set_message(p_app_name => G_APP_NAME ,
994: p_msg_name => G_UNEXPECTED_ERROR ,
995: p_token1 => G_SQLCODE_TOKEN ,
996: p_token1_value => SQLCODE ,
989: END IF;
990:
991: WHEN OTHERS THEN
992: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
993: OKE_API.set_message(p_app_name => G_APP_NAME ,
994: p_msg_name => G_UNEXPECTED_ERROR ,
995: p_token1 => G_SQLCODE_TOKEN ,
996: p_token1_value => SQLCODE ,
997: p_token2 => G_SQLERRM_TOKEN ,
1023: lock_agreement_id(p_agreement_id => p_agreement_id ,
1024: p_return_status => l_return_status
1025: );
1026:
1027: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1028:
1029: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030:
1031: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1025: );
1026:
1027: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1028:
1029: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030:
1031: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1032:
1033: RAISE OKE_API.G_EXCEPTION_ERROR;
1027: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1028:
1029: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030:
1031: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1032:
1033: RAISE OKE_API.G_EXCEPTION_ERROR;
1034:
1035: END IF;
1029: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030:
1031: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1032:
1033: RAISE OKE_API.G_EXCEPTION_ERROR;
1034:
1035: END IF;
1036:
1037: lock_project_funding(p_agreement_id => p_agreement_id ,
1037: lock_project_funding(p_agreement_id => p_agreement_id ,
1038: p_return_status => l_return_status
1039: );
1040:
1041: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1042:
1043: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044:
1045: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1039: );
1040:
1041: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1042:
1043: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044:
1045: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1046:
1047: RAISE OKE_API.G_EXCEPTION_ERROR;
1041: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1042:
1043: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044:
1045: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1046:
1047: RAISE OKE_API.G_EXCEPTION_ERROR;
1048:
1049: END IF;
1043: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044:
1045: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1046:
1047: RAISE OKE_API.G_EXCEPTION_ERROR;
1048:
1049: END IF;
1050:
1051: END lock_agreement;
1076: l_dummy_value VARCHAR2(1) := '?';
1077:
1078: BEGIN
1079:
1080: p_return_status := OKE_API.G_RET_STS_SUCCESS;
1081:
1082: IF (p_k_party_id is null) OR
1083: (p_k_party_id = OKE_API.G_MISS_NUM) THEN
1084:
1079:
1080: p_return_status := OKE_API.G_RET_STS_SUCCESS;
1081:
1082: IF (p_k_party_id is null) OR
1083: (p_k_party_id = OKE_API.G_MISS_NUM) THEN
1084:
1085: OKE_API.set_message(p_app_name => G_APP_NAME ,
1086: p_msg_name => 'OKE_API_MISSING_VALUE' ,
1087: p_token1 => 'VALUE' ,
1081:
1082: IF (p_k_party_id is null) OR
1083: (p_k_party_id = OKE_API.G_MISS_NUM) THEN
1084:
1085: OKE_API.set_message(p_app_name => G_APP_NAME ,
1086: p_msg_name => 'OKE_API_MISSING_VALUE' ,
1087: p_token1 => 'VALUE' ,
1088: p_token1_value => 'k_party_id'
1089: );
1082: IF (p_k_party_id is null) OR
1083: (p_k_party_id = OKE_API.G_MISS_NUM) THEN
1084:
1085: OKE_API.set_message(p_app_name => G_APP_NAME ,
1086: p_msg_name => 'OKE_API_MISSING_VALUE' ,
1087: p_token1 => 'VALUE' ,
1088: p_token1_value => 'k_party_id'
1089: );
1090:
1087: p_token1 => 'VALUE' ,
1088: p_token1_value => 'k_party_id'
1089: );
1090:
1091: p_return_status := OKE_API.G_RET_STS_ERROR;
1092:
1093: ELSE
1094:
1095: OPEN c_party_id;
1097: CLOSE c_party_id;
1098:
1099: IF (l_dummy_value = '?') THEN
1100:
1101: OKE_API.set_message(p_app_name => G_APP_NAME ,
1102: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1103: p_token1 => 'VALUE' ,
1104: p_token1_value => 'k_party_id'
1105: );
1098:
1099: IF (l_dummy_value = '?') THEN
1100:
1101: OKE_API.set_message(p_app_name => G_APP_NAME ,
1102: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1103: p_token1 => 'VALUE' ,
1104: p_token1_value => 'k_party_id'
1105: );
1106:
1103: p_token1 => 'VALUE' ,
1104: p_token1_value => 'k_party_id'
1105: );
1106:
1107: p_return_status := OKE_API.G_RET_STS_ERROR;
1108:
1109: END IF;
1110:
1111: END IF;
1111: END IF;
1112:
1113: EXCEPTION
1114: WHEN OTHERS THEN
1115: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1116: OKE_API.set_message(p_app_name => G_APP_NAME ,
1117: p_msg_name => G_UNEXPECTED_ERROR ,
1118: p_token1 => G_SQLCODE_TOKEN ,
1119: p_token1_value => SQLCODE ,
1112:
1113: EXCEPTION
1114: WHEN OTHERS THEN
1115: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1116: OKE_API.set_message(p_app_name => G_APP_NAME ,
1117: p_msg_name => G_UNEXPECTED_ERROR ,
1118: p_token1 => G_SQLCODE_TOKEN ,
1119: p_token1_value => SQLCODE ,
1120: p_token2 => G_SQLERRM_TOKEN ,
1150: l_dummy_value VARCHAR2(1) := '?';
1151:
1152: BEGIN
1153:
1154: p_return_status := OKE_API.G_RET_STS_SUCCESS;
1155:
1156: IF (p_funding_status is not null) THEN
1157:
1158: OPEN c_funding_status;
1160: CLOSE c_funding_status;
1161:
1162: IF (l_dummy_value = '?') THEN
1163:
1164: OKE_API.set_message(p_app_name => G_APP_NAME ,
1165: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1166: p_token1 => 'VALUE' ,
1167: p_token1_value => 'funding_status'
1168: );
1161:
1162: IF (l_dummy_value = '?') THEN
1163:
1164: OKE_API.set_message(p_app_name => G_APP_NAME ,
1165: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1166: p_token1 => 'VALUE' ,
1167: p_token1_value => 'funding_status'
1168: );
1169:
1166: p_token1 => 'VALUE' ,
1167: p_token1_value => 'funding_status'
1168: );
1169:
1170: p_return_status := OKE_API.G_RET_STS_ERROR;
1171:
1172: END IF;
1173:
1174: END IF;
1174: END IF;
1175:
1176: EXCEPTION
1177: WHEN OTHERS THEN
1178: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1179: OKE_API.set_message(p_app_name => G_APP_NAME ,
1180: p_msg_name => G_UNEXPECTED_ERROR ,
1181: p_token1 => G_SQLCODE_TOKEN ,
1182: p_token1_value => SQLCODE ,
1175:
1176: EXCEPTION
1177: WHEN OTHERS THEN
1178: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1179: OKE_API.set_message(p_app_name => G_APP_NAME ,
1180: p_msg_name => G_UNEXPECTED_ERROR ,
1181: p_token1 => G_SQLCODE_TOKEN ,
1182: p_token1_value => SQLCODE ,
1183: p_token2 => G_SQLERRM_TOKEN ,
1210: l_dummy_value VARCHAR2(1) := '?';
1211:
1212: BEGIN
1213:
1214: p_return_status := OKE_API.G_RET_STS_SUCCESS;
1215:
1216: IF (p_conversion_type is not null) THEN
1217:
1218: OPEN c_type;
1220: CLOSE c_type;
1221:
1222: IF (l_dummy_value = '?') THEN
1223:
1224: OKE_API.set_message(p_app_name => G_APP_NAME ,
1225: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1226: p_token1 => 'VALUE' ,
1227: p_token1_value => 'conversion_type'
1228: );
1221:
1222: IF (l_dummy_value = '?') THEN
1223:
1224: OKE_API.set_message(p_app_name => G_APP_NAME ,
1225: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1226: p_token1 => 'VALUE' ,
1227: p_token1_value => 'conversion_type'
1228: );
1229:
1226: p_token1 => 'VALUE' ,
1227: p_token1_value => 'conversion_type'
1228: );
1229:
1230: p_return_status := OKE_API.G_RET_STS_ERROR;
1231:
1232: END IF;
1233:
1234: END IF;
1234: END IF;
1235:
1236: EXCEPTION
1237: WHEN OTHERS THEN
1238: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1239: OKE_API.set_message(p_app_name => G_APP_NAME ,
1240: p_msg_name => G_UNEXPECTED_ERROR ,
1241: p_token1 => G_SQLCODE_TOKEN ,
1242: p_token1_value => SQLCODE ,
1235:
1236: EXCEPTION
1237: WHEN OTHERS THEN
1238: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1239: OKE_API.set_message(p_app_name => G_APP_NAME ,
1240: p_msg_name => G_UNEXPECTED_ERROR ,
1241: p_token1 => G_SQLCODE_TOKEN ,
1242: p_token1_value => SQLCODE ,
1243: p_token2 => G_SQLERRM_TOKEN ,
1271: l_dummy_value VARCHAR2(1) := '?';
1272:
1273: BEGIN
1274:
1275: p_return_status := OKE_API.G_RET_STS_SUCCESS;
1276:
1277: IF (p_pool_party_id is not null) THEN
1278:
1279: OPEN c_pool_party_id;
1281: CLOSE c_pool_party_id;
1282:
1283: IF (l_dummy_value = '?') THEN
1284:
1285: OKE_API.set_message(p_app_name => G_APP_NAME ,
1286: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1287: p_token1 => 'VALUE' ,
1288: p_token1_value => 'pool_party_id'
1289: );
1282:
1283: IF (l_dummy_value = '?') THEN
1284:
1285: OKE_API.set_message(p_app_name => G_APP_NAME ,
1286: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1287: p_token1 => 'VALUE' ,
1288: p_token1_value => 'pool_party_id'
1289: );
1290:
1287: p_token1 => 'VALUE' ,
1288: p_token1_value => 'pool_party_id'
1289: );
1290:
1291: p_return_status := OKE_API.G_RET_STS_ERROR;
1292:
1293: END IF;
1294:
1295: END IF;
1295: END IF;
1296:
1297: EXCEPTION
1298: WHEN G_RESOURCE_BUSY THEN
1299: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1300: OKE_API.set_message(p_app_name => G_APP_NAME ,
1301: p_msg_name => 'OKE_ROW_LOCKED' ,
1302: p_token1 => 'SOURCE' ,
1303: p_token1_value => 'OKE_POOL_PARTY_PROMPT' ,
1296:
1297: EXCEPTION
1298: WHEN G_RESOURCE_BUSY THEN
1299: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1300: OKE_API.set_message(p_app_name => G_APP_NAME ,
1301: p_msg_name => 'OKE_ROW_LOCKED' ,
1302: p_token1 => 'SOURCE' ,
1303: p_token1_value => 'OKE_POOL_PARTY_PROMPT' ,
1304: p_token1_translate => OKE_API.G_TRUE ,
1300: OKE_API.set_message(p_app_name => G_APP_NAME ,
1301: p_msg_name => 'OKE_ROW_LOCKED' ,
1302: p_token1 => 'SOURCE' ,
1303: p_token1_value => 'OKE_POOL_PARTY_PROMPT' ,
1304: p_token1_translate => OKE_API.G_TRUE ,
1305: p_token2 => 'ID' ,
1306: p_token2_value => p_pool_party_id
1307: );
1308:
1310: CLOSE c_pool_party_id;
1311: END IF;
1312:
1313: WHEN OTHERS THEN
1314: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1315: OKE_API.set_message(p_app_name => G_APP_NAME ,
1316: p_msg_name => G_UNEXPECTED_ERROR ,
1317: p_token1 => G_SQLCODE_TOKEN ,
1318: p_token1_value => SQLCODE ,
1311: END IF;
1312:
1313: WHEN OTHERS THEN
1314: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1315: OKE_API.set_message(p_app_name => G_APP_NAME ,
1316: p_msg_name => G_UNEXPECTED_ERROR ,
1317: p_token1 => G_SQLCODE_TOKEN ,
1318: p_token1_value => SQLCODE ,
1319: p_token2 => G_SQLERRM_TOKEN ,
1355: l_flag VARCHAR2(1);
1356:
1357: BEGIN
1358:
1359: p_return_status := OKE_API.G_RET_STS_SUCCESS;
1360:
1361: IF (p_pool_party_id is not null) OR
1362: (p_pool_party_id <> OKE_API.G_MISS_NUM) THEN
1363:
1358:
1359: p_return_status := OKE_API.G_RET_STS_SUCCESS;
1360:
1361: IF (p_pool_party_id is not null) OR
1362: (p_pool_party_id <> OKE_API.G_MISS_NUM) THEN
1363:
1364: OPEN c_pool_party_id;
1365: FETCH c_pool_party_id into l_currency_code;
1366:
1366:
1367: IF (c_pool_party_id%NOTFOUND) THEN
1368:
1369: CLOSE c_pool_party_id;
1370: p_return_status := OKE_API.G_RET_STS_ERROR;
1371: OKE_API.set_message(p_app_name => G_APP_NAME ,
1372: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1373: p_token1 => 'VALUE' ,
1374: p_token1_value => 'pool_party_id, k_party_id'
1367: IF (c_pool_party_id%NOTFOUND) THEN
1368:
1369: CLOSE c_pool_party_id;
1370: p_return_status := OKE_API.G_RET_STS_ERROR;
1371: OKE_API.set_message(p_app_name => G_APP_NAME ,
1372: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1373: p_token1 => 'VALUE' ,
1374: p_token1_value => 'pool_party_id, k_party_id'
1375: );
1368:
1369: CLOSE c_pool_party_id;
1370: p_return_status := OKE_API.G_RET_STS_ERROR;
1371: OKE_API.set_message(p_app_name => G_APP_NAME ,
1372: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1373: p_token1 => 'VALUE' ,
1374: p_token1_value => 'pool_party_id, k_party_id'
1375: );
1376:
1377: ELSE
1378:
1379: IF (l_currency_code <> p_currency_code) THEN
1380:
1381: p_return_status := OKE_API.G_RET_STS_ERROR;
1382: OKE_API.set_message(p_app_name => G_APP_NAME ,
1383: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1384: p_token1 => 'VALUE' ,
1385: p_token1_value => 'currency_code'
1378:
1379: IF (l_currency_code <> p_currency_code) THEN
1380:
1381: p_return_status := OKE_API.G_RET_STS_ERROR;
1382: OKE_API.set_message(p_app_name => G_APP_NAME ,
1383: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1384: p_token1 => 'VALUE' ,
1385: p_token1_value => 'currency_code'
1386: );
1379: IF (l_currency_code <> p_currency_code) THEN
1380:
1381: p_return_status := OKE_API.G_RET_STS_ERROR;
1382: OKE_API.set_message(p_app_name => G_APP_NAME ,
1383: p_msg_name => 'OKE_API_INVALID_VALUE' ,
1384: p_token1 => 'VALUE' ,
1385: p_token1_value => 'currency_code'
1386: );
1387: ELSE
1399: x_return_status => l_return_status );
1400:
1401: IF (l_return_status = 'N') THEN
1402:
1403: p_return_status := OKE_API.G_RET_STS_ERROR;
1404: OKE_API.set_message(p_app_name => G_APP_NAME ,
1405: p_msg_name => 'OKE_FUND_EXCEED_POOL'
1406: );
1407:
1400:
1401: IF (l_return_status = 'N') THEN
1402:
1403: p_return_status := OKE_API.G_RET_STS_ERROR;
1404: OKE_API.set_message(p_app_name => G_APP_NAME ,
1405: p_msg_name => 'OKE_FUND_EXCEED_POOL'
1406: );
1407:
1408: -- bug 3346170
1414: x_return_status => l_return_status );
1415:
1416: IF (l_return_status = 'N') THEN
1417:
1418: p_return_status := OKE_API.G_RET_STS_ERROR;
1419: OKE_API.set_message(p_app_name => G_APP_NAME ,
1420: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1421: p_token1 => 'EFFECTIVE_DATE' ,
1422: p_token1_value => 'OKE_EFFECTIVE_FROM_PROMPT' ,
1415:
1416: IF (l_return_status = 'N') THEN
1417:
1418: p_return_status := OKE_API.G_RET_STS_ERROR;
1419: OKE_API.set_message(p_app_name => G_APP_NAME ,
1420: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1421: p_token1 => 'EFFECTIVE_DATE' ,
1422: p_token1_value => 'OKE_EFFECTIVE_FROM_PROMPT' ,
1423: p_token1_translate => OKE_API.G_TRUE ,
1419: OKE_API.set_message(p_app_name => G_APP_NAME ,
1420: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1421: p_token1 => 'EFFECTIVE_DATE' ,
1422: p_token1_value => 'OKE_EFFECTIVE_FROM_PROMPT' ,
1423: p_token1_translate => OKE_API.G_TRUE ,
1424: p_token2 => 'OPERATOR' ,
1425: p_token2_value => 'OKE_GREATER_PROMPT' ,
1426: p_token2_translate => OKE_API.G_TRUE ,
1427: p_token3 => 'DATE_SOURCE' ,
1422: p_token1_value => 'OKE_EFFECTIVE_FROM_PROMPT' ,
1423: p_token1_translate => OKE_API.G_TRUE ,
1424: p_token2 => 'OPERATOR' ,
1425: p_token2_value => 'OKE_GREATER_PROMPT' ,
1426: p_token2_translate => OKE_API.G_TRUE ,
1427: p_token3 => 'DATE_SOURCE' ,
1428: p_token3_value => 'OKE_POOL_PARTY_PROMPT' ,
1429: p_token3_translate => OKE_API.G_TRUE
1430: );
1425: p_token2_value => 'OKE_GREATER_PROMPT' ,
1426: p_token2_translate => OKE_API.G_TRUE ,
1427: p_token3 => 'DATE_SOURCE' ,
1428: p_token3_value => 'OKE_POOL_PARTY_PROMPT' ,
1429: p_token3_translate => OKE_API.G_TRUE
1430: );
1431:
1432: ELSE
1433:
1437: x_return_status => l_return_status );
1438:
1439: IF (l_return_status = 'N') THEN
1440:
1441: p_return_status := OKE_API.G_RET_STS_ERROR;
1442: OKE_API.set_message(p_app_name => G_APP_NAME ,
1443: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1444: p_token1 => 'EFFECTIVE_DATE' ,
1445: p_token1_value => 'OKE_EFFECTIVE_TO_PROMPT' ,
1438:
1439: IF (l_return_status = 'N') THEN
1440:
1441: p_return_status := OKE_API.G_RET_STS_ERROR;
1442: OKE_API.set_message(p_app_name => G_APP_NAME ,
1443: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1444: p_token1 => 'EFFECTIVE_DATE' ,
1445: p_token1_value => 'OKE_EFFECTIVE_TO_PROMPT' ,
1446: p_token1_translate => OKE_API.G_TRUE ,
1442: OKE_API.set_message(p_app_name => G_APP_NAME ,
1443: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1444: p_token1 => 'EFFECTIVE_DATE' ,
1445: p_token1_value => 'OKE_EFFECTIVE_TO_PROMPT' ,
1446: p_token1_translate => OKE_API.G_TRUE ,
1447: p_token2 => 'OPERATOR' ,
1448: p_token2_value => 'OKE_EARLIER_PROMPT' ,
1449: p_token2_translate => OKE_API.G_TRUE ,
1450: p_token3 => 'DATE_SOURCE' ,
1445: p_token1_value => 'OKE_EFFECTIVE_TO_PROMPT' ,
1446: p_token1_translate => OKE_API.G_TRUE ,
1447: p_token2 => 'OPERATOR' ,
1448: p_token2_value => 'OKE_EARLIER_PROMPT' ,
1449: p_token2_translate => OKE_API.G_TRUE ,
1450: p_token3 => 'DATE_SOURCE' ,
1451: p_token3_value => 'OKE_POOL_PARTY_PROMPT' ,
1452: p_token3_translate => OKE_API.G_TRUE
1453: );
1448: p_token2_value => 'OKE_EARLIER_PROMPT' ,
1449: p_token2_translate => OKE_API.G_TRUE ,
1450: p_token3 => 'DATE_SOURCE' ,
1451: p_token3_value => 'OKE_POOL_PARTY_PROMPT' ,
1452: p_token3_translate => OKE_API.G_TRUE
1453: );
1454: END IF;
1455:
1456: END IF;
1466: END IF;
1467:
1468: EXCEPTION
1469: WHEN G_RESOURCE_BUSY THEN
1470: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1471: OKE_API.set_message(p_app_name => G_APP_NAME ,
1472: p_msg_name => 'OKE_ROW_LOCKED' ,
1473: p_token1 => 'SOURCE' ,
1474: p_token1_value => 'OKE_POOL_PARTY_PROMPT' ,
1467:
1468: EXCEPTION
1469: WHEN G_RESOURCE_BUSY THEN
1470: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1471: OKE_API.set_message(p_app_name => G_APP_NAME ,
1472: p_msg_name => 'OKE_ROW_LOCKED' ,
1473: p_token1 => 'SOURCE' ,
1474: p_token1_value => 'OKE_POOL_PARTY_PROMPT' ,
1475: p_token1_translate => OKE_API.G_TRUE ,
1471: OKE_API.set_message(p_app_name => G_APP_NAME ,
1472: p_msg_name => 'OKE_ROW_LOCKED' ,
1473: p_token1 => 'SOURCE' ,
1474: p_token1_value => 'OKE_POOL_PARTY_PROMPT' ,
1475: p_token1_translate => OKE_API.G_TRUE ,
1476: p_token2 => 'ID' ,
1477: p_token2_value => p_pool_party_id
1478: );
1479:
1481: CLOSE c_pool_party_id;
1482: END IF;
1483:
1484: WHEN OTHERS THEN
1485: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1486: OKE_API.set_message(p_app_name => G_APP_NAME ,
1487: p_msg_name => G_UNEXPECTED_ERROR ,
1488: p_token1 => G_SQLCODE_TOKEN ,
1489: p_token1_value => SQLCODE ,
1482: END IF;
1483:
1484: WHEN OTHERS THEN
1485: p_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1486: OKE_API.set_message(p_app_name => G_APP_NAME ,
1487: p_msg_name => G_UNEXPECTED_ERROR ,
1488: p_token1 => G_SQLCODE_TOKEN ,
1489: p_token1_value => SQLCODE ,
1490: p_token2 => G_SQLERRM_TOKEN ,
1519: validate_object_type(p_object_type => p_funding_in_rec.object_type ,
1520: p_return_status => l_return_status
1521: );
1522:
1523: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1524:
1525: RAISE G_EXCEPTION_HALT_VALIDATION;
1526:
1527: END IF;
1533: validate_object_id(p_object_id => p_funding_in_rec.object_id ,
1534: p_return_status => l_return_status
1535: );
1536:
1537: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1538:
1539: RAISE G_EXCEPTION_HALT_VALIDATION;
1540:
1541: END IF;
1547: validate_currency_code(p_currency_code => p_funding_in_rec.currency_code ,
1548: p_return_status => l_return_status
1549: );
1550:
1551: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1552:
1553: RAISE G_EXCEPTION_HALT_VALIDATION;
1554:
1555: END IF;
1561: p_k_party_id => p_funding_in_rec.k_party_id ,
1562: p_return_status => l_return_status
1563: );
1564:
1565: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1566:
1567: RAISE G_EXCEPTION_HALT_VALIDATION;
1568:
1569: END IF;
1575: validate_amount(p_amount => p_funding_in_rec.amount ,
1576: p_return_status => l_return_status
1577: );
1578:
1579: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1580:
1581: RAISE G_EXCEPTION_HALT_VALIDATION;
1582:
1583: END IF;
1589: validate_funding_status(p_funding_status => p_funding_in_rec.funding_status ,
1590: p_return_status => l_return_status
1591: );
1592:
1593: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1594:
1595: RAISE G_EXCEPTION_HALT_VALIDATION;
1596:
1597: END IF;
1603: validate_conversion_type(p_conversion_type => p_funding_in_rec.k_conversion_type ,
1604: p_return_status => l_return_status
1605: );
1606:
1607: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1608:
1609: RAISE G_EXCEPTION_HALT_VALIDATION;
1610:
1611: END IF;
1617: validate_pool_party_id(p_pool_party_id => p_funding_in_rec.pool_party_id ,
1618: p_return_status => l_return_status
1619: );
1620:
1621: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1622:
1623: RAISE G_EXCEPTION_HALT_VALIDATION;
1624:
1625: END IF;
1631: -- p_k_header_id => p_funding_in_rec.object_id ,
1632: p_return_status => l_return_status
1633: );
1634:
1635: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1636:
1637: RAISE G_EXCEPTION_HALT_VALIDATION;
1638:
1639: END IF;
1668: );
1669:
1670: IF (l_return_status = 'N') THEN
1671:
1672: OKE_API.set_message(p_app_name => G_APP_NAME ,
1673: p_msg_name => 'OKE_INVALID_EFFDATE_PAIR'
1674: );
1675:
1676: RAISE G_EXCEPTION_HALT_VALIDATION;
1690: p_funding_source_id => p_funding_in_rec.funding_source_id ,
1691: p_return_status => l_return_status
1692: );
1693:
1694: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1695:
1696: RAISE G_EXCEPTION_HALT_VALIDATION;
1697:
1698: END IF;
1717: p_conversion_rate => p_funding_in_rec.k_conversion_rate ,
1718: p_return_status => l_return_status
1719: );
1720:
1721: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
1722:
1723: RAISE G_EXCEPTION_HALT_VALIDATION;
1724:
1725: END IF;
1731: -- Hard limit cannot be negative
1732: --
1733: IF (nvl(p_funding_in_rec.hard_limit, 0) < 0) THEN
1734:
1735: OKE_API.set_message(p_app_name => G_APP_NAME ,
1736: p_msg_name => 'OKE_NEGATIVE_HARD_LIMIT'
1737: );
1738:
1739: RAISE G_EXCEPTION_HALT_VALIDATION;
1741: END IF;
1742:
1743: IF (nvl(p_funding_in_rec.revenue_hard_limit, 0) < 0) THEN
1744:
1745: OKE_API.set_message(p_app_name => G_APP_NAME ,
1746: p_msg_name => 'OKE_NEGATIVE_REVENUE_LIMIT'
1747: );
1748:
1749: RAISE G_EXCEPTION_HALT_VALIDATION;
1760: );
1761:
1762: IF (l_return_status <> 'Y') THEN
1763:
1764: OKE_API.set_message(p_app_name => G_APP_NAME ,
1765: p_msg_name => 'OKE_HARD_LIMIT_EXCEED_FUND'
1766: );
1767:
1768: RAISE G_EXCEPTION_HALT_VALIDATION;
1775: );
1776:
1777: IF (l_return_status <> 'Y') THEN
1778:
1779: OKE_API.set_message(p_app_name => G_APP_NAME ,
1780: p_msg_name => 'OKE_REV_LIMIT_EXCEED_FUND'
1781: );
1782:
1783: RAISE G_EXCEPTION_HALT_VALIDATION;
1800: IF (l_return_status = 'N') THEN
1801:
1802: IF (l_type = 'INVOICE') THEN
1803:
1804: OKE_API.set_message(p_app_name => G_APP_NAME ,
1805: p_msg_name => 'OKE_HARD_LIMIT_EXCEED'
1806: );
1807:
1808: ELSE
1806: );
1807:
1808: ELSE
1809:
1810: OKE_API.set_message(p_app_name => G_APP_NAME ,
1811: p_msg_name => 'OKE_REV_LIMIT_EXCEED'
1812: );
1813:
1814: END IF;
1818: ELSIF (l_return_status = 'E') THEN
1819:
1820: IF (l_type = 'INVOICE') THEN
1821:
1822: OKE_API.set_message(p_app_name => G_APP_NAME ,
1823: p_msg_name => 'OKE_NEGATIVE_HARD_LIMIT_SUM'
1824: );
1825:
1826: ELSE
1824: );
1825:
1826: ELSE
1827:
1828: OKE_API.set_message(p_app_name => G_APP_NAME ,
1829: p_msg_name => 'OKE_NEGATIVE_REV_LIMIT_SUM'
1830: );
1831:
1832: END IF;
1845: );
1846:
1847: IF (l_return_status = 'N') THEN
1848:
1849: OKE_API.set_message(p_app_name => G_APP_NAME ,
1850: p_msg_name => 'OKE_FUND_AMT_EXCEED'
1851: );
1852:
1853: RAISE G_EXCEPTION_HALT_VALIDATION;
1853: RAISE G_EXCEPTION_HALT_VALIDATION;
1854:
1855: ELSIF (l_return_status = 'E') THEN
1856:
1857: OKE_API.set_message(p_app_name => G_APP_NAME ,
1858: p_msg_name => 'OKE_NEGATIVE_ALLOCATION_SUM'
1859: );
1860:
1861: RAISE G_EXCEPTION_HALT_VALIDATION;
1873: x_return_status => l_return_status);
1874:
1875: IF (l_return_status = 'N') THEN
1876:
1877: OKE_API.set_message(p_app_name => G_APP_NAME ,
1878: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1879: p_token1 => 'EFFECTIVE_DATE' ,
1880: p_token1_value => 'OKE_EFFECTIVE_FROM_PROMPT' ,
1881: p_token1_translate => OKE_API.G_TRUE ,
1877: OKE_API.set_message(p_app_name => G_APP_NAME ,
1878: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1879: p_token1 => 'EFFECTIVE_DATE' ,
1880: p_token1_value => 'OKE_EFFECTIVE_FROM_PROMPT' ,
1881: p_token1_translate => OKE_API.G_TRUE ,
1882: p_token2 => 'OPERATOR' ,
1883: p_token2_value => 'OKE_EARLIER_PROMPT' ,
1884: p_token2_translate => OKE_API.G_TRUE ,
1885: p_token3 => 'DATE_SOURCE' ,
1880: p_token1_value => 'OKE_EFFECTIVE_FROM_PROMPT' ,
1881: p_token1_translate => OKE_API.G_TRUE ,
1882: p_token2 => 'OPERATOR' ,
1883: p_token2_value => 'OKE_EARLIER_PROMPT' ,
1884: p_token2_translate => OKE_API.G_TRUE ,
1885: p_token3 => 'DATE_SOURCE' ,
1886: p_token3_value => 'OKE_EARLIEST_ALLOC_PROMPT' ,
1887: p_token3_translate => OKE_API.G_TRUE
1888: );
1883: p_token2_value => 'OKE_EARLIER_PROMPT' ,
1884: p_token2_translate => OKE_API.G_TRUE ,
1885: p_token3 => 'DATE_SOURCE' ,
1886: p_token3_value => 'OKE_EARLIEST_ALLOC_PROMPT' ,
1887: p_token3_translate => OKE_API.G_TRUE
1888: );
1889:
1890: RAISE G_EXCEPTION_HALT_VALIDATION;
1891:
1897: x_return_status => l_return_status);
1898:
1899: IF (l_return_status = 'N') THEN
1900:
1901: OKE_API.set_message(p_app_name => G_APP_NAME ,
1902: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1903: p_token1 => 'EFFECTIVE_DATE' ,
1904: p_token1_value => 'OKE_EFFECTIVE_TO_PROMPT' ,
1905: p_token1_translate => OKE_API.G_TRUE ,
1901: OKE_API.set_message(p_app_name => G_APP_NAME ,
1902: p_msg_name => 'OKE_FUND_INVALID_PTY_DATE' ,
1903: p_token1 => 'EFFECTIVE_DATE' ,
1904: p_token1_value => 'OKE_EFFECTIVE_TO_PROMPT' ,
1905: p_token1_translate => OKE_API.G_TRUE ,
1906: p_token2 => 'OPERATOR' ,
1907: p_token2_value => 'OKE_GREATER_PROMPT' ,
1908: p_token2_translate => OKE_API.G_TRUE ,
1909: p_token3 => 'DATE_SOURCE' ,
1904: p_token1_value => 'OKE_EFFECTIVE_TO_PROMPT' ,
1905: p_token1_translate => OKE_API.G_TRUE ,
1906: p_token2 => 'OPERATOR' ,
1907: p_token2_value => 'OKE_GREATER_PROMPT' ,
1908: p_token2_translate => OKE_API.G_TRUE ,
1909: p_token3 => 'DATE_SOURCE' ,
1910: p_token3_value => 'OKE_LATEST_ALLOC_PROMPT' ,
1911: p_token3_translate => OKE_API.G_TRUE
1912: );
1907: p_token2_value => 'OKE_GREATER_PROMPT' ,
1908: p_token2_translate => OKE_API.G_TRUE ,
1909: p_token3 => 'DATE_SOURCE' ,
1910: p_token3_value => 'OKE_LATEST_ALLOC_PROMPT' ,
1911: p_token3_translate => OKE_API.G_TRUE
1912: );
1913:
1914: RAISE G_EXCEPTION_HALT_VALIDATION;
1915:
1935: BEGIN
1936:
1937: l_funding_in_rec.funding_source_id := null;
1938:
1939: IF l_funding_in_rec.pool_party_id = OKE_API.G_MISS_NUM THEN
1940: l_funding_in_rec.pool_party_id := null;
1941: END IF;
1942:
1943: IF l_funding_in_rec.object_type = OKE_API.G_MISS_CHAR THEN
1939: IF l_funding_in_rec.pool_party_id = OKE_API.G_MISS_NUM THEN
1940: l_funding_in_rec.pool_party_id := null;
1941: END IF;
1942:
1943: IF l_funding_in_rec.object_type = OKE_API.G_MISS_CHAR THEN
1944: l_funding_in_rec.object_type := null;
1945: END IF;
1946:
1947: IF l_funding_in_rec.object_id= OKE_API.G_MISS_NUM THEN
1943: IF l_funding_in_rec.object_type = OKE_API.G_MISS_CHAR THEN
1944: l_funding_in_rec.object_type := null;
1945: END IF;
1946:
1947: IF l_funding_in_rec.object_id= OKE_API.G_MISS_NUM THEN
1948: l_funding_in_rec.object_id := null;
1949: END IF;
1950:
1951: IF l_funding_in_rec.k_party_id= OKE_API.G_MISS_NUM THEN
1947: IF l_funding_in_rec.object_id= OKE_API.G_MISS_NUM THEN
1948: l_funding_in_rec.object_id := null;
1949: END IF;
1950:
1951: IF l_funding_in_rec.k_party_id= OKE_API.G_MISS_NUM THEN
1952: l_funding_in_rec.k_party_id := null;
1953: END IF;
1954:
1955: IF l_funding_in_rec.amount= OKE_API.G_MISS_NUM THEN
1951: IF l_funding_in_rec.k_party_id= OKE_API.G_MISS_NUM THEN
1952: l_funding_in_rec.k_party_id := null;
1953: END IF;
1954:
1955: IF l_funding_in_rec.amount= OKE_API.G_MISS_NUM THEN
1956: l_funding_in_rec.amount := null;
1957: END IF;
1958:
1959: IF l_funding_in_rec.currency_code = OKE_API.G_MISS_CHAR THEN
1955: IF l_funding_in_rec.amount= OKE_API.G_MISS_NUM THEN
1956: l_funding_in_rec.amount := null;
1957: END IF;
1958:
1959: IF l_funding_in_rec.currency_code = OKE_API.G_MISS_CHAR THEN
1960: l_funding_in_rec.currency_code := null;
1961: END IF;
1962:
1963: IF l_funding_in_rec.agreement_number = OKE_API.G_MISS_CHAR THEN
1959: IF l_funding_in_rec.currency_code = OKE_API.G_MISS_CHAR THEN
1960: l_funding_in_rec.currency_code := null;
1961: END IF;
1962:
1963: IF l_funding_in_rec.agreement_number = OKE_API.G_MISS_CHAR THEN
1964: l_funding_in_rec.agreement_number := null;
1965: END IF;
1966:
1967: IF l_funding_in_rec.funding_status = OKE_API.G_MISS_CHAR THEN
1963: IF l_funding_in_rec.agreement_number = OKE_API.G_MISS_CHAR THEN
1964: l_funding_in_rec.agreement_number := null;
1965: END IF;
1966:
1967: IF l_funding_in_rec.funding_status = OKE_API.G_MISS_CHAR THEN
1968: l_funding_in_rec.funding_status := null;
1969: END IF;
1970:
1971: IF l_funding_in_rec.hard_limit = OKE_API.G_MISS_NUM THEN
1967: IF l_funding_in_rec.funding_status = OKE_API.G_MISS_CHAR THEN
1968: l_funding_in_rec.funding_status := null;
1969: END IF;
1970:
1971: IF l_funding_in_rec.hard_limit = OKE_API.G_MISS_NUM THEN
1972: l_funding_in_rec.hard_limit := null;
1973: END IF;
1974:
1975: IF l_funding_in_rec.k_conversion_type = OKE_API.G_MISS_CHAR THEN
1971: IF l_funding_in_rec.hard_limit = OKE_API.G_MISS_NUM THEN
1972: l_funding_in_rec.hard_limit := null;
1973: END IF;
1974:
1975: IF l_funding_in_rec.k_conversion_type = OKE_API.G_MISS_CHAR THEN
1976: l_funding_in_rec.k_conversion_type := null;
1977: END IF;
1978:
1979: IF l_funding_in_rec.k_conversion_date = OKE_API.G_MISS_DATE THEN
1975: IF l_funding_in_rec.k_conversion_type = OKE_API.G_MISS_CHAR THEN
1976: l_funding_in_rec.k_conversion_type := null;
1977: END IF;
1978:
1979: IF l_funding_in_rec.k_conversion_date = OKE_API.G_MISS_DATE THEN
1980: l_funding_in_rec.k_conversion_date := null;
1981: END IF;
1982:
1983: -- syho, bug 2208979
1980: l_funding_in_rec.k_conversion_date := null;
1981: END IF;
1982:
1983: -- syho, bug 2208979
1984: IF l_funding_in_rec.k_conversion_rate = OKE_API.G_MISS_NUM THEN
1985: l_funding_in_rec.k_conversion_rate := null;
1986: END IF;
1987: -- syho, bug 2208979
1988:
1985: l_funding_in_rec.k_conversion_rate := null;
1986: END IF;
1987: -- syho, bug 2208979
1988:
1989: IF l_funding_in_rec.start_date_active = OKE_API.G_MISS_DATE THEN
1990: l_funding_in_rec.start_date_active := null;
1991: END IF;
1992:
1993: IF l_funding_in_rec.end_date_active = OKE_API.G_MISS_DATE THEN
1989: IF l_funding_in_rec.start_date_active = OKE_API.G_MISS_DATE THEN
1990: l_funding_in_rec.start_date_active := null;
1991: END IF;
1992:
1993: IF l_funding_in_rec.end_date_active = OKE_API.G_MISS_DATE THEN
1994: l_funding_in_rec.end_date_active := null;
1995: END IF;
1996: /*
1997: IF l_funding_in_rec.oke_desc_flex_name = OKE_API.G_MISS_CHAR THEN
1993: IF l_funding_in_rec.end_date_active = OKE_API.G_MISS_DATE THEN
1994: l_funding_in_rec.end_date_active := null;
1995: END IF;
1996: /*
1997: IF l_funding_in_rec.oke_desc_flex_name = OKE_API.G_MISS_CHAR THEN
1998: l_funding_in_rec.oke_desc_flex_name := null;
1999: END IF;
2000: */
2001: IF l_funding_in_rec.oke_attribute_category = OKE_API.G_MISS_CHAR THEN
1997: IF l_funding_in_rec.oke_desc_flex_name = OKE_API.G_MISS_CHAR THEN
1998: l_funding_in_rec.oke_desc_flex_name := null;
1999: END IF;
2000: */
2001: IF l_funding_in_rec.oke_attribute_category = OKE_API.G_MISS_CHAR THEN
2002: l_funding_in_rec.oke_attribute_category := null;
2003: END IF;
2004:
2005: IF l_funding_in_rec.oke_attribute1 = OKE_API.G_MISS_CHAR THEN
2001: IF l_funding_in_rec.oke_attribute_category = OKE_API.G_MISS_CHAR THEN
2002: l_funding_in_rec.oke_attribute_category := null;
2003: END IF;
2004:
2005: IF l_funding_in_rec.oke_attribute1 = OKE_API.G_MISS_CHAR THEN
2006: l_funding_in_rec.oke_attribute1 := null;
2007: END IF;
2008:
2009: IF l_funding_in_rec.oke_attribute2 = OKE_API.G_MISS_CHAR THEN
2005: IF l_funding_in_rec.oke_attribute1 = OKE_API.G_MISS_CHAR THEN
2006: l_funding_in_rec.oke_attribute1 := null;
2007: END IF;
2008:
2009: IF l_funding_in_rec.oke_attribute2 = OKE_API.G_MISS_CHAR THEN
2010: l_funding_in_rec.oke_attribute2 := null;
2011: END IF;
2012:
2013: IF l_funding_in_rec.oke_attribute3 = OKE_API.G_MISS_CHAR THEN
2009: IF l_funding_in_rec.oke_attribute2 = OKE_API.G_MISS_CHAR THEN
2010: l_funding_in_rec.oke_attribute2 := null;
2011: END IF;
2012:
2013: IF l_funding_in_rec.oke_attribute3 = OKE_API.G_MISS_CHAR THEN
2014: l_funding_in_rec.oke_attribute3 := null;
2015: END IF;
2016:
2017: IF l_funding_in_rec.oke_attribute4 = OKE_API.G_MISS_CHAR THEN
2013: IF l_funding_in_rec.oke_attribute3 = OKE_API.G_MISS_CHAR THEN
2014: l_funding_in_rec.oke_attribute3 := null;
2015: END IF;
2016:
2017: IF l_funding_in_rec.oke_attribute4 = OKE_API.G_MISS_CHAR THEN
2018: l_funding_in_rec.oke_attribute4 := null;
2019: END IF;
2020:
2021: IF l_funding_in_rec.oke_attribute5 = OKE_API.G_MISS_CHAR THEN
2017: IF l_funding_in_rec.oke_attribute4 = OKE_API.G_MISS_CHAR THEN
2018: l_funding_in_rec.oke_attribute4 := null;
2019: END IF;
2020:
2021: IF l_funding_in_rec.oke_attribute5 = OKE_API.G_MISS_CHAR THEN
2022: l_funding_in_rec.oke_attribute5 := null;
2023: END IF;
2024:
2025: IF l_funding_in_rec.oke_attribute6 = OKE_API.G_MISS_CHAR THEN
2021: IF l_funding_in_rec.oke_attribute5 = OKE_API.G_MISS_CHAR THEN
2022: l_funding_in_rec.oke_attribute5 := null;
2023: END IF;
2024:
2025: IF l_funding_in_rec.oke_attribute6 = OKE_API.G_MISS_CHAR THEN
2026: l_funding_in_rec.oke_attribute6 := null;
2027: END IF;
2028:
2029: IF l_funding_in_rec.oke_attribute7 = OKE_API.G_MISS_CHAR THEN
2025: IF l_funding_in_rec.oke_attribute6 = OKE_API.G_MISS_CHAR THEN
2026: l_funding_in_rec.oke_attribute6 := null;
2027: END IF;
2028:
2029: IF l_funding_in_rec.oke_attribute7 = OKE_API.G_MISS_CHAR THEN
2030: l_funding_in_rec.oke_attribute7 := null;
2031: END IF;
2032:
2033: IF l_funding_in_rec.oke_attribute8 = OKE_API.G_MISS_CHAR THEN
2029: IF l_funding_in_rec.oke_attribute7 = OKE_API.G_MISS_CHAR THEN
2030: l_funding_in_rec.oke_attribute7 := null;
2031: END IF;
2032:
2033: IF l_funding_in_rec.oke_attribute8 = OKE_API.G_MISS_CHAR THEN
2034: l_funding_in_rec.oke_attribute8 := null;
2035: END IF;
2036:
2037: IF l_funding_in_rec.oke_attribute9 = OKE_API.G_MISS_CHAR THEN
2033: IF l_funding_in_rec.oke_attribute8 = OKE_API.G_MISS_CHAR THEN
2034: l_funding_in_rec.oke_attribute8 := null;
2035: END IF;
2036:
2037: IF l_funding_in_rec.oke_attribute9 = OKE_API.G_MISS_CHAR THEN
2038: l_funding_in_rec.oke_attribute9 := null;
2039: END IF;
2040:
2041: IF l_funding_in_rec.oke_attribute10 = OKE_API.G_MISS_CHAR THEN
2037: IF l_funding_in_rec.oke_attribute9 = OKE_API.G_MISS_CHAR THEN
2038: l_funding_in_rec.oke_attribute9 := null;
2039: END IF;
2040:
2041: IF l_funding_in_rec.oke_attribute10 = OKE_API.G_MISS_CHAR THEN
2042: l_funding_in_rec.oke_attribute10 := null;
2043: END IF;
2044:
2045: IF l_funding_in_rec.oke_attribute11 = OKE_API.G_MISS_CHAR THEN
2041: IF l_funding_in_rec.oke_attribute10 = OKE_API.G_MISS_CHAR THEN
2042: l_funding_in_rec.oke_attribute10 := null;
2043: END IF;
2044:
2045: IF l_funding_in_rec.oke_attribute11 = OKE_API.G_MISS_CHAR THEN
2046: l_funding_in_rec.oke_attribute11 := null;
2047: END IF;
2048:
2049: IF l_funding_in_rec.oke_attribute12 = OKE_API.G_MISS_CHAR THEN
2045: IF l_funding_in_rec.oke_attribute11 = OKE_API.G_MISS_CHAR THEN
2046: l_funding_in_rec.oke_attribute11 := null;
2047: END IF;
2048:
2049: IF l_funding_in_rec.oke_attribute12 = OKE_API.G_MISS_CHAR THEN
2050: l_funding_in_rec.oke_attribute12 := null;
2051: END IF;
2052:
2053: IF l_funding_in_rec.oke_attribute13 = OKE_API.G_MISS_CHAR THEN
2049: IF l_funding_in_rec.oke_attribute12 = OKE_API.G_MISS_CHAR THEN
2050: l_funding_in_rec.oke_attribute12 := null;
2051: END IF;
2052:
2053: IF l_funding_in_rec.oke_attribute13 = OKE_API.G_MISS_CHAR THEN
2054: l_funding_in_rec.oke_attribute13 := null;
2055: END IF;
2056:
2057: IF l_funding_in_rec.oke_attribute14 = OKE_API.G_MISS_CHAR THEN
2053: IF l_funding_in_rec.oke_attribute13 = OKE_API.G_MISS_CHAR THEN
2054: l_funding_in_rec.oke_attribute13 := null;
2055: END IF;
2056:
2057: IF l_funding_in_rec.oke_attribute14 = OKE_API.G_MISS_CHAR THEN
2058: l_funding_in_rec.oke_attribute14 := null;
2059: END IF;
2060:
2061: IF l_funding_in_rec.oke_attribute15 = OKE_API.G_MISS_CHAR THEN
2057: IF l_funding_in_rec.oke_attribute14 = OKE_API.G_MISS_CHAR THEN
2058: l_funding_in_rec.oke_attribute14 := null;
2059: END IF;
2060:
2061: IF l_funding_in_rec.oke_attribute15 = OKE_API.G_MISS_CHAR THEN
2062: l_funding_in_rec.oke_attribute15 := null;
2063: END IF;
2064:
2065: IF l_funding_in_rec.pa_attribute_category = OKE_API.G_MISS_CHAR THEN
2061: IF l_funding_in_rec.oke_attribute15 = OKE_API.G_MISS_CHAR THEN
2062: l_funding_in_rec.oke_attribute15 := null;
2063: END IF;
2064:
2065: IF l_funding_in_rec.pa_attribute_category = OKE_API.G_MISS_CHAR THEN
2066: l_funding_in_rec.pa_attribute_category := null;
2067: END IF;
2068:
2069: IF l_funding_in_rec.pa_attribute1 = OKE_API.G_MISS_CHAR THEN
2065: IF l_funding_in_rec.pa_attribute_category = OKE_API.G_MISS_CHAR THEN
2066: l_funding_in_rec.pa_attribute_category := null;
2067: END IF;
2068:
2069: IF l_funding_in_rec.pa_attribute1 = OKE_API.G_MISS_CHAR THEN
2070: l_funding_in_rec.pa_attribute1 := null;
2071: END IF;
2072:
2073: IF l_funding_in_rec.pa_attribute2 = OKE_API.G_MISS_CHAR THEN
2069: IF l_funding_in_rec.pa_attribute1 = OKE_API.G_MISS_CHAR THEN
2070: l_funding_in_rec.pa_attribute1 := null;
2071: END IF;
2072:
2073: IF l_funding_in_rec.pa_attribute2 = OKE_API.G_MISS_CHAR THEN
2074: l_funding_in_rec.pa_attribute2 := null;
2075: END IF;
2076:
2077: IF l_funding_in_rec.pa_attribute3 = OKE_API.G_MISS_CHAR THEN
2073: IF l_funding_in_rec.pa_attribute2 = OKE_API.G_MISS_CHAR THEN
2074: l_funding_in_rec.pa_attribute2 := null;
2075: END IF;
2076:
2077: IF l_funding_in_rec.pa_attribute3 = OKE_API.G_MISS_CHAR THEN
2078: l_funding_in_rec.pa_attribute3 := null;
2079: END IF;
2080:
2081: IF l_funding_in_rec.pa_attribute4 = OKE_API.G_MISS_CHAR THEN
2077: IF l_funding_in_rec.pa_attribute3 = OKE_API.G_MISS_CHAR THEN
2078: l_funding_in_rec.pa_attribute3 := null;
2079: END IF;
2080:
2081: IF l_funding_in_rec.pa_attribute4 = OKE_API.G_MISS_CHAR THEN
2082: l_funding_in_rec.pa_attribute4 := null;
2083: END IF;
2084:
2085: IF l_funding_in_rec.pa_attribute5 = OKE_API.G_MISS_CHAR THEN
2081: IF l_funding_in_rec.pa_attribute4 = OKE_API.G_MISS_CHAR THEN
2082: l_funding_in_rec.pa_attribute4 := null;
2083: END IF;
2084:
2085: IF l_funding_in_rec.pa_attribute5 = OKE_API.G_MISS_CHAR THEN
2086: l_funding_in_rec.pa_attribute5 := null;
2087: END IF;
2088:
2089: IF l_funding_in_rec.pa_attribute6 = OKE_API.G_MISS_CHAR THEN
2085: IF l_funding_in_rec.pa_attribute5 = OKE_API.G_MISS_CHAR THEN
2086: l_funding_in_rec.pa_attribute5 := null;
2087: END IF;
2088:
2089: IF l_funding_in_rec.pa_attribute6 = OKE_API.G_MISS_CHAR THEN
2090: l_funding_in_rec.pa_attribute6 := null;
2091: END IF;
2092:
2093: IF l_funding_in_rec.pa_attribute7 = OKE_API.G_MISS_CHAR THEN
2089: IF l_funding_in_rec.pa_attribute6 = OKE_API.G_MISS_CHAR THEN
2090: l_funding_in_rec.pa_attribute6 := null;
2091: END IF;
2092:
2093: IF l_funding_in_rec.pa_attribute7 = OKE_API.G_MISS_CHAR THEN
2094: l_funding_in_rec.pa_attribute7 := null;
2095: END IF;
2096:
2097: IF l_funding_in_rec.pa_attribute8 = OKE_API.G_MISS_CHAR THEN
2093: IF l_funding_in_rec.pa_attribute7 = OKE_API.G_MISS_CHAR THEN
2094: l_funding_in_rec.pa_attribute7 := null;
2095: END IF;
2096:
2097: IF l_funding_in_rec.pa_attribute8 = OKE_API.G_MISS_CHAR THEN
2098: l_funding_in_rec.pa_attribute8 := null;
2099: END IF;
2100:
2101: IF l_funding_in_rec.pa_attribute9 = OKE_API.G_MISS_CHAR THEN
2097: IF l_funding_in_rec.pa_attribute8 = OKE_API.G_MISS_CHAR THEN
2098: l_funding_in_rec.pa_attribute8 := null;
2099: END IF;
2100:
2101: IF l_funding_in_rec.pa_attribute9 = OKE_API.G_MISS_CHAR THEN
2102: l_funding_in_rec.pa_attribute9 := null;
2103: END IF;
2104:
2105: IF l_funding_in_rec.pa_attribute10 = OKE_API.G_MISS_CHAR THEN
2101: IF l_funding_in_rec.pa_attribute9 = OKE_API.G_MISS_CHAR THEN
2102: l_funding_in_rec.pa_attribute9 := null;
2103: END IF;
2104:
2105: IF l_funding_in_rec.pa_attribute10 = OKE_API.G_MISS_CHAR THEN
2106: l_funding_in_rec.pa_attribute10 := null;
2107: END IF;
2108:
2109: IF l_funding_in_rec.revenue_hard_limit = OKE_API.G_MISS_NUM THEN
2105: IF l_funding_in_rec.pa_attribute10 = OKE_API.G_MISS_CHAR THEN
2106: l_funding_in_rec.pa_attribute10 := null;
2107: END IF;
2108:
2109: IF l_funding_in_rec.revenue_hard_limit = OKE_API.G_MISS_NUM THEN
2110: l_funding_in_rec.revenue_hard_limit := null;
2111: END IF;
2112:
2113: IF l_funding_in_rec.agreement_org_id = OKE_API.G_MISS_NUM THEN
2109: IF l_funding_in_rec.revenue_hard_limit = OKE_API.G_MISS_NUM THEN
2110: l_funding_in_rec.revenue_hard_limit := null;
2111: END IF;
2112:
2113: IF l_funding_in_rec.agreement_org_id = OKE_API.G_MISS_NUM THEN
2114: l_funding_in_rec.agreement_org_id := null;
2115: END IF;
2116:
2117: return(l_funding_in_rec);
2150: CLOSE c_funding_row;
2151:
2152: p_funding_in_rec_out := p_funding_in_rec;
2153:
2154: IF (p_funding_in_rec_out.object_type = OKE_API.G_MISS_CHAR) THEN
2155: p_funding_in_rec_out.object_type := l_funding_row.object_type;
2156:
2157: ELSIF (nvl(p_funding_in_rec_out.object_type, '-99') <> l_funding_row.object_type) THEN
2158:
2155: p_funding_in_rec_out.object_type := l_funding_row.object_type;
2156:
2157: ELSIF (nvl(p_funding_in_rec_out.object_type, '-99') <> l_funding_row.object_type) THEN
2158:
2159: OKE_API.set_message(p_app_name => G_APP_NAME ,
2160: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2161: p_token1 => 'VALUE' ,
2162: p_token1_value => 'object_type'
2163: );
2156:
2157: ELSIF (nvl(p_funding_in_rec_out.object_type, '-99') <> l_funding_row.object_type) THEN
2158:
2159: OKE_API.set_message(p_app_name => G_APP_NAME ,
2160: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2161: p_token1 => 'VALUE' ,
2162: p_token1_value => 'object_type'
2163: );
2164:
2165: RAISE G_EXCEPTION_HALT_VALIDATION;
2166:
2167: END IF;
2168:
2169: IF (p_funding_in_rec_out.object_id = OKE_API.G_MISS_NUM) THEN
2170: p_funding_in_rec_out.object_id := l_funding_row.object_id;
2171:
2172: ELSIF (nvl(p_funding_in_rec_out.object_id, -99) <> l_funding_row.object_id) THEN
2173:
2170: p_funding_in_rec_out.object_id := l_funding_row.object_id;
2171:
2172: ELSIF (nvl(p_funding_in_rec_out.object_id, -99) <> l_funding_row.object_id) THEN
2173:
2174: OKE_API.set_message(p_app_name => G_APP_NAME ,
2175: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2176: p_token1 => 'VALUE' ,
2177: p_token1_value => 'object_id'
2178: );
2171:
2172: ELSIF (nvl(p_funding_in_rec_out.object_id, -99) <> l_funding_row.object_id) THEN
2173:
2174: OKE_API.set_message(p_app_name => G_APP_NAME ,
2175: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2176: p_token1 => 'VALUE' ,
2177: p_token1_value => 'object_id'
2178: );
2179:
2180: RAISE G_EXCEPTION_HALT_VALIDATION;
2181:
2182: END IF;
2183:
2184: IF (p_funding_in_rec_out.pool_party_id = OKE_API.G_MISS_NUM) THEN
2185: p_funding_in_rec_out.pool_party_id := l_funding_row.pool_party_id;
2186:
2187: ELSIF (nvl(p_funding_in_rec_out.pool_party_id, -99) <> nvl(l_funding_row.pool_party_id, -99)) THEN
2188:
2185: p_funding_in_rec_out.pool_party_id := l_funding_row.pool_party_id;
2186:
2187: ELSIF (nvl(p_funding_in_rec_out.pool_party_id, -99) <> nvl(l_funding_row.pool_party_id, -99)) THEN
2188:
2189: OKE_API.set_message(p_app_name => G_APP_NAME ,
2190: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2191: p_token1 => 'VALUE' ,
2192: p_token1_value => 'pool_party_id'
2193: );
2186:
2187: ELSIF (nvl(p_funding_in_rec_out.pool_party_id, -99) <> nvl(l_funding_row.pool_party_id, -99)) THEN
2188:
2189: OKE_API.set_message(p_app_name => G_APP_NAME ,
2190: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2191: p_token1 => 'VALUE' ,
2192: p_token1_value => 'pool_party_id'
2193: );
2194:
2195: RAISE G_EXCEPTION_HALT_VALIDATION;
2196:
2197: END IF;
2198:
2199: IF (p_funding_in_rec_out.k_party_id = OKE_API.G_MISS_NUM) THEN
2200: p_funding_in_rec_out.k_party_id := l_funding_row.k_party_id;
2201:
2202: ELSIF (nvl(p_funding_in_rec_out.k_party_id, -99) <> nvl(l_funding_row.k_party_id, -99)) THEN
2203:
2200: p_funding_in_rec_out.k_party_id := l_funding_row.k_party_id;
2201:
2202: ELSIF (nvl(p_funding_in_rec_out.k_party_id, -99) <> nvl(l_funding_row.k_party_id, -99)) THEN
2203:
2204: OKE_API.set_message(p_app_name => G_APP_NAME ,
2205: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2206: p_token1 => 'VALUE' ,
2207: p_token1_value => 'k_party_id'
2208: );
2201:
2202: ELSIF (nvl(p_funding_in_rec_out.k_party_id, -99) <> nvl(l_funding_row.k_party_id, -99)) THEN
2203:
2204: OKE_API.set_message(p_app_name => G_APP_NAME ,
2205: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2206: p_token1 => 'VALUE' ,
2207: p_token1_value => 'k_party_id'
2208: );
2209:
2210: RAISE G_EXCEPTION_HALT_VALIDATION;
2211:
2212: END IF;
2213:
2214: IF (p_funding_in_rec_out.amount = OKE_API.G_MISS_NUM) THEN
2215: p_funding_in_rec_out.amount := l_funding_row.amount;
2216: END IF;
2217:
2218: IF (p_funding_in_rec_out.hard_limit = OKE_API.G_MISS_NUM) THEN
2214: IF (p_funding_in_rec_out.amount = OKE_API.G_MISS_NUM) THEN
2215: p_funding_in_rec_out.amount := l_funding_row.amount;
2216: END IF;
2217:
2218: IF (p_funding_in_rec_out.hard_limit = OKE_API.G_MISS_NUM) THEN
2219: p_funding_in_rec_out.hard_limit := l_funding_row.hard_limit;
2220: END IF;
2221:
2222: IF (p_funding_in_rec_out.revenue_hard_limit = OKE_API.G_MISS_NUM) THEN
2218: IF (p_funding_in_rec_out.hard_limit = OKE_API.G_MISS_NUM) THEN
2219: p_funding_in_rec_out.hard_limit := l_funding_row.hard_limit;
2220: END IF;
2221:
2222: IF (p_funding_in_rec_out.revenue_hard_limit = OKE_API.G_MISS_NUM) THEN
2223: p_funding_in_rec_out.revenue_hard_limit := l_funding_row.revenue_hard_limit;
2224: END IF;
2225:
2226: IF (p_funding_in_rec_out.agreement_org_id = OKE_API.G_MISS_NUM) THEN
2222: IF (p_funding_in_rec_out.revenue_hard_limit = OKE_API.G_MISS_NUM) THEN
2223: p_funding_in_rec_out.revenue_hard_limit := l_funding_row.revenue_hard_limit;
2224: END IF;
2225:
2226: IF (p_funding_in_rec_out.agreement_org_id = OKE_API.G_MISS_NUM) THEN
2227: p_funding_in_rec_out.agreement_org_id := l_funding_row.agreement_org_id;
2228: END IF;
2229:
2230: IF p_funding_in_rec_out.currency_code = OKE_API.G_MISS_CHAR THEN
2226: IF (p_funding_in_rec_out.agreement_org_id = OKE_API.G_MISS_NUM) THEN
2227: p_funding_in_rec_out.agreement_org_id := l_funding_row.agreement_org_id;
2228: END IF;
2229:
2230: IF p_funding_in_rec_out.currency_code = OKE_API.G_MISS_CHAR THEN
2231: p_funding_in_rec_out.currency_code := l_funding_row.currency_code;
2232:
2233: ELSIF (nvl(upper(p_funding_in_rec_out.currency_code), '-99') <> l_funding_row.currency_code) THEN
2234:
2231: p_funding_in_rec_out.currency_code := l_funding_row.currency_code;
2232:
2233: ELSIF (nvl(upper(p_funding_in_rec_out.currency_code), '-99') <> l_funding_row.currency_code) THEN
2234:
2235: OKE_API.set_message(p_app_name => G_APP_NAME ,
2236: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2237: p_token1 => 'VALUE' ,
2238: p_token1_value => 'currency_code'
2239: );
2232:
2233: ELSIF (nvl(upper(p_funding_in_rec_out.currency_code), '-99') <> l_funding_row.currency_code) THEN
2234:
2235: OKE_API.set_message(p_app_name => G_APP_NAME ,
2236: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2237: p_token1 => 'VALUE' ,
2238: p_token1_value => 'currency_code'
2239: );
2240:
2241: RAISE G_EXCEPTION_HALT_VALIDATION;
2242:
2243: END IF;
2244:
2245: IF p_funding_in_rec_out.agreement_number = OKE_API.G_MISS_CHAR THEN
2246: p_funding_in_rec_out.agreement_number := l_funding_row.agreement_number;
2247:
2248: ELSIF (nvl(p_funding_in_rec_out.agreement_number, '-99') <> nvl(l_funding_row.agreement_number, '-99')) THEN
2249:
2248: ELSIF (nvl(p_funding_in_rec_out.agreement_number, '-99') <> nvl(l_funding_row.agreement_number, '-99')) THEN
2249:
2250: IF (l_funding_row.agreement_flag = 'Y') THEN
2251:
2252: OKE_API.set_message(p_app_name => G_APP_NAME ,
2253: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2254: p_token1 => 'VALUE' ,
2255: p_token1_value => 'agreement_number'
2256: );
2249:
2250: IF (l_funding_row.agreement_flag = 'Y') THEN
2251:
2252: OKE_API.set_message(p_app_name => G_APP_NAME ,
2253: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2254: p_token1 => 'VALUE' ,
2255: p_token1_value => 'agreement_number'
2256: );
2257:
2260: END IF;
2261:
2262: END IF;
2263:
2264: IF p_funding_in_rec_out.k_conversion_type = OKE_API.G_MISS_CHAR THEN
2265: p_funding_in_rec_out.k_conversion_type := l_funding_row.k_conversion_type;
2266: END IF;
2267:
2268: IF p_funding_in_rec_out.k_conversion_date = OKE_API.G_MISS_DATE THEN
2264: IF p_funding_in_rec_out.k_conversion_type = OKE_API.G_MISS_CHAR THEN
2265: p_funding_in_rec_out.k_conversion_type := l_funding_row.k_conversion_type;
2266: END IF;
2267:
2268: IF p_funding_in_rec_out.k_conversion_date = OKE_API.G_MISS_DATE THEN
2269: p_funding_in_rec_out.k_conversion_date := l_funding_row.k_conversion_date;
2270: END IF;
2271:
2272: -- syho, bug 2208979
2269: p_funding_in_rec_out.k_conversion_date := l_funding_row.k_conversion_date;
2270: END IF;
2271:
2272: -- syho, bug 2208979
2273: IF p_funding_in_rec_out.k_conversion_rate = OKE_API.G_MISS_NUM THEN
2274: p_funding_in_rec_out.k_conversion_rate := l_funding_row.k_conversion_rate;
2275: END IF;
2276:
2277: IF (upper(p_funding_in_rec_out.k_conversion_type) <> 'USER') AND
2278: (nvl(to_char(p_funding_in_rec_out.k_conversion_date, 'YYYYMMDD'), '19000101') <> nvl(to_char(l_funding_row.k_conversion_date, 'YYYYMMDD'), '19000101') OR
2279: nvl(p_funding_in_rec_out.k_conversion_type, '-99') <> nvl(l_funding_row.k_conversion_type, '-99')) AND
2280: (p_funding_in_rec_out.k_conversion_rate is not null) THEN
2281:
2282: OKE_API.set_message(p_app_name => G_APP_NAME ,
2283: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2284: p_token1 => 'VALUE' ,
2285: p_token1_value => 'k_conversion_rate'
2286: );
2279: nvl(p_funding_in_rec_out.k_conversion_type, '-99') <> nvl(l_funding_row.k_conversion_type, '-99')) AND
2280: (p_funding_in_rec_out.k_conversion_rate is not null) THEN
2281:
2282: OKE_API.set_message(p_app_name => G_APP_NAME ,
2283: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2284: p_token1 => 'VALUE' ,
2285: p_token1_value => 'k_conversion_rate'
2286: );
2287:
2297: p_flag := 'Y';
2298:
2299: END IF;
2300:
2301: IF p_funding_in_rec_out.funding_status = OKE_API.G_MISS_CHAR THEN
2302: p_funding_in_rec_out.funding_status := l_funding_row.funding_status;
2303: END IF;
2304:
2305: IF p_funding_in_rec_out.start_date_active = OKE_API.G_MISS_DATE THEN
2301: IF p_funding_in_rec_out.funding_status = OKE_API.G_MISS_CHAR THEN
2302: p_funding_in_rec_out.funding_status := l_funding_row.funding_status;
2303: END IF;
2304:
2305: IF p_funding_in_rec_out.start_date_active = OKE_API.G_MISS_DATE THEN
2306: p_funding_in_rec_out.start_date_active := l_funding_row.start_date_active;
2307: END IF;
2308:
2309: IF p_funding_in_rec_out.end_date_active = OKE_API.G_MISS_DATE THEN
2305: IF p_funding_in_rec_out.start_date_active = OKE_API.G_MISS_DATE THEN
2306: p_funding_in_rec_out.start_date_active := l_funding_row.start_date_active;
2307: END IF;
2308:
2309: IF p_funding_in_rec_out.end_date_active = OKE_API.G_MISS_DATE THEN
2310: p_funding_in_rec_out.end_date_active := l_funding_row.end_date_active;
2311: END IF;
2312: /*
2313: IF p_funding_in_rec_out.oke_desc_flex_name = OKE_API.G_MISS_CHAR THEN
2309: IF p_funding_in_rec_out.end_date_active = OKE_API.G_MISS_DATE THEN
2310: p_funding_in_rec_out.end_date_active := l_funding_row.end_date_active;
2311: END IF;
2312: /*
2313: IF p_funding_in_rec_out.oke_desc_flex_name = OKE_API.G_MISS_CHAR THEN
2314: p_funding_in_rec_out.oke_desc_flex_name := null;
2315: END IF;
2316: */
2317: IF p_funding_in_rec_out.oke_attribute_category = OKE_API.G_MISS_CHAR THEN
2313: IF p_funding_in_rec_out.oke_desc_flex_name = OKE_API.G_MISS_CHAR THEN
2314: p_funding_in_rec_out.oke_desc_flex_name := null;
2315: END IF;
2316: */
2317: IF p_funding_in_rec_out.oke_attribute_category = OKE_API.G_MISS_CHAR THEN
2318: p_funding_in_rec_out.oke_attribute_category := l_funding_row.attribute_category;
2319: END IF;
2320:
2321: IF p_funding_in_rec_out.oke_attribute1 = OKE_API.G_MISS_CHAR THEN
2317: IF p_funding_in_rec_out.oke_attribute_category = OKE_API.G_MISS_CHAR THEN
2318: p_funding_in_rec_out.oke_attribute_category := l_funding_row.attribute_category;
2319: END IF;
2320:
2321: IF p_funding_in_rec_out.oke_attribute1 = OKE_API.G_MISS_CHAR THEN
2322: p_funding_in_rec_out.oke_attribute1 := l_funding_row.attribute1;
2323: END IF;
2324:
2325: IF p_funding_in_rec_out.oke_attribute2 = OKE_API.G_MISS_CHAR THEN
2321: IF p_funding_in_rec_out.oke_attribute1 = OKE_API.G_MISS_CHAR THEN
2322: p_funding_in_rec_out.oke_attribute1 := l_funding_row.attribute1;
2323: END IF;
2324:
2325: IF p_funding_in_rec_out.oke_attribute2 = OKE_API.G_MISS_CHAR THEN
2326: p_funding_in_rec_out.oke_attribute2 := l_funding_row.attribute2;
2327: END IF;
2328:
2329: IF p_funding_in_rec_out.oke_attribute3 = OKE_API.G_MISS_CHAR THEN
2325: IF p_funding_in_rec_out.oke_attribute2 = OKE_API.G_MISS_CHAR THEN
2326: p_funding_in_rec_out.oke_attribute2 := l_funding_row.attribute2;
2327: END IF;
2328:
2329: IF p_funding_in_rec_out.oke_attribute3 = OKE_API.G_MISS_CHAR THEN
2330: p_funding_in_rec_out.oke_attribute3 := l_funding_row.attribute3;
2331: END IF;
2332:
2333: IF p_funding_in_rec_out.oke_attribute4 = OKE_API.G_MISS_CHAR THEN
2329: IF p_funding_in_rec_out.oke_attribute3 = OKE_API.G_MISS_CHAR THEN
2330: p_funding_in_rec_out.oke_attribute3 := l_funding_row.attribute3;
2331: END IF;
2332:
2333: IF p_funding_in_rec_out.oke_attribute4 = OKE_API.G_MISS_CHAR THEN
2334: p_funding_in_rec_out.oke_attribute4 := l_funding_row.attribute4;
2335: END IF;
2336:
2337: IF p_funding_in_rec_out.oke_attribute5 = OKE_API.G_MISS_CHAR THEN
2333: IF p_funding_in_rec_out.oke_attribute4 = OKE_API.G_MISS_CHAR THEN
2334: p_funding_in_rec_out.oke_attribute4 := l_funding_row.attribute4;
2335: END IF;
2336:
2337: IF p_funding_in_rec_out.oke_attribute5 = OKE_API.G_MISS_CHAR THEN
2338: p_funding_in_rec_out.oke_attribute5 := l_funding_row.attribute5;
2339: END IF;
2340:
2341: IF p_funding_in_rec_out.oke_attribute6 = OKE_API.G_MISS_CHAR THEN
2337: IF p_funding_in_rec_out.oke_attribute5 = OKE_API.G_MISS_CHAR THEN
2338: p_funding_in_rec_out.oke_attribute5 := l_funding_row.attribute5;
2339: END IF;
2340:
2341: IF p_funding_in_rec_out.oke_attribute6 = OKE_API.G_MISS_CHAR THEN
2342: p_funding_in_rec_out.oke_attribute6 := l_funding_row.attribute6;
2343: END IF;
2344:
2345: IF p_funding_in_rec_out.oke_attribute7 = OKE_API.G_MISS_CHAR THEN
2341: IF p_funding_in_rec_out.oke_attribute6 = OKE_API.G_MISS_CHAR THEN
2342: p_funding_in_rec_out.oke_attribute6 := l_funding_row.attribute6;
2343: END IF;
2344:
2345: IF p_funding_in_rec_out.oke_attribute7 = OKE_API.G_MISS_CHAR THEN
2346: p_funding_in_rec_out.oke_attribute7 := l_funding_row.attribute7;
2347: END IF;
2348:
2349: IF p_funding_in_rec_out.oke_attribute8 = OKE_API.G_MISS_CHAR THEN
2345: IF p_funding_in_rec_out.oke_attribute7 = OKE_API.G_MISS_CHAR THEN
2346: p_funding_in_rec_out.oke_attribute7 := l_funding_row.attribute7;
2347: END IF;
2348:
2349: IF p_funding_in_rec_out.oke_attribute8 = OKE_API.G_MISS_CHAR THEN
2350: p_funding_in_rec_out.oke_attribute8 := l_funding_row.attribute8;
2351: END IF;
2352:
2353: IF p_funding_in_rec_out.oke_attribute9 = OKE_API.G_MISS_CHAR THEN
2349: IF p_funding_in_rec_out.oke_attribute8 = OKE_API.G_MISS_CHAR THEN
2350: p_funding_in_rec_out.oke_attribute8 := l_funding_row.attribute8;
2351: END IF;
2352:
2353: IF p_funding_in_rec_out.oke_attribute9 = OKE_API.G_MISS_CHAR THEN
2354: p_funding_in_rec_out.oke_attribute9 := l_funding_row.attribute9;
2355: END IF;
2356:
2357: IF p_funding_in_rec_out.oke_attribute10 = OKE_API.G_MISS_CHAR THEN
2353: IF p_funding_in_rec_out.oke_attribute9 = OKE_API.G_MISS_CHAR THEN
2354: p_funding_in_rec_out.oke_attribute9 := l_funding_row.attribute9;
2355: END IF;
2356:
2357: IF p_funding_in_rec_out.oke_attribute10 = OKE_API.G_MISS_CHAR THEN
2358: p_funding_in_rec_out.oke_attribute10 := l_funding_row.attribute10;
2359: END IF;
2360:
2361: IF p_funding_in_rec_out.oke_attribute11 = OKE_API.G_MISS_CHAR THEN
2357: IF p_funding_in_rec_out.oke_attribute10 = OKE_API.G_MISS_CHAR THEN
2358: p_funding_in_rec_out.oke_attribute10 := l_funding_row.attribute10;
2359: END IF;
2360:
2361: IF p_funding_in_rec_out.oke_attribute11 = OKE_API.G_MISS_CHAR THEN
2362: p_funding_in_rec_out.oke_attribute11 := l_funding_row.attribute11;
2363: END IF;
2364:
2365: IF p_funding_in_rec_out.oke_attribute12 = OKE_API.G_MISS_CHAR THEN
2361: IF p_funding_in_rec_out.oke_attribute11 = OKE_API.G_MISS_CHAR THEN
2362: p_funding_in_rec_out.oke_attribute11 := l_funding_row.attribute11;
2363: END IF;
2364:
2365: IF p_funding_in_rec_out.oke_attribute12 = OKE_API.G_MISS_CHAR THEN
2366: p_funding_in_rec_out.oke_attribute12 := l_funding_row.attribute12;
2367: END IF;
2368:
2369: IF p_funding_in_rec_out.oke_attribute13 = OKE_API.G_MISS_CHAR THEN
2365: IF p_funding_in_rec_out.oke_attribute12 = OKE_API.G_MISS_CHAR THEN
2366: p_funding_in_rec_out.oke_attribute12 := l_funding_row.attribute12;
2367: END IF;
2368:
2369: IF p_funding_in_rec_out.oke_attribute13 = OKE_API.G_MISS_CHAR THEN
2370: p_funding_in_rec_out.oke_attribute13 := l_funding_row.attribute13;
2371: END IF;
2372:
2373: IF p_funding_in_rec_out.oke_attribute14 = OKE_API.G_MISS_CHAR THEN
2369: IF p_funding_in_rec_out.oke_attribute13 = OKE_API.G_MISS_CHAR THEN
2370: p_funding_in_rec_out.oke_attribute13 := l_funding_row.attribute13;
2371: END IF;
2372:
2373: IF p_funding_in_rec_out.oke_attribute14 = OKE_API.G_MISS_CHAR THEN
2374: p_funding_in_rec_out.oke_attribute14 := l_funding_row.attribute14;
2375: END IF;
2376:
2377: IF p_funding_in_rec_out.oke_attribute15 = OKE_API.G_MISS_CHAR THEN
2373: IF p_funding_in_rec_out.oke_attribute14 = OKE_API.G_MISS_CHAR THEN
2374: p_funding_in_rec_out.oke_attribute14 := l_funding_row.attribute14;
2375: END IF;
2376:
2377: IF p_funding_in_rec_out.oke_attribute15 = OKE_API.G_MISS_CHAR THEN
2378: p_funding_in_rec_out.oke_attribute15 := l_funding_row.attribute15;
2379: END IF;
2380:
2381: IF p_funding_in_rec_out.pa_attribute_category = OKE_API.G_MISS_CHAR THEN
2377: IF p_funding_in_rec_out.oke_attribute15 = OKE_API.G_MISS_CHAR THEN
2378: p_funding_in_rec_out.oke_attribute15 := l_funding_row.attribute15;
2379: END IF;
2380:
2381: IF p_funding_in_rec_out.pa_attribute_category = OKE_API.G_MISS_CHAR THEN
2382: p_funding_in_rec_out.pa_attribute_category := l_funding_row.pa_attribute_category;
2383: END IF;
2384:
2385: IF p_funding_in_rec_out.pa_attribute1 = OKE_API.G_MISS_CHAR THEN
2381: IF p_funding_in_rec_out.pa_attribute_category = OKE_API.G_MISS_CHAR THEN
2382: p_funding_in_rec_out.pa_attribute_category := l_funding_row.pa_attribute_category;
2383: END IF;
2384:
2385: IF p_funding_in_rec_out.pa_attribute1 = OKE_API.G_MISS_CHAR THEN
2386: p_funding_in_rec_out.pa_attribute1 := l_funding_row.pa_attribute1;
2387: END IF;
2388:
2389: IF p_funding_in_rec_out.pa_attribute2 = OKE_API.G_MISS_CHAR THEN
2385: IF p_funding_in_rec_out.pa_attribute1 = OKE_API.G_MISS_CHAR THEN
2386: p_funding_in_rec_out.pa_attribute1 := l_funding_row.pa_attribute1;
2387: END IF;
2388:
2389: IF p_funding_in_rec_out.pa_attribute2 = OKE_API.G_MISS_CHAR THEN
2390: p_funding_in_rec_out.pa_attribute2 := l_funding_row.pa_attribute2;
2391: END IF;
2392:
2393: IF p_funding_in_rec_out.pa_attribute3 = OKE_API.G_MISS_CHAR THEN
2389: IF p_funding_in_rec_out.pa_attribute2 = OKE_API.G_MISS_CHAR THEN
2390: p_funding_in_rec_out.pa_attribute2 := l_funding_row.pa_attribute2;
2391: END IF;
2392:
2393: IF p_funding_in_rec_out.pa_attribute3 = OKE_API.G_MISS_CHAR THEN
2394: p_funding_in_rec_out.pa_attribute3 := l_funding_row.pa_attribute3;
2395: END IF;
2396:
2397: IF p_funding_in_rec_out.pa_attribute4 = OKE_API.G_MISS_CHAR THEN
2393: IF p_funding_in_rec_out.pa_attribute3 = OKE_API.G_MISS_CHAR THEN
2394: p_funding_in_rec_out.pa_attribute3 := l_funding_row.pa_attribute3;
2395: END IF;
2396:
2397: IF p_funding_in_rec_out.pa_attribute4 = OKE_API.G_MISS_CHAR THEN
2398: p_funding_in_rec_out.pa_attribute4 := l_funding_row.pa_attribute4;
2399: END IF;
2400:
2401: IF p_funding_in_rec_out.pa_attribute5 = OKE_API.G_MISS_CHAR THEN
2397: IF p_funding_in_rec_out.pa_attribute4 = OKE_API.G_MISS_CHAR THEN
2398: p_funding_in_rec_out.pa_attribute4 := l_funding_row.pa_attribute4;
2399: END IF;
2400:
2401: IF p_funding_in_rec_out.pa_attribute5 = OKE_API.G_MISS_CHAR THEN
2402: p_funding_in_rec_out.pa_attribute5 := l_funding_row.pa_attribute5;
2403: END IF;
2404:
2405: IF p_funding_in_rec_out.pa_attribute6 = OKE_API.G_MISS_CHAR THEN
2401: IF p_funding_in_rec_out.pa_attribute5 = OKE_API.G_MISS_CHAR THEN
2402: p_funding_in_rec_out.pa_attribute5 := l_funding_row.pa_attribute5;
2403: END IF;
2404:
2405: IF p_funding_in_rec_out.pa_attribute6 = OKE_API.G_MISS_CHAR THEN
2406: p_funding_in_rec_out.pa_attribute6 := l_funding_row.pa_attribute6;
2407: END IF;
2408:
2409: IF p_funding_in_rec_out.pa_attribute7 = OKE_API.G_MISS_CHAR THEN
2405: IF p_funding_in_rec_out.pa_attribute6 = OKE_API.G_MISS_CHAR THEN
2406: p_funding_in_rec_out.pa_attribute6 := l_funding_row.pa_attribute6;
2407: END IF;
2408:
2409: IF p_funding_in_rec_out.pa_attribute7 = OKE_API.G_MISS_CHAR THEN
2410: p_funding_in_rec_out.pa_attribute7 := l_funding_row.pa_attribute7;
2411: END IF;
2412:
2413: IF p_funding_in_rec_out.pa_attribute8 = OKE_API.G_MISS_CHAR THEN
2409: IF p_funding_in_rec_out.pa_attribute7 = OKE_API.G_MISS_CHAR THEN
2410: p_funding_in_rec_out.pa_attribute7 := l_funding_row.pa_attribute7;
2411: END IF;
2412:
2413: IF p_funding_in_rec_out.pa_attribute8 = OKE_API.G_MISS_CHAR THEN
2414: p_funding_in_rec_out.pa_attribute8 := l_funding_row.pa_attribute8;
2415: END IF;
2416:
2417: IF p_funding_in_rec_out.pa_attribute9 = OKE_API.G_MISS_CHAR THEN
2413: IF p_funding_in_rec_out.pa_attribute8 = OKE_API.G_MISS_CHAR THEN
2414: p_funding_in_rec_out.pa_attribute8 := l_funding_row.pa_attribute8;
2415: END IF;
2416:
2417: IF p_funding_in_rec_out.pa_attribute9 = OKE_API.G_MISS_CHAR THEN
2418: p_funding_in_rec_out.pa_attribute9 := l_funding_row.pa_attribute9;
2419: END IF;
2420:
2421: IF p_funding_in_rec_out.pa_attribute10 = OKE_API.G_MISS_CHAR THEN
2417: IF p_funding_in_rec_out.pa_attribute9 = OKE_API.G_MISS_CHAR THEN
2418: p_funding_in_rec_out.pa_attribute9 := l_funding_row.pa_attribute9;
2419: END IF;
2420:
2421: IF p_funding_in_rec_out.pa_attribute10 = OKE_API.G_MISS_CHAR THEN
2422: p_funding_in_rec_out.pa_attribute10 := l_funding_row.pa_attribute10;
2423: END IF;
2424:
2425: p_previous_amount := l_funding_row.previous_amount;
2456: validate_object_id(p_object_id => p_k_header_id ,
2457: p_return_status => l_return_status
2458: );
2459:
2460: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
2461:
2462: RAISE G_EXCEPTION_HALT_VALIDATION;
2463:
2464: END IF;
2470: validate_currency_code(p_currency_code => p_source_currency ,
2471: p_return_status => l_return_status
2472: );
2473:
2474: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
2475:
2476: RAISE G_EXCEPTION_HALT_VALIDATION;
2477:
2478: END IF;
2484: validate_conversion_type(p_conversion_type => p_conversion_type ,
2485: p_return_status => l_return_status
2486: );
2487:
2488: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
2489:
2490: RAISE G_EXCEPTION_HALT_VALIDATION;
2491:
2492: END IF;
2494: validate_conversion_type(p_conversion_type => p_pa_conversion_type ,
2495: p_return_status => l_return_status
2496: );
2497:
2498: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
2499:
2500: RAISE G_EXCEPTION_HALT_VALIDATION;
2501:
2502: END IF;
2509: p_k_party_id => p_party_id ,
2510: p_return_status => l_return_status
2511: );
2512:
2513: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
2514:
2515: RAISE G_EXCEPTION_HALT_VALIDATION;
2516:
2517: END IF;
2523: validate_pool_party_id(p_pool_party_id => p_pool_party_id ,
2524: p_return_status => l_return_status
2525: );
2526:
2527: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
2528:
2529: RAISE G_EXCEPTION_HALT_VALIDATION;
2530:
2531: END IF;
2538: p_object_id => p_k_header_id ,
2539: p_return_status => l_return_status
2540: );
2541:
2542: IF (l_return_status <> OKE_API.G_RET_STS_SUCCESS) THEN
2543:
2544: RAISE G_EXCEPTION_HALT_VALIDATION;
2545:
2546: END IF;
2598: CLOSE c_party;
2599:
2600: IF (l_dummy_value = '?') THEN
2601:
2602: OKE_API.set_message(p_app_name => G_APP_NAME ,
2603: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2604: p_token1 => 'VALUE' ,
2605: p_token1_value => 'party_id'
2606: );
2599:
2600: IF (l_dummy_value = '?') THEN
2601:
2602: OKE_API.set_message(p_app_name => G_APP_NAME ,
2603: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2604: p_token1 => 'VALUE' ,
2605: p_token1_value => 'party_id'
2606: );
2607:
2615: FETCH c_pool_party into p_currency_code, p_start_date;
2616:
2617: IF (c_pool_party%NOTFOUND) THEN
2618:
2619: OKE_API.set_message(p_app_name => G_APP_NAME ,
2620: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2621: p_token1 => 'VALUE' ,
2622: p_token1_value => 'pool_party_id and party_id'
2623: );
2616:
2617: IF (c_pool_party%NOTFOUND) THEN
2618:
2619: OKE_API.set_message(p_app_name => G_APP_NAME ,
2620: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2621: p_token1 => 'VALUE' ,
2622: p_token1_value => 'pool_party_id and party_id'
2623: );
2624:
2639: FETCH c_pool_party into l_pool_currency;
2640:
2641: IF (c_pool_party%NOTFOUND) THEN
2642:
2643: OKE_API.set_message(p_app_name => G_APP_NAME ,
2644: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2645: p_token1 => 'VALUE' ,
2646: p_token1_value => 'pool_party_id and party_id'
2647: );
2640:
2641: IF (c_pool_party%NOTFOUND) THEN
2642:
2643: OKE_API.set_message(p_app_name => G_APP_NAME ,
2644: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2645: p_token1 => 'VALUE' ,
2646: p_token1_value => 'pool_party_id and party_id'
2647: );
2648:
2655: CLOSE c_pool_party;
2656:
2657: IF (l_pool_currency <> p_source_currency) THEN
2658:
2659: OKE_API.set_message(p_app_name => G_APP_NAME ,
2660: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2661: p_token1 => 'VALUE' ,
2662: p_token1_value => 'pool_party_id'
2663: );
2656:
2657: IF (l_pool_currency <> p_source_currency) THEN
2658:
2659: OKE_API.set_message(p_app_name => G_APP_NAME ,
2660: p_msg_name => 'OKE_API_INVALID_VALUE' ,
2661: p_token1 => 'VALUE' ,
2662: p_token1_value => 'pool_party_id'
2663: );
2664:
2680:
2681: raise G_EXCEPTION_HALT_VALIDATION;
2682:
2683: WHEN OTHERS THEN
2684: OKE_API.set_message(p_app_name => G_APP_NAME ,
2685: p_msg_name => G_UNEXPECTED_ERROR ,
2686: p_token1 => G_SQLCODE_TOKEN ,
2687: p_token1_value => SQLCODE ,
2688: p_token2 => G_SQLERRM_TOKEN ,
2696: IF c_party%ISOPEN THEN
2697: CLOSE c_party;
2698: END IF;
2699:
2700: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701:
2702: END validate_agreement_party;
2703:
2704:
2712: -- Procedure create_funding
2713: --
2714: -- Description: This procedure is used to insert record in OKE_K_FUNDING_SOURCES table
2715: --
2716: -- Calling subprograms: OKE_API.start_activity
2717: -- OKE_API.end_activity
2718: -- OKE_FUNDINGSOURCE_PVT.insert_row
2719: -- null_funding_out
2720: -- validate_attributes
2713: --
2714: -- Description: This procedure is used to insert record in OKE_K_FUNDING_SOURCES table
2715: --
2716: -- Calling subprograms: OKE_API.start_activity
2717: -- OKE_API.end_activity
2718: -- OKE_FUNDINGSOURCE_PVT.insert_row
2719: -- null_funding_out
2720: -- validate_attributes
2721: -- validate_record
2721: -- validate_record
2722: --
2723:
2724: PROCEDURE create_funding(p_api_version IN NUMBER ,
2725: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
2726: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
2727: p_msg_count OUT NOCOPY NUMBER ,
2728: p_msg_data OUT NOCOPY VARCHAR2 ,
2729: p_funding_in_rec IN FUNDING_REC_IN_TYPE ,
2722: --
2723:
2724: PROCEDURE create_funding(p_api_version IN NUMBER ,
2725: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
2726: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
2727: p_msg_count OUT NOCOPY NUMBER ,
2728: p_msg_data OUT NOCOPY VARCHAR2 ,
2729: p_funding_in_rec IN FUNDING_REC_IN_TYPE ,
2730: p_funding_out_rec OUT NOCOPY FUNDING_REC_OUT_TYPE ,
2742:
2743: --dbms_output.put_line('entering oke_fundsource_pvt.create_funding');
2744: --oke_debug.debug('entering oke_fundsource_pvt.create_funding');
2745:
2746: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2747: p_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2748:
2749: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
2750: p_pkg_name => G_PKG_NAME ,
2743: --dbms_output.put_line('entering oke_fundsource_pvt.create_funding');
2744: --oke_debug.debug('entering oke_fundsource_pvt.create_funding');
2745:
2746: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2747: p_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2748:
2749: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
2750: p_pkg_name => G_PKG_NAME ,
2751: p_init_msg_list => p_init_msg_list ,
2745:
2746: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2747: p_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2748:
2749: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
2750: p_pkg_name => G_PKG_NAME ,
2751: p_init_msg_list => p_init_msg_list ,
2752: l_api_version => G_API_VERSION_NUMBER ,
2753: p_api_version => p_api_version ,
2754: p_api_type => '_PVT' ,
2755: x_return_status => p_return_status
2756: );
2757:
2758: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2759:
2760: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2761:
2762: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2756: );
2757:
2758: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2759:
2760: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2761:
2762: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2763:
2764: RAISE OKE_API.G_EXCEPTION_ERROR;
2758: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2759:
2760: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2761:
2762: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2763:
2764: RAISE OKE_API.G_EXCEPTION_ERROR;
2765:
2766: END IF;
2760: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2761:
2762: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2763:
2764: RAISE OKE_API.G_EXCEPTION_ERROR;
2765:
2766: END IF;
2767:
2768: --
2863:
2864: -- dbms_output.put_line('finished oke_fundsource_pvt.create_funding');
2865: --oke_debug.debug('finished oke_fundsource_pvt.create_funding');
2866:
2867: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
2868: x_msg_data => p_msg_data
2869: );
2870:
2871: EXCEPTION
2868: x_msg_data => p_msg_data
2869: );
2870:
2871: EXCEPTION
2872: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
2873: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
2874: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2875: p_pkg_name => G_PKG_NAME ,
2876: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
2869: );
2870:
2871: EXCEPTION
2872: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
2873: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
2874: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2875: p_pkg_name => G_PKG_NAME ,
2876: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
2877: x_msg_count => p_msg_count ,
2870:
2871: EXCEPTION
2872: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
2873: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
2874: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2875: p_pkg_name => G_PKG_NAME ,
2876: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
2877: x_msg_count => p_msg_count ,
2878: x_msg_data => p_msg_data ,
2872: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
2873: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
2874: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2875: p_pkg_name => G_PKG_NAME ,
2876: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
2877: x_msg_count => p_msg_count ,
2878: x_msg_data => p_msg_data ,
2879: p_api_type => '_PVT'
2880: );
2878: x_msg_data => p_msg_data ,
2879: p_api_type => '_PVT'
2880: );
2881:
2882: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2883: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
2884: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2885: p_pkg_name => G_PKG_NAME ,
2886: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
2879: p_api_type => '_PVT'
2880: );
2881:
2882: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2883: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
2884: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2885: p_pkg_name => G_PKG_NAME ,
2886: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
2887: x_msg_count => p_msg_count ,
2880: );
2881:
2882: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2883: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
2884: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2885: p_pkg_name => G_PKG_NAME ,
2886: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
2887: x_msg_count => p_msg_count ,
2888: x_msg_data => p_msg_data ,
2882: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2883: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
2884: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2885: p_pkg_name => G_PKG_NAME ,
2886: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
2887: x_msg_count => p_msg_count ,
2888: x_msg_data => p_msg_data ,
2889: p_api_type => '_PVT'
2890: );
2889: p_api_type => '_PVT'
2890: );
2891:
2892: WHEN OTHERS THEN
2893: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
2894: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2895: p_pkg_name => G_PKG_NAME ,
2896: p_exc_name => 'OTHERS' ,
2897: x_msg_count => p_msg_count ,
2890: );
2891:
2892: WHEN OTHERS THEN
2893: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
2894: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
2895: p_pkg_name => G_PKG_NAME ,
2896: p_exc_name => 'OTHERS' ,
2897: x_msg_count => p_msg_count ,
2898: x_msg_data => p_msg_data ,
2906: -- Procedure: update_funding
2907: --
2908: -- Description: This procedure is used to update record in OKE_FUNDING_SOURCES table
2909: --
2910: -- Calling subprograms: OKE_API.start_activity
2911: -- OKE_API.end_activity
2912: -- OKE_FUNDINGSOURCE_PVT.update_row
2913: -- validate_funding_source_id
2914: -- validate_populate_rec
2907: --
2908: -- Description: This procedure is used to update record in OKE_FUNDING_SOURCES table
2909: --
2910: -- Calling subprograms: OKE_API.start_activity
2911: -- OKE_API.end_activity
2912: -- OKE_FUNDINGSOURCE_PVT.update_row
2913: -- validate_funding_source_id
2914: -- validate_populate_rec
2915: -- validate_attributes
2916: -- validate_record
2917: --
2918:
2919: PROCEDURE update_funding(p_api_version IN NUMBER ,
2920: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
2921: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
2922: p_msg_count OUT NOCOPY NUMBER ,
2923: p_msg_data OUT NOCOPY VARCHAR2 ,
2924: p_funding_in_rec IN FUNDING_REC_IN_TYPE ,
2917: --
2918:
2919: PROCEDURE update_funding(p_api_version IN NUMBER ,
2920: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
2921: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
2922: p_msg_count OUT NOCOPY NUMBER ,
2923: p_msg_data OUT NOCOPY VARCHAR2 ,
2924: p_funding_in_rec IN FUNDING_REC_IN_TYPE ,
2925: p_funding_out_rec OUT NOCOPY FUNDING_REC_OUT_TYPE ,
2941:
2942: --dbms_output.put_line('entering oke_fundsource_pvt.update_funding');
2943: --oke_debug.debug('entering oke_fundsource_pvt.update_funding');
2944:
2945: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2946: p_funding_out_rec.funding_source_id := p_funding_in_rec.funding_source_id;
2947: p_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2948:
2949: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
2943: --oke_debug.debug('entering oke_fundsource_pvt.update_funding');
2944:
2945: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2946: p_funding_out_rec.funding_source_id := p_funding_in_rec.funding_source_id;
2947: p_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2948:
2949: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
2950: p_pkg_name => G_PKG_NAME ,
2951: p_init_msg_list => p_init_msg_list ,
2945: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2946: p_funding_out_rec.funding_source_id := p_funding_in_rec.funding_source_id;
2947: p_funding_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2948:
2949: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
2950: p_pkg_name => G_PKG_NAME ,
2951: p_init_msg_list => p_init_msg_list ,
2952: l_api_version => G_API_VERSION_NUMBER ,
2953: p_api_version => p_api_version ,
2954: p_api_type => '_PVT' ,
2955: x_return_status => p_return_status
2956: );
2957:
2958: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2959:
2960: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961:
2962: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2956: );
2957:
2958: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2959:
2960: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961:
2962: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2963:
2964: RAISE OKE_API.G_EXCEPTION_ERROR;
2958: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
2959:
2960: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961:
2962: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2963:
2964: RAISE OKE_API.G_EXCEPTION_ERROR;
2965:
2966: END IF;
2960: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961:
2962: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
2963:
2964: RAISE OKE_API.G_EXCEPTION_ERROR;
2965:
2966: END IF;
2967:
2968: --
3064: COMMIT WORK;
3065:
3066: END IF;
3067:
3068: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
3069: x_msg_data => p_msg_data
3070: );
3071:
3072: EXCEPTION
3069: x_msg_data => p_msg_data
3070: );
3071:
3072: EXCEPTION
3073: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
3074: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
3075: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3076: p_pkg_name => G_PKG_NAME ,
3077: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3070: );
3071:
3072: EXCEPTION
3073: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
3074: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
3075: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3076: p_pkg_name => G_PKG_NAME ,
3077: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3078: x_msg_count => p_msg_count ,
3071:
3072: EXCEPTION
3073: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
3074: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
3075: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3076: p_pkg_name => G_PKG_NAME ,
3077: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3078: x_msg_count => p_msg_count ,
3079: x_msg_data => p_msg_data ,
3073: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
3074: p_funding_out_rec.return_status := OKE_API.G_RET_STS_ERROR;
3075: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3076: p_pkg_name => G_PKG_NAME ,
3077: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3078: x_msg_count => p_msg_count ,
3079: x_msg_data => p_msg_data ,
3080: p_api_type => '_PVT'
3081: );
3079: x_msg_data => p_msg_data ,
3080: p_api_type => '_PVT'
3081: );
3082:
3083: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3084: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3085: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3086: p_pkg_name => G_PKG_NAME ,
3087: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3080: p_api_type => '_PVT'
3081: );
3082:
3083: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3084: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3085: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3086: p_pkg_name => G_PKG_NAME ,
3087: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3088: x_msg_count => p_msg_count ,
3081: );
3082:
3083: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3084: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3085: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3086: p_pkg_name => G_PKG_NAME ,
3087: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3088: x_msg_count => p_msg_count ,
3089: x_msg_data => p_msg_data ,
3083: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3084: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3085: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3086: p_pkg_name => G_PKG_NAME ,
3087: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3088: x_msg_count => p_msg_count ,
3089: x_msg_data => p_msg_data ,
3090: p_api_type => '_PVT'
3091: );
3090: p_api_type => '_PVT'
3091: );
3092:
3093: WHEN OTHERS THEN
3094: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3095: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3096: p_pkg_name => G_PKG_NAME ,
3097: p_exc_name => 'OTHERS' ,
3098: x_msg_count => p_msg_count ,
3091: );
3092:
3093: WHEN OTHERS THEN
3094: p_funding_out_rec.return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3095: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3096: p_pkg_name => G_PKG_NAME ,
3097: p_exc_name => 'OTHERS' ,
3098: x_msg_count => p_msg_count ,
3099: x_msg_data => p_msg_data ,
3108: -- Procedure: delete_funding
3109: --
3110: -- Description: This procedure is used to delete record in OKE_K_FUNDING_SOURCES table
3111: --
3112: -- Calling subprograms: OKE_API.start_activity
3113: -- OKE_API.end_activity
3114: -- OKE_FUNDINGSOURCE_PVT.delete_row
3115: -- PA_AGREEMENT_PUB.delete_agreement
3116: -- validate_funding_source_id
3109: --
3110: -- Description: This procedure is used to delete record in OKE_K_FUNDING_SOURCES table
3111: --
3112: -- Calling subprograms: OKE_API.start_activity
3113: -- OKE_API.end_activity
3114: -- OKE_FUNDINGSOURCE_PVT.delete_row
3115: -- PA_AGREEMENT_PUB.delete_agreement
3116: -- validate_funding_source_id
3117: --
3116: -- validate_funding_source_id
3117: --
3118:
3119: PROCEDURE delete_funding(p_api_version IN NUMBER ,
3120: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
3121: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
3122: p_msg_count OUT NOCOPY NUMBER ,
3123: p_msg_data OUT NOCOPY VARCHAR2 ,
3124: p_funding_source_id IN NUMBER ,
3117: --
3118:
3119: PROCEDURE delete_funding(p_api_version IN NUMBER ,
3120: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
3121: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
3122: p_msg_count OUT NOCOPY NUMBER ,
3123: p_msg_data OUT NOCOPY VARCHAR2 ,
3124: p_funding_source_id IN NUMBER ,
3125: -- p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
3121: p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
3122: p_msg_count OUT NOCOPY NUMBER ,
3123: p_msg_data OUT NOCOPY VARCHAR2 ,
3124: p_funding_source_id IN NUMBER ,
3125: -- p_agreement_flag IN VARCHAR2 := OKE_API.G_FALSE ,
3126: p_return_status OUT NOCOPY VARCHAR2
3127: ) is
3128:
3129: cursor c_agreement (p_funding_source_id NUMBER,
3145:
3146: -- dbms_output.put_line('entering oke_fundsource_pvt.delete_funding');
3147: --oke_debug.debug('entering oke_fundsource_pvt.delete_funding');
3148:
3149: p_return_status := OKE_API.G_RET_STS_SUCCESS;
3150:
3151: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
3152: p_pkg_name => G_PKG_NAME ,
3153: p_init_msg_list => p_init_msg_list ,
3147: --oke_debug.debug('entering oke_fundsource_pvt.delete_funding');
3148:
3149: p_return_status := OKE_API.G_RET_STS_SUCCESS;
3150:
3151: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
3152: p_pkg_name => G_PKG_NAME ,
3153: p_init_msg_list => p_init_msg_list ,
3154: l_api_version => G_API_VERSION_NUMBER ,
3155: p_api_version => p_api_version ,
3156: p_api_type => '_PVT' ,
3157: x_return_status => p_return_status
3158: );
3159:
3160: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3161:
3162: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163:
3164: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3158: );
3159:
3160: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3161:
3162: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163:
3164: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3165:
3166: RAISE OKE_API.G_EXCEPTION_ERROR;
3160: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3161:
3162: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163:
3164: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3165:
3166: RAISE OKE_API.G_EXCEPTION_ERROR;
3167:
3168: END IF;
3162: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163:
3164: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3165:
3166: RAISE OKE_API.G_EXCEPTION_ERROR;
3167:
3168: END IF;
3169:
3170: --
3206: -- dbms_output.put_line('calling pa_agreement_pub.delete_agreement from oke_fundsource_pvt');
3207: --oke_debug.debug('calling pa_agreement_pub.delete_agreement from oke_fundsource_pvt');
3208:
3209: PA_AGREEMENT_PUB.delete_agreement(p_api_version_number => p_api_version ,
3210: p_commit => OKE_API.G_FALSE ,
3211: p_init_msg_list => OKE_API.G_FALSE ,
3212: p_msg_count => p_msg_count ,
3213: p_msg_data => p_msg_data ,
3214: p_return_status => p_return_status ,
3207: --oke_debug.debug('calling pa_agreement_pub.delete_agreement from oke_fundsource_pvt');
3208:
3209: PA_AGREEMENT_PUB.delete_agreement(p_api_version_number => p_api_version ,
3210: p_commit => OKE_API.G_FALSE ,
3211: p_init_msg_list => OKE_API.G_FALSE ,
3212: p_msg_count => p_msg_count ,
3213: p_msg_data => p_msg_data ,
3214: p_return_status => p_return_status ,
3215: p_pm_product_code => G_PRODUCT_CODE ,
3216: p_pm_agreement_reference => l_agreement.pm_agreement_reference ,
3217: p_agreement_id => null
3218: );
3219:
3220: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3221:
3222: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3223:
3224: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3218: );
3219:
3220: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3221:
3222: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3223:
3224: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3225:
3226: RAISE OKE_API.G_EXCEPTION_ERROR;
3220: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3221:
3222: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3223:
3224: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3225:
3226: RAISE OKE_API.G_EXCEPTION_ERROR;
3227:
3228: END IF;
3222: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3223:
3224: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3225:
3226: RAISE OKE_API.G_EXCEPTION_ERROR;
3227:
3228: END IF;
3229:
3230: END LOOP;
3239: COMMIT WORK;
3240:
3241: END IF;
3242:
3243: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
3244: x_msg_data => p_msg_data
3245: );
3246:
3247: EXCEPTION
3244: x_msg_data => p_msg_data
3245: );
3246:
3247: EXCEPTION
3248: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
3249: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3250: p_pkg_name => G_PKG_NAME ,
3251: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3252: x_msg_count => p_msg_count ,
3245: );
3246:
3247: EXCEPTION
3248: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
3249: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3250: p_pkg_name => G_PKG_NAME ,
3251: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3252: x_msg_count => p_msg_count ,
3253: x_msg_data => p_msg_data ,
3247: EXCEPTION
3248: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
3249: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3250: p_pkg_name => G_PKG_NAME ,
3251: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3252: x_msg_count => p_msg_count ,
3253: x_msg_data => p_msg_data ,
3254: p_api_type => '_PVT'
3255: );
3253: x_msg_data => p_msg_data ,
3254: p_api_type => '_PVT'
3255: );
3256:
3257: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3258: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3259: p_pkg_name => G_PKG_NAME ,
3260: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3261: x_msg_count => p_msg_count ,
3254: p_api_type => '_PVT'
3255: );
3256:
3257: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3258: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3259: p_pkg_name => G_PKG_NAME ,
3260: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3261: x_msg_count => p_msg_count ,
3262: x_msg_data => p_msg_data ,
3256:
3257: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3258: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3259: p_pkg_name => G_PKG_NAME ,
3260: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3261: x_msg_count => p_msg_count ,
3262: x_msg_data => p_msg_data ,
3263: p_api_type => '_PVT'
3264: );
3263: p_api_type => '_PVT'
3264: );
3265:
3266: WHEN OTHERS THEN
3267: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3268: p_pkg_name => G_PKG_NAME ,
3269: p_exc_name => 'OTHERS' ,
3270: x_msg_count => p_msg_count ,
3271: x_msg_data => p_msg_data ,
3281: --
3282: -- Description: This procedure is used by Oracle Form to get the existing agreement record
3283: -- and create a funding record in OKE
3284: --
3285: -- Calling subprograms: OKE_API.start_activity
3286: -- OKE_API.end_activity
3287: -- OKE_FUNDSOURCE_PVT.create_funding
3288: -- OKE_ALLOCATION_PVT.add_allocation
3289: -- OKE_FUNDING_UTIL_PKG.check_single_org
3282: -- Description: This procedure is used by Oracle Form to get the existing agreement record
3283: -- and create a funding record in OKE
3284: --
3285: -- Calling subprograms: OKE_API.start_activity
3286: -- OKE_API.end_activity
3287: -- OKE_FUNDSOURCE_PVT.create_funding
3288: -- OKE_ALLOCATION_PVT.add_allocation
3289: -- OKE_FUNDING_UTIL_PKG.check_single_org
3290: -- OKE_FUNDING_UTIL_PKG.update_source_flag
3295: -- update_agreement_reference
3296: -- update_proj_fld_reference
3297: --
3298:
3299: PROCEDURE fetch_create_funding(p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
3300: p_api_version IN NUMBER ,
3301: p_msg_count OUT NOCOPY NUMBER ,
3302: p_msg_data OUT NOCOPY VARCHAR2 ,
3303: p_commit IN VARCHAR2:= OKE_API.G_FALSE ,
3299: PROCEDURE fetch_create_funding(p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
3300: p_api_version IN NUMBER ,
3301: p_msg_count OUT NOCOPY NUMBER ,
3302: p_msg_data OUT NOCOPY VARCHAR2 ,
3303: p_commit IN VARCHAR2:= OKE_API.G_FALSE ,
3304: p_pool_party_id IN NUMBER ,
3305: p_customer_id IN NUMBER ,
3306: p_customer_number IN VARCHAR2 ,
3307: --p_pool_currency IN VARCHAR2 ,
3396: BEGIN
3397:
3398: --oke_debug.debug('entering fetch_create_funding..');
3399:
3400: p_return_status := OKE_API.G_RET_STS_SUCCESS;
3401:
3402: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
3403: p_pkg_name => G_PKG_NAME ,
3404: p_init_msg_list => p_init_msg_list ,
3398: --oke_debug.debug('entering fetch_create_funding..');
3399:
3400: p_return_status := OKE_API.G_RET_STS_SUCCESS;
3401:
3402: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
3403: p_pkg_name => G_PKG_NAME ,
3404: p_init_msg_list => p_init_msg_list ,
3405: l_api_version => G_API_VERSION_NUMBER ,
3406: p_api_version => p_api_version ,
3407: p_api_type => '_PVT' ,
3408: x_return_status => p_return_status
3409: );
3410:
3411: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3412:
3413: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414:
3415: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3409: );
3410:
3411: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3412:
3413: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414:
3415: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3416:
3417: RAISE OKE_API.G_EXCEPTION_ERROR;
3411: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3412:
3413: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414:
3415: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3416:
3417: RAISE OKE_API.G_EXCEPTION_ERROR;
3418:
3419: END IF;
3413: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3414:
3415: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3416:
3417: RAISE OKE_API.G_EXCEPTION_ERROR;
3418:
3419: END IF;
3420:
3421: --oke_debug.debug('oke_api.start_activity finished successfully');
3417: RAISE OKE_API.G_EXCEPTION_ERROR;
3418:
3419: END IF;
3420:
3421: --oke_debug.debug('oke_api.start_activity finished successfully');
3422:
3423: -- l_fund_currency := p_currency_code;
3424:
3425: IF (p_pool_party_id is not null) THEN
3427: validate_pool_party_id(p_pool_party_id => p_pool_party_id ,
3428: p_return_status => p_return_status
3429: );
3430:
3431: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3432:
3433: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434:
3435: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3429: );
3430:
3431: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3432:
3433: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434:
3435: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3436:
3437: RAISE OKE_API.G_EXCEPTION_ERROR;
3431: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3432:
3433: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434:
3435: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3436:
3437: RAISE OKE_API.G_EXCEPTION_ERROR;
3438:
3439: END IF;
3433: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434:
3435: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3436:
3437: RAISE OKE_API.G_EXCEPTION_ERROR;
3438:
3439: END IF;
3440:
3441: -- END IF;
3453: IF (l_end_date is not null) AND
3454: (p_expiration_date is null or
3455: p_expiration_date > l_end_date) THEN
3456:
3457: OKE_API.set_message(p_app_name => G_APP_NAME ,
3458: p_msg_name => 'OKE_AGREEMENT_END_DATE'
3459: );
3460:
3461: RAISE OKE_API.G_EXCEPTION_ERROR;
3457: OKE_API.set_message(p_app_name => G_APP_NAME ,
3458: p_msg_name => 'OKE_AGREEMENT_END_DATE'
3459: );
3460:
3461: RAISE OKE_API.G_EXCEPTION_ERROR;
3462:
3463: END IF; */
3464: /*
3465: IF (p_agreement_currency <> p_source_currency) THEN
3538: -- bug 3346170
3539: /* IF (p_pool_party_id is not null) THEN
3540: IF (nvl(to_char(l_start_date, 'YYYYMMDD'), '19000101') > to_char(l_project_funding.date_allocated, 'YYYYMMDD')) THEN
3541:
3542: OKE_API.set_message(p_app_name => G_APP_NAME ,
3543: p_msg_name => 'OKE_PA_FUND_POOL_DATE'
3544: );
3545:
3546: RAISE OKE_API.G_EXCEPTION_ERROR;
3542: OKE_API.set_message(p_app_name => G_APP_NAME ,
3543: p_msg_name => 'OKE_PA_FUND_POOL_DATE'
3544: );
3545:
3546: RAISE OKE_API.G_EXCEPTION_ERROR;
3547:
3548: END IF;
3549: END IF;
3550: */
3725: END IF;
3726:
3727: --oke_debug.debug('calling create_funding');
3728: create_funding(p_api_version => p_api_version ,
3729: p_init_msg_list => OKE_API.G_FALSE ,
3730: p_msg_count => p_msg_count ,
3731: p_msg_data => p_msg_data ,
3732: p_funding_in_rec => l_funding_in_rec ,
3733: p_funding_out_rec => l_funding_out_rec ,
3734: p_return_status => p_return_status
3735: );
3736: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
3737:
3738: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3739:
3740: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3741:
3742: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3736: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
3737:
3738: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3739:
3740: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3741:
3742: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3743:
3744: RAISE OKE_API.G_EXCEPTION_ERROR;
3738: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3739:
3740: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3741:
3742: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3743:
3744: RAISE OKE_API.G_EXCEPTION_ERROR;
3745:
3746: END IF;
3740: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3741:
3742: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3743:
3744: RAISE OKE_API.G_EXCEPTION_ERROR;
3745:
3746: END IF;
3747:
3748: --
3767: l_allocation_in_rec.funding_source_id := l_funding_out_rec.funding_source_id;
3768:
3769: --oke_debug.debug('converted_amount ' || l_allocation_in_rec.amount);
3770: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
3771: p_init_msg_list => OKE_API.G_FALSE ,
3772: p_commit => OKE_API.G_FALSE ,
3773: p_msg_count => p_msg_count ,
3774: p_msg_data => p_msg_data ,
3775: p_allocation_in_rec => l_allocation_in_rec ,
3768:
3769: --oke_debug.debug('converted_amount ' || l_allocation_in_rec.amount);
3770: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
3771: p_init_msg_list => OKE_API.G_FALSE ,
3772: p_commit => OKE_API.G_FALSE ,
3773: p_msg_count => p_msg_count ,
3774: p_msg_data => p_msg_data ,
3775: p_allocation_in_rec => l_allocation_in_rec ,
3776: p_allocation_out_rec => l_allocation_out_rec ,
3778: );
3779:
3780: --oke_debug.debug('finished calling oke_allocation_pvt.add_allocation w/ status' || p_return_status);
3781:
3782: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3783:
3784: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3785:
3786: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3780: --oke_debug.debug('finished calling oke_allocation_pvt.add_allocation w/ status' || p_return_status);
3781:
3782: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3783:
3784: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3785:
3786: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3787:
3788: RAISE OKE_API.G_EXCEPTION_ERROR;
3782: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3783:
3784: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3785:
3786: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3787:
3788: RAISE OKE_API.G_EXCEPTION_ERROR;
3789:
3790: END IF;
3784: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3785:
3786: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3787:
3788: RAISE OKE_API.G_EXCEPTION_ERROR;
3789:
3790: END IF;
3791:
3792: --
3805: --oke_debug.debug('calling oke_funding_util.update_alloc_version');
3806:
3807: OKE_FUNDING_UTIL_PKG.update_alloc_version(x_fund_allocation_id => l_allocation_out_rec.fund_allocation_id ,
3808: x_version_add => 1 ,
3809: x_commit => OKE_API.G_FALSE
3810: );
3811:
3812: EXIT WHEN (i = l_allocation_in_tbl.LAST);
3813: i := l_allocation_in_tbl.NEXT(i);
3838: l_funding_in_rec.funding_source_id := l_funding_out_rec.funding_source_id ;
3839:
3840: --oke_debug.debug('calling create_funding');
3841: update_funding(p_api_version => p_api_version ,
3842: p_init_msg_list => OKE_API.G_FALSE ,
3843: p_msg_count => p_msg_count ,
3844: p_msg_data => p_msg_data ,
3845: p_funding_in_rec => l_funding_in_rec ,
3846: p_funding_out_rec => l_funding_out_rec ,
3847: p_return_status => p_return_status
3848: );
3849: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
3850:
3851: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3852:
3853: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3854:
3855: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3849: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
3850:
3851: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3852:
3853: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3854:
3855: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3856:
3857: RAISE OKE_API.G_EXCEPTION_ERROR;
3851: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3852:
3853: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3854:
3855: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3856:
3857: RAISE OKE_API.G_EXCEPTION_ERROR;
3858:
3859: END IF;
3853: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3854:
3855: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
3856:
3857: RAISE OKE_API.G_EXCEPTION_ERROR;
3858:
3859: END IF;
3860:
3861: --
3877: -- update the agreement_flag in OKE_FUNDING_SOURCES table
3878: --
3879:
3880: OKE_FUNDING_UTIL_PKG.update_source_flag(x_funding_source_id => l_funding_out_rec.funding_source_id ,
3881: x_commit => OKE_API.G_FALSE
3882: );
3883:
3884: IF FND_API.to_boolean(p_commit) THEN
3885:
3886: COMMIT WORK;
3887:
3888: END IF;
3889:
3890: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
3891: x_msg_data => p_msg_data
3892: );
3893:
3894: EXCEPTION
3891: x_msg_data => p_msg_data
3892: );
3893:
3894: EXCEPTION
3895: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3896: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3897: p_pkg_name => G_PKG_NAME ,
3898: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3899: x_msg_count => p_msg_count ,
3892: );
3893:
3894: EXCEPTION
3895: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3896: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3897: p_pkg_name => G_PKG_NAME ,
3898: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3899: x_msg_count => p_msg_count ,
3900: x_msg_data => p_msg_data ,
3894: EXCEPTION
3895: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3896: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3897: p_pkg_name => G_PKG_NAME ,
3898: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
3899: x_msg_count => p_msg_count ,
3900: x_msg_data => p_msg_data ,
3901: p_api_type => '_PVT'
3902: );
3900: x_msg_data => p_msg_data ,
3901: p_api_type => '_PVT'
3902: );
3903:
3904: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3905: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3906: p_pkg_name => G_PKG_NAME ,
3907: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3908: x_msg_count => p_msg_count ,
3901: p_api_type => '_PVT'
3902: );
3903:
3904: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3905: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3906: p_pkg_name => G_PKG_NAME ,
3907: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3908: x_msg_count => p_msg_count ,
3909: x_msg_data => p_msg_data ,
3903:
3904: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3905: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3906: p_pkg_name => G_PKG_NAME ,
3907: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
3908: x_msg_count => p_msg_count ,
3909: x_msg_data => p_msg_data ,
3910: p_api_type => '_PVT'
3911: );
3910: p_api_type => '_PVT'
3911: );
3912:
3913: WHEN OTHERS THEN
3914: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
3915: p_pkg_name => G_PKG_NAME ,
3916: p_exc_name => 'OTHERS' ,
3917: x_msg_count => p_msg_count ,
3918: x_msg_data => p_msg_data ,
3926: --
3927: -- Description: This procedure is used to get the existing agreement record
3928: -- and create a funding record in OKE
3929: --
3930: -- Calling subprograms: OKE_API.start_activity
3931: -- OKE_API.end_activity
3932: -- OKE_FUNDSOURCE_PVT.create_funding
3933: -- OKE_ALLOCATION_PVT.add_allocation
3934: -- OKE_FUNDING_UTIL_PKG.check_single_org
3927: -- Description: This procedure is used to get the existing agreement record
3928: -- and create a funding record in OKE
3929: --
3930: -- Calling subprograms: OKE_API.start_activity
3931: -- OKE_API.end_activity
3932: -- OKE_FUNDSOURCE_PVT.create_funding
3933: -- OKE_ALLOCATION_PVT.add_allocation
3934: -- OKE_FUNDING_UTIL_PKG.check_single_org
3935: -- OKE_FUNDING_UTIL_PKG.update_source_flag
3944: -- update_agreement_reference
3945: -- update_proj_fld_reference
3946: --
3947:
3948: PROCEDURE fetch_create_funding(p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
3949: p_api_version IN NUMBER ,
3950: p_msg_count OUT NOCOPY NUMBER ,
3951: p_msg_data OUT NOCOPY VARCHAR2 ,
3952: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
3948: PROCEDURE fetch_create_funding(p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
3949: p_api_version IN NUMBER ,
3950: p_msg_count OUT NOCOPY NUMBER ,
3951: p_msg_data OUT NOCOPY VARCHAR2 ,
3952: p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
3953: p_pool_party_id IN NUMBER ,
3954: p_party_id IN NUMBER ,
3955: --p_source_currency IN VARCHAR2 ,
3956: p_agreement_id IN NUMBER ,
4034:
4035: --oke_debug.debug('entering fetch_create_funding..');
4036: --dbms_output.put_line('entering fetch_create_funding..');
4037:
4038: p_return_status := OKE_API.G_RET_STS_SUCCESS;
4039:
4040: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
4041: p_pkg_name => G_PKG_NAME ,
4042: p_init_msg_list => p_init_msg_list ,
4036: --dbms_output.put_line('entering fetch_create_funding..');
4037:
4038: p_return_status := OKE_API.G_RET_STS_SUCCESS;
4039:
4040: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
4041: p_pkg_name => G_PKG_NAME ,
4042: p_init_msg_list => p_init_msg_list ,
4043: l_api_version => G_API_VERSION_NUMBER ,
4044: p_api_version => p_api_version ,
4045: p_api_type => '_PVT' ,
4046: x_return_status => p_return_status
4047: );
4048:
4049: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4050:
4051: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052:
4053: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4047: );
4048:
4049: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4050:
4051: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052:
4053: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4054:
4055: RAISE OKE_API.G_EXCEPTION_ERROR;
4049: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4050:
4051: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052:
4053: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4054:
4055: RAISE OKE_API.G_EXCEPTION_ERROR;
4056:
4057: END IF;
4051: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052:
4053: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4054:
4055: RAISE OKE_API.G_EXCEPTION_ERROR;
4056:
4057: END IF;
4058:
4059: --
4125:
4126: IF (l_update_flag = 'N') AND
4127: (l_agreement.agreement_currency_code <> p_source_currency) THEN
4128:
4129: OKE_API.set_message(p_app_name => G_APP_NAME ,
4130: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4131: p_token1 => 'VALUE' ,
4132: p_token1_value => 'p_source_currency'
4133: );
4126: IF (l_update_flag = 'N') AND
4127: (l_agreement.agreement_currency_code <> p_source_currency) THEN
4128:
4129: OKE_API.set_message(p_app_name => G_APP_NAME ,
4130: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4131: p_token1 => 'VALUE' ,
4132: p_token1_value => 'p_source_currency'
4133: );
4134:
4131: p_token1 => 'VALUE' ,
4132: p_token1_value => 'p_source_currency'
4133: );
4134:
4135: RAISE OKE_API.G_EXCEPTION_ERROR;
4136:
4137: END IF;
4138: */
4139: --
4153: -- Check if pool party currency = agreement currency
4154: --
4155: IF (nvl(l_pool_currency, l_agreement.agreement_currency_code) <> l_agreement.agreement_currency_code) THEN
4156:
4157: OKE_API.set_message(p_app_name => G_APP_NAME ,
4158: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4159: p_token1 => 'VALUE' ,
4160: p_token1_value => 'p_pool_party_id'
4161: );
4154: --
4155: IF (nvl(l_pool_currency, l_agreement.agreement_currency_code) <> l_agreement.agreement_currency_code) THEN
4156:
4157: OKE_API.set_message(p_app_name => G_APP_NAME ,
4158: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4159: p_token1 => 'VALUE' ,
4160: p_token1_value => 'p_pool_party_id'
4161: );
4162:
4159: p_token1 => 'VALUE' ,
4160: p_token1_value => 'p_pool_party_id'
4161: );
4162:
4163: RAISE OKE_API.G_EXCEPTION_ERROR;
4164:
4165: END IF;
4166:
4167: l_contract_currency := get_k_currency(p_header_id => p_k_header_id);
4179: p_conversion_rate => l_conversion_rate ,
4180: p_return_status => p_return_status
4181: );
4182:
4183: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4184:
4185: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186:
4187: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4181: );
4182:
4183: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4184:
4185: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186:
4187: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4188:
4189: RAISE OKE_API.G_EXCEPTION_ERROR;
4183: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4184:
4185: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186:
4187: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4188:
4189: RAISE OKE_API.G_EXCEPTION_ERROR;
4190:
4191: END IF;
4185: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186:
4187: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4188:
4189: RAISE OKE_API.G_EXCEPTION_ERROR;
4190:
4191: END IF;
4192:
4193: --
4199: IF (l_update_flag = 'N') THEN
4200:
4201: IF (p_pa_conversion_type is not null) THEN
4202:
4203: OKE_API.set_message(p_app_name => G_APP_NAME ,
4204: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4205: p_token1 => 'VALUE' ,
4206: p_token1_value => 'pa_conversion_type'
4207: );
4200:
4201: IF (p_pa_conversion_type is not null) THEN
4202:
4203: OKE_API.set_message(p_app_name => G_APP_NAME ,
4204: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4205: p_token1 => 'VALUE' ,
4206: p_token1_value => 'pa_conversion_type'
4207: );
4208:
4205: p_token1 => 'VALUE' ,
4206: p_token1_value => 'pa_conversion_type'
4207: );
4208:
4209: RAISE OKE_API.G_EXCEPTION_ERROR;
4210:
4211: END IF;
4212:
4213: IF (p_pa_conversion_date is not null) THEN
4211: END IF;
4212:
4213: IF (p_pa_conversion_date is not null) THEN
4214:
4215: OKE_API.set_message(p_app_name => G_APP_NAME ,
4216: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4217: p_token1 => 'VALUE' ,
4218: p_token1_value => 'pa_conversion_date'
4219: );
4212:
4213: IF (p_pa_conversion_date is not null) THEN
4214:
4215: OKE_API.set_message(p_app_name => G_APP_NAME ,
4216: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4217: p_token1 => 'VALUE' ,
4218: p_token1_value => 'pa_conversion_date'
4219: );
4220:
4217: p_token1 => 'VALUE' ,
4218: p_token1_value => 'pa_conversion_date'
4219: );
4220:
4221: RAISE OKE_API.G_EXCEPTION_ERROR;
4222:
4223: END IF;
4224:
4225: IF (p_pa_conversion_rate is not null) THEN
4223: END IF;
4224:
4225: IF (p_pa_conversion_rate is not null) THEN
4226:
4227: OKE_API.set_message(p_app_name => G_APP_NAME ,
4228: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4229: p_token1 => 'VALUE' ,
4230: p_token1_value => 'pa_conversion_rate'
4231: );
4224:
4225: IF (p_pa_conversion_rate is not null) THEN
4226:
4227: OKE_API.set_message(p_app_name => G_APP_NAME ,
4228: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4229: p_token1 => 'VALUE' ,
4230: p_token1_value => 'pa_conversion_rate'
4231: );
4232:
4229: p_token1 => 'VALUE' ,
4230: p_token1_value => 'pa_conversion_rate'
4231: );
4232:
4233: RAISE OKE_API.G_EXCEPTION_ERROR;
4234:
4235: END IF;
4236:
4237: ELSIF (p_source_currency <> l_agreement.agreement_currency_code) THEN
4245: p_conversion_rate => l_pa_conversion_rate ,
4246: p_return_status => p_return_status
4247: );
4248:
4249: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4250:
4251: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252:
4253: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4247: );
4248:
4249: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4250:
4251: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252:
4253: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4254:
4255: RAISE OKE_API.G_EXCEPTION_ERROR;
4249: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4250:
4251: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252:
4253: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4254:
4255: RAISE OKE_API.G_EXCEPTION_ERROR;
4256:
4257: END IF;
4251: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252:
4253: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4254:
4255: RAISE OKE_API.G_EXCEPTION_ERROR;
4256:
4257: END IF;
4258:
4259: -- syho, 2/11/02
4258:
4259: -- syho, 2/11/02
4260: ELSIF (l_pa_conversion_rate is not null) THEN
4261:
4262: OKE_API.set_message(p_app_name => G_APP_NAME ,
4263: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4264: p_token1 => 'VALUE' ,
4265: p_token1_value => 'pa_conversion_rate'
4266: );
4259: -- syho, 2/11/02
4260: ELSIF (l_pa_conversion_rate is not null) THEN
4261:
4262: OKE_API.set_message(p_app_name => G_APP_NAME ,
4263: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4264: p_token1 => 'VALUE' ,
4265: p_token1_value => 'pa_conversion_rate'
4266: );
4267:
4264: p_token1 => 'VALUE' ,
4265: p_token1_value => 'pa_conversion_rate'
4266: );
4267:
4268: RAISE OKE_API.G_EXCEPTION_ERROR;
4269:
4270: ELSIF (p_pa_conversion_type is not null) THEN
4271:
4272: OKE_API.set_message(p_app_name => G_APP_NAME ,
4268: RAISE OKE_API.G_EXCEPTION_ERROR;
4269:
4270: ELSIF (p_pa_conversion_type is not null) THEN
4271:
4272: OKE_API.set_message(p_app_name => G_APP_NAME ,
4273: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4274: p_token1 => 'VALUE' ,
4275: p_token1_value => 'pa_conversion_type'
4276: );
4269:
4270: ELSIF (p_pa_conversion_type is not null) THEN
4271:
4272: OKE_API.set_message(p_app_name => G_APP_NAME ,
4273: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4274: p_token1 => 'VALUE' ,
4275: p_token1_value => 'pa_conversion_type'
4276: );
4277:
4274: p_token1 => 'VALUE' ,
4275: p_token1_value => 'pa_conversion_type'
4276: );
4277:
4278: RAISE OKE_API.G_EXCEPTION_ERROR;
4279:
4280: ELSIF (p_pa_conversion_date is not null) THEN
4281:
4282: OKE_API.set_message(p_app_name => G_APP_NAME ,
4278: RAISE OKE_API.G_EXCEPTION_ERROR;
4279:
4280: ELSIF (p_pa_conversion_date is not null) THEN
4281:
4282: OKE_API.set_message(p_app_name => G_APP_NAME ,
4283: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4284: p_token1 => 'VALUE' ,
4285: p_token1_value => 'pa_conversion_date'
4286: );
4279:
4280: ELSIF (p_pa_conversion_date is not null) THEN
4281:
4282: OKE_API.set_message(p_app_name => G_APP_NAME ,
4283: p_msg_name => 'OKE_API_INVALID_VALUE' ,
4284: p_token1 => 'VALUE' ,
4285: p_token1_value => 'pa_conversion_date'
4286: );
4287:
4284: p_token1 => 'VALUE' ,
4285: p_token1_value => 'pa_conversion_date'
4286: );
4287:
4288: RAISE OKE_API.G_EXCEPTION_ERROR;
4289:
4290: END IF;
4291: -- syho, 2/11/02
4292: */
4327: -- bug 3346710
4328: /* IF (p_pool_party_id is not null) THEN
4329: IF (nvl(to_char(l_start_date, 'YYYYMMDD'), '19000101') > to_char(l_project_funding.date_allocated, 'YYYYMMDD')) THEN
4330:
4331: OKE_API.set_message(p_app_name => G_APP_NAME ,
4332: p_msg_name => 'OKE_PA_FUND_POOL_DATE'
4333: );
4334:
4335: RAISE OKE_API.G_EXCEPTION_ERROR;
4331: OKE_API.set_message(p_app_name => G_APP_NAME ,
4332: p_msg_name => 'OKE_PA_FUND_POOL_DATE'
4333: );
4334:
4335: RAISE OKE_API.G_EXCEPTION_ERROR;
4336:
4337: END IF;
4338: END IF;
4339: */
4524: l_funding_in_rec.pa_attribute10 := l_agreement.attribute10 ;
4525:
4526: --oke_debug.debug('calling create_funding');
4527: create_funding(p_api_version => p_api_version ,
4528: p_init_msg_list => OKE_API.G_FALSE ,
4529: p_msg_count => p_msg_count ,
4530: p_msg_data => p_msg_data ,
4531: p_funding_in_rec => l_funding_in_rec ,
4532: p_funding_out_rec => l_funding_out_rec ,
4533: p_return_status => p_return_status
4534: );
4535: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
4536:
4537: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4538:
4539: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540:
4541: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4535: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
4536:
4537: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4538:
4539: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540:
4541: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4542:
4543: RAISE OKE_API.G_EXCEPTION_ERROR;
4537: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4538:
4539: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540:
4541: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4542:
4543: RAISE OKE_API.G_EXCEPTION_ERROR;
4544:
4545: END IF;
4539: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540:
4541: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4542:
4543: RAISE OKE_API.G_EXCEPTION_ERROR;
4544:
4545: END IF;
4546:
4547: --
4565: l_allocation_in_rec.funding_source_id := l_funding_out_rec.funding_source_id;
4566:
4567: --oke_debug.debug('converted_amount ' || l_allocation_in_rec.amount);
4568: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
4569: p_init_msg_list => OKE_API.G_FALSE ,
4570: p_commit => OKE_API.G_FALSE ,
4571: p_msg_count => p_msg_count ,
4572: p_msg_data => p_msg_data ,
4573: p_allocation_in_rec => l_allocation_in_rec ,
4566:
4567: --oke_debug.debug('converted_amount ' || l_allocation_in_rec.amount);
4568: OKE_ALLOCATION_PVT.add_allocation(p_api_version => p_api_version ,
4569: p_init_msg_list => OKE_API.G_FALSE ,
4570: p_commit => OKE_API.G_FALSE ,
4571: p_msg_count => p_msg_count ,
4572: p_msg_data => p_msg_data ,
4573: p_allocation_in_rec => l_allocation_in_rec ,
4574: p_allocation_out_rec => l_allocation_out_rec ,
4576: );
4577:
4578: --oke_debug.debug('finished calling oke_allocation_pvt.add_allocation w/ status' || p_return_status);
4579:
4580: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4581:
4582: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4583:
4584: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4578: --oke_debug.debug('finished calling oke_allocation_pvt.add_allocation w/ status' || p_return_status);
4579:
4580: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4581:
4582: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4583:
4584: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4585:
4586: RAISE OKE_API.G_EXCEPTION_ERROR;
4580: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4581:
4582: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4583:
4584: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4585:
4586: RAISE OKE_API.G_EXCEPTION_ERROR;
4587:
4588: END IF;
4582: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4583:
4584: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4585:
4586: RAISE OKE_API.G_EXCEPTION_ERROR;
4587:
4588: END IF;
4589:
4590: --
4603: --oke_debug.debug('calling oke_funding_util.update_alloc_version');
4604:
4605: OKE_FUNDING_UTIL_PKG.update_alloc_version(x_fund_allocation_id => l_allocation_out_rec.fund_allocation_id ,
4606: x_version_add => 1 ,
4607: x_commit => OKE_API.G_FALSE
4608: );
4609:
4610: EXIT WHEN (i = l_allocation_in_tbl.LAST);
4611: i := l_allocation_in_tbl.NEXT(i);
4633: l_funding_in_rec.funding_source_id := l_funding_out_rec.funding_source_id ;
4634:
4635: --oke_debug.debug('calling create_funding');
4636: update_funding(p_api_version => p_api_version ,
4637: p_init_msg_list => OKE_API.G_FALSE ,
4638: p_msg_count => p_msg_count ,
4639: p_msg_data => p_msg_data ,
4640: p_funding_in_rec => l_funding_in_rec ,
4641: p_funding_out_rec => l_funding_out_rec ,
4642: p_return_status => p_return_status
4643: );
4644: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
4645:
4646: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4647:
4648: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4649:
4650: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4644: --oke_debug.debug('finished create_funding w/status ' || p_return_status);
4645:
4646: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4647:
4648: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4649:
4650: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4651:
4652: RAISE OKE_API.G_EXCEPTION_ERROR;
4646: IF (p_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4647:
4648: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4649:
4650: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4651:
4652: RAISE OKE_API.G_EXCEPTION_ERROR;
4653:
4654: END IF;
4648: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4649:
4650: ELSIF (p_return_status = OKE_API.G_RET_STS_ERROR) THEN
4651:
4652: RAISE OKE_API.G_EXCEPTION_ERROR;
4653:
4654: END IF;
4655:
4656: --
4675: -- update the agreement_flag in OKE_FUNDING_SOURCES table
4676: --
4677:
4678: OKE_FUNDING_UTIL_PKG.update_source_flag(x_funding_source_id => l_funding_out_rec.funding_source_id ,
4679: x_commit => OKE_API.G_FALSE
4680: );
4681:
4682: IF FND_API.to_boolean(p_commit) THEN
4683:
4684: COMMIT WORK;
4685:
4686: END IF;
4687:
4688: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
4689: x_msg_data => p_msg_data
4690: );
4691:
4692: EXCEPTION
4689: x_msg_data => p_msg_data
4690: );
4691:
4692: EXCEPTION
4693: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
4694: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
4695: p_pkg_name => G_PKG_NAME ,
4696: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
4697: x_msg_count => p_msg_count ,
4690: );
4691:
4692: EXCEPTION
4693: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
4694: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
4695: p_pkg_name => G_PKG_NAME ,
4696: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
4697: x_msg_count => p_msg_count ,
4698: x_msg_data => p_msg_data ,
4692: EXCEPTION
4693: WHEN OKE_API.G_EXCEPTION_ERROR OR G_EXCEPTION_HALT_VALIDATION THEN
4694: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
4695: p_pkg_name => G_PKG_NAME ,
4696: p_exc_name => 'OKE_API.G_RET_STS_ERROR' ,
4697: x_msg_count => p_msg_count ,
4698: x_msg_data => p_msg_data ,
4699: p_api_type => '_PVT'
4700: );
4698: x_msg_data => p_msg_data ,
4699: p_api_type => '_PVT'
4700: );
4701:
4702: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4703: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
4704: p_pkg_name => G_PKG_NAME ,
4705: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
4706: x_msg_count => p_msg_count ,
4699: p_api_type => '_PVT'
4700: );
4701:
4702: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4703: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
4704: p_pkg_name => G_PKG_NAME ,
4705: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
4706: x_msg_count => p_msg_count ,
4707: x_msg_data => p_msg_data ,
4701:
4702: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4703: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
4704: p_pkg_name => G_PKG_NAME ,
4705: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR' ,
4706: x_msg_count => p_msg_count ,
4707: x_msg_data => p_msg_data ,
4708: p_api_type => '_PVT'
4709: );
4708: p_api_type => '_PVT'
4709: );
4710:
4711: WHEN OTHERS THEN
4712: p_return_status := OKE_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name ,
4713: p_pkg_name => G_PKG_NAME ,
4714: p_exc_name => 'OTHERS' ,
4715: x_msg_count => p_msg_count ,
4716: x_msg_data => p_msg_data ,