391: -- parameters :
392:
393: -- in:
394: -- p_api_version_number in number required
395: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
396: -- p_commit in varchar2 optional --default = fnd_api.g_false
397: -- p_TerrType_rec in TerrType_rec_type required --default = g_miss_TerrType_rec,
398: -- p_TerrTypequal_tbl in TerrTypequal_tbl_type required --default = g_miss_TerrTypequal_rec,
399: -- p_TerrTypeusgs_tbl in TerrTypeusgs_rec_type required --default = g_miss_tersrc_rec
392:
393: -- in:
394: -- p_api_version_number in number required
395: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
396: -- p_commit in varchar2 optional --default = fnd_api.g_false
397: -- p_TerrType_rec in TerrType_rec_type required --default = g_miss_TerrType_rec,
398: -- p_TerrTypequal_tbl in TerrTypequal_tbl_type required --default = g_miss_TerrTypequal_rec,
399: -- p_TerrTypeusgs_tbl in TerrTypeusgs_rec_type required --default = g_miss_tersrc_rec
400: -- p_TypequalTypeusgs_tbl in TypeQualTypeUsgs_tbl_type required --default = g_miss_tersrc_tbl,
418: --
419: -- end of comments
420: PROCEDURE create_terrtype (
421: p_api_version_number IN NUMBER,
422: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
423: p_commit IN VARCHAR2 := fnd_api.g_false,
424: p_terrtype_rec IN terrtype_rec_type
425: := g_miss_terrtype_rec,
426: p_terrtypequal_tbl IN terrtypequal_tbl_type
419: -- end of comments
420: PROCEDURE create_terrtype (
421: p_api_version_number IN NUMBER,
422: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
423: p_commit IN VARCHAR2 := fnd_api.g_false,
424: p_terrtype_rec IN terrtype_rec_type
425: := g_miss_terrtype_rec,
426: p_terrtypequal_tbl IN terrtypequal_tbl_type
427: := g_miss_terrtypequal_tbl,
457: -- Standard Start of API savepoint
458: SAVEPOINT create_terrtype_pub;
459:
460: -- Standard call to check for call compatibility.
461: IF NOT fnd_api.compatible_api_call (
462: l_api_version_number,
463: p_api_version_number,
464: l_api_name,
465: g_pkg_name
464: l_api_name,
465: g_pkg_name
466: )
467: THEN
468: RAISE fnd_api.g_exc_unexpected_error;
469: END IF;
470:
471: -- Initialize message list if p_init_msg_list is set to TRUE.
472: IF fnd_api.to_boolean (p_init_msg_list)
468: RAISE fnd_api.g_exc_unexpected_error;
469: END IF;
470:
471: -- Initialize message list if p_init_msg_list is set to TRUE.
472: IF fnd_api.to_boolean (p_init_msg_list)
473: THEN
474: fnd_msg_pub.initialize;
475: END IF;
476:
482: fnd_msg_pub.add;
483: END IF;
484:
485: -- Initialize API return status to success
486: x_return_status := fnd_api.g_ret_sts_success;
487: --
488: -- API body
489: --
490: --dbms_output.put_line('Create_terrtype PUB: Before Convertion from PUB to PVT routines');
506: );
507: --dbms_output.put_line('Create_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.create_terrtype');
508: jtf_territory_type_pvt.create_terrtype (
509: p_api_version_number => 1.0,
510: p_init_msg_list => fnd_api.g_false,
511: p_commit => fnd_api.g_false,
512: p_validation_level => fnd_api.g_valid_level_full,
513: p_terrtype_rec => l_terrtype_rec,
514: p_terrtypequal_tbl => l_terrtypequal_tbl,
507: --dbms_output.put_line('Create_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.create_terrtype');
508: jtf_territory_type_pvt.create_terrtype (
509: p_api_version_number => 1.0,
510: p_init_msg_list => fnd_api.g_false,
511: p_commit => fnd_api.g_false,
512: p_validation_level => fnd_api.g_valid_level_full,
513: p_terrtype_rec => l_terrtype_rec,
514: p_terrtypequal_tbl => l_terrtypequal_tbl,
515: p_terrtypeusgs_tbl => l_terrtypeusgs_tbl,
508: jtf_territory_type_pvt.create_terrtype (
509: p_api_version_number => 1.0,
510: p_init_msg_list => fnd_api.g_false,
511: p_commit => fnd_api.g_false,
512: p_validation_level => fnd_api.g_valid_level_full,
513: p_terrtype_rec => l_terrtype_rec,
514: p_terrtypequal_tbl => l_terrtypequal_tbl,
515: p_terrtypeusgs_tbl => l_terrtypeusgs_tbl,
516: p_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl,
523: x_typequaltypeusgs_out_tbl => l_typequaltypeusgs_out_tbl
524: );
525:
526: --
527: IF l_return_status <> fnd_api.g_ret_sts_success
528: THEN
529: RAISE fnd_api.g_exc_error;
530: END IF;
531:
525:
526: --
527: IF l_return_status <> fnd_api.g_ret_sts_success
528: THEN
529: RAISE fnd_api.g_exc_error;
530: END IF;
531:
532: --dbms_output.put_line('Create_terrtype PUB: Before Convertion from PVT to PUB routines');
533: convert_typeusgout_pvttopub (
553:
554: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
555:
556: -- Standard check for p_commit
557: IF fnd_api.to_boolean (p_commit)
558: THEN
559: COMMIT WORK;
560: END IF;
561: --dbms_output.put_line('Create_terrtype PUB: Exiting API');
561: --dbms_output.put_line('Create_terrtype PUB: Exiting API');
562: --
563: EXCEPTION
564: --
565: WHEN fnd_api.g_exc_error
566: THEN
567: --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_ERROR');
568: ROLLBACK TO create_terrtype_pub;
569: x_return_status := fnd_api.g_ret_sts_error;
563: EXCEPTION
564: --
565: WHEN fnd_api.g_exc_error
566: THEN
567: --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_ERROR');
568: ROLLBACK TO create_terrtype_pub;
569: x_return_status := fnd_api.g_ret_sts_error;
570: fnd_msg_pub.count_and_get (
571: p_count => x_msg_count,
565: WHEN fnd_api.g_exc_error
566: THEN
567: --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_ERROR');
568: ROLLBACK TO create_terrtype_pub;
569: x_return_status := fnd_api.g_ret_sts_error;
570: fnd_msg_pub.count_and_get (
571: p_count => x_msg_count,
572: p_data => x_msg_data
573: );
570: fnd_msg_pub.count_and_get (
571: p_count => x_msg_count,
572: p_data => x_msg_data
573: );
574: WHEN fnd_api.g_exc_unexpected_error
575: THEN
576: --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
577: ROLLBACK TO create_terrtype_pub;
578: x_return_status := fnd_api.g_ret_sts_unexp_error;
572: p_data => x_msg_data
573: );
574: WHEN fnd_api.g_exc_unexpected_error
575: THEN
576: --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
577: ROLLBACK TO create_terrtype_pub;
578: x_return_status := fnd_api.g_ret_sts_unexp_error;
579: fnd_msg_pub.count_and_get (
580: p_count => x_msg_count,
574: WHEN fnd_api.g_exc_unexpected_error
575: THEN
576: --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
577: ROLLBACK TO create_terrtype_pub;
578: x_return_status := fnd_api.g_ret_sts_unexp_error;
579: fnd_msg_pub.count_and_get (
580: p_count => x_msg_count,
581: p_data => x_msg_data
582: );
583: WHEN OTHERS
584: THEN
585: --dbms_output.put_line('Create_terrtype PUB: OTHERS - ' || SQLERRM);
586: ROLLBACK TO create_terrtype_pub;
587: x_return_status := fnd_api.g_ret_sts_unexp_error;
588:
589: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
590: THEN
591: fnd_msg_pub.add_exc_msg (
611: -- parameters :
612:
613: -- in:
614: -- p_api_version_number in number required
615: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
616: -- p_commit in varchar2 optional --default = fnd_api.g_false
617: -- p_TerrType_rec in TerrType_rec_type required --default = g_miss_TerrType_rec,
618: -- p_TerrTypequal_tbl in TerrTypequal_tbl_type required --default = g_miss_TerrTypequal_rec,
619: -- p_TerrTypesrc_tbl in TerrTypesrc_rec_type required --default = g_miss_tersrc_rec
612:
613: -- in:
614: -- p_api_version_number in number required
615: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
616: -- p_commit in varchar2 optional --default = fnd_api.g_false
617: -- p_TerrType_rec in TerrType_rec_type required --default = g_miss_TerrType_rec,
618: -- p_TerrTypequal_tbl in TerrTypequal_tbl_type required --default = g_miss_TerrTypequal_rec,
619: -- p_TerrTypesrc_tbl in TerrTypesrc_rec_type required --default = g_miss_tersrc_rec
620: -- p_TerrTypeSrcType_tbl in TerrTypeSrcType_tbl_type required --default = g_miss_tersrc_tbl,
636: --
637: -- end of comments
638: PROCEDURE update_terrtype (
639: p_api_version_number IN NUMBER,
640: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
641: p_commit IN VARCHAR2 := fnd_api.g_false,
642: p_terrtype_rec IN terrtype_rec_type
643: := g_miss_terrtype_rec,
644: p_terrtypequal_tbl IN terrtypequal_tbl_type
637: -- end of comments
638: PROCEDURE update_terrtype (
639: p_api_version_number IN NUMBER,
640: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
641: p_commit IN VARCHAR2 := fnd_api.g_false,
642: p_terrtype_rec IN terrtype_rec_type
643: := g_miss_terrtype_rec,
644: p_terrtypequal_tbl IN terrtypequal_tbl_type
645: := g_miss_terrtypequal_tbl,
676: -- Standard Start of API savepoint
677: SAVEPOINT upadate_terrtype_pub;
678:
679: -- Standard call to check for call compatibility.
680: IF NOT fnd_api.compatible_api_call (
681: l_api_version_number,
682: p_api_version_number,
683: l_api_name,
684: g_pkg_name
683: l_api_name,
684: g_pkg_name
685: )
686: THEN
687: RAISE fnd_api.g_exc_unexpected_error;
688: END IF;
689:
690: -- Initialize message list if p_init_msg_list is set to TRUE.
691: IF fnd_api.to_boolean (p_init_msg_list)
687: RAISE fnd_api.g_exc_unexpected_error;
688: END IF;
689:
690: -- Initialize message list if p_init_msg_list is set to TRUE.
691: IF fnd_api.to_boolean (p_init_msg_list)
692: THEN
693: fnd_msg_pub.initialize;
694: END IF;
695:
701: fnd_msg_pub.add;
702: END IF;
703:
704: -- Initialize API return status to success
705: x_return_status := fnd_api.g_ret_sts_success;
706: --
707: -- API body
708: --
709: --dbms_output.put_line('Update_terrtype PUB: Before Convertion from PUB to PVT routines');
726: --
727: --dbms_output.put_line('Update_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Update_terrtype');
728: jtf_territory_type_pvt.update_terrtype (
729: p_api_version_number => 1.0,
730: p_init_msg_list => fnd_api.g_false,
731: p_commit => fnd_api.g_false,
732: p_validation_level => fnd_api.g_valid_level_full,
733: p_terrtype_rec => l_terrtype_rec,
734: p_terrtypequal_tbl => l_terrtypequal_tbl,
727: --dbms_output.put_line('Update_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Update_terrtype');
728: jtf_territory_type_pvt.update_terrtype (
729: p_api_version_number => 1.0,
730: p_init_msg_list => fnd_api.g_false,
731: p_commit => fnd_api.g_false,
732: p_validation_level => fnd_api.g_valid_level_full,
733: p_terrtype_rec => l_terrtype_rec,
734: p_terrtypequal_tbl => l_terrtypequal_tbl,
735: p_terrtypeusgs_tbl => l_terrtypeusgs_tbl,
728: jtf_territory_type_pvt.update_terrtype (
729: p_api_version_number => 1.0,
730: p_init_msg_list => fnd_api.g_false,
731: p_commit => fnd_api.g_false,
732: p_validation_level => fnd_api.g_valid_level_full,
733: p_terrtype_rec => l_terrtype_rec,
734: p_terrtypequal_tbl => l_terrtypequal_tbl,
735: p_terrtypeusgs_tbl => l_terrtypeusgs_tbl,
736: p_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl,
743: x_typequaltypeusgs_out_tbl => l_typequaltypeusgs_out_tbl
744: );
745:
746: --
747: IF l_return_status <> fnd_api.g_ret_sts_success
748: THEN
749: RAISE fnd_api.g_exc_error;
750: END IF;
751:
745:
746: --
747: IF l_return_status <> fnd_api.g_ret_sts_success
748: THEN
749: RAISE fnd_api.g_exc_error;
750: END IF;
751:
752: --dbms_output.put_line('Update_terrtype PUB: Before Convertion from PVT to PUB routines');
753: convert_terrtypeout_pubtopvt (
777:
778: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
779:
780: -- Standard check for p_commit
781: IF fnd_api.to_boolean (p_commit)
782: THEN
783: COMMIT WORK;
784: END IF;
785: --
787:
788: --
789: EXCEPTION
790: --
791: WHEN fnd_api.g_exc_error
792: THEN
793: --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_ERROR');
794: ROLLBACK TO update_terrtype_pub;
795: x_return_status := fnd_api.g_ret_sts_error;
789: EXCEPTION
790: --
791: WHEN fnd_api.g_exc_error
792: THEN
793: --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_ERROR');
794: ROLLBACK TO update_terrtype_pub;
795: x_return_status := fnd_api.g_ret_sts_error;
796: fnd_msg_pub.count_and_get (
797: p_count => x_msg_count,
791: WHEN fnd_api.g_exc_error
792: THEN
793: --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_ERROR');
794: ROLLBACK TO update_terrtype_pub;
795: x_return_status := fnd_api.g_ret_sts_error;
796: fnd_msg_pub.count_and_get (
797: p_count => x_msg_count,
798: p_data => x_msg_data
799: );
796: fnd_msg_pub.count_and_get (
797: p_count => x_msg_count,
798: p_data => x_msg_data
799: );
800: WHEN fnd_api.g_exc_unexpected_error
801: THEN
802: --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
803: ROLLBACK TO update_terrtype_pub;
804: x_return_status := fnd_api.g_ret_sts_unexp_error;
798: p_data => x_msg_data
799: );
800: WHEN fnd_api.g_exc_unexpected_error
801: THEN
802: --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
803: ROLLBACK TO update_terrtype_pub;
804: x_return_status := fnd_api.g_ret_sts_unexp_error;
805: fnd_msg_pub.count_and_get (
806: p_count => x_msg_count,
800: WHEN fnd_api.g_exc_unexpected_error
801: THEN
802: --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
803: ROLLBACK TO update_terrtype_pub;
804: x_return_status := fnd_api.g_ret_sts_unexp_error;
805: fnd_msg_pub.count_and_get (
806: p_count => x_msg_count,
807: p_data => x_msg_data
808: );
809: WHEN OTHERS
810: THEN
811: --dbms_output.put_line('Update_terrtype PUB: OTHERS - ' || SQLERRM);
812: ROLLBACK TO update_terrtype_pub;
813: x_return_status := fnd_api.g_ret_sts_unexp_error;
814:
815: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
816: THEN
817: fnd_msg_pub.add_exc_msg (
837: -- parameters :
838: --
839: -- in:
840: -- p_api_version_number in number required
841: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
842: -- p_commit in varchar2 optional --default = fnd_api.g_false
843: -- p_TerrType_id in number
844: --
845: -- out:
838: --
839: -- in:
840: -- p_api_version_number in number required
841: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
842: -- p_commit in varchar2 optional --default = fnd_api.g_false
843: -- p_TerrType_id in number
844: --
845: -- out:
846: -- p_return_status out varchar2(1)
857: --
858: -- end of comments
859: PROCEDURE delete_terrtype (
860: p_api_version_number IN NUMBER,
861: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
862: p_commit IN VARCHAR2 := fnd_api.g_false,
863: p_terrtype_id IN NUMBER,
864: x_return_status OUT NOCOPY VARCHAR2,
865: x_msg_count OUT NOCOPY NUMBER,
858: -- end of comments
859: PROCEDURE delete_terrtype (
860: p_api_version_number IN NUMBER,
861: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
862: p_commit IN VARCHAR2 := fnd_api.g_false,
863: p_terrtype_id IN NUMBER,
864: x_return_status OUT NOCOPY VARCHAR2,
865: x_msg_count OUT NOCOPY NUMBER,
866: x_msg_data OUT NOCOPY VARCHAR2
875: -- Standard Start of API savepoint
876: SAVEPOINT delete_terrtype_pub;
877:
878: -- Standard call to check for call compatibility.
879: IF NOT fnd_api.compatible_api_call (
880: l_api_version_number,
881: p_api_version_number,
882: l_api_name,
883: g_pkg_name
882: l_api_name,
883: g_pkg_name
884: )
885: THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888:
889: -- Initialize message list if p_init_msg_list is set to TRUE.
890: IF fnd_api.to_boolean (p_init_msg_list)
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888:
889: -- Initialize message list if p_init_msg_list is set to TRUE.
890: IF fnd_api.to_boolean (p_init_msg_list)
891: THEN
892: fnd_msg_pub.initialize;
893: END IF;
894:
900: fnd_msg_pub.add;
901: END IF;
902:
903: -- Initialize API return status to success
904: x_return_status := fnd_api.g_ret_sts_success;
905: --
906: -- API body
907: --
908: --dbms_output.put_line('Delete__terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Delete_TerrType');
917: );
918: x_return_status := l_return_status;
919:
920: --
921: IF l_return_status = fnd_api.g_ret_sts_error
922: THEN
923: RAISE fnd_api.g_exc_error;
924: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
925: THEN
919:
920: --
921: IF l_return_status = fnd_api.g_ret_sts_error
922: THEN
923: RAISE fnd_api.g_exc_error;
924: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
925: THEN
926: RAISE fnd_api.g_exc_unexpected_error;
927: END IF;
920: --
921: IF l_return_status = fnd_api.g_ret_sts_error
922: THEN
923: RAISE fnd_api.g_exc_error;
924: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
925: THEN
926: RAISE fnd_api.g_exc_unexpected_error;
927: END IF;
928:
922: THEN
923: RAISE fnd_api.g_exc_error;
924: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
925: THEN
926: RAISE fnd_api.g_exc_unexpected_error;
927: END IF;
928:
929: -- Standard check of p_commit.
930: IF fnd_api.to_boolean (p_commit)
926: RAISE fnd_api.g_exc_unexpected_error;
927: END IF;
928:
929: -- Standard check of p_commit.
930: IF fnd_api.to_boolean (p_commit)
931: THEN
932: COMMIT WORK;
933: END IF;
934:
943: -- Standard call to get message count and if count is 1, get message info.
944: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
945: --dbms_output.put_line('Delete_terrtype PUB: Exiting API');
946: EXCEPTION
947: WHEN fnd_api.g_exc_error
948: THEN
949: --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_ERROR');
950: ROLLBACK TO delete_terrtype_pub;
951: x_return_status := fnd_api.g_ret_sts_error;
945: --dbms_output.put_line('Delete_terrtype PUB: Exiting API');
946: EXCEPTION
947: WHEN fnd_api.g_exc_error
948: THEN
949: --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_ERROR');
950: ROLLBACK TO delete_terrtype_pub;
951: x_return_status := fnd_api.g_ret_sts_error;
952: fnd_msg_pub.count_and_get (
953: p_count => x_msg_count,
947: WHEN fnd_api.g_exc_error
948: THEN
949: --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_ERROR');
950: ROLLBACK TO delete_terrtype_pub;
951: x_return_status := fnd_api.g_ret_sts_error;
952: fnd_msg_pub.count_and_get (
953: p_count => x_msg_count,
954: p_data => x_msg_data
955: );
952: fnd_msg_pub.count_and_get (
953: p_count => x_msg_count,
954: p_data => x_msg_data
955: );
956: WHEN fnd_api.g_exc_unexpected_error
957: THEN
958: --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
959: ROLLBACK TO delete_terrtype_pub;
960: x_return_status := fnd_api.g_ret_sts_unexp_error;
954: p_data => x_msg_data
955: );
956: WHEN fnd_api.g_exc_unexpected_error
957: THEN
958: --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
959: ROLLBACK TO delete_terrtype_pub;
960: x_return_status := fnd_api.g_ret_sts_unexp_error;
961: fnd_msg_pub.count_and_get (
962: p_count => x_msg_count,
956: WHEN fnd_api.g_exc_unexpected_error
957: THEN
958: --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
959: ROLLBACK TO delete_terrtype_pub;
960: x_return_status := fnd_api.g_ret_sts_unexp_error;
961: fnd_msg_pub.count_and_get (
962: p_count => x_msg_count,
963: p_data => x_msg_data
964: );
965: WHEN OTHERS
966: THEN
967: --dbms_output.put_line('Delete__terrtype PUB: OTHERS - ' || SQLERRM);
968: ROLLBACK TO delete_terrtype_pub;
969: x_return_status := fnd_api.g_ret_sts_unexp_error;
970:
971: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
972: THEN
973: fnd_msg_pub.add_exc_msg (
993: -- parameters :
994: --
995: -- in:
996: -- p_api_version_number in number required
997: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
998: -- p_commit in varchar2 optional --default = fnd_api.g_false
999: -- p_TerrType_id in number
1000: --
1001: -- out:
994: --
995: -- in:
996: -- p_api_version_number in number required
997: -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
998: -- p_commit in varchar2 optional --default = fnd_api.g_false
999: -- p_TerrType_id in number
1000: --
1001: -- out:
1002: -- p_return_status out varchar2(1)
1013: --
1014: -- end of comments
1015: PROCEDURE deactivate_terrtype (
1016: p_api_version_number IN NUMBER,
1017: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1018: p_commit IN VARCHAR2 := fnd_api.g_false,
1019: p_terrtype_id IN NUMBER,
1020: x_return_status OUT NOCOPY VARCHAR2,
1021: x_msg_count OUT NOCOPY NUMBER,
1014: -- end of comments
1015: PROCEDURE deactivate_terrtype (
1016: p_api_version_number IN NUMBER,
1017: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1018: p_commit IN VARCHAR2 := fnd_api.g_false,
1019: p_terrtype_id IN NUMBER,
1020: x_return_status OUT NOCOPY VARCHAR2,
1021: x_msg_count OUT NOCOPY NUMBER,
1022: x_msg_data OUT NOCOPY VARCHAR2
1029: -- Standard Start of API savepoint
1030: SAVEPOINT deactivate_terrtype_pub;
1031:
1032: -- Standard call to check for call compatibility.
1033: IF NOT fnd_api.compatible_api_call (
1034: l_api_version_number,
1035: p_api_version_number,
1036: l_api_name,
1037: g_pkg_name
1036: l_api_name,
1037: g_pkg_name
1038: )
1039: THEN
1040: RAISE fnd_api.g_exc_unexpected_error;
1041: END IF;
1042:
1043: -- Initialize message list if p_init_msg_list is set to TRUE.
1044: IF fnd_api.to_boolean (p_init_msg_list)
1040: RAISE fnd_api.g_exc_unexpected_error;
1041: END IF;
1042:
1043: -- Initialize message list if p_init_msg_list is set to TRUE.
1044: IF fnd_api.to_boolean (p_init_msg_list)
1045: THEN
1046: fnd_msg_pub.initialize;
1047: END IF;
1048:
1054: fnd_msg_pub.add;
1055: END IF;
1056:
1057: -- Initialize API return status to success
1058: x_return_status := fnd_api.g_ret_sts_success;
1059: --
1060: -- API body
1061: --
1062: --dbms_output.put_line('De-Activate_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Deactivate_TerrType');
1071: );
1072: x_return_status := l_return_status;
1073:
1074: --
1075: IF l_return_status = fnd_api.g_ret_sts_error
1076: THEN
1077: RAISE fnd_api.g_exc_error;
1078: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1079: THEN
1073:
1074: --
1075: IF l_return_status = fnd_api.g_ret_sts_error
1076: THEN
1077: RAISE fnd_api.g_exc_error;
1078: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1079: THEN
1080: RAISE fnd_api.g_exc_unexpected_error;
1081: END IF;
1074: --
1075: IF l_return_status = fnd_api.g_ret_sts_error
1076: THEN
1077: RAISE fnd_api.g_exc_error;
1078: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1079: THEN
1080: RAISE fnd_api.g_exc_unexpected_error;
1081: END IF;
1082:
1076: THEN
1077: RAISE fnd_api.g_exc_error;
1078: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1079: THEN
1080: RAISE fnd_api.g_exc_unexpected_error;
1081: END IF;
1082:
1083: -- Standard check of p_commit.
1084: IF fnd_api.to_boolean (p_commit)
1080: RAISE fnd_api.g_exc_unexpected_error;
1081: END IF;
1082:
1083: -- Standard check of p_commit.
1084: IF fnd_api.to_boolean (p_commit)
1085: THEN
1086: COMMIT WORK;
1087: END IF;
1088:
1097: -- Standard call to get message count and if count is 1, get message info.
1098: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1099: --dbms_output.put_line('De-Activate_terrtype PUB: Exiting API');
1100: EXCEPTION
1101: WHEN fnd_api.g_exc_error
1102: THEN
1103: --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_ERROR');
1104: ROLLBACK TO deactivate_terrtype_pub;
1105: x_return_status := fnd_api.g_ret_sts_error;
1099: --dbms_output.put_line('De-Activate_terrtype PUB: Exiting API');
1100: EXCEPTION
1101: WHEN fnd_api.g_exc_error
1102: THEN
1103: --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_ERROR');
1104: ROLLBACK TO deactivate_terrtype_pub;
1105: x_return_status := fnd_api.g_ret_sts_error;
1106: fnd_msg_pub.count_and_get (
1107: p_count => x_msg_count,
1101: WHEN fnd_api.g_exc_error
1102: THEN
1103: --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_ERROR');
1104: ROLLBACK TO deactivate_terrtype_pub;
1105: x_return_status := fnd_api.g_ret_sts_error;
1106: fnd_msg_pub.count_and_get (
1107: p_count => x_msg_count,
1108: p_data => x_msg_data
1109: );
1106: fnd_msg_pub.count_and_get (
1107: p_count => x_msg_count,
1108: p_data => x_msg_data
1109: );
1110: WHEN fnd_api.g_exc_unexpected_error
1111: THEN
1112: --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1113: ROLLBACK TO deactivate_terrtype_pub;
1114: x_return_status := fnd_api.g_ret_sts_unexp_error;
1108: p_data => x_msg_data
1109: );
1110: WHEN fnd_api.g_exc_unexpected_error
1111: THEN
1112: --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1113: ROLLBACK TO deactivate_terrtype_pub;
1114: x_return_status := fnd_api.g_ret_sts_unexp_error;
1115: fnd_msg_pub.count_and_get (
1116: p_count => x_msg_count,
1110: WHEN fnd_api.g_exc_unexpected_error
1111: THEN
1112: --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1113: ROLLBACK TO deactivate_terrtype_pub;
1114: x_return_status := fnd_api.g_ret_sts_unexp_error;
1115: fnd_msg_pub.count_and_get (
1116: p_count => x_msg_count,
1117: p_data => x_msg_data
1118: );
1119: WHEN OTHERS
1120: THEN
1121: --dbms_output.put_line('De-Activate_terrtype PUB: OTHERS - ' || SQLERRM);
1122: ROLLBACK TO deactivate_terrtype_pub;
1123: x_return_status := fnd_api.g_ret_sts_unexp_error;
1124:
1125: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1126: THEN
1127: fnd_msg_pub.add_exc_msg (