eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AHL_DI_DOC_INDEX_PVT dependencies on FND_API

Line 446: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

442:
443: PROCEDURE CREATE_DOCUMENT
444: (
445: p_api_version IN NUMBER := 1.0 ,
446: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
447: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
448: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,

Line 447: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

443: PROCEDURE CREATE_DOCUMENT
444: (
445: p_api_version IN NUMBER := 1.0 ,
446: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
447: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
448: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,
451: p_x_supplier_tbl IN OUT NOCOPY Supplier_Tbl ,

Line 448: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

444: (
445: p_api_version IN NUMBER := 1.0 ,
446: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
447: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
448: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,
451: p_x_supplier_tbl IN OUT NOCOPY Supplier_Tbl ,
452: p_x_recipient_tbl IN OUT NOCOPY Recipient_Tbl ,

Line 449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

445: p_api_version IN NUMBER := 1.0 ,
446: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
447: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
448: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,
451: p_x_supplier_tbl IN OUT NOCOPY Supplier_Tbl ,
452: p_x_recipient_tbl IN OUT NOCOPY Recipient_Tbl ,
453: x_return_status OUT NOCOPY VARCHAR2 ,

Line 489: IF FND_API.to_boolean(p_init_msg_list)

485:
486: END IF;
487: END IF;
488: -- Standard call to check for call compatibility.
489: IF FND_API.to_boolean(p_init_msg_list)
490: THEN
491: FND_MSG_PUB.initialize;
492: END IF;
493: -- Initialize API return status to success

Line 496: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

492: END IF;
493: -- Initialize API return status to success
494: x_return_status := 'S';
495: -- Initialize message list if p_init_msg_list is set to TRUE.
496: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
497: p_api_version,
498: l_api_name,G_PKG_NAME)
499: THEN
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

496: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
497: p_api_version,
498: l_api_name,G_PKG_NAME)
499: THEN
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502: --Starts API Body
503: IF p_x_document_tbl.COUNT > 0
504: THEN

Line 527: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

523: l_msg_count := FND_MSG_PUB.count_msg;
524:
525: IF l_msg_count > 0 THEN
526: X_msg_count := l_msg_count;
527: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: FOR i IN p_x_document_tbl.FIRST..p_x_document_tbl.LAST

Line 528: RAISE FND_API.G_EXC_ERROR;

524:
525: IF l_msg_count > 0 THEN
526: X_msg_count := l_msg_count;
527: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: FOR i IN p_x_document_tbl.FIRST..p_x_document_tbl.LAST
532: LOOP

Line 563: RAISE FND_API.G_EXC_ERROR;

559: FETCH unique_rec INTO l_dummy;
560: IF unique_rec%FOUND THEN
561: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_DUP_RECORD');
562: FND_MSG_PUB.ADD;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565: CLOSE unique_rec;
566: -- Get the sequence number
567:

Line 619: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

615: l_msg_count := FND_MSG_PUB.count_msg;
616:
617: IF l_msg_count > 0 THEN
618: X_msg_count := l_msg_count;
619: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: RAISE FND_API.G_EXC_ERROR;
621: END IF;
622: --
623: END IF;

Line 620: RAISE FND_API.G_EXC_ERROR;

616:
617: IF l_msg_count > 0 THEN
618: X_msg_count := l_msg_count;
619: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: RAISE FND_API.G_EXC_ERROR;
621: END IF;
622: --
623: END IF;
624: END LOOP;

Line 637: p_init_msg_list => FND_API.G_TRUE ,

633: -- Checks for any suppliers exists for the document index
634: IF p_x_supplier_tbl.COUNT > 0 THEN
635: create_supplier
636: ( p_api_version => p_api_version ,
637: p_init_msg_list => FND_API.G_TRUE ,
638: p_commit => FND_API.G_FALSE ,
639: p_validate_only => FND_API.G_TRUE ,
640: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
641: p_x_supplier_tbl => p_x_supplier_tbl ,

Line 638: p_commit => FND_API.G_FALSE ,

634: IF p_x_supplier_tbl.COUNT > 0 THEN
635: create_supplier
636: ( p_api_version => p_api_version ,
637: p_init_msg_list => FND_API.G_TRUE ,
638: p_commit => FND_API.G_FALSE ,
639: p_validate_only => FND_API.G_TRUE ,
640: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
641: p_x_supplier_tbl => p_x_supplier_tbl ,
642: x_return_status => x_return_status ,

Line 639: p_validate_only => FND_API.G_TRUE ,

635: create_supplier
636: ( p_api_version => p_api_version ,
637: p_init_msg_list => FND_API.G_TRUE ,
638: p_commit => FND_API.G_FALSE ,
639: p_validate_only => FND_API.G_TRUE ,
640: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
641: p_x_supplier_tbl => p_x_supplier_tbl ,
642: x_return_status => x_return_status ,
643: x_msg_count => x_msg_count ,

Line 640: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

636: ( p_api_version => p_api_version ,
637: p_init_msg_list => FND_API.G_TRUE ,
638: p_commit => FND_API.G_FALSE ,
639: p_validate_only => FND_API.G_TRUE ,
640: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
641: p_x_supplier_tbl => p_x_supplier_tbl ,
642: x_return_status => x_return_status ,
643: x_msg_count => x_msg_count ,
644: x_msg_data => x_msg_data

Line 658: p_init_msg_list => FND_API.G_TRUE ,

654: -- Checks for any Recipients exists for the document index
655: IF p_x_recipient_tbl.COUNT > 0 THEN
656: create_recipient
657: ( p_api_version => p_api_version ,
658: p_init_msg_list => FND_API.G_TRUE ,
659: p_commit => FND_API.G_FALSE ,
660: p_validate_only => FND_API.G_TRUE ,
661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
662: p_x_recipient_tbl => p_x_recipient_tbl ,

Line 659: p_commit => FND_API.G_FALSE ,

655: IF p_x_recipient_tbl.COUNT > 0 THEN
656: create_recipient
657: ( p_api_version => p_api_version ,
658: p_init_msg_list => FND_API.G_TRUE ,
659: p_commit => FND_API.G_FALSE ,
660: p_validate_only => FND_API.G_TRUE ,
661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
662: p_x_recipient_tbl => p_x_recipient_tbl ,
663: x_return_status => x_return_status ,

Line 660: p_validate_only => FND_API.G_TRUE ,

656: create_recipient
657: ( p_api_version => p_api_version ,
658: p_init_msg_list => FND_API.G_TRUE ,
659: p_commit => FND_API.G_FALSE ,
660: p_validate_only => FND_API.G_TRUE ,
661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
662: p_x_recipient_tbl => p_x_recipient_tbl ,
663: x_return_status => x_return_status ,
664: x_msg_count => x_msg_count ,

Line 661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

657: ( p_api_version => p_api_version ,
658: p_init_msg_list => FND_API.G_TRUE ,
659: p_commit => FND_API.G_FALSE ,
660: p_validate_only => FND_API.G_TRUE ,
661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
662: p_x_recipient_tbl => p_x_recipient_tbl ,
663: x_return_status => x_return_status ,
664: x_msg_count => x_msg_count ,
665: x_msg_data => x_msg_data

Line 673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

669: l_msg_count := FND_MSG_PUB.count_msg;
670:
671: IF l_msg_count > 0 THEN
672: X_msg_count := l_msg_count;
673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676: --Standard check for commit;
677: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 674: RAISE FND_API.G_EXC_ERROR;

670:
671: IF l_msg_count > 0 THEN
672: X_msg_count := l_msg_count;
673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676: --Standard check for commit;
677: IF FND_API.TO_BOOLEAN(p_commit) THEN
678: COMMIT;

Line 677: IF FND_API.TO_BOOLEAN(p_commit) THEN

673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676: --Standard check for commit;
677: IF FND_API.TO_BOOLEAN(p_commit) THEN
678: COMMIT;
679: --DBMS_OUTPUT.PUT_LINE('THE RECORD IS NOT COMMITTED .THE TEST RUN HAS BEEN SUCESSFUL');
680: --ROLLBACK;
681: END IF;

Line 684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

680: --ROLLBACK;
681: END IF;
682:
683: EXCEPTION
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: ROLLBACK TO create_document;
686: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count,

Line 686: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

682:
683: EXCEPTION
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: ROLLBACK TO create_document;
686: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count,
689: p_data => x_msg_data);
690:

Line 687: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

683: EXCEPTION
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: ROLLBACK TO create_document;
686: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count,
689: p_data => x_msg_data);
690:
691: IF G_DEBUG='Y' THEN

Line 701: WHEN FND_API.G_EXC_ERROR THEN

697:
698: AHL_DEBUG_PUB.disable_debug;
699:
700: END IF;
701: WHEN FND_API.G_EXC_ERROR THEN
702: ROLLBACK TO create_document;
703: X_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
705: p_count => x_msg_count,

Line 703: X_return_status := FND_API.G_RET_STS_ERROR;

699:
700: END IF;
701: WHEN FND_API.G_EXC_ERROR THEN
702: ROLLBACK TO create_document;
703: X_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
705: p_count => x_msg_count,
706: p_data => X_msg_data);
707: -- Debug info.

Line 704: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

700: END IF;
701: WHEN FND_API.G_EXC_ERROR THEN
702: ROLLBACK TO create_document;
703: X_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
705: p_count => x_msg_count,
706: p_data => X_msg_data);
707: -- Debug info.
708: IF G_DEBUG='Y' THEN

Line 721: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

717:
718: END IF;
719: WHEN OTHERS THEN
720: ROLLBACK TO create_document;
721: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
723: THEN
724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
725: p_procedure_name => 'CREATE_DOCUMENT',

Line 728: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
725: p_procedure_name => 'CREATE_DOCUMENT',
726: p_error_text => SUBSTR(SQLERRM,1,240));
727: END IF;
728: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
729: p_count => x_msg_count,
730: p_data => X_msg_data);
731:
732: -- Debug info.

Line 755: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

751:
752: PROCEDURE MODIFY_DOCUMENT
753: (
754: p_api_version IN NUMBER := 1.0 ,
755: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
756: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
757: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
758: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
759: p_x_document_tbl IN OUT NOCOPY document_tbl ,

Line 756: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

752: PROCEDURE MODIFY_DOCUMENT
753: (
754: p_api_version IN NUMBER := 1.0 ,
755: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
756: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
757: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
758: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
759: p_x_document_tbl IN OUT NOCOPY document_tbl ,
760: p_x_supplier_tbl IN OUT NOCOPY Supplier_Tbl ,

Line 757: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

753: (
754: p_api_version IN NUMBER := 1.0 ,
755: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
756: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
757: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
758: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
759: p_x_document_tbl IN OUT NOCOPY document_tbl ,
760: p_x_supplier_tbl IN OUT NOCOPY Supplier_Tbl ,
761: p_x_recipient_tbl IN OUT NOCOPY Recipient_Tbl ,

Line 758: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

754: p_api_version IN NUMBER := 1.0 ,
755: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
756: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
757: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
758: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
759: p_x_document_tbl IN OUT NOCOPY document_tbl ,
760: p_x_supplier_tbl IN OUT NOCOPY Supplier_Tbl ,
761: p_x_recipient_tbl IN OUT NOCOPY Recipient_Tbl ,
762: x_return_status OUT NOCOPY VARCHAR2 ,

Line 828: IF FND_API.to_boolean(p_init_msg_list)

824:
825: END IF;
826: END IF;
827: -- Standard call to check for call compatibility.
828: IF FND_API.to_boolean(p_init_msg_list)
829: THEN
830: FND_MSG_PUB.initialize;
831: END IF;
832: -- Initialize API return status to success

Line 835: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

831: END IF;
832: -- Initialize API return status to success
833: x_return_status := 'S';
834: -- Initialize message list if p_init_msg_list is set to TRUE.
835: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
836: p_api_version,
837: l_api_name,G_PKG_NAME)
838: THEN
839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

835: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
836: p_api_version,
837: l_api_name,G_PKG_NAME)
838: THEN
839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
840: END IF;
841:
842: --Start API Body
843: IF p_x_document_tbl.COUNT > 0

Line 865: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

861: l_msg_count := FND_MSG_PUB.count_msg;
862:
863: IF l_msg_count > 0 THEN
864: X_msg_count := l_msg_count;
865: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: RAISE FND_API.G_EXC_ERROR;
867: END IF;
868:
869: FOR i IN p_x_document_tbl.FIRST..p_x_document_tbl.LAST

Line 866: RAISE FND_API.G_EXC_ERROR;

862:
863: IF l_msg_count > 0 THEN
864: X_msg_count := l_msg_count;
865: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: RAISE FND_API.G_EXC_ERROR;
867: END IF;
868:
869: FOR i IN p_x_document_tbl.FIRST..p_x_document_tbl.LAST
870: LOOP

Line 883: RAISE FND_API.G_EXC_ERROR;

879: if (l_document_info.object_version_number <>p_x_document_tbl(i).object_version_number)
880: then
881: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
882: FND_MSG_PUB.ADD;
883: RAISE FND_API.G_EXC_ERROR;
884: end if;
885: -- The following conditions compare the new record value with old record
886: -- value, if its different then assign the new value else continue
887: IF p_x_document_tbl(i).document_id IS NOT NULL

Line 944: p_init_msg_list => FND_API.G_TRUE ,

940: -- Checks for any suppliers modifications exists for the document index
941: IF p_x_supplier_tbl.COUNT > 0 THEN
942: modify_supplier
943: ( p_api_version => p_api_version ,
944: p_init_msg_list => FND_API.G_TRUE ,
945: p_commit => FND_API.G_FALSE ,
946: p_validate_only => FND_API.G_TRUE ,
947: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
948: p_supplier_tbl => p_x_supplier_tbl ,

Line 945: p_commit => FND_API.G_FALSE ,

941: IF p_x_supplier_tbl.COUNT > 0 THEN
942: modify_supplier
943: ( p_api_version => p_api_version ,
944: p_init_msg_list => FND_API.G_TRUE ,
945: p_commit => FND_API.G_FALSE ,
946: p_validate_only => FND_API.G_TRUE ,
947: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
948: p_supplier_tbl => p_x_supplier_tbl ,
949: x_return_status => x_return_status ,

Line 946: p_validate_only => FND_API.G_TRUE ,

942: modify_supplier
943: ( p_api_version => p_api_version ,
944: p_init_msg_list => FND_API.G_TRUE ,
945: p_commit => FND_API.G_FALSE ,
946: p_validate_only => FND_API.G_TRUE ,
947: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
948: p_supplier_tbl => p_x_supplier_tbl ,
949: x_return_status => x_return_status ,
950: x_msg_count => x_msg_count ,

Line 947: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

943: ( p_api_version => p_api_version ,
944: p_init_msg_list => FND_API.G_TRUE ,
945: p_commit => FND_API.G_FALSE ,
946: p_validate_only => FND_API.G_TRUE ,
947: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
948: p_supplier_tbl => p_x_supplier_tbl ,
949: x_return_status => x_return_status ,
950: x_msg_count => x_msg_count ,
951: x_msg_data => x_msg_data

Line 966: p_init_msg_list => FND_API.G_TRUE ,

962: -- Checks for any Recipients exists for the document index
963: IF p_x_recipient_tbl.COUNT > 0 THEN
964: modify_recipient
965: ( p_api_version => p_api_version ,
966: p_init_msg_list => FND_API.G_TRUE ,
967: p_commit => FND_API.G_FALSE ,
968: p_validate_only => FND_API.G_TRUE ,
969: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
970: p_recipient_tbl => p_x_recipient_tbl ,

Line 967: p_commit => FND_API.G_FALSE ,

963: IF p_x_recipient_tbl.COUNT > 0 THEN
964: modify_recipient
965: ( p_api_version => p_api_version ,
966: p_init_msg_list => FND_API.G_TRUE ,
967: p_commit => FND_API.G_FALSE ,
968: p_validate_only => FND_API.G_TRUE ,
969: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
970: p_recipient_tbl => p_x_recipient_tbl ,
971: x_return_status => x_return_status ,

Line 968: p_validate_only => FND_API.G_TRUE ,

964: modify_recipient
965: ( p_api_version => p_api_version ,
966: p_init_msg_list => FND_API.G_TRUE ,
967: p_commit => FND_API.G_FALSE ,
968: p_validate_only => FND_API.G_TRUE ,
969: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
970: p_recipient_tbl => p_x_recipient_tbl ,
971: x_return_status => x_return_status ,
972: x_msg_count => x_msg_count ,

Line 969: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

965: ( p_api_version => p_api_version ,
966: p_init_msg_list => FND_API.G_TRUE ,
967: p_commit => FND_API.G_FALSE ,
968: p_validate_only => FND_API.G_TRUE ,
969: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
970: p_recipient_tbl => p_x_recipient_tbl ,
971: x_return_status => x_return_status ,
972: x_msg_count => x_msg_count ,
973: x_msg_data => x_msg_data

Line 981: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

977: l_msg_count := FND_MSG_PUB.count_msg;
978:
979: IF l_msg_count > 0 THEN
980: X_msg_count := l_msg_count;
981: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
982: RAISE FND_API.G_EXC_ERROR;
983: END IF;
984: --Standard check for commit
985: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 982: RAISE FND_API.G_EXC_ERROR;

978:
979: IF l_msg_count > 0 THEN
980: X_msg_count := l_msg_count;
981: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
982: RAISE FND_API.G_EXC_ERROR;
983: END IF;
984: --Standard check for commit
985: IF FND_API.TO_BOOLEAN(p_commit) THEN
986: COMMIT;

Line 985: IF FND_API.TO_BOOLEAN(p_commit) THEN

981: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
982: RAISE FND_API.G_EXC_ERROR;
983: END IF;
984: --Standard check for commit
985: IF FND_API.TO_BOOLEAN(p_commit) THEN
986: COMMIT;
987: END IF;
988: -- Debug info
989: IF G_DEBUG='Y' THEN

Line 1000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

996:
997: END IF;
998:
999: EXCEPTION
1000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1001: ROLLBACK TO modify_document;
1002: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1004: p_count => x_msg_count,

Line 1002: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

998:
999: EXCEPTION
1000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1001: ROLLBACK TO modify_document;
1002: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1004: p_count => x_msg_count,
1005: p_data => x_msg_data);
1006:

Line 1003: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

999: EXCEPTION
1000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1001: ROLLBACK TO modify_document;
1002: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1004: p_count => x_msg_count,
1005: p_data => x_msg_data);
1006:
1007: IF G_DEBUG='Y' THEN

Line 1019: WHEN FND_API.G_EXC_ERROR THEN

1015: AHL_DEBUG_PUB.disable_debug;
1016:
1017: END IF;
1018:
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: ROLLBACK TO modify_document;
1021: X_return_status := FND_API.G_RET_STS_ERROR;
1022: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1023: p_count => x_msg_count,

Line 1021: X_return_status := FND_API.G_RET_STS_ERROR;

1017: END IF;
1018:
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: ROLLBACK TO modify_document;
1021: X_return_status := FND_API.G_RET_STS_ERROR;
1022: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1023: p_count => x_msg_count,
1024: p_data => X_msg_data);
1025: -- Debug info.

Line 1022: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1018:
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: ROLLBACK TO modify_document;
1021: X_return_status := FND_API.G_RET_STS_ERROR;
1022: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1023: p_count => x_msg_count,
1024: p_data => X_msg_data);
1025: -- Debug info.
1026: IF G_DEBUG='Y' THEN

Line 1039: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1035: END IF;
1036:
1037: WHEN OTHERS THEN
1038: ROLLBACK TO modify_document;
1039: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1041: THEN
1042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1043: p_procedure_name => 'MODIFY_DOCUMENT',

Line 1046: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1043: p_procedure_name => 'MODIFY_DOCUMENT',
1044: p_error_text => SUBSTR(SQLERRM,1,240));
1045: END IF;
1046: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1047: p_count => x_msg_count,
1048: p_data => X_msg_data);
1049:
1050: -- Debug info.

Line 1265: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

1261: /*--------------------------------------------------*/
1262: PROCEDURE CREATE_SUPPLIER
1263: (
1264: p_api_version IN NUMBER := 1.0 ,
1265: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1266: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1267: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1269: p_x_supplier_tbl IN OUT NOCOPY supplier_tbl ,

Line 1266: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

1262: PROCEDURE CREATE_SUPPLIER
1263: (
1264: p_api_version IN NUMBER := 1.0 ,
1265: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1266: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1267: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1269: p_x_supplier_tbl IN OUT NOCOPY supplier_tbl ,
1270: x_return_status OUT NOCOPY VARCHAR2 ,

Line 1267: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

1263: (
1264: p_api_version IN NUMBER := 1.0 ,
1265: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1266: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1267: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1269: p_x_supplier_tbl IN OUT NOCOPY supplier_tbl ,
1270: x_return_status OUT NOCOPY VARCHAR2 ,
1271: x_msg_count OUT NOCOPY NUMBER ,

Line 1268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

1264: p_api_version IN NUMBER := 1.0 ,
1265: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1266: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1267: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1269: p_x_supplier_tbl IN OUT NOCOPY supplier_tbl ,
1270: x_return_status OUT NOCOPY VARCHAR2 ,
1271: x_msg_count OUT NOCOPY NUMBER ,
1272: x_msg_data OUT NOCOPY VARCHAR2)

Line 1327: IF FND_API.to_boolean(p_init_msg_list)

1323: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.Create Supplier','+SUP+');
1324: END IF;
1325:
1326: -- Standard call to check for call compatibility.
1327: IF FND_API.to_boolean(p_init_msg_list)
1328: THEN
1329: FND_MSG_PUB.initialize;
1330: END IF;
1331: -- Initialize API return status to success

Line 1334: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

1330: END IF;
1331: -- Initialize API return status to success
1332: x_return_status := 'S';
1333: -- Initialize message list if p_init_msg_list is set to TRUE.
1334: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1335: p_api_version,
1336: l_api_name,G_PKG_NAME)
1337: THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1334: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1335: p_api_version,
1336: l_api_name,G_PKG_NAME)
1337: THEN
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: END IF;
1340:
1341: -- Perf Bug Fix 4919011.
1342: BEGIN

Line 1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1366: l_msg_count := FND_MSG_PUB.count_msg;
1367:
1368: IF l_msg_count > 0 THEN
1369: X_msg_count := l_msg_count;
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: FOR i IN p_x_supplier_tbl.FIRST..p_x_supplier_tbl.LAST

Line 1371: RAISE FND_API.G_EXC_ERROR;

1367:
1368: IF l_msg_count > 0 THEN
1369: X_msg_count := l_msg_count;
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: FOR i IN p_x_supplier_tbl.FIRST..p_x_supplier_tbl.LAST
1375: LOOP

Line 1420: --AD RAISE FND_API.G_EXC_ERROR;

1416: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1417: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1418: FND_MSG_PUB.ADD;
1419:
1420: --AD RAISE FND_API.G_EXC_ERROR;
1421: --AD END IF;
1422: --ad CLOSE dup_rec;
1423:
1424: ELSE

Line 1496: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1492: --{{adharia comment
1493: l_msg_count := FND_MSG_PUB.count_msg;
1494: IF l_msg_count > 0 THEN
1495: X_msg_count := l_msg_count;
1496: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1497: RAISE FND_API.G_EXC_ERROR;
1498: END IF;
1499: --{{adharia comment
1500: */

Line 1497: RAISE FND_API.G_EXC_ERROR;

1493: l_msg_count := FND_MSG_PUB.count_msg;
1494: IF l_msg_count > 0 THEN
1495: X_msg_count := l_msg_count;
1496: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1497: RAISE FND_API.G_EXC_ERROR;
1498: END IF;
1499: --{{adharia comment
1500: */
1501: END IF;

Line 1509: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1505: --{{adharia added
1506: l_msg_count := FND_MSG_PUB.count_msg;
1507: IF l_msg_count > 0 THEN
1508: X_msg_count := l_msg_count;
1509: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1510: RAISE FND_API.G_EXC_ERROR;
1511: END IF;
1512: --{{adharia
1513:

Line 1510: RAISE FND_API.G_EXC_ERROR;

1506: l_msg_count := FND_MSG_PUB.count_msg;
1507: IF l_msg_count > 0 THEN
1508: X_msg_count := l_msg_count;
1509: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1510: RAISE FND_API.G_EXC_ERROR;
1511: END IF;
1512: --{{adharia
1513:
1514: -- Standard check of p_commit.

Line 1515: IF FND_API.TO_BOOLEAN(p_commit) THEN

1511: END IF;
1512: --{{adharia
1513:
1514: -- Standard check of p_commit.
1515: IF FND_API.TO_BOOLEAN(p_commit) THEN
1516: COMMIT;
1517: END IF;
1518: -- Debug info
1519: IF G_DEBUG='Y' THEN

Line 1530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1526:
1527: END IF;
1528:
1529: EXCEPTION
1530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1531: ROLLBACK TO create_supplier;
1532: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1534: p_count => x_msg_count,

Line 1532: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1528:
1529: EXCEPTION
1530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1531: ROLLBACK TO create_supplier;
1532: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1534: p_count => x_msg_count,
1535: p_data => x_msg_data);
1536:

Line 1533: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1529: EXCEPTION
1530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1531: ROLLBACK TO create_supplier;
1532: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1534: p_count => x_msg_count,
1535: p_data => x_msg_data);
1536:
1537: IF G_DEBUG='Y' THEN

Line 1548: WHEN FND_API.G_EXC_ERROR THEN

1544: AHL_DEBUG_PUB.disable_debug;
1545:
1546: END IF;
1547:
1548: WHEN FND_API.G_EXC_ERROR THEN
1549: ROLLBACK TO create_supplier;
1550: X_return_status := FND_API.G_RET_STS_ERROR;
1551: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1552: p_count => x_msg_count,

Line 1550: X_return_status := FND_API.G_RET_STS_ERROR;

1546: END IF;
1547:
1548: WHEN FND_API.G_EXC_ERROR THEN
1549: ROLLBACK TO create_supplier;
1550: X_return_status := FND_API.G_RET_STS_ERROR;
1551: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1552: p_count => x_msg_count,
1553: p_data => X_msg_data);
1554: -- Debug info.

Line 1551: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1547:
1548: WHEN FND_API.G_EXC_ERROR THEN
1549: ROLLBACK TO create_supplier;
1550: X_return_status := FND_API.G_RET_STS_ERROR;
1551: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1552: p_count => x_msg_count,
1553: p_data => X_msg_data);
1554: -- Debug info.
1555: IF G_DEBUG='Y' THEN

Line 1567: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1563: END IF;
1564:
1565: WHEN OTHERS THEN
1566: ROLLBACK TO create_supplier;
1567: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1569: THEN
1570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1571: p_procedure_name => 'CREATE_SUPPLIER',

Line 1574: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1571: p_procedure_name => 'CREATE_SUPPLIER',
1572: p_error_text => SUBSTR(SQLERRM,1,240));
1573: END IF;
1574: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1575: p_count => x_msg_count,
1576: p_data => X_msg_data);
1577:
1578: -- Debug info.

Line 1600: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

1596:
1597: PROCEDURE MODIFY_SUPPLIER
1598: (
1599: p_api_version IN NUMBER := 1.0 ,
1600: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1601: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1602: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1603: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1604: p_supplier_tbl IN supplier_tbl ,

Line 1601: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

1597: PROCEDURE MODIFY_SUPPLIER
1598: (
1599: p_api_version IN NUMBER := 1.0 ,
1600: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1601: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1602: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1603: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1604: p_supplier_tbl IN supplier_tbl ,
1605: x_return_status OUT NOCOPY VARCHAR2 ,

Line 1602: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

1598: (
1599: p_api_version IN NUMBER := 1.0 ,
1600: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1601: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1602: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1603: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1604: p_supplier_tbl IN supplier_tbl ,
1605: x_return_status OUT NOCOPY VARCHAR2 ,
1606: x_msg_count OUT NOCOPY NUMBER ,

Line 1603: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

1599: p_api_version IN NUMBER := 1.0 ,
1600: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1601: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1602: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1603: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1604: p_supplier_tbl IN supplier_tbl ,
1605: x_return_status OUT NOCOPY VARCHAR2 ,
1606: x_msg_count OUT NOCOPY NUMBER ,
1607: x_msg_data OUT NOCOPY VARCHAR2

Line 1684: IF FND_API.to_boolean(p_init_msg_list)

1680: AHL_DEBUG_PUB.debug( 'anand enter ahl_di_doc_index_pvt.Modify Supplier','+SUP+');
1681: END IF;
1682:
1683: -- Standard call to check for call compatibility.
1684: IF FND_API.to_boolean(p_init_msg_list)
1685: THEN
1686: FND_MSG_PUB.initialize;
1687: END IF;
1688: -- Initialize API return status to success

Line 1691: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

1687: END IF;
1688: -- Initialize API return status to success
1689: x_return_status := 'S';
1690: -- Initialize message list if p_init_msg_list is set to TRUE.
1691: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1692: p_api_version,
1693: l_api_name,G_PKG_NAME)
1694: THEN
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1691: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1692: p_api_version,
1693: l_api_name,G_PKG_NAME)
1694: THEN
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697: -- Start API Body
1698:
1699: -- Perf Bug Fix 4919011.

Line 1746: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1742:
1743:
1744: IF l_msg_count > 0 THEN
1745: X_msg_count := l_msg_count;
1746: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747: RAISE FND_API.G_EXC_ERROR;
1748: END IF;
1749: FOR i IN p_supplier_tbl.FIRST..p_supplier_tbl.LAST
1750: LOOP

Line 1747: RAISE FND_API.G_EXC_ERROR;

1743:
1744: IF l_msg_count > 0 THEN
1745: X_msg_count := l_msg_count;
1746: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747: RAISE FND_API.G_EXC_ERROR;
1748: END IF;
1749: FOR i IN p_supplier_tbl.FIRST..p_supplier_tbl.LAST
1750: LOOP
1751: --Retrieve the existing supplier record

Line 1762: --AD RAISE FND_API.G_EXC_ERROR;

1758: IF l_supplier_info.object_version_number <>p_supplier_tbl(i).object_version_number
1759: THEN
1760: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1761: FND_MSG_PUB.ADD;
1762: --AD RAISE FND_API.G_EXC_ERROR;
1763: ELSE --AD
1764: -- The following conditions compare the new record value with old record
1765: -- value, if its different then assign the new value else continue
1766: IF p_supplier_tbl(i).supplier_document_id IS NOT NULL

Line 1840: p_init_msg_list => FND_API.G_FALSE ,

1836: THEN
1837: DELETE_SUPPLIER
1838: (
1839: p_api_version => 1.0 ,
1840: p_init_msg_list => FND_API.G_FALSE ,
1841: p_commit => FND_API.G_FALSE ,
1842: p_validate_only => FND_API.G_TRUE ,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_supplier_rec => p_supplier_tbl(i) ,

Line 1841: p_commit => FND_API.G_FALSE ,

1837: DELETE_SUPPLIER
1838: (
1839: p_api_version => 1.0 ,
1840: p_init_msg_list => FND_API.G_FALSE ,
1841: p_commit => FND_API.G_FALSE ,
1842: p_validate_only => FND_API.G_TRUE ,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_supplier_rec => p_supplier_tbl(i) ,
1845: x_return_status => x_return_status ,

Line 1842: p_validate_only => FND_API.G_TRUE ,

1838: (
1839: p_api_version => 1.0 ,
1840: p_init_msg_list => FND_API.G_FALSE ,
1841: p_commit => FND_API.G_FALSE ,
1842: p_validate_only => FND_API.G_TRUE ,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_supplier_rec => p_supplier_tbl(i) ,
1845: x_return_status => x_return_status ,
1846: x_msg_count => x_msg_count ,

Line 1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

1839: p_api_version => 1.0 ,
1840: p_init_msg_list => FND_API.G_FALSE ,
1841: p_commit => FND_API.G_FALSE ,
1842: p_validate_only => FND_API.G_TRUE ,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_supplier_rec => p_supplier_tbl(i) ,
1845: x_return_status => x_return_status ,
1846: x_msg_count => x_msg_count ,
1847: x_msg_data => x_msg_data

Line 1869: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1865: END IF;
1866: --ad
1867: IF l_msg_count > 0 THEN
1868: X_msg_count := l_msg_count;
1869: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1870: RAISE FND_API.G_EXC_ERROR;
1871: END IF;
1872: --{{ADHARIA
1873:

Line 1870: RAISE FND_API.G_EXC_ERROR;

1866: --ad
1867: IF l_msg_count > 0 THEN
1868: X_msg_count := l_msg_count;
1869: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1870: RAISE FND_API.G_EXC_ERROR;
1871: END IF;
1872: --{{ADHARIA
1873:
1874: -- Standard check of p_commit.

Line 1875: IF FND_API.TO_BOOLEAN(p_commit) THEN

1871: END IF;
1872: --{{ADHARIA
1873:
1874: -- Standard check of p_commit.
1875: IF FND_API.TO_BOOLEAN(p_commit) THEN
1876: COMMIT;
1877: END IF;
1878:
1879: -- Debug info

Line 1891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1887:
1888: END IF;
1889:
1890: EXCEPTION
1891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1892: ROLLBACK TO modify_supplier;
1893: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1895: p_count => x_msg_count,

Line 1893: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1889:
1890: EXCEPTION
1891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1892: ROLLBACK TO modify_supplier;
1893: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1895: p_count => x_msg_count,
1896: p_data => x_msg_data);
1897:

Line 1894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1890: EXCEPTION
1891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1892: ROLLBACK TO modify_supplier;
1893: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1895: p_count => x_msg_count,
1896: p_data => x_msg_data);
1897:
1898: IF G_DEBUG='Y' THEN

Line 1909: WHEN FND_API.G_EXC_ERROR THEN

1905: AHL_DEBUG_PUB.disable_debug;
1906:
1907: END IF;
1908:
1909: WHEN FND_API.G_EXC_ERROR THEN
1910: ROLLBACK TO modify_supplier;
1911: X_return_status := FND_API.G_RET_STS_ERROR;
1912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1913: p_count => x_msg_count,

Line 1911: X_return_status := FND_API.G_RET_STS_ERROR;

1907: END IF;
1908:
1909: WHEN FND_API.G_EXC_ERROR THEN
1910: ROLLBACK TO modify_supplier;
1911: X_return_status := FND_API.G_RET_STS_ERROR;
1912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1913: p_count => x_msg_count,
1914: p_data => X_msg_data);
1915: -- Debug info.

Line 1912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1908:
1909: WHEN FND_API.G_EXC_ERROR THEN
1910: ROLLBACK TO modify_supplier;
1911: X_return_status := FND_API.G_RET_STS_ERROR;
1912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1913: p_count => x_msg_count,
1914: p_data => X_msg_data);
1915: -- Debug info.
1916: IF G_DEBUG='Y' THEN

Line 1929: X_return_status := FND_API.G_RET_STS_ERROR;

1925: END IF;
1926:
1927: WHEN DUP_VAL_ON_INDEX THEN
1928: ROLLBACK TO modify_supplier;
1929: X_return_status := FND_API.G_RET_STS_ERROR;
1930: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1931: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1932: FND_MSG_PUB.ADD;
1933: -- Check if API is called in debug mode. If yes, disable debug.

Line 1941: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1937: END IF;
1938:
1939: WHEN OTHERS THEN
1940: ROLLBACK TO modify_supplier;
1941: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1943: THEN
1944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1945: p_procedure_name => 'MODIFY_SUPPLIER',

Line 1948: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
1945: p_procedure_name => 'MODIFY_SUPPLIER',
1946: p_error_text => SUBSTR(SQLERRM,1,240));
1947: END IF;
1948: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1949: p_count => x_msg_count,
1950: p_data => X_msg_data);
1951:
1952: -- Debug info.

Line 1975: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

1971:
1972: PROCEDURE DELETE_SUPPLIER
1973: (
1974: p_api_version IN NUMBER := 1.0 ,
1975: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1976: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1977: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1978: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1979: p_supplier_rec IN supplier_rec ,

Line 1976: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

1972: PROCEDURE DELETE_SUPPLIER
1973: (
1974: p_api_version IN NUMBER := 1.0 ,
1975: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1976: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1977: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1978: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1979: p_supplier_rec IN supplier_rec ,
1980: x_return_status OUT NOCOPY VARCHAR2 ,

Line 1977: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

1973: (
1974: p_api_version IN NUMBER := 1.0 ,
1975: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1976: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1977: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1978: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1979: p_supplier_rec IN supplier_rec ,
1980: x_return_status OUT NOCOPY VARCHAR2 ,
1981: x_msg_count OUT NOCOPY NUMBER ,

Line 1978: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

1974: p_api_version IN NUMBER := 1.0 ,
1975: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1976: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1977: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1978: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1979: p_supplier_rec IN supplier_rec ,
1980: x_return_status OUT NOCOPY VARCHAR2 ,
1981: x_msg_count OUT NOCOPY NUMBER ,
1982: x_msg_data OUT NOCOPY VARCHAR2)

Line 2052: IF FND_API.to_boolean(p_init_msg_list)

2048: IF G_DEBUG='Y' THEN
2049: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.Delete Supplier','+SUP+');
2050: END IF;
2051: -- Standard call to check for call compatibility.
2052: IF FND_API.to_boolean(p_init_msg_list)
2053: THEN
2054: FND_MSG_PUB.initialize;
2055: END IF;
2056: -- Initialize API return status to success

Line 2059: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

2055: END IF;
2056: -- Initialize API return status to success
2057: x_return_status := 'S';
2058: -- Initialize message list if p_init_msg_list is set to TRUE.
2059: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2060: p_api_version,
2061: l_api_name,G_PKG_NAME)
2062: THEN
2063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2059: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2060: p_api_version,
2061: l_api_name,G_PKG_NAME)
2062: THEN
2063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2064: END IF;
2065:
2066: -- Perf Bug Fix 4919011.
2067: BEGIN

Line 2136: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2132: l_msg_count := FND_MSG_PUB.count_msg;
2133:
2134: IF l_msg_count > 0 THEN
2135: X_msg_count := l_msg_count;
2136: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137: --AD RAISE FND_API.G_EXC_ERROR;
2138: END IF;
2139:
2140: -- Standard check of p_commit.

Line 2137: --AD RAISE FND_API.G_EXC_ERROR;

2133:
2134: IF l_msg_count > 0 THEN
2135: X_msg_count := l_msg_count;
2136: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137: --AD RAISE FND_API.G_EXC_ERROR;
2138: END IF;
2139:
2140: -- Standard check of p_commit.
2141: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 2141: IF FND_API.TO_BOOLEAN(p_commit) THEN

2137: --AD RAISE FND_API.G_EXC_ERROR;
2138: END IF;
2139:
2140: -- Standard check of p_commit.
2141: IF FND_API.TO_BOOLEAN(p_commit) THEN
2142: COMMIT;
2143: END IF;
2144: -- Debug info
2145: IF G_DEBUG='Y' THEN

Line 2156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2152:
2153: END IF;
2154:
2155: EXCEPTION
2156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2157: ROLLBACK TO delete_supplier;
2158: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2159: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2160: p_count => x_msg_count,

Line 2158: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2154:
2155: EXCEPTION
2156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2157: ROLLBACK TO delete_supplier;
2158: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2159: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2160: p_count => x_msg_count,
2161: p_data => x_msg_data);
2162:

Line 2159: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2155: EXCEPTION
2156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2157: ROLLBACK TO delete_supplier;
2158: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2159: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2160: p_count => x_msg_count,
2161: p_data => x_msg_data);
2162:
2163: IF G_DEBUG='Y' THEN

Line 2173: WHEN FND_API.G_EXC_ERROR THEN

2169: AHL_DEBUG_PUB.disable_debug;
2170:
2171: END IF;
2172:
2173: WHEN FND_API.G_EXC_ERROR THEN
2174: ROLLBACK TO delete_supplier;
2175: X_return_status := FND_API.G_RET_STS_ERROR;
2176: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2177: p_count => x_msg_count,

Line 2175: X_return_status := FND_API.G_RET_STS_ERROR;

2171: END IF;
2172:
2173: WHEN FND_API.G_EXC_ERROR THEN
2174: ROLLBACK TO delete_supplier;
2175: X_return_status := FND_API.G_RET_STS_ERROR;
2176: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2177: p_count => x_msg_count,
2178: p_data => X_msg_data);
2179: -- Debug info.

Line 2176: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2172:
2173: WHEN FND_API.G_EXC_ERROR THEN
2174: ROLLBACK TO delete_supplier;
2175: X_return_status := FND_API.G_RET_STS_ERROR;
2176: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2177: p_count => x_msg_count,
2178: p_data => X_msg_data);
2179: -- Debug info.
2180: IF G_DEBUG='Y' THEN

Line 2192: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2188: END IF;
2189:
2190: WHEN OTHERS THEN
2191: ROLLBACK TO delete_supplier;
2192: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2194: THEN
2195: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2196: p_procedure_name => 'DELETE_SUPPLIER',

Line 2199: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2195: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2196: p_procedure_name => 'DELETE_SUPPLIER',
2197: p_error_text => SUBSTR(SQLERRM,1,240));
2198: END IF;
2199: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2200: p_count => x_msg_count,
2201: p_data => X_msg_data);
2202:
2203: -- Debug info.

Line 2352: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

2348:
2349: PROCEDURE CREATE_RECIPIENT
2350: (
2351: p_api_version IN NUMBER := 1.0 ,
2352: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2353: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2354: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2356: p_x_recipient_tbl IN OUT NOCOPY recipient_tbl ,

Line 2353: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

2349: PROCEDURE CREATE_RECIPIENT
2350: (
2351: p_api_version IN NUMBER := 1.0 ,
2352: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2353: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2354: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2356: p_x_recipient_tbl IN OUT NOCOPY recipient_tbl ,
2357: x_return_status OUT NOCOPY VARCHAR2 ,

Line 2354: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

2350: (
2351: p_api_version IN NUMBER := 1.0 ,
2352: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2353: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2354: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2356: p_x_recipient_tbl IN OUT NOCOPY recipient_tbl ,
2357: x_return_status OUT NOCOPY VARCHAR2 ,
2358: x_msg_count OUT NOCOPY NUMBER ,

Line 2355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

2351: p_api_version IN NUMBER := 1.0 ,
2352: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2353: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2354: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2355: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2356: p_x_recipient_tbl IN OUT NOCOPY recipient_tbl ,
2357: x_return_status OUT NOCOPY VARCHAR2 ,
2358: x_msg_count OUT NOCOPY NUMBER ,
2359: x_msg_data OUT NOCOPY VARCHAR2)

Line 2400: IF FND_API.to_boolean(p_init_msg_list)

2396:
2397: END IF;
2398: END IF;
2399: -- Standard call to check for call compatibility.
2400: IF FND_API.to_boolean(p_init_msg_list)
2401: THEN
2402: FND_MSG_PUB.initialize;
2403: END IF;
2404: -- Initialize API return status to success

Line 2407: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

2403: END IF;
2404: -- Initialize API return status to success
2405: x_return_status := 'S';
2406: -- Initialize message list if p_init_msg_list is set to TRUE.
2407: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2408: p_api_version,
2409: l_api_name,G_PKG_NAME)
2410: THEN
2411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2407: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2408: p_api_version,
2409: l_api_name,G_PKG_NAME)
2410: THEN
2411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2412: END IF;
2413: --Start API Body
2414: IF p_x_recipient_tbl.COUNT > 0
2415: THEN

Line 2431: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2427: l_msg_count := FND_MSG_PUB.count_msg;
2428:
2429: IF l_msg_count > 0 THEN
2430: X_msg_count := l_msg_count;
2431: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2432: RAISE FND_API.G_EXC_ERROR;
2433: END IF;
2434:
2435: FOR i IN p_x_recipient_tbl.FIRST..p_x_recipient_tbl.LAST

Line 2432: RAISE FND_API.G_EXC_ERROR;

2428:
2429: IF l_msg_count > 0 THEN
2430: X_msg_count := l_msg_count;
2431: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2432: RAISE FND_API.G_EXC_ERROR;
2433: END IF;
2434:
2435: FOR i IN p_x_recipient_tbl.FIRST..p_x_recipient_tbl.LAST
2436: LOOP

Line 2468: --ad RAISE FND_API.G_EXC_ERROR;

2464: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2465: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2466: FND_MSG_PUB.ADD;
2467: CLOSE DUP_REC_NAME;
2468: --ad RAISE FND_API.G_EXC_ERROR;
2469: --ad END IF;
2470: --ad CLOSE dup_rec;
2471: else --ad
2472: --Retrieves the sequence number

Line 2539: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2535: l_msg_count := FND_MSG_PUB.count_msg;
2536:
2537: IF l_msg_count > 0 THEN
2538: X_msg_count := l_msg_count;
2539: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2540: RAISE FND_API.G_EXC_ERROR;
2541: END IF;--ad
2542: adharia*/
2543: END IF;

Line 2540: RAISE FND_API.G_EXC_ERROR;

2536:
2537: IF l_msg_count > 0 THEN
2538: X_msg_count := l_msg_count;
2539: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2540: RAISE FND_API.G_EXC_ERROR;
2541: END IF;--ad
2542: adharia*/
2543: END IF;
2544: CLOSE dup_rec;--ad

Line 2553: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2549: l_msg_count := FND_MSG_PUB.count_msg;
2550:
2551: IF l_msg_count > 0 THEN
2552: X_msg_count := l_msg_count;
2553: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2554: RAISE FND_API.G_EXC_ERROR;
2555: end if;
2556: --adharia
2557:

Line 2554: RAISE FND_API.G_EXC_ERROR;

2550:
2551: IF l_msg_count > 0 THEN
2552: X_msg_count := l_msg_count;
2553: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2554: RAISE FND_API.G_EXC_ERROR;
2555: end if;
2556: --adharia
2557:
2558: -- Standard check of p_commit.

Line 2559: IF FND_API.TO_BOOLEAN(p_commit) THEN

2555: end if;
2556: --adharia
2557:
2558: -- Standard check of p_commit.
2559: IF FND_API.TO_BOOLEAN(p_commit) THEN
2560: COMMIT;
2561: END IF;
2562: -- Debug info
2563: IF G_DEBUG='Y' THEN

Line 2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2570:
2571: END IF;
2572:
2573: EXCEPTION
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2575: ROLLBACK TO create_recipient;
2576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2578: p_count => x_msg_count,

Line 2576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2572:
2573: EXCEPTION
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2575: ROLLBACK TO create_recipient;
2576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2578: p_count => x_msg_count,
2579: p_data => x_msg_data);
2580:

Line 2577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2573: EXCEPTION
2574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2575: ROLLBACK TO create_recipient;
2576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2578: p_count => x_msg_count,
2579: p_data => x_msg_data);
2580:
2581: IF G_DEBUG='Y' THEN

Line 2591: WHEN FND_API.G_EXC_ERROR THEN

2587: AHL_DEBUG_PUB.disable_debug;
2588:
2589: END IF;
2590:
2591: WHEN FND_API.G_EXC_ERROR THEN
2592: ROLLBACK TO create_recipient;
2593: X_return_status := FND_API.G_RET_STS_ERROR;
2594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2595: p_count => x_msg_count,

Line 2593: X_return_status := FND_API.G_RET_STS_ERROR;

2589: END IF;
2590:
2591: WHEN FND_API.G_EXC_ERROR THEN
2592: ROLLBACK TO create_recipient;
2593: X_return_status := FND_API.G_RET_STS_ERROR;
2594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2595: p_count => x_msg_count,
2596: p_data => X_msg_data);
2597: -- Debug info.

Line 2594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2590:
2591: WHEN FND_API.G_EXC_ERROR THEN
2592: ROLLBACK TO create_recipient;
2593: X_return_status := FND_API.G_RET_STS_ERROR;
2594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2595: p_count => x_msg_count,
2596: p_data => X_msg_data);
2597: -- Debug info.
2598: IF G_DEBUG='Y' THEN

Line 2610: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2606: END IF;
2607:
2608: WHEN OTHERS THEN
2609: ROLLBACK TO create_recipient;
2610: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2612: THEN
2613: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2614: p_procedure_name => 'CREATE_RECIPIENT',

Line 2617: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2613: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2614: p_procedure_name => 'CREATE_RECIPIENT',
2615: p_error_text => SUBSTR(SQLERRM,1,240));
2616: END IF;
2617: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2618: p_count => x_msg_count,
2619: p_data => X_msg_data);
2620:
2621: -- Debug info.

Line 2643: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

2639:
2640: PROCEDURE MODIFY_RECIPIENT
2641: (
2642: p_api_version IN NUMBER := 1.0 ,
2643: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2644: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2645: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2646: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2647: p_recipient_tbl IN OUT NOCOPY recipient_tbl ,

Line 2644: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

2640: PROCEDURE MODIFY_RECIPIENT
2641: (
2642: p_api_version IN NUMBER := 1.0 ,
2643: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2644: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2645: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2646: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2647: p_recipient_tbl IN OUT NOCOPY recipient_tbl ,
2648: x_return_status OUT NOCOPY VARCHAR2 ,

Line 2645: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

2641: (
2642: p_api_version IN NUMBER := 1.0 ,
2643: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2644: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2645: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2646: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2647: p_recipient_tbl IN OUT NOCOPY recipient_tbl ,
2648: x_return_status OUT NOCOPY VARCHAR2 ,
2649: x_msg_count OUT NOCOPY NUMBER ,

Line 2646: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

2642: p_api_version IN NUMBER := 1.0 ,
2643: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2644: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2645: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2646: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2647: p_recipient_tbl IN OUT NOCOPY recipient_tbl ,
2648: x_return_status OUT NOCOPY VARCHAR2 ,
2649: x_msg_count OUT NOCOPY NUMBER ,
2650: x_msg_data OUT NOCOPY VARCHAR2)

Line 2704: IF FND_API.to_boolean(p_init_msg_list)

2700:
2701: END IF;
2702: END IF;
2703: -- Standard call to check for call compatibility.
2704: IF FND_API.to_boolean(p_init_msg_list)
2705: THEN
2706: FND_MSG_PUB.initialize;
2707: END IF;
2708: -- Initialize API return status to success

Line 2711: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

2707: END IF;
2708: -- Initialize API return status to success
2709: x_return_status := 'S';
2710: -- Initialize message list if p_init_msg_list is set to TRUE.
2711: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2712: p_api_version,
2713: l_api_name,G_PKG_NAME)
2714: THEN
2715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2711: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2712: p_api_version,
2713: l_api_name,G_PKG_NAME)
2714: THEN
2715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2716: END IF;
2717: -- Start API Body
2718: IF p_recipient_tbl.COUNT > 0
2719: THEN

Line 2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2732: l_msg_count := FND_MSG_PUB.count_msg;
2733:
2734: IF l_msg_count > 0 THEN
2735: X_msg_count := l_msg_count;
2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737: RAISE FND_API.G_EXC_ERROR;
2738: END IF;
2739:
2740: FOR i IN p_recipient_tbl.FIRST..p_recipient_tbl.LAST

Line 2737: RAISE FND_API.G_EXC_ERROR;

2733:
2734: IF l_msg_count > 0 THEN
2735: X_msg_count := l_msg_count;
2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737: RAISE FND_API.G_EXC_ERROR;
2738: END IF;
2739:
2740: FOR i IN p_recipient_tbl.FIRST..p_recipient_tbl.LAST
2741: LOOP

Line 2755: --ad RAISE FND_API.G_EXC_ERROR;

2751: if (l_recipient_info.object_version_number <>p_recipient_tbl(i).object_version_number)
2752: then
2753: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2754: FND_MSG_PUB.ADD;
2755: --ad RAISE FND_API.G_EXC_ERROR;
2756: --ad end if;
2757: else --ad
2758:
2759: -- The following conditions compare the new record value with old record

Line 2815: p_init_msg_list => FND_API.G_FALSE ,

2811: p_recipient_tbl(i).delete_flag = 'Y')
2812: THEN
2813: DELETE_RECIPIENT
2814: ( p_api_version => 1.0 ,
2815: p_init_msg_list => FND_API.G_FALSE ,
2816: p_commit => FND_API.G_FALSE ,
2817: p_validate_only => FND_API.G_TRUE ,
2818: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2819: p_recipient_rec => p_recipient_tbl(i) ,

Line 2816: p_commit => FND_API.G_FALSE ,

2812: THEN
2813: DELETE_RECIPIENT
2814: ( p_api_version => 1.0 ,
2815: p_init_msg_list => FND_API.G_FALSE ,
2816: p_commit => FND_API.G_FALSE ,
2817: p_validate_only => FND_API.G_TRUE ,
2818: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2819: p_recipient_rec => p_recipient_tbl(i) ,
2820: x_return_status => x_return_status ,

Line 2817: p_validate_only => FND_API.G_TRUE ,

2813: DELETE_RECIPIENT
2814: ( p_api_version => 1.0 ,
2815: p_init_msg_list => FND_API.G_FALSE ,
2816: p_commit => FND_API.G_FALSE ,
2817: p_validate_only => FND_API.G_TRUE ,
2818: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2819: p_recipient_rec => p_recipient_tbl(i) ,
2820: x_return_status => x_return_status ,
2821: x_msg_count => x_msg_count ,

Line 2818: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

2814: ( p_api_version => 1.0 ,
2815: p_init_msg_list => FND_API.G_FALSE ,
2816: p_commit => FND_API.G_FALSE ,
2817: p_validate_only => FND_API.G_TRUE ,
2818: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2819: p_recipient_rec => p_recipient_tbl(i) ,
2820: x_return_status => x_return_status ,
2821: x_msg_count => x_msg_count ,
2822: x_msg_data => x_msg_data);

Line 2828: IF FND_API.TO_BOOLEAN(p_commit) THEN

2824: end if;--ad
2825: END LOOP;
2826: END IF;
2827: -- Standard check of p_commit.
2828: IF FND_API.TO_BOOLEAN(p_commit) THEN
2829: COMMIT;
2830: END IF;
2831: -- Debug info
2832: IF G_DEBUG='Y' THEN

Line 2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2839:
2840: END IF;
2841:
2842: EXCEPTION
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: ROLLBACK TO modify_recipient;
2845: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2846: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2847: p_count => x_msg_count,

Line 2845: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2841:
2842: EXCEPTION
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: ROLLBACK TO modify_recipient;
2845: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2846: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2847: p_count => x_msg_count,
2848: p_data => x_msg_data);
2849: IF G_DEBUG='Y' THEN

Line 2846: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2842: EXCEPTION
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: ROLLBACK TO modify_recipient;
2845: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2846: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2847: p_count => x_msg_count,
2848: p_data => x_msg_data);
2849: IF G_DEBUG='Y' THEN
2850: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

Line 2858: WHEN FND_API.G_EXC_ERROR THEN

2854: AHL_DEBUG_PUB.disable_debug;
2855:
2856: END IF;
2857:
2858: WHEN FND_API.G_EXC_ERROR THEN
2859: ROLLBACK TO modify_recipient;
2860: X_return_status := FND_API.G_RET_STS_ERROR;
2861: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2862: p_count => x_msg_count,

Line 2860: X_return_status := FND_API.G_RET_STS_ERROR;

2856: END IF;
2857:
2858: WHEN FND_API.G_EXC_ERROR THEN
2859: ROLLBACK TO modify_recipient;
2860: X_return_status := FND_API.G_RET_STS_ERROR;
2861: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2862: p_count => x_msg_count,
2863: p_data => X_msg_data);
2864: -- Debug info.

Line 2861: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2857:
2858: WHEN FND_API.G_EXC_ERROR THEN
2859: ROLLBACK TO modify_recipient;
2860: X_return_status := FND_API.G_RET_STS_ERROR;
2861: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2862: p_count => x_msg_count,
2863: p_data => X_msg_data);
2864: -- Debug info.
2865: IF G_DEBUG='Y' THEN

Line 2877: X_return_status := FND_API.G_RET_STS_ERROR;

2873: END IF;
2874:
2875: WHEN DUP_VAL_ON_INDEX THEN
2876: ROLLBACK TO modify_recipient;
2877: X_return_status := FND_API.G_RET_STS_ERROR;
2878: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2879: FND_MSG_PUB.ADD;
2880: -- Check if API is called in debug mode. If yes, disable debug.
2881: IF G_DEBUG='Y' THEN

Line 2887: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2883:
2884: END IF;
2885: WHEN OTHERS THEN
2886: ROLLBACK TO modify_recipient;
2887: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2889: THEN
2890: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2891: p_procedure_name => 'MODIFY_RECIPIENT',

Line 2894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2890: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
2891: p_procedure_name => 'MODIFY_RECIPIENT',
2892: p_error_text => SUBSTR(SQLERRM,1,240));
2893: END IF;
2894: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2895: p_count => x_msg_count,
2896: p_data => X_msg_data);
2897:
2898: -- Debug info.

Line 2920: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

2916:
2917: PROCEDURE DELETE_RECIPIENT
2918: (
2919: p_api_version IN NUMBER := 1.0 ,
2920: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2921: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2922: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2924: p_recipient_rec IN recipient_rec ,

Line 2921: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

2917: PROCEDURE DELETE_RECIPIENT
2918: (
2919: p_api_version IN NUMBER := 1.0 ,
2920: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2921: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2922: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2924: p_recipient_rec IN recipient_rec ,
2925: x_return_status OUT NOCOPY VARCHAR2 ,

Line 2922: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

2918: (
2919: p_api_version IN NUMBER := 1.0 ,
2920: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2921: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2922: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2924: p_recipient_rec IN recipient_rec ,
2925: x_return_status OUT NOCOPY VARCHAR2 ,
2926: x_msg_count OUT NOCOPY NUMBER ,

Line 2923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

2919: p_api_version IN NUMBER := 1.0 ,
2920: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2921: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2922: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2923: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2924: p_recipient_rec IN recipient_rec ,
2925: x_return_status OUT NOCOPY VARCHAR2 ,
2926: x_msg_count OUT NOCOPY NUMBER ,
2927: x_msg_data OUT NOCOPY VARCHAR2)

Line 2962: IF FND_API.to_boolean(p_init_msg_list)

2958:
2959: END IF;
2960: END IF;
2961: -- Standard call to check for call compatibility.
2962: IF FND_API.to_boolean(p_init_msg_list)
2963: THEN
2964: FND_MSG_PUB.initialize;
2965: END IF;
2966: -- Initialize API return status to success

Line 2969: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

2965: END IF;
2966: -- Initialize API return status to success
2967: x_return_status := 'S';
2968: -- Initialize message list if p_init_msg_list is set to TRUE.
2969: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2970: p_api_version,
2971: l_api_name,G_PKG_NAME)
2972: THEN
2973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2969: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2970: p_api_version,
2971: l_api_name,G_PKG_NAME)
2972: THEN
2973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2974: END IF;
2975: -- IF p_recipient_tbl.COUNT > 0
2976: -- THEN
2977: -- FOR i IN p_recipient_tbl.FIRST..p_recipient_tbl.LAST

Line 2988: RAISE FND_API.G_EXC_ERROR;

2984: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
2985: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
2986: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
2987: FND_MSG_PUB.ADD;
2988: RAISE FND_API.G_EXC_ERROR;
2989: --Modified pjha 24-Jul-2002 for bug#2473425: End
2990: END IF;
2991: CLOSE get_recipient_rec_info;
2992: --Commented pjha 24-Jul-2002 no need of this check since record can only be

Line 3009: IF FND_API.TO_BOOLEAN(p_commit) THEN

3005: WHERE ROWID = l_rowid;
3006: -- END LOOP;
3007: -- END IF;
3008: --Standarad check for commit
3009: IF FND_API.TO_BOOLEAN(p_commit) THEN
3010: COMMIT;
3011: END IF;
3012: -- Debug info
3013: IF G_DEBUG='Y' THEN

Line 3024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3020:
3021: END IF;
3022:
3023: EXCEPTION
3024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3025: ROLLBACK TO delete_recipient;
3026: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3027: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3028: p_count => x_msg_count,

Line 3026: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3022:
3023: EXCEPTION
3024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3025: ROLLBACK TO delete_recipient;
3026: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3027: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3028: p_count => x_msg_count,
3029: p_data => x_msg_data);
3030: IF G_DEBUG='Y' THEN

Line 3027: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

3023: EXCEPTION
3024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3025: ROLLBACK TO delete_recipient;
3026: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3027: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3028: p_count => x_msg_count,
3029: p_data => x_msg_data);
3030: IF G_DEBUG='Y' THEN
3031: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

