[Home] [Help]
384: p_bghv_rec IN bghv_rec_type
385: ) RETURN bghv_rec_type IS
386: l_bghv_rec bghv_rec_type := p_bghv_rec;
387: BEGIN
388: IF (l_bghv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
389: l_bghv_rec.object_version_number := NULL;
390: END IF;
391: IF (l_bghv_rec.sfwt_flag = Okl_Api.G_MISS_CHAR) THEN
392: l_bghv_rec.sfwt_flag := NULL;
387: BEGIN
388: IF (l_bghv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
389: l_bghv_rec.object_version_number := NULL;
390: END IF;
391: IF (l_bghv_rec.sfwt_flag = Okl_Api.G_MISS_CHAR) THEN
392: l_bghv_rec.sfwt_flag := NULL;
393: END IF;
394: IF (l_bghv_rec.name = Okl_Api.G_MISS_CHAR) THEN
395: l_bghv_rec.name := NULL;
390: END IF;
391: IF (l_bghv_rec.sfwt_flag = Okl_Api.G_MISS_CHAR) THEN
392: l_bghv_rec.sfwt_flag := NULL;
393: END IF;
394: IF (l_bghv_rec.name = Okl_Api.G_MISS_CHAR) THEN
395: l_bghv_rec.name := NULL;
396: END IF;
397: IF (l_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
398: l_bghv_rec.sequence_number := NULL;
393: END IF;
394: IF (l_bghv_rec.name = Okl_Api.G_MISS_CHAR) THEN
395: l_bghv_rec.name := NULL;
396: END IF;
397: IF (l_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
398: l_bghv_rec.sequence_number := NULL;
399: END IF;
400: IF (l_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE) THEN
401: l_bghv_rec.date_transmission := NULL;
396: END IF;
397: IF (l_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
398: l_bghv_rec.sequence_number := NULL;
399: END IF;
400: IF (l_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE) THEN
401: l_bghv_rec.date_transmission := NULL;
402: END IF;
403: IF (l_bghv_rec.origin = Okl_Api.G_MISS_CHAR) THEN
404: l_bghv_rec.origin := NULL;
399: END IF;
400: IF (l_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE) THEN
401: l_bghv_rec.date_transmission := NULL;
402: END IF;
403: IF (l_bghv_rec.origin = Okl_Api.G_MISS_CHAR) THEN
404: l_bghv_rec.origin := NULL;
405: END IF;
406: IF (l_bghv_rec.destination = Okl_Api.G_MISS_CHAR) THEN
407: l_bghv_rec.destination := NULL;
402: END IF;
403: IF (l_bghv_rec.origin = Okl_Api.G_MISS_CHAR) THEN
404: l_bghv_rec.origin := NULL;
405: END IF;
406: IF (l_bghv_rec.destination = Okl_Api.G_MISS_CHAR) THEN
407: l_bghv_rec.destination := NULL;
408: END IF;
409: IF (l_bghv_rec.trx_status_code = Okl_Api.G_MISS_CHAR) THEN
410: l_bghv_rec.trx_status_code := NULL;
405: END IF;
406: IF (l_bghv_rec.destination = Okl_Api.G_MISS_CHAR) THEN
407: l_bghv_rec.destination := NULL;
408: END IF;
409: IF (l_bghv_rec.trx_status_code = Okl_Api.G_MISS_CHAR) THEN
410: l_bghv_rec.trx_status_code := NULL;
411: END IF;
412: IF (l_bghv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
413: l_bghv_rec.attribute_category := NULL;
408: END IF;
409: IF (l_bghv_rec.trx_status_code = Okl_Api.G_MISS_CHAR) THEN
410: l_bghv_rec.trx_status_code := NULL;
411: END IF;
412: IF (l_bghv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
413: l_bghv_rec.attribute_category := NULL;
414: END IF;
415: IF (l_bghv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
416: l_bghv_rec.attribute1 := NULL;
411: END IF;
412: IF (l_bghv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
413: l_bghv_rec.attribute_category := NULL;
414: END IF;
415: IF (l_bghv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
416: l_bghv_rec.attribute1 := NULL;
417: END IF;
418: IF (l_bghv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
419: l_bghv_rec.attribute2 := NULL;
414: END IF;
415: IF (l_bghv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
416: l_bghv_rec.attribute1 := NULL;
417: END IF;
418: IF (l_bghv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
419: l_bghv_rec.attribute2 := NULL;
420: END IF;
421: IF (l_bghv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
422: l_bghv_rec.attribute3 := NULL;
417: END IF;
418: IF (l_bghv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
419: l_bghv_rec.attribute2 := NULL;
420: END IF;
421: IF (l_bghv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
422: l_bghv_rec.attribute3 := NULL;
423: END IF;
424: IF (l_bghv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
425: l_bghv_rec.attribute4 := NULL;
420: END IF;
421: IF (l_bghv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
422: l_bghv_rec.attribute3 := NULL;
423: END IF;
424: IF (l_bghv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
425: l_bghv_rec.attribute4 := NULL;
426: END IF;
427: IF (l_bghv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
428: l_bghv_rec.attribute5 := NULL;
423: END IF;
424: IF (l_bghv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
425: l_bghv_rec.attribute4 := NULL;
426: END IF;
427: IF (l_bghv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
428: l_bghv_rec.attribute5 := NULL;
429: END IF;
430: IF (l_bghv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
431: l_bghv_rec.attribute6 := NULL;
426: END IF;
427: IF (l_bghv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
428: l_bghv_rec.attribute5 := NULL;
429: END IF;
430: IF (l_bghv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
431: l_bghv_rec.attribute6 := NULL;
432: END IF;
433: IF (l_bghv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
434: l_bghv_rec.attribute7 := NULL;
429: END IF;
430: IF (l_bghv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
431: l_bghv_rec.attribute6 := NULL;
432: END IF;
433: IF (l_bghv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
434: l_bghv_rec.attribute7 := NULL;
435: END IF;
436: IF (l_bghv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
437: l_bghv_rec.attribute8 := NULL;
432: END IF;
433: IF (l_bghv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
434: l_bghv_rec.attribute7 := NULL;
435: END IF;
436: IF (l_bghv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
437: l_bghv_rec.attribute8 := NULL;
438: END IF;
439: IF (l_bghv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
440: l_bghv_rec.attribute9 := NULL;
435: END IF;
436: IF (l_bghv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
437: l_bghv_rec.attribute8 := NULL;
438: END IF;
439: IF (l_bghv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
440: l_bghv_rec.attribute9 := NULL;
441: END IF;
442: IF (l_bghv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
443: l_bghv_rec.attribute10 := NULL;
438: END IF;
439: IF (l_bghv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
440: l_bghv_rec.attribute9 := NULL;
441: END IF;
442: IF (l_bghv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
443: l_bghv_rec.attribute10 := NULL;
444: END IF;
445: IF (l_bghv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
446: l_bghv_rec.attribute11 := NULL;
441: END IF;
442: IF (l_bghv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
443: l_bghv_rec.attribute10 := NULL;
444: END IF;
445: IF (l_bghv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
446: l_bghv_rec.attribute11 := NULL;
447: END IF;
448: IF (l_bghv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
449: l_bghv_rec.attribute12 := NULL;
444: END IF;
445: IF (l_bghv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
446: l_bghv_rec.attribute11 := NULL;
447: END IF;
448: IF (l_bghv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
449: l_bghv_rec.attribute12 := NULL;
450: END IF;
451: IF (l_bghv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
452: l_bghv_rec.attribute13 := NULL;
447: END IF;
448: IF (l_bghv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
449: l_bghv_rec.attribute12 := NULL;
450: END IF;
451: IF (l_bghv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
452: l_bghv_rec.attribute13 := NULL;
453: END IF;
454: IF (l_bghv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
455: l_bghv_rec.attribute14 := NULL;
450: END IF;
451: IF (l_bghv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
452: l_bghv_rec.attribute13 := NULL;
453: END IF;
454: IF (l_bghv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
455: l_bghv_rec.attribute14 := NULL;
456: END IF;
457: IF (l_bghv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
458: l_bghv_rec.attribute15 := NULL;
453: END IF;
454: IF (l_bghv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
455: l_bghv_rec.attribute14 := NULL;
456: END IF;
457: IF (l_bghv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
458: l_bghv_rec.attribute15 := NULL;
459: END IF;
460: IF (l_bghv_rec.request_id = Okl_Api.G_MISS_NUM) THEN
461: l_bghv_rec.request_id := NULL;
456: END IF;
457: IF (l_bghv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
458: l_bghv_rec.attribute15 := NULL;
459: END IF;
460: IF (l_bghv_rec.request_id = Okl_Api.G_MISS_NUM) THEN
461: l_bghv_rec.request_id := NULL;
462: END IF;
463: IF (l_bghv_rec.program_application_id = Okl_Api.G_MISS_NUM) THEN
464: l_bghv_rec.program_application_id := NULL;
459: END IF;
460: IF (l_bghv_rec.request_id = Okl_Api.G_MISS_NUM) THEN
461: l_bghv_rec.request_id := NULL;
462: END IF;
463: IF (l_bghv_rec.program_application_id = Okl_Api.G_MISS_NUM) THEN
464: l_bghv_rec.program_application_id := NULL;
465: END IF;
466: IF (l_bghv_rec.program_id = Okl_Api.G_MISS_NUM) THEN
467: l_bghv_rec.program_id := NULL;
462: END IF;
463: IF (l_bghv_rec.program_application_id = Okl_Api.G_MISS_NUM) THEN
464: l_bghv_rec.program_application_id := NULL;
465: END IF;
466: IF (l_bghv_rec.program_id = Okl_Api.G_MISS_NUM) THEN
467: l_bghv_rec.program_id := NULL;
468: END IF;
469: IF (l_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE) THEN
470: l_bghv_rec.program_update_date := NULL;
465: END IF;
466: IF (l_bghv_rec.program_id = Okl_Api.G_MISS_NUM) THEN
467: l_bghv_rec.program_id := NULL;
468: END IF;
469: IF (l_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE) THEN
470: l_bghv_rec.program_update_date := NULL;
471: END IF;
472: IF (l_bghv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
473: l_bghv_rec.org_id := NULL;
468: END IF;
469: IF (l_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE) THEN
470: l_bghv_rec.program_update_date := NULL;
471: END IF;
472: IF (l_bghv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
473: l_bghv_rec.org_id := NULL;
474: END IF;
475: IF (l_bghv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
476: l_bghv_rec.created_by := NULL;
471: END IF;
472: IF (l_bghv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
473: l_bghv_rec.org_id := NULL;
474: END IF;
475: IF (l_bghv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
476: l_bghv_rec.created_by := NULL;
477: END IF;
478: IF (l_bghv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
479: l_bghv_rec.creation_date := NULL;
474: END IF;
475: IF (l_bghv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
476: l_bghv_rec.created_by := NULL;
477: END IF;
478: IF (l_bghv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
479: l_bghv_rec.creation_date := NULL;
480: END IF;
481: IF (l_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
482: l_bghv_rec.last_updated_by := NULL;
477: END IF;
478: IF (l_bghv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
479: l_bghv_rec.creation_date := NULL;
480: END IF;
481: IF (l_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
482: l_bghv_rec.last_updated_by := NULL;
483: END IF;
484: IF (l_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
485: l_bghv_rec.last_update_date := NULL;
480: END IF;
481: IF (l_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
482: l_bghv_rec.last_updated_by := NULL;
483: END IF;
484: IF (l_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
485: l_bghv_rec.last_update_date := NULL;
486: END IF;
487: IF (l_bghv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
488: l_bghv_rec.last_update_login := NULL;
483: END IF;
484: IF (l_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
485: l_bghv_rec.last_update_date := NULL;
486: END IF;
487: IF (l_bghv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
488: l_bghv_rec.last_update_login := NULL;
489: END IF;
490: RETURN(l_bghv_rec);
491: END null_out_defaults;
502:
503: BEGIN
504:
505: -- initialize return status
506: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
507:
508: -- data is required
509: IF p_bghv_rec.id = Okl_Api.G_MISS_NUM
510: OR p_bghv_rec.id IS NULL
505: -- initialize return status
506: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
507:
508: -- data is required
509: IF p_bghv_rec.id = Okl_Api.G_MISS_NUM
510: OR p_bghv_rec.id IS NULL
511: THEN
512:
513: -- display error message
510: OR p_bghv_rec.id IS NULL
511: THEN
512:
513: -- display error message
514: Okl_Api.set_message(
515: p_app_name => G_APP_NAME,
516: p_msg_name => G_REQUIRED_VALUE,
517: p_token1 => G_COL_NAME_TOKEN,
518: p_token1_value => 'id');
517: p_token1 => G_COL_NAME_TOKEN,
518: p_token1_value => 'id');
519:
520: -- notify caller of en error
521: x_return_status := Okl_Api.G_RET_STS_ERROR;
522: -- halt furhter validation of the column
523: RAISE G_EXCEPTION_HALT_VALIDATION;
524:
525: END IF;
531: NULL;
532:
533: WHEN OTHERS THEN
534: -- display error message
535: Okl_Api.set_message(
536: p_app_name => G_APP_NAME,
537: p_msg_name => G_UNEXPECTED_ERROR,
538: p_token1 => G_SQLCODE_TOKEN,
539: p_token1_value => SQLCODE,
539: p_token1_value => SQLCODE,
540: p_token2 => G_SQLERRM_TOKEN,
541: p_token2_value => SQLERRM);
542: -- notify caller of an unexpected error
543: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
544:
545: END Validate_Id;
546:
547: ---------------------------------------------------------------------------
556:
557: BEGIN
558:
559: -- initialize return status
560: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
561:
562: -- data is required
563: IF p_bghv_rec.object_version_number = Okl_Api.G_MISS_NUM
564: OR p_bghv_rec.object_version_number IS NULL
559: -- initialize return status
560: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
561:
562: -- data is required
563: IF p_bghv_rec.object_version_number = Okl_Api.G_MISS_NUM
564: OR p_bghv_rec.object_version_number IS NULL
565: THEN
566:
567: -- display error message
564: OR p_bghv_rec.object_version_number IS NULL
565: THEN
566:
567: -- display error message
568: Okl_Api.set_message(
569: p_app_name => G_APP_NAME,
570: p_msg_name => G_REQUIRED_VALUE,
571: p_token1 => G_COL_NAME_TOKEN,
572: p_token1_value => 'object_version_number');
571: p_token1 => G_COL_NAME_TOKEN,
572: p_token1_value => 'object_version_number');
573:
574: -- notify caller of en error
575: x_return_status := Okl_Api.G_RET_STS_ERROR;
576: -- halt furhter validation of the column
577: RAISE G_EXCEPTION_HALT_VALIDATION;
578:
579: END IF;
585: NULL;
586:
587: WHEN OTHERS THEN
588: -- display error message
589: Okl_Api.set_message(
590: p_app_name => G_APP_NAME,
591: p_msg_name => G_UNEXPECTED_ERROR,
592: p_token1 => G_SQLCODE_TOKEN,
593: p_token1_value => SQLCODE,
593: p_token1_value => SQLCODE,
594: p_token2 => G_SQLERRM_TOKEN,
595: p_token2_value => SQLERRM);
596: -- notify caller of an unexpected error
597: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
598:
599: END Validate_Object_Version_Number;
600:
601: ---------------------------------------------------------------------------
610:
611: BEGIN
612:
613: -- initialize return status
614: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
615:
616: -- data is required
617: IF p_bghv_rec.name = Okl_Api.G_MISS_CHAR
618: OR p_bghv_rec.name IS NULL
613: -- initialize return status
614: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
615:
616: -- data is required
617: IF p_bghv_rec.name = Okl_Api.G_MISS_CHAR
618: OR p_bghv_rec.name IS NULL
619: THEN
620:
621: -- display error message
618: OR p_bghv_rec.name IS NULL
619: THEN
620:
621: -- display error message
622: Okl_Api.set_message(
623: p_app_name => G_APP_NAME,
624: p_msg_name => G_REQUIRED_VALUE,
625: p_token1 => G_COL_NAME_TOKEN,
626: p_token1_value => 'name');
625: p_token1 => G_COL_NAME_TOKEN,
626: p_token1_value => 'name');
627:
628: -- notify caller of en error
629: x_return_status := Okl_Api.G_RET_STS_ERROR;
630: -- halt furhter validation of the column
631: RAISE G_EXCEPTION_HALT_VALIDATION;
632:
633: END IF;
639: NULL;
640:
641: WHEN OTHERS THEN
642: -- display error message
643: Okl_Api.set_message(
644: p_app_name => G_APP_NAME,
645: p_msg_name => G_UNEXPECTED_ERROR,
646: p_token1 => G_SQLCODE_TOKEN,
647: p_token1_value => SQLCODE,
647: p_token1_value => SQLCODE,
648: p_token2 => G_SQLERRM_TOKEN,
649: p_token2_value => SQLERRM);
650: -- notify caller of an unexpected error
651: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
652:
653: END Validate_Name;
654:
655: ---------------------------------------------------------------------------
664:
665: BEGIN
666:
667: -- initialize return status
668: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
669:
670: -- data is required
671: IF p_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM
672: OR p_bghv_rec.sequence_number IS NULL
667: -- initialize return status
668: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
669:
670: -- data is required
671: IF p_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM
672: OR p_bghv_rec.sequence_number IS NULL
673: THEN
674:
675: -- display error message
672: OR p_bghv_rec.sequence_number IS NULL
673: THEN
674:
675: -- display error message
676: Okl_Api.set_message(
677: p_app_name => G_APP_NAME,
678: p_msg_name => G_REQUIRED_VALUE,
679: p_token1 => G_COL_NAME_TOKEN,
680: p_token1_value => 'sequence_number');
679: p_token1 => G_COL_NAME_TOKEN,
680: p_token1_value => 'sequence_number');
681:
682: -- notify caller of en error
683: x_return_status := Okl_Api.G_RET_STS_ERROR;
684: -- halt furhter validation of the column
685: RAISE G_EXCEPTION_HALT_VALIDATION;
686:
687: END IF;
693: NULL;
694:
695: WHEN OTHERS THEN
696: -- display error message
697: Okl_Api.set_message(
698: p_app_name => G_APP_NAME,
699: p_msg_name => G_UNEXPECTED_ERROR,
700: p_token1 => G_SQLCODE_TOKEN,
701: p_token1_value => SQLCODE,
701: p_token1_value => SQLCODE,
702: p_token2 => G_SQLERRM_TOKEN,
703: p_token2_value => SQLERRM);
704: -- notify caller of an unexpected error
705: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
706:
707: END Validate_Sequence_Number;
708:
709: ---------------------------------------------------------------------------
718:
719: BEGIN
720:
721: -- initialize return status
722: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
723:
724: -- data is required
725: IF p_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE
726: OR p_bghv_rec.date_transmission IS NULL
721: -- initialize return status
722: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
723:
724: -- data is required
725: IF p_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE
726: OR p_bghv_rec.date_transmission IS NULL
727: THEN
728:
729: -- display error message
726: OR p_bghv_rec.date_transmission IS NULL
727: THEN
728:
729: -- display error message
730: Okl_Api.set_message(
731: p_app_name => G_APP_NAME,
732: p_msg_name => G_REQUIRED_VALUE,
733: p_token1 => G_COL_NAME_TOKEN,
734: p_token1_value => 'date_transmission');
733: p_token1 => G_COL_NAME_TOKEN,
734: p_token1_value => 'date_transmission');
735:
736: -- notify caller of en error
737: x_return_status := Okl_Api.G_RET_STS_ERROR;
738: -- halt furhter validation of the column
739: RAISE G_EXCEPTION_HALT_VALIDATION;
740:
741: END IF;
747: NULL;
748:
749: WHEN OTHERS THEN
750: -- display error message
751: Okl_Api.set_message(
752: p_app_name => G_APP_NAME,
753: p_msg_name => G_UNEXPECTED_ERROR,
754: p_token1 => G_SQLCODE_TOKEN,
755: p_token1_value => SQLCODE,
755: p_token1_value => SQLCODE,
756: p_token2 => G_SQLERRM_TOKEN,
757: p_token2_value => SQLERRM);
758: -- notify caller of an unexpected error
759: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
760:
761: END Validate_Date_Transmission;
762:
763: ---------------------------------------------------------------------------
772:
773: BEGIN
774:
775: -- initialize return status
776: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
777:
778: -- check value
779: --IF p_bghv_rec.org_id <> OKL_API.G_MISS_NUM
780: --AND p_bghv_rec.org_id IS NOT NULL
775: -- initialize return status
776: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
777:
778: -- check value
779: --IF p_bghv_rec.org_id <> OKL_API.G_MISS_NUM
780: --AND p_bghv_rec.org_id IS NOT NULL
781: --THEN
782: x_return_status := Okl_Util.check_org_id (p_bghv_rec.org_id);
783: --END IF;
785: EXCEPTION
786:
787: WHEN OTHERS THEN
788: -- display error message
789: Okl_Api.set_message(
790: p_app_name => G_APP_NAME,
791: p_msg_name => G_UNEXPECTED_ERROR,
792: p_token1 => G_SQLCODE_TOKEN,
793: p_token1_value => SQLCODE,
793: p_token1_value => SQLCODE,
794: p_token2 => G_SQLERRM_TOKEN,
795: p_token2_value => SQLERRM);
796: -- notify caller of an unexpected error
797: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
798:
799: END Validate_Org_Id;
800:
801: ---------------------------------------------------------------------------
813: WHERE name = p_bghv_rec.name
814: AND sequence_number = p_bghv_rec.sequence_number
815: AND id <> NVL (p_bghv_rec.id, -99999);
816:
817: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
818: l_dummy VARCHAR2(1);
819: l_found BOOLEAN;
820:
821: BEGIN
828:
829: IF (l_found) THEN
830:
831: -- display error message
832: Okl_Api.set_message(
833: p_app_name => G_APP_NAME,
834: p_msg_name => G_NOT_SAME,
835: p_token1 => 'NAME',
836: p_token1_value => p_bghv_rec.name,
837: p_token2 => 'SEQUENCE_NUMBER',
838: p_token2_value => p_bghv_rec.sequence_number);
839:
840: -- notify caller of an error
841: l_return_status := Okl_Api.G_RET_STS_ERROR;
842:
843: END IF;
844:
845: -- return status to the caller
848: EXCEPTION
849:
850: WHEN OTHERS THEN
851: -- display error message
852: Okl_Api.set_message(
853: p_app_name => G_APP_NAME,
854: p_msg_name => G_UNEXPECTED_ERROR,
855: p_token1 => G_SQLCODE_TOKEN,
856: p_token1_value => SQLCODE,
856: p_token1_value => SQLCODE,
857: p_token2 => G_SQLERRM_TOKEN,
858: p_token2_value => SQLERRM);
859: -- notify caller of an unexpected error
860: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
861: -- verify the cursor is closed
862: IF l_bghv_csr%ISOPEN THEN
863: CLOSE l_bghv_csr;
864: END IF;
878: FUNCTION Validate_Attributes (
879: p_bghv_rec IN bghv_rec_type
880: ) RETURN VARCHAR2 IS
881:
882: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
883: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
884:
885: BEGIN
886:
879: p_bghv_rec IN bghv_rec_type
880: ) RETURN VARCHAR2 IS
881:
882: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
883: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
884:
885: BEGIN
886:
887: -- call each column-level validation
889: validate_id (
890: x_return_status => l_return_status,
891: p_bghv_rec => p_bghv_rec);
892:
893: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
894: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
895: x_return_status := l_return_status;
896: END IF;
897: END IF;
890: x_return_status => l_return_status,
891: p_bghv_rec => p_bghv_rec);
892:
893: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
894: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
895: x_return_status := l_return_status;
896: END IF;
897: END IF;
898:
899: validate_object_version_number (
900: x_return_status => l_return_status,
901: p_bghv_rec => p_bghv_rec);
902:
903: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
904: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
905: x_return_status := l_return_status;
906: END IF;
907: END IF;
900: x_return_status => l_return_status,
901: p_bghv_rec => p_bghv_rec);
902:
903: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
904: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
905: x_return_status := l_return_status;
906: END IF;
907: END IF;
908:
909: validate_name (
910: x_return_status => l_return_status,
911: p_bghv_rec => p_bghv_rec);
912:
913: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
914: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
915: x_return_status := l_return_status;
916: END IF;
917: END IF;
910: x_return_status => l_return_status,
911: p_bghv_rec => p_bghv_rec);
912:
913: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
914: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
915: x_return_status := l_return_status;
916: END IF;
917: END IF;
918:
919: validate_sequence_number (
920: x_return_status => l_return_status,
921: p_bghv_rec => p_bghv_rec);
922:
923: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
924: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
925: x_return_status := l_return_status;
926: END IF;
927: END IF;
920: x_return_status => l_return_status,
921: p_bghv_rec => p_bghv_rec);
922:
923: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
924: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
925: x_return_status := l_return_status;
926: END IF;
927: END IF;
928:
929: validate_date_transmission (
930: x_return_status => l_return_status,
931: p_bghv_rec => p_bghv_rec);
932:
933: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
934: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
935: x_return_status := l_return_status;
936: END IF;
937: END IF;
930: x_return_status => l_return_status,
931: p_bghv_rec => p_bghv_rec);
932:
933: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
934: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
935: x_return_status := l_return_status;
936: END IF;
937: END IF;
938:
939: validate_org_id (
940: x_return_status => l_return_status,
941: p_bghv_rec => p_bghv_rec);
942:
943: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
944: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
945: x_return_status := l_return_status;
946: END IF;
947: END IF;
940: x_return_status => l_return_status,
941: p_bghv_rec => p_bghv_rec);
942:
943: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
944: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
945: x_return_status := l_return_status;
946: END IF;
947: END IF;
948:
951: EXCEPTION
952:
953: WHEN OTHERS THEN
954: -- display error message
955: Okl_Api.set_message(
956: p_app_name => G_APP_NAME,
957: p_msg_name => G_UNEXPECTED_ERROR,
958: p_token1 => G_SQLCODE_TOKEN,
959: p_token1_value => SQLCODE,
959: p_token1_value => SQLCODE,
960: p_token2 => G_SQLERRM_TOKEN,
961: p_token2_value => SQLERRM);
962: -- notify caller of an unexpected error
963: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
964: -- return status to the caller
965: RETURN x_return_status;
966:
967: END Validate_Attributes;
976: -----------------------------------------------
977: FUNCTION Validate_Record (
978: p_bghv_rec IN bghv_rec_type
979: ) RETURN VARCHAR2 IS
980: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
981: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
982: BEGIN
983:
984: -- call each record-level validation
977: FUNCTION Validate_Record (
978: p_bghv_rec IN bghv_rec_type
979: ) RETURN VARCHAR2 IS
980: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
981: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
982: BEGIN
983:
984: -- call each record-level validation
985: l_return_status := is_unique (p_bghv_rec);
983:
984: -- call each record-level validation
985: l_return_status := is_unique (p_bghv_rec);
986:
987: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
988: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
989: x_return_status := l_return_status;
990: END IF;
991: END IF;
984: -- call each record-level validation
985: l_return_status := is_unique (p_bghv_rec);
986:
987: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
988: IF (x_return_status <> Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
989: x_return_status := l_return_status;
990: END IF;
991: END IF;
992:
995: EXCEPTION
996:
997: WHEN OTHERS THEN
998: -- display error message
999: Okl_Api.set_message(
1000: p_app_name => G_APP_NAME,
1001: p_msg_name => G_UNEXPECTED_ERROR,
1002: p_token1 => G_SQLCODE_TOKEN,
1003: p_token1_value => SQLCODE,
1003: p_token1_value => SQLCODE,
1004: p_token2 => G_SQLERRM_TOKEN,
1005: p_token2_value => SQLERRM);
1006: -- notify caller of an unexpected error
1007: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1008: -- return status to the caller
1009: RETURN x_return_status;
1010:
1011: END Validate_Record;
1135: p_bghv_rec IN bghv_rec_type) IS
1136:
1137: l_api_version CONSTANT NUMBER := 1;
1138: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1139: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1140: l_bghv_rec bghv_rec_type := p_bghv_rec;
1141: l_bgh_rec bgh_rec_type;
1142: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
1143: BEGIN
1140: l_bghv_rec bghv_rec_type := p_bghv_rec;
1141: l_bgh_rec bgh_rec_type;
1142: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
1143: BEGIN
1144: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1145: G_PKG_NAME,
1146: p_init_msg_list,
1147: l_api_version,
1148: p_api_version,
1147: l_api_version,
1148: p_api_version,
1149: '_PVT',
1150: x_return_status);
1151: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okl_Api.G_EXCEPTION_ERROR;
1155: END IF;
1148: p_api_version,
1149: '_PVT',
1150: x_return_status);
1151: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okl_Api.G_EXCEPTION_ERROR;
1155: END IF;
1156: --- Validate all non-missing attributes (Item Level Validation)
1149: '_PVT',
1150: x_return_status);
1151: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okl_Api.G_EXCEPTION_ERROR;
1155: END IF;
1156: --- Validate all non-missing attributes (Item Level Validation)
1157: l_return_status := Validate_Attributes(l_bghv_rec);
1150: x_return_status);
1151: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okl_Api.G_EXCEPTION_ERROR;
1155: END IF;
1156: --- Validate all non-missing attributes (Item Level Validation)
1157: l_return_status := Validate_Attributes(l_bghv_rec);
1158: --- If any errors happen abort API
1155: END IF;
1156: --- Validate all non-missing attributes (Item Level Validation)
1157: l_return_status := Validate_Attributes(l_bghv_rec);
1158: --- If any errors happen abort API
1159: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1162: RAISE Okl_Api.G_EXCEPTION_ERROR;
1163: END IF;
1156: --- Validate all non-missing attributes (Item Level Validation)
1157: l_return_status := Validate_Attributes(l_bghv_rec);
1158: --- If any errors happen abort API
1159: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1162: RAISE Okl_Api.G_EXCEPTION_ERROR;
1163: END IF;
1164: l_return_status := Validate_Record(l_bghv_rec);
1157: l_return_status := Validate_Attributes(l_bghv_rec);
1158: --- If any errors happen abort API
1159: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1162: RAISE Okl_Api.G_EXCEPTION_ERROR;
1163: END IF;
1164: l_return_status := Validate_Record(l_bghv_rec);
1165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1158: --- If any errors happen abort API
1159: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1162: RAISE Okl_Api.G_EXCEPTION_ERROR;
1163: END IF;
1164: l_return_status := Validate_Record(l_bghv_rec);
1165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1162: RAISE Okl_Api.G_EXCEPTION_ERROR;
1163: END IF;
1164: l_return_status := Validate_Record(l_bghv_rec);
1165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1162: RAISE Okl_Api.G_EXCEPTION_ERROR;
1163: END IF;
1164: l_return_status := Validate_Record(l_bghv_rec);
1165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1163: END IF;
1164: l_return_status := Validate_Record(l_bghv_rec);
1165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1171: EXCEPTION
1164: l_return_status := Validate_Record(l_bghv_rec);
1165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1171: EXCEPTION
1172: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1171: EXCEPTION
1172: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1173: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1174: (
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1171: EXCEPTION
1172: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1173: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1174: (
1175: l_api_name,
1176: G_PKG_NAME,
1169: END IF;
1170: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1171: EXCEPTION
1172: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1173: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1174: (
1175: l_api_name,
1176: G_PKG_NAME,
1177: 'OKL_API.G_RET_STS_ERROR',
1173: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1174: (
1175: l_api_name,
1176: G_PKG_NAME,
1177: 'OKL_API.G_RET_STS_ERROR',
1178: x_msg_count,
1179: x_msg_data,
1180: '_PVT'
1181: );
1178: x_msg_count,
1179: x_msg_data,
1180: '_PVT'
1181: );
1182: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1183: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1184: (
1185: l_api_name,
1186: G_PKG_NAME,
1179: x_msg_data,
1180: '_PVT'
1181: );
1182: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1183: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1184: (
1185: l_api_name,
1186: G_PKG_NAME,
1187: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1183: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1184: (
1185: l_api_name,
1186: G_PKG_NAME,
1187: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1188: x_msg_count,
1189: x_msg_data,
1190: '_PVT'
1191: );
1189: x_msg_data,
1190: '_PVT'
1191: );
1192: WHEN OTHERS THEN
1193: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1194: (
1195: l_api_name,
1196: G_PKG_NAME,
1197: 'OTHERS',
1212: p_bghv_tbl IN bghv_tbl_type) IS
1213:
1214: l_api_version CONSTANT NUMBER := 1;
1215: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1216: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1217: i NUMBER := 0;
1218: -- Begin Post-Generation Change
1219: -- overall error status
1220: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1216: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1217: i NUMBER := 0;
1218: -- Begin Post-Generation Change
1219: -- overall error status
1220: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1221: -- End Post-Generation Change
1222:
1223: BEGIN
1224: Okl_Api.init_msg_list(p_init_msg_list);
1220: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1221: -- End Post-Generation Change
1222:
1223: BEGIN
1224: Okl_Api.init_msg_list(p_init_msg_list);
1225: -- Make sure PL/SQL table has records in it before passing
1226: IF (p_bghv_tbl.COUNT > 0) THEN
1227: i := p_bghv_tbl.FIRST;
1228: LOOP
1234: x_msg_data => x_msg_data,
1235: p_bghv_rec => p_bghv_tbl(i));
1236: -- Begin Post-Generation Change
1237: -- store the highest degree of error
1238: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1239: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1240: l_overall_status := x_return_status;
1241: END IF;
1242: END IF;
1235: p_bghv_rec => p_bghv_tbl(i));
1236: -- Begin Post-Generation Change
1237: -- store the highest degree of error
1238: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1239: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1240: l_overall_status := x_return_status;
1241: END IF;
1242: END IF;
1243: -- End Post-Generation Change
1249: x_return_status := l_overall_status;
1250: -- End Post-Generation Change
1251: END IF;
1252: EXCEPTION
1253: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1254: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1255: (
1256: l_api_name,
1257: G_PKG_NAME,
1250: -- End Post-Generation Change
1251: END IF;
1252: EXCEPTION
1253: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1254: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1255: (
1256: l_api_name,
1257: G_PKG_NAME,
1258: 'OKL_API.G_RET_STS_ERROR',
1254: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1255: (
1256: l_api_name,
1257: G_PKG_NAME,
1258: 'OKL_API.G_RET_STS_ERROR',
1259: x_msg_count,
1260: x_msg_data,
1261: '_PVT'
1262: );
1259: x_msg_count,
1260: x_msg_data,
1261: '_PVT'
1262: );
1263: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1264: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1265: (
1266: l_api_name,
1267: G_PKG_NAME,
1260: x_msg_data,
1261: '_PVT'
1262: );
1263: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1264: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1265: (
1266: l_api_name,
1267: G_PKG_NAME,
1268: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1264: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1265: (
1266: l_api_name,
1267: G_PKG_NAME,
1268: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1269: x_msg_count,
1270: x_msg_data,
1271: '_PVT'
1272: );
1270: x_msg_data,
1271: '_PVT'
1272: );
1273: WHEN OTHERS THEN
1274: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1275: (
1276: l_api_name,
1277: G_PKG_NAME,
1278: 'OTHERS',
1297: x_bgh_rec OUT NOCOPY bgh_rec_type) IS
1298:
1299: l_api_version CONSTANT NUMBER := 1;
1300: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1301: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1302: l_bgh_rec bgh_rec_type := p_bgh_rec;
1303: l_def_bgh_rec bgh_rec_type;
1304: ----------------------------------------------
1305: -- Set_Attributes for:OKL_BLLNG_CHRG_HDRS_B --
1307: FUNCTION Set_Attributes (
1308: p_bgh_rec IN bgh_rec_type,
1309: x_bgh_rec OUT NOCOPY bgh_rec_type
1310: ) RETURN VARCHAR2 IS
1311: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1312: BEGIN
1313: x_bgh_rec := p_bgh_rec;
1314: RETURN(l_return_status);
1315: END Set_Attributes;
1313: x_bgh_rec := p_bgh_rec;
1314: RETURN(l_return_status);
1315: END Set_Attributes;
1316: BEGIN
1317: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1318: p_init_msg_list,
1319: '_PVT',
1320: x_return_status);
1321: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1317: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1318: p_init_msg_list,
1319: '_PVT',
1320: x_return_status);
1321: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_ERROR;
1325: END IF;
1318: p_init_msg_list,
1319: '_PVT',
1320: x_return_status);
1321: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_ERROR;
1325: END IF;
1326: --- Setting item attributes
1319: '_PVT',
1320: x_return_status);
1321: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_ERROR;
1325: END IF;
1326: --- Setting item attributes
1327: l_return_status := Set_Attributes(
1320: x_return_status);
1321: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_ERROR;
1325: END IF;
1326: --- Setting item attributes
1327: l_return_status := Set_Attributes(
1328: p_bgh_rec, -- IN
1327: l_return_status := Set_Attributes(
1328: p_bgh_rec, -- IN
1329: l_bgh_rec); -- OUT
1330: --- If any errors happen abort API
1331: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1334: RAISE Okl_Api.G_EXCEPTION_ERROR;
1335: END IF;
1328: p_bgh_rec, -- IN
1329: l_bgh_rec); -- OUT
1330: --- If any errors happen abort API
1331: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1334: RAISE Okl_Api.G_EXCEPTION_ERROR;
1335: END IF;
1336: INSERT INTO OKL_BLLNG_CHRG_HDRS_B(
1329: l_bgh_rec); -- OUT
1330: --- If any errors happen abort API
1331: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1334: RAISE Okl_Api.G_EXCEPTION_ERROR;
1335: END IF;
1336: INSERT INTO OKL_BLLNG_CHRG_HDRS_B(
1337: id,
1330: --- If any errors happen abort API
1331: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1334: RAISE Okl_Api.G_EXCEPTION_ERROR;
1335: END IF;
1336: INSERT INTO OKL_BLLNG_CHRG_HDRS_B(
1337: id,
1338: sequence_number,
1398: l_bgh_rec.last_update_date,
1399: l_bgh_rec.last_update_login);
1400: -- Set OUT values
1401: x_bgh_rec := l_bgh_rec;
1402: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1403: EXCEPTION
1404: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1405: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1406: (
1400: -- Set OUT values
1401: x_bgh_rec := l_bgh_rec;
1402: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1403: EXCEPTION
1404: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1405: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1401: x_bgh_rec := l_bgh_rec;
1402: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1403: EXCEPTION
1404: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1405: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1409: 'OKL_API.G_RET_STS_ERROR',
1405: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1409: 'OKL_API.G_RET_STS_ERROR',
1410: x_msg_count,
1411: x_msg_data,
1412: '_PVT'
1413: );
1410: x_msg_count,
1411: x_msg_data,
1412: '_PVT'
1413: );
1414: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1415: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1416: (
1417: l_api_name,
1418: G_PKG_NAME,
1411: x_msg_data,
1412: '_PVT'
1413: );
1414: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1415: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1416: (
1417: l_api_name,
1418: G_PKG_NAME,
1419: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1415: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1416: (
1417: l_api_name,
1418: G_PKG_NAME,
1419: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1420: x_msg_count,
1421: x_msg_data,
1422: '_PVT'
1423: );
1421: x_msg_data,
1422: '_PVT'
1423: );
1424: WHEN OTHERS THEN
1425: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1426: (
1427: l_api_name,
1428: G_PKG_NAME,
1429: 'OTHERS',
1444: x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType) IS
1445:
1446: l_api_version CONSTANT NUMBER := 1;
1447: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1448: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1449: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType := p_okl_bllng_chrg_hdrs_tl_rec;
1450: ldefoklbllngchrghdrstlrec OklBllngChrgHdrsTlRecType;
1451: CURSOR get_languages IS
1452: SELECT *
1458: FUNCTION Set_Attributes (
1459: p_okl_bllng_chrg_hdrs_tl_rec IN OklBllngChrgHdrsTlRecType,
1460: x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType
1461: ) RETURN VARCHAR2 IS
1462: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1463: BEGIN
1464: x_okl_bllng_chrg_hdrs_tl_rec := p_okl_bllng_chrg_hdrs_tl_rec;
1465: x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
1466: x_okl_bllng_chrg_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1466: x_okl_bllng_chrg_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1467: RETURN(l_return_status);
1468: END Set_Attributes;
1469: BEGIN
1470: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1471: p_init_msg_list,
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1470: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1471: p_init_msg_list,
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okl_Api.G_EXCEPTION_ERROR;
1478: END IF;
1471: p_init_msg_list,
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okl_Api.G_EXCEPTION_ERROR;
1478: END IF;
1479: --- Setting item attributes
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okl_Api.G_EXCEPTION_ERROR;
1478: END IF;
1479: --- Setting item attributes
1480: l_return_status := Set_Attributes(
1473: x_return_status);
1474: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okl_Api.G_EXCEPTION_ERROR;
1478: END IF;
1479: --- Setting item attributes
1480: l_return_status := Set_Attributes(
1481: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
1480: l_return_status := Set_Attributes(
1481: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
1482: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okl_Api.G_EXCEPTION_ERROR;
1488: END IF;
1481: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
1482: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okl_Api.G_EXCEPTION_ERROR;
1488: END IF;
1489: FOR l_lang_rec IN get_languages LOOP
1482: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okl_Api.G_EXCEPTION_ERROR;
1488: END IF;
1489: FOR l_lang_rec IN get_languages LOOP
1490: l_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okl_Api.G_EXCEPTION_ERROR;
1488: END IF;
1489: FOR l_lang_rec IN get_languages LOOP
1490: l_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1491: INSERT INTO OKL_BLLNG_CHRG_HDRS_TL(
1516: l_okl_bllng_chrg_hdrs_tl_rec.last_update_login);
1517: END LOOP;
1518: -- Set OUT values
1519: x_okl_bllng_chrg_hdrs_tl_rec := l_okl_bllng_chrg_hdrs_tl_rec;
1520: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1521: EXCEPTION
1522: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1523: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1524: (
1518: -- Set OUT values
1519: x_okl_bllng_chrg_hdrs_tl_rec := l_okl_bllng_chrg_hdrs_tl_rec;
1520: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1521: EXCEPTION
1522: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1523: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1524: (
1525: l_api_name,
1526: G_PKG_NAME,
1519: x_okl_bllng_chrg_hdrs_tl_rec := l_okl_bllng_chrg_hdrs_tl_rec;
1520: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1521: EXCEPTION
1522: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1523: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1524: (
1525: l_api_name,
1526: G_PKG_NAME,
1527: 'OKL_API.G_RET_STS_ERROR',
1523: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1524: (
1525: l_api_name,
1526: G_PKG_NAME,
1527: 'OKL_API.G_RET_STS_ERROR',
1528: x_msg_count,
1529: x_msg_data,
1530: '_PVT'
1531: );
1528: x_msg_count,
1529: x_msg_data,
1530: '_PVT'
1531: );
1532: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1533: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1534: (
1535: l_api_name,
1536: G_PKG_NAME,
1529: x_msg_data,
1530: '_PVT'
1531: );
1532: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1533: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1534: (
1535: l_api_name,
1536: G_PKG_NAME,
1537: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1533: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1534: (
1535: l_api_name,
1536: G_PKG_NAME,
1537: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1538: x_msg_count,
1539: x_msg_data,
1540: '_PVT'
1541: );
1539: x_msg_data,
1540: '_PVT'
1541: );
1542: WHEN OTHERS THEN
1543: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OTHERS',
1563: x_bghv_rec OUT NOCOPY bghv_rec_type) IS
1564:
1565: l_api_version CONSTANT NUMBER := 1;
1566: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1567: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1568: l_bghv_rec bghv_rec_type;
1569: l_def_bghv_rec bghv_rec_type;
1570: l_bgh_rec bgh_rec_type;
1571: lx_bgh_rec bgh_rec_type;
1592: FUNCTION Set_Attributes (
1593: p_bghv_rec IN bghv_rec_type,
1594: x_bghv_rec OUT NOCOPY bghv_rec_type
1595: ) RETURN VARCHAR2 IS
1596: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1597: BEGIN
1598: x_bghv_rec := p_bghv_rec;
1599: x_bghv_rec.OBJECT_VERSION_NUMBER := 1;
1600: -- Begin Post-Generation Change
1613: x_bghv_rec.SFWT_FLAG := 'N';
1614: RETURN(l_return_status);
1615: END Set_Attributes;
1616: BEGIN
1617: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1618: G_PKG_NAME,
1619: p_init_msg_list,
1620: l_api_version,
1621: p_api_version,
1620: l_api_version,
1621: p_api_version,
1622: '_PVT',
1623: x_return_status);
1624: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1627: RAISE Okl_Api.G_EXCEPTION_ERROR;
1628: END IF;
1621: p_api_version,
1622: '_PVT',
1623: x_return_status);
1624: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1627: RAISE Okl_Api.G_EXCEPTION_ERROR;
1628: END IF;
1629: l_bghv_rec := null_out_defaults(p_bghv_rec);
1622: '_PVT',
1623: x_return_status);
1624: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1627: RAISE Okl_Api.G_EXCEPTION_ERROR;
1628: END IF;
1629: l_bghv_rec := null_out_defaults(p_bghv_rec);
1630: -- Set primary key value
1623: x_return_status);
1624: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1627: RAISE Okl_Api.G_EXCEPTION_ERROR;
1628: END IF;
1629: l_bghv_rec := null_out_defaults(p_bghv_rec);
1630: -- Set primary key value
1631: l_bghv_rec.ID := get_seq_id;
1633: l_return_status := Set_Attributes(
1634: l_bghv_rec, -- IN
1635: l_def_bghv_rec); -- OUT
1636: --- If any errors happen abort API
1637: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1634: l_bghv_rec, -- IN
1635: l_def_bghv_rec); -- OUT
1636: --- If any errors happen abort API
1637: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1642: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
1635: l_def_bghv_rec); -- OUT
1636: --- If any errors happen abort API
1637: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1642: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
1643: --- Validate all non-missing attributes (Item Level Validation)
1636: --- If any errors happen abort API
1637: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1642: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
1643: --- Validate all non-missing attributes (Item Level Validation)
1644: l_return_status := Validate_Attributes(l_def_bghv_rec);
1642: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
1643: --- Validate all non-missing attributes (Item Level Validation)
1644: l_return_status := Validate_Attributes(l_def_bghv_rec);
1645: --- If any errors happen abort API
1646: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1649: RAISE Okl_Api.G_EXCEPTION_ERROR;
1650: END IF;
1643: --- Validate all non-missing attributes (Item Level Validation)
1644: l_return_status := Validate_Attributes(l_def_bghv_rec);
1645: --- If any errors happen abort API
1646: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1649: RAISE Okl_Api.G_EXCEPTION_ERROR;
1650: END IF;
1651: l_return_status := Validate_Record(l_def_bghv_rec);
1644: l_return_status := Validate_Attributes(l_def_bghv_rec);
1645: --- If any errors happen abort API
1646: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1649: RAISE Okl_Api.G_EXCEPTION_ERROR;
1650: END IF;
1651: l_return_status := Validate_Record(l_def_bghv_rec);
1652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1645: --- If any errors happen abort API
1646: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1649: RAISE Okl_Api.G_EXCEPTION_ERROR;
1650: END IF;
1651: l_return_status := Validate_Record(l_def_bghv_rec);
1652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1649: RAISE Okl_Api.G_EXCEPTION_ERROR;
1650: END IF;
1651: l_return_status := Validate_Record(l_def_bghv_rec);
1652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1654: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1655: RAISE Okl_Api.G_EXCEPTION_ERROR;
1656: END IF;
1649: RAISE Okl_Api.G_EXCEPTION_ERROR;
1650: END IF;
1651: l_return_status := Validate_Record(l_def_bghv_rec);
1652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1654: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1655: RAISE Okl_Api.G_EXCEPTION_ERROR;
1656: END IF;
1657: --------------------------------------
1650: END IF;
1651: l_return_status := Validate_Record(l_def_bghv_rec);
1652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1654: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1655: RAISE Okl_Api.G_EXCEPTION_ERROR;
1656: END IF;
1657: --------------------------------------
1658: -- Move VIEW record to "Child" records
1651: l_return_status := Validate_Record(l_def_bghv_rec);
1652: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1654: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1655: RAISE Okl_Api.G_EXCEPTION_ERROR;
1656: END IF;
1657: --------------------------------------
1658: -- Move VIEW record to "Child" records
1659: --------------------------------------
1669: x_msg_data,
1670: l_bgh_rec,
1671: lx_bgh_rec
1672: );
1673: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1676: RAISE Okl_Api.G_EXCEPTION_ERROR;
1677: END IF;
1670: l_bgh_rec,
1671: lx_bgh_rec
1672: );
1673: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1676: RAISE Okl_Api.G_EXCEPTION_ERROR;
1677: END IF;
1678: migrate(lx_bgh_rec, l_def_bghv_rec);
1671: lx_bgh_rec
1672: );
1673: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1676: RAISE Okl_Api.G_EXCEPTION_ERROR;
1677: END IF;
1678: migrate(lx_bgh_rec, l_def_bghv_rec);
1679: insert_row(
1672: );
1673: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1676: RAISE Okl_Api.G_EXCEPTION_ERROR;
1677: END IF;
1678: migrate(lx_bgh_rec, l_def_bghv_rec);
1679: insert_row(
1680: p_init_msg_list,
1683: x_msg_data,
1684: l_okl_bllng_chrg_hdrs_tl_rec,
1685: lx_okl_bllng_chrg_hdrs_tl_rec
1686: );
1687: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_ERROR;
1691: END IF;
1684: l_okl_bllng_chrg_hdrs_tl_rec,
1685: lx_okl_bllng_chrg_hdrs_tl_rec
1686: );
1687: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_ERROR;
1691: END IF;
1692: migrate(lx_okl_bllng_chrg_hdrs_tl_rec, l_def_bghv_rec);
1685: lx_okl_bllng_chrg_hdrs_tl_rec
1686: );
1687: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_ERROR;
1691: END IF;
1692: migrate(lx_okl_bllng_chrg_hdrs_tl_rec, l_def_bghv_rec);
1693: -- Set OUT values
1686: );
1687: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_ERROR;
1691: END IF;
1692: migrate(lx_okl_bllng_chrg_hdrs_tl_rec, l_def_bghv_rec);
1693: -- Set OUT values
1694: x_bghv_rec := l_def_bghv_rec;
1691: END IF;
1692: migrate(lx_okl_bllng_chrg_hdrs_tl_rec, l_def_bghv_rec);
1693: -- Set OUT values
1694: x_bghv_rec := l_def_bghv_rec;
1695: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1696: EXCEPTION
1697: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1698: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1699: (
1693: -- Set OUT values
1694: x_bghv_rec := l_def_bghv_rec;
1695: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1696: EXCEPTION
1697: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1698: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1699: (
1700: l_api_name,
1701: G_PKG_NAME,
1694: x_bghv_rec := l_def_bghv_rec;
1695: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1696: EXCEPTION
1697: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1698: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1699: (
1700: l_api_name,
1701: G_PKG_NAME,
1702: 'OKL_API.G_RET_STS_ERROR',
1698: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1699: (
1700: l_api_name,
1701: G_PKG_NAME,
1702: 'OKL_API.G_RET_STS_ERROR',
1703: x_msg_count,
1704: x_msg_data,
1705: '_PVT'
1706: );
1703: x_msg_count,
1704: x_msg_data,
1705: '_PVT'
1706: );
1707: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1708: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1709: (
1710: l_api_name,
1711: G_PKG_NAME,
1704: x_msg_data,
1705: '_PVT'
1706: );
1707: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1708: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1709: (
1710: l_api_name,
1711: G_PKG_NAME,
1712: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1708: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1709: (
1710: l_api_name,
1711: G_PKG_NAME,
1712: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1713: x_msg_count,
1714: x_msg_data,
1715: '_PVT'
1716: );
1714: x_msg_data,
1715: '_PVT'
1716: );
1717: WHEN OTHERS THEN
1718: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1719: (
1720: l_api_name,
1721: G_PKG_NAME,
1722: 'OTHERS',
1738: x_bghv_tbl OUT NOCOPY bghv_tbl_type) IS
1739:
1740: l_api_version CONSTANT NUMBER := 1;
1741: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1742: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1743: i NUMBER := 0;
1744: -- Begin Post-Generation Change
1745: -- overall error status
1746: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1742: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1743: i NUMBER := 0;
1744: -- Begin Post-Generation Change
1745: -- overall error status
1746: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1747: -- End Post-Generation Change
1748:
1749: BEGIN
1750: Okl_Api.init_msg_list(p_init_msg_list);
1746: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1747: -- End Post-Generation Change
1748:
1749: BEGIN
1750: Okl_Api.init_msg_list(p_init_msg_list);
1751: -- Make sure PL/SQL table has records in it before passing
1752: IF (p_bghv_tbl.COUNT > 0) THEN
1753: i := p_bghv_tbl.FIRST;
1754: LOOP
1761: p_bghv_rec => p_bghv_tbl(i),
1762: x_bghv_rec => x_bghv_tbl(i));
1763: -- Begin Post-Generation Change
1764: -- store the highest degree of error
1765: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1766: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1767: l_overall_status := x_return_status;
1768: END IF;
1769: END IF;
1762: x_bghv_rec => x_bghv_tbl(i));
1763: -- Begin Post-Generation Change
1764: -- store the highest degree of error
1765: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1766: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1767: l_overall_status := x_return_status;
1768: END IF;
1769: END IF;
1770: -- End Post-Generation Change
1776: x_return_status := l_overall_status;
1777: -- End Post-Generation Change
1778: END IF;
1779: EXCEPTION
1780: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1781: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1782: (
1783: l_api_name,
1784: G_PKG_NAME,
1777: -- End Post-Generation Change
1778: END IF;
1779: EXCEPTION
1780: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1781: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1782: (
1783: l_api_name,
1784: G_PKG_NAME,
1785: 'OKL_API.G_RET_STS_ERROR',
1781: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1782: (
1783: l_api_name,
1784: G_PKG_NAME,
1785: 'OKL_API.G_RET_STS_ERROR',
1786: x_msg_count,
1787: x_msg_data,
1788: '_PVT'
1789: );
1786: x_msg_count,
1787: x_msg_data,
1788: '_PVT'
1789: );
1790: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1791: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1792: (
1793: l_api_name,
1794: G_PKG_NAME,
1787: x_msg_data,
1788: '_PVT'
1789: );
1790: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1791: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1792: (
1793: l_api_name,
1794: G_PKG_NAME,
1795: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1791: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1792: (
1793: l_api_name,
1794: G_PKG_NAME,
1795: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1796: x_msg_count,
1797: x_msg_data,
1798: '_PVT'
1799: );
1797: x_msg_data,
1798: '_PVT'
1799: );
1800: WHEN OTHERS THEN
1801: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1802: (
1803: l_api_name,
1804: G_PKG_NAME,
1805: 'OTHERS',
1836: FROM OKL_BLLNG_CHRG_HDRS_B
1837: WHERE ID = p_bgh_rec.id;
1838: l_api_version CONSTANT NUMBER := 1;
1839: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1840: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1841: l_object_version_number OKL_BLLNG_CHRG_HDRS_B.OBJECT_VERSION_NUMBER%TYPE;
1842: lc_object_version_number OKL_BLLNG_CHRG_HDRS_B.OBJECT_VERSION_NUMBER%TYPE;
1843: l_row_notfound BOOLEAN := FALSE;
1844: lc_row_notfound BOOLEAN := FALSE;
1842: lc_object_version_number OKL_BLLNG_CHRG_HDRS_B.OBJECT_VERSION_NUMBER%TYPE;
1843: l_row_notfound BOOLEAN := FALSE;
1844: lc_row_notfound BOOLEAN := FALSE;
1845: BEGIN
1846: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1847: p_init_msg_list,
1848: '_PVT',
1849: x_return_status);
1850: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1846: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1847: p_init_msg_list,
1848: '_PVT',
1849: x_return_status);
1850: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1851: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1852: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1853: RAISE Okl_Api.G_EXCEPTION_ERROR;
1854: END IF;
1847: p_init_msg_list,
1848: '_PVT',
1849: x_return_status);
1850: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1851: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1852: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1853: RAISE Okl_Api.G_EXCEPTION_ERROR;
1854: END IF;
1855: BEGIN
1848: '_PVT',
1849: x_return_status);
1850: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1851: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1852: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1853: RAISE Okl_Api.G_EXCEPTION_ERROR;
1854: END IF;
1855: BEGIN
1856: OPEN lock_csr(p_bgh_rec);
1849: x_return_status);
1850: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1851: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1852: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1853: RAISE Okl_Api.G_EXCEPTION_ERROR;
1854: END IF;
1855: BEGIN
1856: OPEN lock_csr(p_bgh_rec);
1857: FETCH lock_csr INTO l_object_version_number;
1861: WHEN E_Resource_Busy THEN
1862: IF (lock_csr%ISOPEN) THEN
1863: CLOSE lock_csr;
1864: END IF;
1865: Okl_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1866: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1867: END;
1868:
1869: IF ( l_row_notfound ) THEN
1872: lc_row_notfound := lchk_csr%NOTFOUND;
1873: CLOSE lchk_csr;
1874: END IF;
1875: IF (lc_row_notfound) THEN
1876: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number > p_bgh_rec.object_version_number THEN
1879: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1873: CLOSE lchk_csr;
1874: END IF;
1875: IF (lc_row_notfound) THEN
1876: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number > p_bgh_rec.object_version_number THEN
1879: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number <> p_bgh_rec.object_version_number THEN
1875: IF (lc_row_notfound) THEN
1876: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number > p_bgh_rec.object_version_number THEN
1879: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number <> p_bgh_rec.object_version_number THEN
1882: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1883: RAISE Okl_Api.G_EXCEPTION_ERROR;
1876: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number > p_bgh_rec.object_version_number THEN
1879: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number <> p_bgh_rec.object_version_number THEN
1882: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1883: RAISE Okl_Api.G_EXCEPTION_ERROR;
1884: ELSIF lc_object_version_number = -1 THEN
1878: ELSIF lc_object_version_number > p_bgh_rec.object_version_number THEN
1879: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number <> p_bgh_rec.object_version_number THEN
1882: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1883: RAISE Okl_Api.G_EXCEPTION_ERROR;
1884: ELSIF lc_object_version_number = -1 THEN
1885: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1886: RAISE Okl_Api.G_EXCEPTION_ERROR;
1879: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number <> p_bgh_rec.object_version_number THEN
1882: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1883: RAISE Okl_Api.G_EXCEPTION_ERROR;
1884: ELSIF lc_object_version_number = -1 THEN
1885: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1886: RAISE Okl_Api.G_EXCEPTION_ERROR;
1887: END IF;
1881: ELSIF lc_object_version_number <> p_bgh_rec.object_version_number THEN
1882: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1883: RAISE Okl_Api.G_EXCEPTION_ERROR;
1884: ELSIF lc_object_version_number = -1 THEN
1885: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1886: RAISE Okl_Api.G_EXCEPTION_ERROR;
1887: END IF;
1888: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1889: EXCEPTION
1882: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1883: RAISE Okl_Api.G_EXCEPTION_ERROR;
1884: ELSIF lc_object_version_number = -1 THEN
1885: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1886: RAISE Okl_Api.G_EXCEPTION_ERROR;
1887: END IF;
1888: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1889: EXCEPTION
1890: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1884: ELSIF lc_object_version_number = -1 THEN
1885: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1886: RAISE Okl_Api.G_EXCEPTION_ERROR;
1887: END IF;
1888: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1889: EXCEPTION
1890: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1891: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1892: (
1886: RAISE Okl_Api.G_EXCEPTION_ERROR;
1887: END IF;
1888: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1889: EXCEPTION
1890: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1891: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1892: (
1893: l_api_name,
1894: G_PKG_NAME,
1887: END IF;
1888: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1889: EXCEPTION
1890: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1891: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1892: (
1893: l_api_name,
1894: G_PKG_NAME,
1895: 'OKL_API.G_RET_STS_ERROR',
1891: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1892: (
1893: l_api_name,
1894: G_PKG_NAME,
1895: 'OKL_API.G_RET_STS_ERROR',
1896: x_msg_count,
1897: x_msg_data,
1898: '_PVT'
1899: );
1896: x_msg_count,
1897: x_msg_data,
1898: '_PVT'
1899: );
1900: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1901: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1902: (
1903: l_api_name,
1904: G_PKG_NAME,
1897: x_msg_data,
1898: '_PVT'
1899: );
1900: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1901: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1902: (
1903: l_api_name,
1904: G_PKG_NAME,
1905: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1901: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1902: (
1903: l_api_name,
1904: G_PKG_NAME,
1905: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1906: x_msg_count,
1907: x_msg_data,
1908: '_PVT'
1909: );
1907: x_msg_data,
1908: '_PVT'
1909: );
1910: WHEN OTHERS THEN
1911: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1912: (
1913: l_api_name,
1914: G_PKG_NAME,
1915: 'OTHERS',
1937: FOR UPDATE NOWAIT;
1938:
1939: l_api_version CONSTANT NUMBER := 1;
1940: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1941: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1942: l_lock_var lock_csr%ROWTYPE;
1943: l_row_notfound BOOLEAN := FALSE;
1944: lc_row_notfound BOOLEAN := FALSE;
1945: BEGIN
1942: l_lock_var lock_csr%ROWTYPE;
1943: l_row_notfound BOOLEAN := FALSE;
1944: lc_row_notfound BOOLEAN := FALSE;
1945: BEGIN
1946: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1947: p_init_msg_list,
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1946: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1947: p_init_msg_list,
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1953: RAISE Okl_Api.G_EXCEPTION_ERROR;
1954: END IF;
1947: p_init_msg_list,
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1953: RAISE Okl_Api.G_EXCEPTION_ERROR;
1954: END IF;
1955: BEGIN
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1953: RAISE Okl_Api.G_EXCEPTION_ERROR;
1954: END IF;
1955: BEGIN
1956: OPEN lock_csr(p_okl_bllng_chrg_hdrs_tl_rec);
1949: x_return_status);
1950: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1953: RAISE Okl_Api.G_EXCEPTION_ERROR;
1954: END IF;
1955: BEGIN
1956: OPEN lock_csr(p_okl_bllng_chrg_hdrs_tl_rec);
1957: FETCH lock_csr INTO l_lock_var;
1961: WHEN E_Resource_Busy THEN
1962: IF (lock_csr%ISOPEN) THEN
1963: CLOSE lock_csr;
1964: END IF;
1965: Okl_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1966: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1967: END;
1968:
1969: IF ( l_row_notfound ) THEN
1966: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1967: END;
1968:
1969: IF ( l_row_notfound ) THEN
1970: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1971: RAISE Okl_Api.G_EXCEPTION_ERROR;
1972: END IF;
1973: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1974: EXCEPTION
1967: END;
1968:
1969: IF ( l_row_notfound ) THEN
1970: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1971: RAISE Okl_Api.G_EXCEPTION_ERROR;
1972: END IF;
1973: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1974: EXCEPTION
1975: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1969: IF ( l_row_notfound ) THEN
1970: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1971: RAISE Okl_Api.G_EXCEPTION_ERROR;
1972: END IF;
1973: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1974: EXCEPTION
1975: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1976: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1977: (
1971: RAISE Okl_Api.G_EXCEPTION_ERROR;
1972: END IF;
1973: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1974: EXCEPTION
1975: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1976: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1977: (
1978: l_api_name,
1979: G_PKG_NAME,
1972: END IF;
1973: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1974: EXCEPTION
1975: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1976: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1977: (
1978: l_api_name,
1979: G_PKG_NAME,
1980: 'OKL_API.G_RET_STS_ERROR',
1976: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1977: (
1978: l_api_name,
1979: G_PKG_NAME,
1980: 'OKL_API.G_RET_STS_ERROR',
1981: x_msg_count,
1982: x_msg_data,
1983: '_PVT'
1984: );
1981: x_msg_count,
1982: x_msg_data,
1983: '_PVT'
1984: );
1985: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1986: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1982: x_msg_data,
1983: '_PVT'
1984: );
1985: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1986: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1990: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1986: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1990: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1991: x_msg_count,
1992: x_msg_data,
1993: '_PVT'
1994: );
1992: x_msg_data,
1993: '_PVT'
1994: );
1995: WHEN OTHERS THEN
1996: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1997: (
1998: l_api_name,
1999: G_PKG_NAME,
2000: 'OTHERS',
2015: p_bghv_rec IN bghv_rec_type) IS
2016:
2017: l_api_version CONSTANT NUMBER := 1;
2018: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2019: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2020: l_bgh_rec bgh_rec_type;
2021: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
2022: BEGIN
2023: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2019: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2020: l_bgh_rec bgh_rec_type;
2021: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
2022: BEGIN
2023: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2024: G_PKG_NAME,
2025: p_init_msg_list,
2026: l_api_version,
2027: p_api_version,
2026: l_api_version,
2027: p_api_version,
2028: '_PVT',
2029: x_return_status);
2030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2033: RAISE Okl_Api.G_EXCEPTION_ERROR;
2034: END IF;
2027: p_api_version,
2028: '_PVT',
2029: x_return_status);
2030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2033: RAISE Okl_Api.G_EXCEPTION_ERROR;
2034: END IF;
2035: --------------------------------------
2028: '_PVT',
2029: x_return_status);
2030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2033: RAISE Okl_Api.G_EXCEPTION_ERROR;
2034: END IF;
2035: --------------------------------------
2036: -- Move VIEW record to "Child" records
2029: x_return_status);
2030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2033: RAISE Okl_Api.G_EXCEPTION_ERROR;
2034: END IF;
2035: --------------------------------------
2036: -- Move VIEW record to "Child" records
2037: --------------------------------------
2046: x_msg_count,
2047: x_msg_data,
2048: l_bgh_rec
2049: );
2050: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2053: RAISE Okl_Api.G_EXCEPTION_ERROR;
2054: END IF;
2047: x_msg_data,
2048: l_bgh_rec
2049: );
2050: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2053: RAISE Okl_Api.G_EXCEPTION_ERROR;
2054: END IF;
2055: lock_row(
2048: l_bgh_rec
2049: );
2050: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2053: RAISE Okl_Api.G_EXCEPTION_ERROR;
2054: END IF;
2055: lock_row(
2056: p_init_msg_list,
2049: );
2050: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2053: RAISE Okl_Api.G_EXCEPTION_ERROR;
2054: END IF;
2055: lock_row(
2056: p_init_msg_list,
2057: x_return_status,
2058: x_msg_count,
2059: x_msg_data,
2060: l_okl_bllng_chrg_hdrs_tl_rec
2061: );
2062: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2065: RAISE Okl_Api.G_EXCEPTION_ERROR;
2066: END IF;
2059: x_msg_data,
2060: l_okl_bllng_chrg_hdrs_tl_rec
2061: );
2062: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2065: RAISE Okl_Api.G_EXCEPTION_ERROR;
2066: END IF;
2067: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2060: l_okl_bllng_chrg_hdrs_tl_rec
2061: );
2062: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2065: RAISE Okl_Api.G_EXCEPTION_ERROR;
2066: END IF;
2067: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2061: );
2062: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2065: RAISE Okl_Api.G_EXCEPTION_ERROR;
2066: END IF;
2067: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2069: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2063: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2065: RAISE Okl_Api.G_EXCEPTION_ERROR;
2066: END IF;
2067: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2069: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2070: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2071: (
2065: RAISE Okl_Api.G_EXCEPTION_ERROR;
2066: END IF;
2067: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2069: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2070: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2066: END IF;
2067: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2069: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2070: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2074: 'OKL_API.G_RET_STS_ERROR',
2070: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2074: 'OKL_API.G_RET_STS_ERROR',
2075: x_msg_count,
2076: x_msg_data,
2077: '_PVT'
2078: );
2075: x_msg_count,
2076: x_msg_data,
2077: '_PVT'
2078: );
2079: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2080: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2076: x_msg_data,
2077: '_PVT'
2078: );
2079: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2080: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2080: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2085: x_msg_count,
2086: x_msg_data,
2087: '_PVT'
2088: );
2086: x_msg_data,
2087: '_PVT'
2088: );
2089: WHEN OTHERS THEN
2090: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2094: 'OTHERS',
2109: p_bghv_tbl IN bghv_tbl_type) IS
2110:
2111: l_api_version CONSTANT NUMBER := 1;
2112: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2113: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2114: i NUMBER := 0;
2115: -- Begin Post-Generation Change
2116: -- overall error status
2117: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2113: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2114: i NUMBER := 0;
2115: -- Begin Post-Generation Change
2116: -- overall error status
2117: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2118: -- End Post-Generation Change
2119:
2120: BEGIN
2121: Okl_Api.init_msg_list(p_init_msg_list);
2117: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2118: -- End Post-Generation Change
2119:
2120: BEGIN
2121: Okl_Api.init_msg_list(p_init_msg_list);
2122: -- Make sure PL/SQL table has records in it before passing
2123: IF (p_bghv_tbl.COUNT > 0) THEN
2124: i := p_bghv_tbl.FIRST;
2125: LOOP
2131: x_msg_data => x_msg_data,
2132: p_bghv_rec => p_bghv_tbl(i));
2133: -- Begin Post-Generation Change
2134: -- store the highest degree of error
2135: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2136: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2137: l_overall_status := x_return_status;
2138: END IF;
2139: END IF;
2132: p_bghv_rec => p_bghv_tbl(i));
2133: -- Begin Post-Generation Change
2134: -- store the highest degree of error
2135: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2136: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2137: l_overall_status := x_return_status;
2138: END IF;
2139: END IF;
2140: -- End Post-Generation Change
2146: x_return_status := l_overall_status;
2147: -- End Post-Generation Change
2148: END IF;
2149: EXCEPTION
2150: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2151: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2147: -- End Post-Generation Change
2148: END IF;
2149: EXCEPTION
2150: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2151: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OKL_API.G_RET_STS_ERROR',
2151: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OKL_API.G_RET_STS_ERROR',
2156: x_msg_count,
2157: x_msg_data,
2158: '_PVT'
2159: );
2156: x_msg_count,
2157: x_msg_data,
2158: '_PVT'
2159: );
2160: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2161: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2162: (
2163: l_api_name,
2164: G_PKG_NAME,
2157: x_msg_data,
2158: '_PVT'
2159: );
2160: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2161: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2162: (
2163: l_api_name,
2164: G_PKG_NAME,
2165: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2161: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2162: (
2163: l_api_name,
2164: G_PKG_NAME,
2165: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2166: x_msg_count,
2167: x_msg_data,
2168: '_PVT'
2169: );
2167: x_msg_data,
2168: '_PVT'
2169: );
2170: WHEN OTHERS THEN
2171: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2172: (
2173: l_api_name,
2174: G_PKG_NAME,
2175: 'OTHERS',
2194: x_bgh_rec OUT NOCOPY bgh_rec_type) IS
2195:
2196: l_api_version CONSTANT NUMBER := 1;
2197: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2198: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2199: l_bgh_rec bgh_rec_type := p_bgh_rec;
2200: l_def_bgh_rec bgh_rec_type;
2201: l_row_notfound BOOLEAN := TRUE;
2202: ----------------------------------
2207: x_bgh_rec OUT NOCOPY bgh_rec_type
2208: ) RETURN VARCHAR2 IS
2209: l_bgh_rec bgh_rec_type;
2210: l_row_notfound BOOLEAN := TRUE;
2211: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2212: BEGIN
2213: x_bgh_rec := p_bgh_rec;
2214: -- Get current database values
2215: l_bgh_rec := get_rec(p_bgh_rec, l_row_notfound);
2213: x_bgh_rec := p_bgh_rec;
2214: -- Get current database values
2215: l_bgh_rec := get_rec(p_bgh_rec, l_row_notfound);
2216: IF (l_row_notfound) THEN
2217: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2218: END IF;
2219: IF (x_bgh_rec.id = Okl_Api.G_MISS_NUM)
2220: THEN
2221: x_bgh_rec.id := l_bgh_rec.id;
2215: l_bgh_rec := get_rec(p_bgh_rec, l_row_notfound);
2216: IF (l_row_notfound) THEN
2217: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2218: END IF;
2219: IF (x_bgh_rec.id = Okl_Api.G_MISS_NUM)
2220: THEN
2221: x_bgh_rec.id := l_bgh_rec.id;
2222: END IF;
2223: IF (x_bgh_rec.sequence_number = Okl_Api.G_MISS_NUM)
2219: IF (x_bgh_rec.id = Okl_Api.G_MISS_NUM)
2220: THEN
2221: x_bgh_rec.id := l_bgh_rec.id;
2222: END IF;
2223: IF (x_bgh_rec.sequence_number = Okl_Api.G_MISS_NUM)
2224: THEN
2225: x_bgh_rec.sequence_number := l_bgh_rec.sequence_number;
2226: END IF;
2227: IF (x_bgh_rec.date_transmission = Okl_Api.G_MISS_DATE)
2223: IF (x_bgh_rec.sequence_number = Okl_Api.G_MISS_NUM)
2224: THEN
2225: x_bgh_rec.sequence_number := l_bgh_rec.sequence_number;
2226: END IF;
2227: IF (x_bgh_rec.date_transmission = Okl_Api.G_MISS_DATE)
2228: THEN
2229: x_bgh_rec.date_transmission := l_bgh_rec.date_transmission;
2230: END IF;
2231: IF (x_bgh_rec.object_version_number = Okl_Api.G_MISS_NUM)
2227: IF (x_bgh_rec.date_transmission = Okl_Api.G_MISS_DATE)
2228: THEN
2229: x_bgh_rec.date_transmission := l_bgh_rec.date_transmission;
2230: END IF;
2231: IF (x_bgh_rec.object_version_number = Okl_Api.G_MISS_NUM)
2232: THEN
2233: x_bgh_rec.object_version_number := l_bgh_rec.object_version_number;
2234: END IF;
2235: IF (x_bgh_rec.request_id = Okl_Api.G_MISS_NUM)
2231: IF (x_bgh_rec.object_version_number = Okl_Api.G_MISS_NUM)
2232: THEN
2233: x_bgh_rec.object_version_number := l_bgh_rec.object_version_number;
2234: END IF;
2235: IF (x_bgh_rec.request_id = Okl_Api.G_MISS_NUM)
2236: THEN
2237: x_bgh_rec.request_id := l_bgh_rec.request_id;
2238: END IF;
2239: IF (x_bgh_rec.program_application_id = Okl_Api.G_MISS_NUM)
2235: IF (x_bgh_rec.request_id = Okl_Api.G_MISS_NUM)
2236: THEN
2237: x_bgh_rec.request_id := l_bgh_rec.request_id;
2238: END IF;
2239: IF (x_bgh_rec.program_application_id = Okl_Api.G_MISS_NUM)
2240: THEN
2241: x_bgh_rec.program_application_id := l_bgh_rec.program_application_id;
2242: END IF;
2243: IF (x_bgh_rec.program_id = Okl_Api.G_MISS_NUM)
2239: IF (x_bgh_rec.program_application_id = Okl_Api.G_MISS_NUM)
2240: THEN
2241: x_bgh_rec.program_application_id := l_bgh_rec.program_application_id;
2242: END IF;
2243: IF (x_bgh_rec.program_id = Okl_Api.G_MISS_NUM)
2244: THEN
2245: x_bgh_rec.program_id := l_bgh_rec.program_id;
2246: END IF;
2247: IF (x_bgh_rec.program_update_date = Okl_Api.G_MISS_DATE)
2243: IF (x_bgh_rec.program_id = Okl_Api.G_MISS_NUM)
2244: THEN
2245: x_bgh_rec.program_id := l_bgh_rec.program_id;
2246: END IF;
2247: IF (x_bgh_rec.program_update_date = Okl_Api.G_MISS_DATE)
2248: THEN
2249: x_bgh_rec.program_update_date := l_bgh_rec.program_update_date;
2250: END IF;
2251: IF (x_bgh_rec.org_id = Okl_Api.G_MISS_NUM)
2247: IF (x_bgh_rec.program_update_date = Okl_Api.G_MISS_DATE)
2248: THEN
2249: x_bgh_rec.program_update_date := l_bgh_rec.program_update_date;
2250: END IF;
2251: IF (x_bgh_rec.org_id = Okl_Api.G_MISS_NUM)
2252: THEN
2253: x_bgh_rec.org_id := l_bgh_rec.org_id;
2254: END IF;
2255: IF (x_bgh_rec.trx_status_code = Okl_Api.G_MISS_CHAR)
2251: IF (x_bgh_rec.org_id = Okl_Api.G_MISS_NUM)
2252: THEN
2253: x_bgh_rec.org_id := l_bgh_rec.org_id;
2254: END IF;
2255: IF (x_bgh_rec.trx_status_code = Okl_Api.G_MISS_CHAR)
2256: THEN
2257: x_bgh_rec.trx_status_code := l_bgh_rec.trx_status_code;
2258: END IF;
2259: IF (x_bgh_rec.attribute_category = Okl_Api.G_MISS_CHAR)
2255: IF (x_bgh_rec.trx_status_code = Okl_Api.G_MISS_CHAR)
2256: THEN
2257: x_bgh_rec.trx_status_code := l_bgh_rec.trx_status_code;
2258: END IF;
2259: IF (x_bgh_rec.attribute_category = Okl_Api.G_MISS_CHAR)
2260: THEN
2261: x_bgh_rec.attribute_category := l_bgh_rec.attribute_category;
2262: END IF;
2263: IF (x_bgh_rec.attribute1 = Okl_Api.G_MISS_CHAR)
2259: IF (x_bgh_rec.attribute_category = Okl_Api.G_MISS_CHAR)
2260: THEN
2261: x_bgh_rec.attribute_category := l_bgh_rec.attribute_category;
2262: END IF;
2263: IF (x_bgh_rec.attribute1 = Okl_Api.G_MISS_CHAR)
2264: THEN
2265: x_bgh_rec.attribute1 := l_bgh_rec.attribute1;
2266: END IF;
2267: IF (x_bgh_rec.attribute2 = Okl_Api.G_MISS_CHAR)
2263: IF (x_bgh_rec.attribute1 = Okl_Api.G_MISS_CHAR)
2264: THEN
2265: x_bgh_rec.attribute1 := l_bgh_rec.attribute1;
2266: END IF;
2267: IF (x_bgh_rec.attribute2 = Okl_Api.G_MISS_CHAR)
2268: THEN
2269: x_bgh_rec.attribute2 := l_bgh_rec.attribute2;
2270: END IF;
2271: IF (x_bgh_rec.attribute3 = Okl_Api.G_MISS_CHAR)
2267: IF (x_bgh_rec.attribute2 = Okl_Api.G_MISS_CHAR)
2268: THEN
2269: x_bgh_rec.attribute2 := l_bgh_rec.attribute2;
2270: END IF;
2271: IF (x_bgh_rec.attribute3 = Okl_Api.G_MISS_CHAR)
2272: THEN
2273: x_bgh_rec.attribute3 := l_bgh_rec.attribute3;
2274: END IF;
2275: IF (x_bgh_rec.attribute4 = Okl_Api.G_MISS_CHAR)
2271: IF (x_bgh_rec.attribute3 = Okl_Api.G_MISS_CHAR)
2272: THEN
2273: x_bgh_rec.attribute3 := l_bgh_rec.attribute3;
2274: END IF;
2275: IF (x_bgh_rec.attribute4 = Okl_Api.G_MISS_CHAR)
2276: THEN
2277: x_bgh_rec.attribute4 := l_bgh_rec.attribute4;
2278: END IF;
2279: IF (x_bgh_rec.attribute5 = Okl_Api.G_MISS_CHAR)
2275: IF (x_bgh_rec.attribute4 = Okl_Api.G_MISS_CHAR)
2276: THEN
2277: x_bgh_rec.attribute4 := l_bgh_rec.attribute4;
2278: END IF;
2279: IF (x_bgh_rec.attribute5 = Okl_Api.G_MISS_CHAR)
2280: THEN
2281: x_bgh_rec.attribute5 := l_bgh_rec.attribute5;
2282: END IF;
2283: IF (x_bgh_rec.attribute6 = Okl_Api.G_MISS_CHAR)
2279: IF (x_bgh_rec.attribute5 = Okl_Api.G_MISS_CHAR)
2280: THEN
2281: x_bgh_rec.attribute5 := l_bgh_rec.attribute5;
2282: END IF;
2283: IF (x_bgh_rec.attribute6 = Okl_Api.G_MISS_CHAR)
2284: THEN
2285: x_bgh_rec.attribute6 := l_bgh_rec.attribute6;
2286: END IF;
2287: IF (x_bgh_rec.attribute7 = Okl_Api.G_MISS_CHAR)
2283: IF (x_bgh_rec.attribute6 = Okl_Api.G_MISS_CHAR)
2284: THEN
2285: x_bgh_rec.attribute6 := l_bgh_rec.attribute6;
2286: END IF;
2287: IF (x_bgh_rec.attribute7 = Okl_Api.G_MISS_CHAR)
2288: THEN
2289: x_bgh_rec.attribute7 := l_bgh_rec.attribute7;
2290: END IF;
2291: IF (x_bgh_rec.attribute8 = Okl_Api.G_MISS_CHAR)
2287: IF (x_bgh_rec.attribute7 = Okl_Api.G_MISS_CHAR)
2288: THEN
2289: x_bgh_rec.attribute7 := l_bgh_rec.attribute7;
2290: END IF;
2291: IF (x_bgh_rec.attribute8 = Okl_Api.G_MISS_CHAR)
2292: THEN
2293: x_bgh_rec.attribute8 := l_bgh_rec.attribute8;
2294: END IF;
2295: IF (x_bgh_rec.attribute9 = Okl_Api.G_MISS_CHAR)
2291: IF (x_bgh_rec.attribute8 = Okl_Api.G_MISS_CHAR)
2292: THEN
2293: x_bgh_rec.attribute8 := l_bgh_rec.attribute8;
2294: END IF;
2295: IF (x_bgh_rec.attribute9 = Okl_Api.G_MISS_CHAR)
2296: THEN
2297: x_bgh_rec.attribute9 := l_bgh_rec.attribute9;
2298: END IF;
2299: IF (x_bgh_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2295: IF (x_bgh_rec.attribute9 = Okl_Api.G_MISS_CHAR)
2296: THEN
2297: x_bgh_rec.attribute9 := l_bgh_rec.attribute9;
2298: END IF;
2299: IF (x_bgh_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2300: THEN
2301: x_bgh_rec.attribute10 := l_bgh_rec.attribute10;
2302: END IF;
2303: IF (x_bgh_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2299: IF (x_bgh_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2300: THEN
2301: x_bgh_rec.attribute10 := l_bgh_rec.attribute10;
2302: END IF;
2303: IF (x_bgh_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2304: THEN
2305: x_bgh_rec.attribute11 := l_bgh_rec.attribute11;
2306: END IF;
2307: IF (x_bgh_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2303: IF (x_bgh_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2304: THEN
2305: x_bgh_rec.attribute11 := l_bgh_rec.attribute11;
2306: END IF;
2307: IF (x_bgh_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2308: THEN
2309: x_bgh_rec.attribute12 := l_bgh_rec.attribute12;
2310: END IF;
2311: IF (x_bgh_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2307: IF (x_bgh_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2308: THEN
2309: x_bgh_rec.attribute12 := l_bgh_rec.attribute12;
2310: END IF;
2311: IF (x_bgh_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2312: THEN
2313: x_bgh_rec.attribute13 := l_bgh_rec.attribute13;
2314: END IF;
2315: IF (x_bgh_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2311: IF (x_bgh_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2312: THEN
2313: x_bgh_rec.attribute13 := l_bgh_rec.attribute13;
2314: END IF;
2315: IF (x_bgh_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2316: THEN
2317: x_bgh_rec.attribute14 := l_bgh_rec.attribute14;
2318: END IF;
2319: IF (x_bgh_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2315: IF (x_bgh_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2316: THEN
2317: x_bgh_rec.attribute14 := l_bgh_rec.attribute14;
2318: END IF;
2319: IF (x_bgh_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2320: THEN
2321: x_bgh_rec.attribute15 := l_bgh_rec.attribute15;
2322: END IF;
2323: IF (x_bgh_rec.created_by = Okl_Api.G_MISS_NUM)
2319: IF (x_bgh_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2320: THEN
2321: x_bgh_rec.attribute15 := l_bgh_rec.attribute15;
2322: END IF;
2323: IF (x_bgh_rec.created_by = Okl_Api.G_MISS_NUM)
2324: THEN
2325: x_bgh_rec.created_by := l_bgh_rec.created_by;
2326: END IF;
2327: IF (x_bgh_rec.creation_date = Okl_Api.G_MISS_DATE)
2323: IF (x_bgh_rec.created_by = Okl_Api.G_MISS_NUM)
2324: THEN
2325: x_bgh_rec.created_by := l_bgh_rec.created_by;
2326: END IF;
2327: IF (x_bgh_rec.creation_date = Okl_Api.G_MISS_DATE)
2328: THEN
2329: x_bgh_rec.creation_date := l_bgh_rec.creation_date;
2330: END IF;
2331: IF (x_bgh_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2327: IF (x_bgh_rec.creation_date = Okl_Api.G_MISS_DATE)
2328: THEN
2329: x_bgh_rec.creation_date := l_bgh_rec.creation_date;
2330: END IF;
2331: IF (x_bgh_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2332: THEN
2333: x_bgh_rec.last_updated_by := l_bgh_rec.last_updated_by;
2334: END IF;
2335: IF (x_bgh_rec.last_update_date = Okl_Api.G_MISS_DATE)
2331: IF (x_bgh_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2332: THEN
2333: x_bgh_rec.last_updated_by := l_bgh_rec.last_updated_by;
2334: END IF;
2335: IF (x_bgh_rec.last_update_date = Okl_Api.G_MISS_DATE)
2336: THEN
2337: x_bgh_rec.last_update_date := l_bgh_rec.last_update_date;
2338: END IF;
2339: IF (x_bgh_rec.last_update_login = Okl_Api.G_MISS_NUM)
2335: IF (x_bgh_rec.last_update_date = Okl_Api.G_MISS_DATE)
2336: THEN
2337: x_bgh_rec.last_update_date := l_bgh_rec.last_update_date;
2338: END IF;
2339: IF (x_bgh_rec.last_update_login = Okl_Api.G_MISS_NUM)
2340: THEN
2341: x_bgh_rec.last_update_login := l_bgh_rec.last_update_login;
2342: END IF;
2343: RETURN(l_return_status);
2348: FUNCTION Set_Attributes (
2349: p_bgh_rec IN bgh_rec_type,
2350: x_bgh_rec OUT NOCOPY bgh_rec_type
2351: ) RETURN VARCHAR2 IS
2352: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2353: BEGIN
2354: x_bgh_rec := p_bgh_rec;
2355: RETURN(l_return_status);
2356: END Set_Attributes;
2354: x_bgh_rec := p_bgh_rec;
2355: RETURN(l_return_status);
2356: END Set_Attributes;
2357: BEGIN
2358: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2359: p_init_msg_list,
2360: '_PVT',
2361: x_return_status);
2362: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2358: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2359: p_init_msg_list,
2360: '_PVT',
2361: x_return_status);
2362: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2365: RAISE Okl_Api.G_EXCEPTION_ERROR;
2366: END IF;
2359: p_init_msg_list,
2360: '_PVT',
2361: x_return_status);
2362: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2365: RAISE Okl_Api.G_EXCEPTION_ERROR;
2366: END IF;
2367: --- Setting item attributes
2360: '_PVT',
2361: x_return_status);
2362: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2365: RAISE Okl_Api.G_EXCEPTION_ERROR;
2366: END IF;
2367: --- Setting item attributes
2368: l_return_status := Set_Attributes(
2361: x_return_status);
2362: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2365: RAISE Okl_Api.G_EXCEPTION_ERROR;
2366: END IF;
2367: --- Setting item attributes
2368: l_return_status := Set_Attributes(
2369: p_bgh_rec, -- IN
2368: l_return_status := Set_Attributes(
2369: p_bgh_rec, -- IN
2370: l_bgh_rec); -- OUT
2371: --- If any errors happen abort API
2372: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2375: RAISE Okl_Api.G_EXCEPTION_ERROR;
2376: END IF;
2369: p_bgh_rec, -- IN
2370: l_bgh_rec); -- OUT
2371: --- If any errors happen abort API
2372: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2375: RAISE Okl_Api.G_EXCEPTION_ERROR;
2376: END IF;
2377: l_return_status := populate_new_record(l_bgh_rec, l_def_bgh_rec);
2370: l_bgh_rec); -- OUT
2371: --- If any errors happen abort API
2372: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2375: RAISE Okl_Api.G_EXCEPTION_ERROR;
2376: END IF;
2377: l_return_status := populate_new_record(l_bgh_rec, l_def_bgh_rec);
2378: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2371: --- If any errors happen abort API
2372: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2375: RAISE Okl_Api.G_EXCEPTION_ERROR;
2376: END IF;
2377: l_return_status := populate_new_record(l_bgh_rec, l_def_bgh_rec);
2378: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2379: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2375: RAISE Okl_Api.G_EXCEPTION_ERROR;
2376: END IF;
2377: l_return_status := populate_new_record(l_bgh_rec, l_def_bgh_rec);
2378: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2379: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2380: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2381: RAISE Okl_Api.G_EXCEPTION_ERROR;
2382: END IF;
2375: RAISE Okl_Api.G_EXCEPTION_ERROR;
2376: END IF;
2377: l_return_status := populate_new_record(l_bgh_rec, l_def_bgh_rec);
2378: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2379: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2380: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2381: RAISE Okl_Api.G_EXCEPTION_ERROR;
2382: END IF;
2383: UPDATE OKL_BLLNG_CHRG_HDRS_B
2376: END IF;
2377: l_return_status := populate_new_record(l_bgh_rec, l_def_bgh_rec);
2378: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2379: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2380: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2381: RAISE Okl_Api.G_EXCEPTION_ERROR;
2382: END IF;
2383: UPDATE OKL_BLLNG_CHRG_HDRS_B
2384: SET SEQUENCE_NUMBER = l_def_bgh_rec.sequence_number,
2377: l_return_status := populate_new_record(l_bgh_rec, l_def_bgh_rec);
2378: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2379: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2380: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2381: RAISE Okl_Api.G_EXCEPTION_ERROR;
2382: END IF;
2383: UPDATE OKL_BLLNG_CHRG_HDRS_B
2384: SET SEQUENCE_NUMBER = l_def_bgh_rec.sequence_number,
2385: DATE_TRANSMISSION = l_def_bgh_rec.date_transmission,
2413: LAST_UPDATE_LOGIN = l_def_bgh_rec.last_update_login
2414: WHERE ID = l_def_bgh_rec.id;
2415:
2416: x_bgh_rec := l_def_bgh_rec;
2417: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2418: EXCEPTION
2419: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2420: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2421: (
2415:
2416: x_bgh_rec := l_def_bgh_rec;
2417: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2418: EXCEPTION
2419: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2420: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2421: (
2422: l_api_name,
2423: G_PKG_NAME,
2416: x_bgh_rec := l_def_bgh_rec;
2417: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2418: EXCEPTION
2419: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2420: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2421: (
2422: l_api_name,
2423: G_PKG_NAME,
2424: 'OKL_API.G_RET_STS_ERROR',
2420: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2421: (
2422: l_api_name,
2423: G_PKG_NAME,
2424: 'OKL_API.G_RET_STS_ERROR',
2425: x_msg_count,
2426: x_msg_data,
2427: '_PVT'
2428: );
2425: x_msg_count,
2426: x_msg_data,
2427: '_PVT'
2428: );
2429: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2430: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2426: x_msg_data,
2427: '_PVT'
2428: );
2429: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2430: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2434: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2430: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2434: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2435: x_msg_count,
2436: x_msg_data,
2437: '_PVT'
2438: );
2436: x_msg_data,
2437: '_PVT'
2438: );
2439: WHEN OTHERS THEN
2440: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2441: (
2442: l_api_name,
2443: G_PKG_NAME,
2444: 'OTHERS',
2459: x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType) IS
2460:
2461: l_api_version CONSTANT NUMBER := 1;
2462: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2463: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2464: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType := p_okl_bllng_chrg_hdrs_tl_rec;
2465: ldefoklbllngchrghdrstlrec OklBllngChrgHdrsTlRecType;
2466: l_row_notfound BOOLEAN := TRUE;
2467: ----------------------------------
2472: x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType
2473: ) RETURN VARCHAR2 IS
2474: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
2475: l_row_notfound BOOLEAN := TRUE;
2476: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2477: BEGIN
2478: x_okl_bllng_chrg_hdrs_tl_rec := p_okl_bllng_chrg_hdrs_tl_rec;
2479: -- Get current database values
2480: l_okl_bllng_chrg_hdrs_tl_rec := get_rec(p_okl_bllng_chrg_hdrs_tl_rec, l_row_notfound);
2478: x_okl_bllng_chrg_hdrs_tl_rec := p_okl_bllng_chrg_hdrs_tl_rec;
2479: -- Get current database values
2480: l_okl_bllng_chrg_hdrs_tl_rec := get_rec(p_okl_bllng_chrg_hdrs_tl_rec, l_row_notfound);
2481: IF (l_row_notfound) THEN
2482: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2483: END IF;
2484: IF (x_okl_bllng_chrg_hdrs_tl_rec.id = Okl_Api.G_MISS_NUM)
2485: THEN
2486: x_okl_bllng_chrg_hdrs_tl_rec.id := l_okl_bllng_chrg_hdrs_tl_rec.id;
2480: l_okl_bllng_chrg_hdrs_tl_rec := get_rec(p_okl_bllng_chrg_hdrs_tl_rec, l_row_notfound);
2481: IF (l_row_notfound) THEN
2482: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2483: END IF;
2484: IF (x_okl_bllng_chrg_hdrs_tl_rec.id = Okl_Api.G_MISS_NUM)
2485: THEN
2486: x_okl_bllng_chrg_hdrs_tl_rec.id := l_okl_bllng_chrg_hdrs_tl_rec.id;
2487: END IF;
2488: IF (x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2484: IF (x_okl_bllng_chrg_hdrs_tl_rec.id = Okl_Api.G_MISS_NUM)
2485: THEN
2486: x_okl_bllng_chrg_hdrs_tl_rec.id := l_okl_bllng_chrg_hdrs_tl_rec.id;
2487: END IF;
2488: IF (x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2489: THEN
2490: x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := l_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE;
2491: END IF;
2492: IF (x_okl_bllng_chrg_hdrs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2488: IF (x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE = Okl_Api.G_MISS_CHAR)
2489: THEN
2490: x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := l_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE;
2491: END IF;
2492: IF (x_okl_bllng_chrg_hdrs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2493: THEN
2494: x_okl_bllng_chrg_hdrs_tl_rec.source_lang := l_okl_bllng_chrg_hdrs_tl_rec.source_lang;
2495: END IF;
2496: IF (x_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2492: IF (x_okl_bllng_chrg_hdrs_tl_rec.source_lang = Okl_Api.G_MISS_CHAR)
2493: THEN
2494: x_okl_bllng_chrg_hdrs_tl_rec.source_lang := l_okl_bllng_chrg_hdrs_tl_rec.source_lang;
2495: END IF;
2496: IF (x_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2497: THEN
2498: x_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag := l_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag;
2499: END IF;
2500: IF (x_okl_bllng_chrg_hdrs_tl_rec.name = Okl_Api.G_MISS_CHAR)
2496: IF (x_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2497: THEN
2498: x_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag := l_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag;
2499: END IF;
2500: IF (x_okl_bllng_chrg_hdrs_tl_rec.name = Okl_Api.G_MISS_CHAR)
2501: THEN
2502: x_okl_bllng_chrg_hdrs_tl_rec.name := l_okl_bllng_chrg_hdrs_tl_rec.name;
2503: END IF;
2504: IF (x_okl_bllng_chrg_hdrs_tl_rec.origin = Okl_Api.G_MISS_CHAR)
2500: IF (x_okl_bllng_chrg_hdrs_tl_rec.name = Okl_Api.G_MISS_CHAR)
2501: THEN
2502: x_okl_bllng_chrg_hdrs_tl_rec.name := l_okl_bllng_chrg_hdrs_tl_rec.name;
2503: END IF;
2504: IF (x_okl_bllng_chrg_hdrs_tl_rec.origin = Okl_Api.G_MISS_CHAR)
2505: THEN
2506: x_okl_bllng_chrg_hdrs_tl_rec.origin := l_okl_bllng_chrg_hdrs_tl_rec.origin;
2507: END IF;
2508: IF (x_okl_bllng_chrg_hdrs_tl_rec.destination = Okl_Api.G_MISS_CHAR)
2504: IF (x_okl_bllng_chrg_hdrs_tl_rec.origin = Okl_Api.G_MISS_CHAR)
2505: THEN
2506: x_okl_bllng_chrg_hdrs_tl_rec.origin := l_okl_bllng_chrg_hdrs_tl_rec.origin;
2507: END IF;
2508: IF (x_okl_bllng_chrg_hdrs_tl_rec.destination = Okl_Api.G_MISS_CHAR)
2509: THEN
2510: x_okl_bllng_chrg_hdrs_tl_rec.destination := l_okl_bllng_chrg_hdrs_tl_rec.destination;
2511: END IF;
2512: IF (x_okl_bllng_chrg_hdrs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2508: IF (x_okl_bllng_chrg_hdrs_tl_rec.destination = Okl_Api.G_MISS_CHAR)
2509: THEN
2510: x_okl_bllng_chrg_hdrs_tl_rec.destination := l_okl_bllng_chrg_hdrs_tl_rec.destination;
2511: END IF;
2512: IF (x_okl_bllng_chrg_hdrs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2513: THEN
2514: x_okl_bllng_chrg_hdrs_tl_rec.created_by := l_okl_bllng_chrg_hdrs_tl_rec.created_by;
2515: END IF;
2516: IF (x_okl_bllng_chrg_hdrs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2512: IF (x_okl_bllng_chrg_hdrs_tl_rec.created_by = Okl_Api.G_MISS_NUM)
2513: THEN
2514: x_okl_bllng_chrg_hdrs_tl_rec.created_by := l_okl_bllng_chrg_hdrs_tl_rec.created_by;
2515: END IF;
2516: IF (x_okl_bllng_chrg_hdrs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2517: THEN
2518: x_okl_bllng_chrg_hdrs_tl_rec.creation_date := l_okl_bllng_chrg_hdrs_tl_rec.creation_date;
2519: END IF;
2520: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2516: IF (x_okl_bllng_chrg_hdrs_tl_rec.creation_date = Okl_Api.G_MISS_DATE)
2517: THEN
2518: x_okl_bllng_chrg_hdrs_tl_rec.creation_date := l_okl_bllng_chrg_hdrs_tl_rec.creation_date;
2519: END IF;
2520: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2521: THEN
2522: x_okl_bllng_chrg_hdrs_tl_rec.last_updated_by := l_okl_bllng_chrg_hdrs_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2520: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2521: THEN
2522: x_okl_bllng_chrg_hdrs_tl_rec.last_updated_by := l_okl_bllng_chrg_hdrs_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2525: THEN
2526: x_okl_bllng_chrg_hdrs_tl_rec.last_update_date := l_okl_bllng_chrg_hdrs_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2524: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
2525: THEN
2526: x_okl_bllng_chrg_hdrs_tl_rec.last_update_date := l_okl_bllng_chrg_hdrs_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_okl_bllng_chrg_hdrs_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
2529: THEN
2530: x_okl_bllng_chrg_hdrs_tl_rec.last_update_login := l_okl_bllng_chrg_hdrs_tl_rec.last_update_login;
2531: END IF;
2532: RETURN(l_return_status);
2537: FUNCTION Set_Attributes (
2538: p_okl_bllng_chrg_hdrs_tl_rec IN OklBllngChrgHdrsTlRecType,
2539: x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType
2540: ) RETURN VARCHAR2 IS
2541: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2542: BEGIN
2543: x_okl_bllng_chrg_hdrs_tl_rec := p_okl_bllng_chrg_hdrs_tl_rec;
2544: x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
2545: x_okl_bllng_chrg_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2545: x_okl_bllng_chrg_hdrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2546: RETURN(l_return_status);
2547: END Set_Attributes;
2548: BEGIN
2549: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2550: p_init_msg_list,
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2549: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2550: p_init_msg_list,
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2556: RAISE Okl_Api.G_EXCEPTION_ERROR;
2557: END IF;
2550: p_init_msg_list,
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2556: RAISE Okl_Api.G_EXCEPTION_ERROR;
2557: END IF;
2558: --- Setting item attributes
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2556: RAISE Okl_Api.G_EXCEPTION_ERROR;
2557: END IF;
2558: --- Setting item attributes
2559: l_return_status := Set_Attributes(
2552: x_return_status);
2553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2556: RAISE Okl_Api.G_EXCEPTION_ERROR;
2557: END IF;
2558: --- Setting item attributes
2559: l_return_status := Set_Attributes(
2560: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
2559: l_return_status := Set_Attributes(
2560: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
2561: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
2562: --- If any errors happen abort API
2563: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2566: RAISE Okl_Api.G_EXCEPTION_ERROR;
2567: END IF;
2560: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
2561: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
2562: --- If any errors happen abort API
2563: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2566: RAISE Okl_Api.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okl_bllng_chrg_hdrs_tl_rec, ldefoklbllngchrghdrstlrec);
2561: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
2562: --- If any errors happen abort API
2563: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2566: RAISE Okl_Api.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okl_bllng_chrg_hdrs_tl_rec, ldefoklbllngchrghdrstlrec);
2569: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2562: --- If any errors happen abort API
2563: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2566: RAISE Okl_Api.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okl_bllng_chrg_hdrs_tl_rec, ldefoklbllngchrghdrstlrec);
2569: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2566: RAISE Okl_Api.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okl_bllng_chrg_hdrs_tl_rec, ldefoklbllngchrghdrstlrec);
2569: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2572: RAISE Okl_Api.G_EXCEPTION_ERROR;
2573: END IF;
2566: RAISE Okl_Api.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okl_bllng_chrg_hdrs_tl_rec, ldefoklbllngchrghdrstlrec);
2569: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2572: RAISE Okl_Api.G_EXCEPTION_ERROR;
2573: END IF;
2574: UPDATE OKL_BLLNG_CHRG_HDRS_TL
2567: END IF;
2568: l_return_status := populate_new_record(l_okl_bllng_chrg_hdrs_tl_rec, ldefoklbllngchrghdrstlrec);
2569: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2572: RAISE Okl_Api.G_EXCEPTION_ERROR;
2573: END IF;
2574: UPDATE OKL_BLLNG_CHRG_HDRS_TL
2575: SET NAME = ldefoklbllngchrghdrstlrec.name,
2568: l_return_status := populate_new_record(l_okl_bllng_chrg_hdrs_tl_rec, ldefoklbllngchrghdrstlrec);
2569: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2572: RAISE Okl_Api.G_EXCEPTION_ERROR;
2573: END IF;
2574: UPDATE OKL_BLLNG_CHRG_HDRS_TL
2575: SET NAME = ldefoklbllngchrghdrstlrec.name,
2576: ORIGIN = ldefoklbllngchrghdrstlrec.origin,
2589: WHERE ID = ldefoklbllngchrghdrstlrec.id
2590: AND SOURCE_LANG <> USERENV('LANG');
2591:
2592: x_okl_bllng_chrg_hdrs_tl_rec := ldefoklbllngchrghdrstlrec;
2593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2594: EXCEPTION
2595: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2597: (
2591:
2592: x_okl_bllng_chrg_hdrs_tl_rec := ldefoklbllngchrghdrstlrec;
2593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2594: EXCEPTION
2595: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2597: (
2598: l_api_name,
2599: G_PKG_NAME,
2592: x_okl_bllng_chrg_hdrs_tl_rec := ldefoklbllngchrghdrstlrec;
2593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2594: EXCEPTION
2595: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2597: (
2598: l_api_name,
2599: G_PKG_NAME,
2600: 'OKL_API.G_RET_STS_ERROR',
2596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2597: (
2598: l_api_name,
2599: G_PKG_NAME,
2600: 'OKL_API.G_RET_STS_ERROR',
2601: x_msg_count,
2602: x_msg_data,
2603: '_PVT'
2604: );
2601: x_msg_count,
2602: x_msg_data,
2603: '_PVT'
2604: );
2605: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2606: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2607: (
2608: l_api_name,
2609: G_PKG_NAME,
2602: x_msg_data,
2603: '_PVT'
2604: );
2605: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2606: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2607: (
2608: l_api_name,
2609: G_PKG_NAME,
2610: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2606: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2607: (
2608: l_api_name,
2609: G_PKG_NAME,
2610: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2611: x_msg_count,
2612: x_msg_data,
2613: '_PVT'
2614: );
2612: x_msg_data,
2613: '_PVT'
2614: );
2615: WHEN OTHERS THEN
2616: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2617: (
2618: l_api_name,
2619: G_PKG_NAME,
2620: 'OTHERS',
2636: x_bghv_rec OUT NOCOPY bghv_rec_type) IS
2637:
2638: l_api_version CONSTANT NUMBER := 1;
2639: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2640: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2641: l_bghv_rec bghv_rec_type := p_bghv_rec;
2642: l_def_bghv_rec bghv_rec_type;
2643: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
2644: lx_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
2665: x_bghv_rec OUT NOCOPY bghv_rec_type
2666: ) RETURN VARCHAR2 IS
2667: l_bghv_rec bghv_rec_type;
2668: l_row_notfound BOOLEAN := TRUE;
2669: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2670: BEGIN
2671: x_bghv_rec := p_bghv_rec;
2672: -- Get current database values
2673: l_bghv_rec := get_rec(p_bghv_rec, l_row_notfound);
2671: x_bghv_rec := p_bghv_rec;
2672: -- Get current database values
2673: l_bghv_rec := get_rec(p_bghv_rec, l_row_notfound);
2674: IF (l_row_notfound) THEN
2675: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2676: END IF;
2677: IF (x_bghv_rec.id = Okl_Api.G_MISS_NUM)
2678: THEN
2679: x_bghv_rec.id := l_bghv_rec.id;
2673: l_bghv_rec := get_rec(p_bghv_rec, l_row_notfound);
2674: IF (l_row_notfound) THEN
2675: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2676: END IF;
2677: IF (x_bghv_rec.id = Okl_Api.G_MISS_NUM)
2678: THEN
2679: x_bghv_rec.id := l_bghv_rec.id;
2680: END IF;
2681: IF (x_bghv_rec.object_version_number = Okl_Api.G_MISS_NUM)
2677: IF (x_bghv_rec.id = Okl_Api.G_MISS_NUM)
2678: THEN
2679: x_bghv_rec.id := l_bghv_rec.id;
2680: END IF;
2681: IF (x_bghv_rec.object_version_number = Okl_Api.G_MISS_NUM)
2682: THEN
2683: x_bghv_rec.object_version_number := l_bghv_rec.object_version_number;
2684: END IF;
2685: IF (x_bghv_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2681: IF (x_bghv_rec.object_version_number = Okl_Api.G_MISS_NUM)
2682: THEN
2683: x_bghv_rec.object_version_number := l_bghv_rec.object_version_number;
2684: END IF;
2685: IF (x_bghv_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2686: THEN
2687: x_bghv_rec.sfwt_flag := l_bghv_rec.sfwt_flag;
2688: END IF;
2689: IF (x_bghv_rec.name = Okl_Api.G_MISS_CHAR)
2685: IF (x_bghv_rec.sfwt_flag = Okl_Api.G_MISS_CHAR)
2686: THEN
2687: x_bghv_rec.sfwt_flag := l_bghv_rec.sfwt_flag;
2688: END IF;
2689: IF (x_bghv_rec.name = Okl_Api.G_MISS_CHAR)
2690: THEN
2691: x_bghv_rec.name := l_bghv_rec.name;
2692: END IF;
2693: IF (x_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM)
2689: IF (x_bghv_rec.name = Okl_Api.G_MISS_CHAR)
2690: THEN
2691: x_bghv_rec.name := l_bghv_rec.name;
2692: END IF;
2693: IF (x_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM)
2694: THEN
2695: x_bghv_rec.sequence_number := l_bghv_rec.sequence_number;
2696: END IF;
2697: IF (x_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE)
2693: IF (x_bghv_rec.sequence_number = Okl_Api.G_MISS_NUM)
2694: THEN
2695: x_bghv_rec.sequence_number := l_bghv_rec.sequence_number;
2696: END IF;
2697: IF (x_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE)
2698: THEN
2699: x_bghv_rec.date_transmission := l_bghv_rec.date_transmission;
2700: END IF;
2701: IF (x_bghv_rec.origin = Okl_Api.G_MISS_CHAR)
2697: IF (x_bghv_rec.date_transmission = Okl_Api.G_MISS_DATE)
2698: THEN
2699: x_bghv_rec.date_transmission := l_bghv_rec.date_transmission;
2700: END IF;
2701: IF (x_bghv_rec.origin = Okl_Api.G_MISS_CHAR)
2702: THEN
2703: x_bghv_rec.origin := l_bghv_rec.origin;
2704: END IF;
2705: IF (x_bghv_rec.destination = Okl_Api.G_MISS_CHAR)
2701: IF (x_bghv_rec.origin = Okl_Api.G_MISS_CHAR)
2702: THEN
2703: x_bghv_rec.origin := l_bghv_rec.origin;
2704: END IF;
2705: IF (x_bghv_rec.destination = Okl_Api.G_MISS_CHAR)
2706: THEN
2707: x_bghv_rec.destination := l_bghv_rec.destination;
2708: END IF;
2709: IF (x_bghv_rec.trx_status_code = Okl_Api.G_MISS_CHAR)
2705: IF (x_bghv_rec.destination = Okl_Api.G_MISS_CHAR)
2706: THEN
2707: x_bghv_rec.destination := l_bghv_rec.destination;
2708: END IF;
2709: IF (x_bghv_rec.trx_status_code = Okl_Api.G_MISS_CHAR)
2710: THEN
2711: x_bghv_rec.trx_status_code := l_bghv_rec.trx_status_code;
2712: END IF;
2713: IF (x_bghv_rec.attribute_category = Okl_Api.G_MISS_CHAR)
2709: IF (x_bghv_rec.trx_status_code = Okl_Api.G_MISS_CHAR)
2710: THEN
2711: x_bghv_rec.trx_status_code := l_bghv_rec.trx_status_code;
2712: END IF;
2713: IF (x_bghv_rec.attribute_category = Okl_Api.G_MISS_CHAR)
2714: THEN
2715: x_bghv_rec.attribute_category := l_bghv_rec.attribute_category;
2716: END IF;
2717: IF (x_bghv_rec.attribute1 = Okl_Api.G_MISS_CHAR)
2713: IF (x_bghv_rec.attribute_category = Okl_Api.G_MISS_CHAR)
2714: THEN
2715: x_bghv_rec.attribute_category := l_bghv_rec.attribute_category;
2716: END IF;
2717: IF (x_bghv_rec.attribute1 = Okl_Api.G_MISS_CHAR)
2718: THEN
2719: x_bghv_rec.attribute1 := l_bghv_rec.attribute1;
2720: END IF;
2721: IF (x_bghv_rec.attribute2 = Okl_Api.G_MISS_CHAR)
2717: IF (x_bghv_rec.attribute1 = Okl_Api.G_MISS_CHAR)
2718: THEN
2719: x_bghv_rec.attribute1 := l_bghv_rec.attribute1;
2720: END IF;
2721: IF (x_bghv_rec.attribute2 = Okl_Api.G_MISS_CHAR)
2722: THEN
2723: x_bghv_rec.attribute2 := l_bghv_rec.attribute2;
2724: END IF;
2725: IF (x_bghv_rec.attribute3 = Okl_Api.G_MISS_CHAR)
2721: IF (x_bghv_rec.attribute2 = Okl_Api.G_MISS_CHAR)
2722: THEN
2723: x_bghv_rec.attribute2 := l_bghv_rec.attribute2;
2724: END IF;
2725: IF (x_bghv_rec.attribute3 = Okl_Api.G_MISS_CHAR)
2726: THEN
2727: x_bghv_rec.attribute3 := l_bghv_rec.attribute3;
2728: END IF;
2729: IF (x_bghv_rec.attribute4 = Okl_Api.G_MISS_CHAR)
2725: IF (x_bghv_rec.attribute3 = Okl_Api.G_MISS_CHAR)
2726: THEN
2727: x_bghv_rec.attribute3 := l_bghv_rec.attribute3;
2728: END IF;
2729: IF (x_bghv_rec.attribute4 = Okl_Api.G_MISS_CHAR)
2730: THEN
2731: x_bghv_rec.attribute4 := l_bghv_rec.attribute4;
2732: END IF;
2733: IF (x_bghv_rec.attribute5 = Okl_Api.G_MISS_CHAR)
2729: IF (x_bghv_rec.attribute4 = Okl_Api.G_MISS_CHAR)
2730: THEN
2731: x_bghv_rec.attribute4 := l_bghv_rec.attribute4;
2732: END IF;
2733: IF (x_bghv_rec.attribute5 = Okl_Api.G_MISS_CHAR)
2734: THEN
2735: x_bghv_rec.attribute5 := l_bghv_rec.attribute5;
2736: END IF;
2737: IF (x_bghv_rec.attribute6 = Okl_Api.G_MISS_CHAR)
2733: IF (x_bghv_rec.attribute5 = Okl_Api.G_MISS_CHAR)
2734: THEN
2735: x_bghv_rec.attribute5 := l_bghv_rec.attribute5;
2736: END IF;
2737: IF (x_bghv_rec.attribute6 = Okl_Api.G_MISS_CHAR)
2738: THEN
2739: x_bghv_rec.attribute6 := l_bghv_rec.attribute6;
2740: END IF;
2741: IF (x_bghv_rec.attribute7 = Okl_Api.G_MISS_CHAR)
2737: IF (x_bghv_rec.attribute6 = Okl_Api.G_MISS_CHAR)
2738: THEN
2739: x_bghv_rec.attribute6 := l_bghv_rec.attribute6;
2740: END IF;
2741: IF (x_bghv_rec.attribute7 = Okl_Api.G_MISS_CHAR)
2742: THEN
2743: x_bghv_rec.attribute7 := l_bghv_rec.attribute7;
2744: END IF;
2745: IF (x_bghv_rec.attribute8 = Okl_Api.G_MISS_CHAR)
2741: IF (x_bghv_rec.attribute7 = Okl_Api.G_MISS_CHAR)
2742: THEN
2743: x_bghv_rec.attribute7 := l_bghv_rec.attribute7;
2744: END IF;
2745: IF (x_bghv_rec.attribute8 = Okl_Api.G_MISS_CHAR)
2746: THEN
2747: x_bghv_rec.attribute8 := l_bghv_rec.attribute8;
2748: END IF;
2749: IF (x_bghv_rec.attribute9 = Okl_Api.G_MISS_CHAR)
2745: IF (x_bghv_rec.attribute8 = Okl_Api.G_MISS_CHAR)
2746: THEN
2747: x_bghv_rec.attribute8 := l_bghv_rec.attribute8;
2748: END IF;
2749: IF (x_bghv_rec.attribute9 = Okl_Api.G_MISS_CHAR)
2750: THEN
2751: x_bghv_rec.attribute9 := l_bghv_rec.attribute9;
2752: END IF;
2753: IF (x_bghv_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2749: IF (x_bghv_rec.attribute9 = Okl_Api.G_MISS_CHAR)
2750: THEN
2751: x_bghv_rec.attribute9 := l_bghv_rec.attribute9;
2752: END IF;
2753: IF (x_bghv_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2754: THEN
2755: x_bghv_rec.attribute10 := l_bghv_rec.attribute10;
2756: END IF;
2757: IF (x_bghv_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2753: IF (x_bghv_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2754: THEN
2755: x_bghv_rec.attribute10 := l_bghv_rec.attribute10;
2756: END IF;
2757: IF (x_bghv_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2758: THEN
2759: x_bghv_rec.attribute11 := l_bghv_rec.attribute11;
2760: END IF;
2761: IF (x_bghv_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2757: IF (x_bghv_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2758: THEN
2759: x_bghv_rec.attribute11 := l_bghv_rec.attribute11;
2760: END IF;
2761: IF (x_bghv_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2762: THEN
2763: x_bghv_rec.attribute12 := l_bghv_rec.attribute12;
2764: END IF;
2765: IF (x_bghv_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2761: IF (x_bghv_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2762: THEN
2763: x_bghv_rec.attribute12 := l_bghv_rec.attribute12;
2764: END IF;
2765: IF (x_bghv_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2766: THEN
2767: x_bghv_rec.attribute13 := l_bghv_rec.attribute13;
2768: END IF;
2769: IF (x_bghv_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2765: IF (x_bghv_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2766: THEN
2767: x_bghv_rec.attribute13 := l_bghv_rec.attribute13;
2768: END IF;
2769: IF (x_bghv_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2770: THEN
2771: x_bghv_rec.attribute14 := l_bghv_rec.attribute14;
2772: END IF;
2773: IF (x_bghv_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2769: IF (x_bghv_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2770: THEN
2771: x_bghv_rec.attribute14 := l_bghv_rec.attribute14;
2772: END IF;
2773: IF (x_bghv_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2774: THEN
2775: x_bghv_rec.attribute15 := l_bghv_rec.attribute15;
2776: END IF;
2777: IF (x_bghv_rec.request_id = Okl_Api.G_MISS_NUM)
2773: IF (x_bghv_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2774: THEN
2775: x_bghv_rec.attribute15 := l_bghv_rec.attribute15;
2776: END IF;
2777: IF (x_bghv_rec.request_id = Okl_Api.G_MISS_NUM)
2778: THEN
2779: x_bghv_rec.request_id := l_bghv_rec.request_id;
2780: END IF;
2781: IF (x_bghv_rec.program_application_id = Okl_Api.G_MISS_NUM)
2777: IF (x_bghv_rec.request_id = Okl_Api.G_MISS_NUM)
2778: THEN
2779: x_bghv_rec.request_id := l_bghv_rec.request_id;
2780: END IF;
2781: IF (x_bghv_rec.program_application_id = Okl_Api.G_MISS_NUM)
2782: THEN
2783: x_bghv_rec.program_application_id := l_bghv_rec.program_application_id;
2784: END IF;
2785: IF (x_bghv_rec.program_id = Okl_Api.G_MISS_NUM)
2781: IF (x_bghv_rec.program_application_id = Okl_Api.G_MISS_NUM)
2782: THEN
2783: x_bghv_rec.program_application_id := l_bghv_rec.program_application_id;
2784: END IF;
2785: IF (x_bghv_rec.program_id = Okl_Api.G_MISS_NUM)
2786: THEN
2787: x_bghv_rec.program_id := l_bghv_rec.program_id;
2788: END IF;
2789: IF (x_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE)
2785: IF (x_bghv_rec.program_id = Okl_Api.G_MISS_NUM)
2786: THEN
2787: x_bghv_rec.program_id := l_bghv_rec.program_id;
2788: END IF;
2789: IF (x_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE)
2790: THEN
2791: x_bghv_rec.program_update_date := l_bghv_rec.program_update_date;
2792: END IF;
2793: IF (x_bghv_rec.org_id = Okl_Api.G_MISS_NUM)
2789: IF (x_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE)
2790: THEN
2791: x_bghv_rec.program_update_date := l_bghv_rec.program_update_date;
2792: END IF;
2793: IF (x_bghv_rec.org_id = Okl_Api.G_MISS_NUM)
2794: THEN
2795: x_bghv_rec.org_id := l_bghv_rec.org_id;
2796: END IF;
2797: IF (x_bghv_rec.created_by = Okl_Api.G_MISS_NUM)
2793: IF (x_bghv_rec.org_id = Okl_Api.G_MISS_NUM)
2794: THEN
2795: x_bghv_rec.org_id := l_bghv_rec.org_id;
2796: END IF;
2797: IF (x_bghv_rec.created_by = Okl_Api.G_MISS_NUM)
2798: THEN
2799: x_bghv_rec.created_by := l_bghv_rec.created_by;
2800: END IF;
2801: IF (x_bghv_rec.creation_date = Okl_Api.G_MISS_DATE)
2797: IF (x_bghv_rec.created_by = Okl_Api.G_MISS_NUM)
2798: THEN
2799: x_bghv_rec.created_by := l_bghv_rec.created_by;
2800: END IF;
2801: IF (x_bghv_rec.creation_date = Okl_Api.G_MISS_DATE)
2802: THEN
2803: x_bghv_rec.creation_date := l_bghv_rec.creation_date;
2804: END IF;
2805: IF (x_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2801: IF (x_bghv_rec.creation_date = Okl_Api.G_MISS_DATE)
2802: THEN
2803: x_bghv_rec.creation_date := l_bghv_rec.creation_date;
2804: END IF;
2805: IF (x_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2806: THEN
2807: x_bghv_rec.last_updated_by := l_bghv_rec.last_updated_by;
2808: END IF;
2809: IF (x_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE)
2805: IF (x_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2806: THEN
2807: x_bghv_rec.last_updated_by := l_bghv_rec.last_updated_by;
2808: END IF;
2809: IF (x_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE)
2810: THEN
2811: x_bghv_rec.last_update_date := l_bghv_rec.last_update_date;
2812: END IF;
2813: IF (x_bghv_rec.last_update_login = Okl_Api.G_MISS_NUM)
2809: IF (x_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE)
2810: THEN
2811: x_bghv_rec.last_update_date := l_bghv_rec.last_update_date;
2812: END IF;
2813: IF (x_bghv_rec.last_update_login = Okl_Api.G_MISS_NUM)
2814: THEN
2815: x_bghv_rec.last_update_login := l_bghv_rec.last_update_login;
2816: END IF;
2817: RETURN(l_return_status);
2822: FUNCTION Set_Attributes (
2823: p_bghv_rec IN bghv_rec_type,
2824: x_bghv_rec OUT NOCOPY bghv_rec_type
2825: ) RETURN VARCHAR2 IS
2826: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2827: BEGIN
2828: x_bghv_rec := p_bghv_rec;
2829: x_bghv_rec.OBJECT_VERSION_NUMBER := NVL(x_bghv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2830: -- Begin Post-Generation Change
2846: -- End Post-Generation Change
2847: RETURN(l_return_status);
2848: END Set_Attributes;
2849: BEGIN
2850: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2851: G_PKG_NAME,
2852: p_init_msg_list,
2853: l_api_version,
2854: p_api_version,
2853: l_api_version,
2854: p_api_version,
2855: '_PVT',
2856: x_return_status);
2857: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2860: RAISE Okl_Api.G_EXCEPTION_ERROR;
2861: END IF;
2854: p_api_version,
2855: '_PVT',
2856: x_return_status);
2857: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2860: RAISE Okl_Api.G_EXCEPTION_ERROR;
2861: END IF;
2862: --- Setting item attributes
2855: '_PVT',
2856: x_return_status);
2857: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2860: RAISE Okl_Api.G_EXCEPTION_ERROR;
2861: END IF;
2862: --- Setting item attributes
2863: l_return_status := Set_Attributes(
2856: x_return_status);
2857: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2860: RAISE Okl_Api.G_EXCEPTION_ERROR;
2861: END IF;
2862: --- Setting item attributes
2863: l_return_status := Set_Attributes(
2864: p_bghv_rec, -- IN
2863: l_return_status := Set_Attributes(
2864: p_bghv_rec, -- IN
2865: l_bghv_rec); -- OUT
2866: --- If any errors happen abort API
2867: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okl_Api.G_EXCEPTION_ERROR;
2871: END IF;
2864: p_bghv_rec, -- IN
2865: l_bghv_rec); -- OUT
2866: --- If any errors happen abort API
2867: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okl_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872: l_return_status := populate_new_record(l_bghv_rec, l_def_bghv_rec);
2865: l_bghv_rec); -- OUT
2866: --- If any errors happen abort API
2867: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okl_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872: l_return_status := populate_new_record(l_bghv_rec, l_def_bghv_rec);
2873: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2866: --- If any errors happen abort API
2867: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okl_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872: l_return_status := populate_new_record(l_bghv_rec, l_def_bghv_rec);
2873: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2874: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okl_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872: l_return_status := populate_new_record(l_bghv_rec, l_def_bghv_rec);
2873: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2874: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2875: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2876: RAISE Okl_Api.G_EXCEPTION_ERROR;
2877: END IF;
2870: RAISE Okl_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872: l_return_status := populate_new_record(l_bghv_rec, l_def_bghv_rec);
2873: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2874: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2875: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2876: RAISE Okl_Api.G_EXCEPTION_ERROR;
2877: END IF;
2878: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
2871: END IF;
2872: l_return_status := populate_new_record(l_bghv_rec, l_def_bghv_rec);
2873: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2874: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2875: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2876: RAISE Okl_Api.G_EXCEPTION_ERROR;
2877: END IF;
2878: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
2879: --- Validate all non-missing attributes (Item Level Validation)
2872: l_return_status := populate_new_record(l_bghv_rec, l_def_bghv_rec);
2873: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2874: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2875: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2876: RAISE Okl_Api.G_EXCEPTION_ERROR;
2877: END IF;
2878: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
2879: --- Validate all non-missing attributes (Item Level Validation)
2880: l_return_status := Validate_Attributes(l_def_bghv_rec);
2878: l_def_bghv_rec := fill_who_columns(l_def_bghv_rec);
2879: --- Validate all non-missing attributes (Item Level Validation)
2880: l_return_status := Validate_Attributes(l_def_bghv_rec);
2881: --- If any errors happen abort API
2882: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2883: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2884: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2885: RAISE Okl_Api.G_EXCEPTION_ERROR;
2886: END IF;
2879: --- Validate all non-missing attributes (Item Level Validation)
2880: l_return_status := Validate_Attributes(l_def_bghv_rec);
2881: --- If any errors happen abort API
2882: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2883: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2884: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2885: RAISE Okl_Api.G_EXCEPTION_ERROR;
2886: END IF;
2887: l_return_status := Validate_Record(l_def_bghv_rec);
2880: l_return_status := Validate_Attributes(l_def_bghv_rec);
2881: --- If any errors happen abort API
2882: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2883: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2884: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2885: RAISE Okl_Api.G_EXCEPTION_ERROR;
2886: END IF;
2887: l_return_status := Validate_Record(l_def_bghv_rec);
2888: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2881: --- If any errors happen abort API
2882: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2883: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2884: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2885: RAISE Okl_Api.G_EXCEPTION_ERROR;
2886: END IF;
2887: l_return_status := Validate_Record(l_def_bghv_rec);
2888: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2884: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2885: RAISE Okl_Api.G_EXCEPTION_ERROR;
2886: END IF;
2887: l_return_status := Validate_Record(l_def_bghv_rec);
2888: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2891: RAISE Okl_Api.G_EXCEPTION_ERROR;
2892: END IF;
2885: RAISE Okl_Api.G_EXCEPTION_ERROR;
2886: END IF;
2887: l_return_status := Validate_Record(l_def_bghv_rec);
2888: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2891: RAISE Okl_Api.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2886: END IF;
2887: l_return_status := Validate_Record(l_def_bghv_rec);
2888: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2891: RAISE Okl_Api.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2894: --------------------------------------
2887: l_return_status := Validate_Record(l_def_bghv_rec);
2888: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2891: RAISE Okl_Api.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2894: --------------------------------------
2895: -- Move VIEW record to "Child" records
2906: x_msg_data,
2907: l_okl_bllng_chrg_hdrs_tl_rec,
2908: lx_okl_bllng_chrg_hdrs_tl_rec
2909: );
2910: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2913: RAISE Okl_Api.G_EXCEPTION_ERROR;
2914: END IF;
2907: l_okl_bllng_chrg_hdrs_tl_rec,
2908: lx_okl_bllng_chrg_hdrs_tl_rec
2909: );
2910: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2913: RAISE Okl_Api.G_EXCEPTION_ERROR;
2914: END IF;
2915: migrate(lx_okl_bllng_chrg_hdrs_tl_rec, l_def_bghv_rec);
2908: lx_okl_bllng_chrg_hdrs_tl_rec
2909: );
2910: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2913: RAISE Okl_Api.G_EXCEPTION_ERROR;
2914: END IF;
2915: migrate(lx_okl_bllng_chrg_hdrs_tl_rec, l_def_bghv_rec);
2916: update_row(
2909: );
2910: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2913: RAISE Okl_Api.G_EXCEPTION_ERROR;
2914: END IF;
2915: migrate(lx_okl_bllng_chrg_hdrs_tl_rec, l_def_bghv_rec);
2916: update_row(
2917: p_init_msg_list,
2920: x_msg_data,
2921: l_bgh_rec,
2922: lx_bgh_rec
2923: );
2924: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2927: RAISE Okl_Api.G_EXCEPTION_ERROR;
2928: END IF;
2921: l_bgh_rec,
2922: lx_bgh_rec
2923: );
2924: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2927: RAISE Okl_Api.G_EXCEPTION_ERROR;
2928: END IF;
2929: migrate(lx_bgh_rec, l_def_bghv_rec);
2922: lx_bgh_rec
2923: );
2924: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2927: RAISE Okl_Api.G_EXCEPTION_ERROR;
2928: END IF;
2929: migrate(lx_bgh_rec, l_def_bghv_rec);
2930: x_bghv_rec := l_def_bghv_rec;
2923: );
2924: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2927: RAISE Okl_Api.G_EXCEPTION_ERROR;
2928: END IF;
2929: migrate(lx_bgh_rec, l_def_bghv_rec);
2930: x_bghv_rec := l_def_bghv_rec;
2931: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2927: RAISE Okl_Api.G_EXCEPTION_ERROR;
2928: END IF;
2929: migrate(lx_bgh_rec, l_def_bghv_rec);
2930: x_bghv_rec := l_def_bghv_rec;
2931: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2932: EXCEPTION
2933: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2934: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2935: (
2929: migrate(lx_bgh_rec, l_def_bghv_rec);
2930: x_bghv_rec := l_def_bghv_rec;
2931: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2932: EXCEPTION
2933: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2934: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2935: (
2936: l_api_name,
2937: G_PKG_NAME,
2930: x_bghv_rec := l_def_bghv_rec;
2931: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2932: EXCEPTION
2933: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2934: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2935: (
2936: l_api_name,
2937: G_PKG_NAME,
2938: 'OKL_API.G_RET_STS_ERROR',
2934: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2935: (
2936: l_api_name,
2937: G_PKG_NAME,
2938: 'OKL_API.G_RET_STS_ERROR',
2939: x_msg_count,
2940: x_msg_data,
2941: '_PVT'
2942: );
2939: x_msg_count,
2940: x_msg_data,
2941: '_PVT'
2942: );
2943: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2944: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2945: (
2946: l_api_name,
2947: G_PKG_NAME,
2940: x_msg_data,
2941: '_PVT'
2942: );
2943: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2944: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2945: (
2946: l_api_name,
2947: G_PKG_NAME,
2948: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2944: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2945: (
2946: l_api_name,
2947: G_PKG_NAME,
2948: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2949: x_msg_count,
2950: x_msg_data,
2951: '_PVT'
2952: );
2950: x_msg_data,
2951: '_PVT'
2952: );
2953: WHEN OTHERS THEN
2954: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2955: (
2956: l_api_name,
2957: G_PKG_NAME,
2958: 'OTHERS',
2974: x_bghv_tbl OUT NOCOPY bghv_tbl_type) IS
2975:
2976: l_api_version CONSTANT NUMBER := 1;
2977: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2978: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2979: i NUMBER := 0;
2980: -- Begin Post-Generation Change
2981: -- overall error status
2982: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2978: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2979: i NUMBER := 0;
2980: -- Begin Post-Generation Change
2981: -- overall error status
2982: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2983: -- End Post-Generation Change
2984:
2985: BEGIN
2986: Okl_Api.init_msg_list(p_init_msg_list);
2982: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2983: -- End Post-Generation Change
2984:
2985: BEGIN
2986: Okl_Api.init_msg_list(p_init_msg_list);
2987: -- Make sure PL/SQL table has records in it before passing
2988: IF (p_bghv_tbl.COUNT > 0) THEN
2989: i := p_bghv_tbl.FIRST;
2990: LOOP
2997: p_bghv_rec => p_bghv_tbl(i),
2998: x_bghv_rec => x_bghv_tbl(i));
2999: -- Begin Post-Generation Change
3000: -- store the highest degree of error
3001: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3002: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
3003: l_overall_status := x_return_status;
3004: END IF;
3005: END IF;
2998: x_bghv_rec => x_bghv_tbl(i));
2999: -- Begin Post-Generation Change
3000: -- store the highest degree of error
3001: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3002: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
3003: l_overall_status := x_return_status;
3004: END IF;
3005: END IF;
3006: -- End Post-Generation Change
3012: x_return_status := l_overall_status;
3013: -- End Post-Generation Change
3014: END IF;
3015: EXCEPTION
3016: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3017: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3018: (
3019: l_api_name,
3020: G_PKG_NAME,
3013: -- End Post-Generation Change
3014: END IF;
3015: EXCEPTION
3016: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3017: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3018: (
3019: l_api_name,
3020: G_PKG_NAME,
3021: 'OKL_API.G_RET_STS_ERROR',
3017: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3018: (
3019: l_api_name,
3020: G_PKG_NAME,
3021: 'OKL_API.G_RET_STS_ERROR',
3022: x_msg_count,
3023: x_msg_data,
3024: '_PVT'
3025: );
3022: x_msg_count,
3023: x_msg_data,
3024: '_PVT'
3025: );
3026: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3027: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3028: (
3029: l_api_name,
3030: G_PKG_NAME,
3023: x_msg_data,
3024: '_PVT'
3025: );
3026: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3027: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3028: (
3029: l_api_name,
3030: G_PKG_NAME,
3031: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3027: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3028: (
3029: l_api_name,
3030: G_PKG_NAME,
3031: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3032: x_msg_count,
3033: x_msg_data,
3034: '_PVT'
3035: );
3033: x_msg_data,
3034: '_PVT'
3035: );
3036: WHEN OTHERS THEN
3037: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3038: (
3039: l_api_name,
3040: G_PKG_NAME,
3041: 'OTHERS',
3059: p_bgh_rec IN bgh_rec_type) IS
3060:
3061: l_api_version CONSTANT NUMBER := 1;
3062: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3063: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3064: l_bgh_rec bgh_rec_type:= p_bgh_rec;
3065: l_row_notfound BOOLEAN := TRUE;
3066: BEGIN
3067: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3063: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3064: l_bgh_rec bgh_rec_type:= p_bgh_rec;
3065: l_row_notfound BOOLEAN := TRUE;
3066: BEGIN
3067: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3068: p_init_msg_list,
3069: '_PVT',
3070: x_return_status);
3071: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3067: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3068: p_init_msg_list,
3069: '_PVT',
3070: x_return_status);
3071: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3074: RAISE Okl_Api.G_EXCEPTION_ERROR;
3075: END IF;
3068: p_init_msg_list,
3069: '_PVT',
3070: x_return_status);
3071: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3074: RAISE Okl_Api.G_EXCEPTION_ERROR;
3075: END IF;
3076: DELETE FROM OKL_BLLNG_CHRG_HDRS_B
3069: '_PVT',
3070: x_return_status);
3071: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3074: RAISE Okl_Api.G_EXCEPTION_ERROR;
3075: END IF;
3076: DELETE FROM OKL_BLLNG_CHRG_HDRS_B
3077: WHERE ID = l_bgh_rec.id;
3070: x_return_status);
3071: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3074: RAISE Okl_Api.G_EXCEPTION_ERROR;
3075: END IF;
3076: DELETE FROM OKL_BLLNG_CHRG_HDRS_B
3077: WHERE ID = l_bgh_rec.id;
3078:
3075: END IF;
3076: DELETE FROM OKL_BLLNG_CHRG_HDRS_B
3077: WHERE ID = l_bgh_rec.id;
3078:
3079: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3080: EXCEPTION
3081: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3082: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3083: (
3077: WHERE ID = l_bgh_rec.id;
3078:
3079: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3080: EXCEPTION
3081: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3082: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3078:
3079: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3080: EXCEPTION
3081: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3082: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3086: 'OKL_API.G_RET_STS_ERROR',
3082: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3086: 'OKL_API.G_RET_STS_ERROR',
3087: x_msg_count,
3088: x_msg_data,
3089: '_PVT'
3090: );
3087: x_msg_count,
3088: x_msg_data,
3089: '_PVT'
3090: );
3091: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3092: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3093: (
3094: l_api_name,
3095: G_PKG_NAME,
3088: x_msg_data,
3089: '_PVT'
3090: );
3091: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3092: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3093: (
3094: l_api_name,
3095: G_PKG_NAME,
3096: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3092: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3093: (
3094: l_api_name,
3095: G_PKG_NAME,
3096: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3097: x_msg_count,
3098: x_msg_data,
3099: '_PVT'
3100: );
3098: x_msg_data,
3099: '_PVT'
3100: );
3101: WHEN OTHERS THEN
3102: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3103: (
3104: l_api_name,
3105: G_PKG_NAME,
3106: 'OTHERS',
3120: p_okl_bllng_chrg_hdrs_tl_rec IN OklBllngChrgHdrsTlRecType) IS
3121:
3122: l_api_version CONSTANT NUMBER := 1;
3123: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3124: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3125: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType:= p_okl_bllng_chrg_hdrs_tl_rec;
3126: l_row_notfound BOOLEAN := TRUE;
3127: -----------------------------------------------
3128: -- Set_Attributes for:OKL_BLLNG_CHRG_HDRS_TL --
3130: FUNCTION Set_Attributes (
3131: p_okl_bllng_chrg_hdrs_tl_rec IN OklBllngChrgHdrsTlRecType,
3132: x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType
3133: ) RETURN VARCHAR2 IS
3134: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3135: BEGIN
3136: x_okl_bllng_chrg_hdrs_tl_rec := p_okl_bllng_chrg_hdrs_tl_rec;
3137: x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
3138: RETURN(l_return_status);
3137: x_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE := USERENV('LANG');
3138: RETURN(l_return_status);
3139: END Set_Attributes;
3140: BEGIN
3141: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3142: p_init_msg_list,
3143: '_PVT',
3144: x_return_status);
3145: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3141: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3142: p_init_msg_list,
3143: '_PVT',
3144: x_return_status);
3145: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3148: RAISE Okl_Api.G_EXCEPTION_ERROR;
3149: END IF;
3142: p_init_msg_list,
3143: '_PVT',
3144: x_return_status);
3145: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3148: RAISE Okl_Api.G_EXCEPTION_ERROR;
3149: END IF;
3150: --- Setting item attributes
3143: '_PVT',
3144: x_return_status);
3145: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3148: RAISE Okl_Api.G_EXCEPTION_ERROR;
3149: END IF;
3150: --- Setting item attributes
3151: l_return_status := Set_Attributes(
3144: x_return_status);
3145: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3148: RAISE Okl_Api.G_EXCEPTION_ERROR;
3149: END IF;
3150: --- Setting item attributes
3151: l_return_status := Set_Attributes(
3152: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
3151: l_return_status := Set_Attributes(
3152: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
3153: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
3154: --- If any errors happen abort API
3155: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3156: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3158: RAISE Okl_Api.G_EXCEPTION_ERROR;
3159: END IF;
3152: p_okl_bllng_chrg_hdrs_tl_rec, -- IN
3153: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
3154: --- If any errors happen abort API
3155: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3156: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3158: RAISE Okl_Api.G_EXCEPTION_ERROR;
3159: END IF;
3160: DELETE FROM OKL_BLLNG_CHRG_HDRS_TL
3153: l_okl_bllng_chrg_hdrs_tl_rec); -- OUT
3154: --- If any errors happen abort API
3155: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3156: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3158: RAISE Okl_Api.G_EXCEPTION_ERROR;
3159: END IF;
3160: DELETE FROM OKL_BLLNG_CHRG_HDRS_TL
3161: WHERE ID = l_okl_bllng_chrg_hdrs_tl_rec.id;
3154: --- If any errors happen abort API
3155: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3156: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3157: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3158: RAISE Okl_Api.G_EXCEPTION_ERROR;
3159: END IF;
3160: DELETE FROM OKL_BLLNG_CHRG_HDRS_TL
3161: WHERE ID = l_okl_bllng_chrg_hdrs_tl_rec.id;
3162:
3159: END IF;
3160: DELETE FROM OKL_BLLNG_CHRG_HDRS_TL
3161: WHERE ID = l_okl_bllng_chrg_hdrs_tl_rec.id;
3162:
3163: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3164: EXCEPTION
3165: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3166: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3167: (
3161: WHERE ID = l_okl_bllng_chrg_hdrs_tl_rec.id;
3162:
3163: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3164: EXCEPTION
3165: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3166: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3167: (
3168: l_api_name,
3169: G_PKG_NAME,
3162:
3163: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3164: EXCEPTION
3165: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3166: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3167: (
3168: l_api_name,
3169: G_PKG_NAME,
3170: 'OKL_API.G_RET_STS_ERROR',
3166: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3167: (
3168: l_api_name,
3169: G_PKG_NAME,
3170: 'OKL_API.G_RET_STS_ERROR',
3171: x_msg_count,
3172: x_msg_data,
3173: '_PVT'
3174: );
3171: x_msg_count,
3172: x_msg_data,
3173: '_PVT'
3174: );
3175: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3176: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3177: (
3178: l_api_name,
3179: G_PKG_NAME,
3172: x_msg_data,
3173: '_PVT'
3174: );
3175: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3176: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3177: (
3178: l_api_name,
3179: G_PKG_NAME,
3180: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3176: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3177: (
3178: l_api_name,
3179: G_PKG_NAME,
3180: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3181: x_msg_count,
3182: x_msg_data,
3183: '_PVT'
3184: );
3182: x_msg_data,
3183: '_PVT'
3184: );
3185: WHEN OTHERS THEN
3186: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3187: (
3188: l_api_name,
3189: G_PKG_NAME,
3190: 'OTHERS',
3205: p_bghv_rec IN bghv_rec_type) IS
3206:
3207: l_api_version CONSTANT NUMBER := 1;
3208: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3209: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3210: l_bghv_rec bghv_rec_type := p_bghv_rec;
3211: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
3212: l_bgh_rec bgh_rec_type;
3213: BEGIN
3210: l_bghv_rec bghv_rec_type := p_bghv_rec;
3211: l_okl_bllng_chrg_hdrs_tl_rec OklBllngChrgHdrsTlRecType;
3212: l_bgh_rec bgh_rec_type;
3213: BEGIN
3214: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
3215: G_PKG_NAME,
3216: p_init_msg_list,
3217: l_api_version,
3218: p_api_version,
3217: l_api_version,
3218: p_api_version,
3219: '_PVT',
3220: x_return_status);
3221: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3223: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3224: RAISE Okl_Api.G_EXCEPTION_ERROR;
3225: END IF;
3218: p_api_version,
3219: '_PVT',
3220: x_return_status);
3221: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3223: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3224: RAISE Okl_Api.G_EXCEPTION_ERROR;
3225: END IF;
3226: --------------------------------------
3219: '_PVT',
3220: x_return_status);
3221: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3223: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3224: RAISE Okl_Api.G_EXCEPTION_ERROR;
3225: END IF;
3226: --------------------------------------
3227: -- Move VIEW record to "Child" records
3220: x_return_status);
3221: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3223: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3224: RAISE Okl_Api.G_EXCEPTION_ERROR;
3225: END IF;
3226: --------------------------------------
3227: -- Move VIEW record to "Child" records
3228: --------------------------------------
3237: x_msg_count,
3238: x_msg_data,
3239: l_okl_bllng_chrg_hdrs_tl_rec
3240: );
3241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3244: RAISE Okl_Api.G_EXCEPTION_ERROR;
3245: END IF;
3238: x_msg_data,
3239: l_okl_bllng_chrg_hdrs_tl_rec
3240: );
3241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3244: RAISE Okl_Api.G_EXCEPTION_ERROR;
3245: END IF;
3246: delete_row(
3239: l_okl_bllng_chrg_hdrs_tl_rec
3240: );
3241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3244: RAISE Okl_Api.G_EXCEPTION_ERROR;
3245: END IF;
3246: delete_row(
3247: p_init_msg_list,
3240: );
3241: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3242: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3243: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3244: RAISE Okl_Api.G_EXCEPTION_ERROR;
3245: END IF;
3246: delete_row(
3247: p_init_msg_list,
3248: x_return_status,
3249: x_msg_count,
3250: x_msg_data,
3251: l_bgh_rec
3252: );
3253: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_Api.G_EXCEPTION_ERROR;
3257: END IF;
3250: x_msg_data,
3251: l_bgh_rec
3252: );
3253: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_Api.G_EXCEPTION_ERROR;
3257: END IF;
3258: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3251: l_bgh_rec
3252: );
3253: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_Api.G_EXCEPTION_ERROR;
3257: END IF;
3258: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3259: EXCEPTION
3252: );
3253: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_Api.G_EXCEPTION_ERROR;
3257: END IF;
3258: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3259: EXCEPTION
3260: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3254: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_Api.G_EXCEPTION_ERROR;
3257: END IF;
3258: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3259: EXCEPTION
3260: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3261: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3262: (
3256: RAISE Okl_Api.G_EXCEPTION_ERROR;
3257: END IF;
3258: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3259: EXCEPTION
3260: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3261: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3262: (
3263: l_api_name,
3264: G_PKG_NAME,
3257: END IF;
3258: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3259: EXCEPTION
3260: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3261: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3262: (
3263: l_api_name,
3264: G_PKG_NAME,
3265: 'OKL_API.G_RET_STS_ERROR',
3261: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3262: (
3263: l_api_name,
3264: G_PKG_NAME,
3265: 'OKL_API.G_RET_STS_ERROR',
3266: x_msg_count,
3267: x_msg_data,
3268: '_PVT'
3269: );
3266: x_msg_count,
3267: x_msg_data,
3268: '_PVT'
3269: );
3270: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3271: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3272: (
3273: l_api_name,
3274: G_PKG_NAME,
3267: x_msg_data,
3268: '_PVT'
3269: );
3270: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3271: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3272: (
3273: l_api_name,
3274: G_PKG_NAME,
3275: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3271: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3272: (
3273: l_api_name,
3274: G_PKG_NAME,
3275: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3276: x_msg_count,
3277: x_msg_data,
3278: '_PVT'
3279: );
3277: x_msg_data,
3278: '_PVT'
3279: );
3280: WHEN OTHERS THEN
3281: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3282: (
3283: l_api_name,
3284: G_PKG_NAME,
3285: 'OTHERS',
3300: p_bghv_tbl IN bghv_tbl_type) IS
3301:
3302: l_api_version CONSTANT NUMBER := 1;
3303: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3304: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3305: i NUMBER := 0;
3306: -- Begin Post-Generation Change
3307: -- overall error status
3308: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3304: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3305: i NUMBER := 0;
3306: -- Begin Post-Generation Change
3307: -- overall error status
3308: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3309: -- End Post-Generation Change
3310:
3311: BEGIN
3312: Okl_Api.init_msg_list(p_init_msg_list);
3308: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3309: -- End Post-Generation Change
3310:
3311: BEGIN
3312: Okl_Api.init_msg_list(p_init_msg_list);
3313: -- Make sure PL/SQL table has records in it before passing
3314: IF (p_bghv_tbl.COUNT > 0) THEN
3315: i := p_bghv_tbl.FIRST;
3316: LOOP
3322: x_msg_data => x_msg_data,
3323: p_bghv_rec => p_bghv_tbl(i));
3324: -- Begin Post-Generation Change
3325: -- store the highest degree of error
3326: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3327: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
3328: l_overall_status := x_return_status;
3329: END IF;
3330: END IF;
3323: p_bghv_rec => p_bghv_tbl(i));
3324: -- Begin Post-Generation Change
3325: -- store the highest degree of error
3326: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3327: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
3328: l_overall_status := x_return_status;
3329: END IF;
3330: END IF;
3331: -- End Post-Generation Change
3337: x_return_status := l_overall_status;
3338: -- End Post-Generation Change
3339: END IF;
3340: EXCEPTION
3341: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3342: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3343: (
3344: l_api_name,
3345: G_PKG_NAME,
3338: -- End Post-Generation Change
3339: END IF;
3340: EXCEPTION
3341: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3342: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3343: (
3344: l_api_name,
3345: G_PKG_NAME,
3346: 'OKL_API.G_RET_STS_ERROR',
3342: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
3343: (
3344: l_api_name,
3345: G_PKG_NAME,
3346: 'OKL_API.G_RET_STS_ERROR',
3347: x_msg_count,
3348: x_msg_data,
3349: '_PVT'
3350: );
3347: x_msg_count,
3348: x_msg_data,
3349: '_PVT'
3350: );
3351: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3352: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3353: (
3354: l_api_name,
3355: G_PKG_NAME,
3348: x_msg_data,
3349: '_PVT'
3350: );
3351: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3352: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3353: (
3354: l_api_name,
3355: G_PKG_NAME,
3356: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3352: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3353: (
3354: l_api_name,
3355: G_PKG_NAME,
3356: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3357: x_msg_count,
3358: x_msg_data,
3359: '_PVT'
3360: );
3358: x_msg_data,
3359: '_PVT'
3360: );
3361: WHEN OTHERS THEN
3362: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
3363: (
3364: l_api_name,
3365: G_PKG_NAME,
3366: 'OTHERS',