Line 3040: WHEN FND_API.G_EXC_ERROR THEN

3036: AHL_DEBUG_PUB.disable_debug;
3037:
3038: END IF;
3039:
3040: WHEN FND_API.G_EXC_ERROR THEN
3041: ROLLBACK TO delete_recipient;
3042: X_return_status := FND_API.G_RET_STS_ERROR;
3043: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3044: p_count => x_msg_count,

Line 3042: X_return_status := FND_API.G_RET_STS_ERROR;

3038: END IF;
3039:
3040: WHEN FND_API.G_EXC_ERROR THEN
3041: ROLLBACK TO delete_recipient;
3042: X_return_status := FND_API.G_RET_STS_ERROR;
3043: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3044: p_count => x_msg_count,
3045: p_data => X_msg_data);
3046: -- Debug info.

Line 3043: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

3039:
3040: WHEN FND_API.G_EXC_ERROR THEN
3041: ROLLBACK TO delete_recipient;
3042: X_return_status := FND_API.G_RET_STS_ERROR;
3043: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3044: p_count => x_msg_count,
3045: p_data => X_msg_data);
3046: -- Debug info.
3047: IF G_DEBUG='Y' THEN

Line 3059: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3055: END IF;
3056:
3057: WHEN OTHERS THEN
3058: ROLLBACK TO delete_recipient;
3059: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3061: THEN
3062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3063: p_procedure_name => 'DELETE_RECIPIENT',

Line 3066: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

3062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PVT',
3063: p_procedure_name => 'DELETE_RECIPIENT',
3064: p_error_text => SUBSTR(SQLERRM,1,240));
3065: END IF;
3066: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3067: p_count => x_msg_count,
3068: p_data => X_msg_data);
3069:
3070: -- Debug info.