49: G_module_name constant varchar2(100):='oracle.apps.ams.plsql.'||g_pkg_name;
50:
51: PROCEDURE master_source_type_view(
52: p_api_version IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
54: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
55: x_return_status OUT NOCOPY VARCHAR2,
56: x_msg_count OUT NOCOPY NUMBER,
57: x_msg_data OUT NOCOPY VARCHAR2,
50:
51: PROCEDURE master_source_type_view(
52: p_api_version IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
54: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
55: x_return_status OUT NOCOPY VARCHAR2,
56: x_msg_count OUT NOCOPY NUMBER,
57: x_msg_data OUT NOCOPY VARCHAR2,
58: p_list_source_type_id IN NUMBER
268:
269:
270: BEGIN
271:
272: IF NOT FND_API.Compatible_API_Call ( l_api_version,
273: p_api_version,
274: l_api_name,
275: G_PKG_NAME)
276: THEN
273: p_api_version,
274: l_api_name,
275: G_PKG_NAME)
276: THEN
277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
278: END IF;
279:
280:
281: -- Initialize message list IF p_init_msg_list is set to TRUE.
278: END IF;
279:
280:
281: -- Initialize message list IF p_init_msg_list is set to TRUE.
282: IF FND_API.to_Boolean( p_init_msg_list ) THEN
283: FND_MSG_PUB.initialize;
284: END IF;
285:
286:
296: FND_MSG_PUB.Add;
297: END IF;
298:
299: -- Initialize API return status to success
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301:
302: IF (AMS_LOG_STATEMENT_ON) THEN
303: AMS_UTILITY_PVT.debug_message(AMS_LOG_STATEMENT,g_module_name||'.'||l_api_name,'Generating the tar views for :'||p_list_source_type_id);
304: END IF;
466: -- Standard call to get message count AND IF count is 1, get message info.
467: FND_MSG_PUB.Count_AND_Get
468: ( p_count => x_msg_count,
469: p_data => x_msg_data,
470: p_encoded => FND_API.G_FALSE
471: );
472:
473: IF (AMS_LOG_PROCEDURE_ON) THEN
474: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,'$$$$$$$$$: END :$$$$$$');
475: END IF;
476:
477: EXCEPTION
478:
479: WHEN FND_API.G_EXC_ERROR THEN
480: IF (AMS_LOG_PROCEDURE_ON) THEN
481: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' execution ERROR has been raised ');
482: END IF;
483:
480: IF (AMS_LOG_PROCEDURE_ON) THEN
481: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' execution ERROR has been raised ');
482: END IF;
483:
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_AND_Get
486: ( p_count => x_msg_count,
487: p_data => x_msg_data,
488: p_encoded => FND_API.G_FALSE
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_AND_Get
486: ( p_count => x_msg_count,
487: p_data => x_msg_data,
488: p_encoded => FND_API.G_FALSE
489: );
490:
491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
492: IF (AMS_LOG_PROCEDURE_ON) THEN
487: p_data => x_msg_data,
488: p_encoded => FND_API.G_FALSE
489: );
490:
491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
492: IF (AMS_LOG_PROCEDURE_ON) THEN
493: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' Unexpected error has been raised ');
494: END IF;
495:
492: IF (AMS_LOG_PROCEDURE_ON) THEN
493: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' Unexpected error has been raised ');
494: END IF;
495:
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
497: FND_MSG_PUB.Count_AND_Get
498: ( p_count => x_msg_count,
499: p_data => x_msg_data,
500: p_encoded => FND_API.G_FALSE
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
497: FND_MSG_PUB.Count_AND_Get
498: ( p_count => x_msg_count,
499: p_data => x_msg_data,
500: p_encoded => FND_API.G_FALSE
501: );
502:
503:
504: WHEN OTHERS THEN
511: IF (AMS_LOG_EXCEPTION_ON) THEN
512: AMS_UTILITY_PVT.debug_message(AMS_LOG_EXCEPTION,g_module_name||'.'||l_api_name,'SQLCODE:' || SQLCODE || ' SQLERRM: ' || SQLERRM);
513: END IF;
514:
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
516: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
517: THEN
518: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
519: END IF;
520:
521: FND_MSG_PUB.Count_AND_Get
522: ( p_count => x_msg_count,
523: p_data => x_msg_data,
524: p_encoded => FND_API.G_FALSE
525: );
526:
527: END master_source_type_view;
528:
527: END master_source_type_view;
528:
529: PROCEDURE update_all_master_views(
530: p_api_version IN NUMBER,
531: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
532: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
533: x_return_status OUT NOCOPY VARCHAR2,
534: x_msg_count OUT NOCOPY NUMBER,
535: x_msg_data OUT NOCOPY VARCHAR2,
528:
529: PROCEDURE update_all_master_views(
530: p_api_version IN NUMBER,
531: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
532: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
533: x_return_status OUT NOCOPY VARCHAR2,
534: x_msg_count OUT NOCOPY NUMBER,
535: x_msg_data OUT NOCOPY VARCHAR2,
536: p_list_source_type_id IN NUMBER
555: l_msg_data VARCHAR2(2000);
556:
557:
558: begin
559: IF NOT FND_API.Compatible_API_Call ( l_api_version,
560: p_api_version,
561: l_api_name,
562: G_PKG_NAME)
563: THEN
560: p_api_version,
561: l_api_name,
562: G_PKG_NAME)
563: THEN
564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
565: END IF;
566:
567:
568: -- Initialize message list IF p_init_msg_list is set to TRUE.
565: END IF;
566:
567:
568: -- Initialize message list IF p_init_msg_list is set to TRUE.
569: IF FND_API.to_Boolean( p_init_msg_list ) THEN
570: FND_MSG_PUB.initialize;
571: END IF;
572:
573: -- Debug Message
581: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,l_full_name||':Start');
582: END IF;
583:
584: -- Initialize API return status to success
585: x_return_status := FND_API.G_RET_STS_SUCCESS;
586: OPEN c_all_master;
587: LOOP
588: FETCH c_all_master into i_master_source_type_id;
589: EXIT when c_all_master%notfound;
587: LOOP
588: FETCH c_all_master into i_master_source_type_id;
589: EXIT when c_all_master%notfound;
590: master_source_type_view(l_api_version,
591: FND_API.G_FALSE,
592: FND_API.G_VALID_LEVEL_FULL,
593: x_return_status,
594: x_msg_count,
595: x_msg_data,
588: FETCH c_all_master into i_master_source_type_id;
589: EXIT when c_all_master%notfound;
590: master_source_type_view(l_api_version,
591: FND_API.G_FALSE,
592: FND_API.G_VALID_LEVEL_FULL,
593: x_return_status,
594: x_msg_count,
595: x_msg_data,
596: i_master_source_type_id);
594: x_msg_count,
595: x_msg_data,
596: i_master_source_type_id);
597:
598: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
599: RAISE FND_API.g_exc_unexpected_error;
600: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
601: RAISE FND_API.g_exc_error;
602: END IF;
595: x_msg_data,
596: i_master_source_type_id);
597:
598: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
599: RAISE FND_API.g_exc_unexpected_error;
600: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
601: RAISE FND_API.g_exc_error;
602: END IF;
603: END LOOP;
596: i_master_source_type_id);
597:
598: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
599: RAISE FND_API.g_exc_unexpected_error;
600: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
601: RAISE FND_API.g_exc_error;
602: END IF;
603: END LOOP;
604: CLOSE c_all_master;
597:
598: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
599: RAISE FND_API.g_exc_unexpected_error;
600: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
601: RAISE FND_API.g_exc_error;
602: END IF;
603: END LOOP;
604: CLOSE c_all_master;
605:
629: -- Standard call to get message count AND IF count is 1, get message info.
630: FND_MSG_PUB.Count_AND_Get
631: ( p_count => x_msg_count,
632: p_data => x_msg_data,
633: p_encoded => FND_API.G_FALSE
634: );
635:
636: EXCEPTION
637:
634: );
635:
636: EXCEPTION
637:
638: WHEN FND_API.G_EXC_ERROR THEN
639: x_return_status := FND_API.G_RET_STS_ERROR ;
640:
641: IF (AMS_LOG_PROCEDURE_ON) THEN
642: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' execution ERROR has been raised ');
635:
636: EXCEPTION
637:
638: WHEN FND_API.G_EXC_ERROR THEN
639: x_return_status := FND_API.G_RET_STS_ERROR ;
640:
641: IF (AMS_LOG_PROCEDURE_ON) THEN
642: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' execution ERROR has been raised ');
643: END IF;
644:
645: FND_MSG_PUB.Count_AND_Get
646: ( p_count => x_msg_count,
647: p_data => x_msg_data,
648: p_encoded => FND_API.G_FALSE
649: );
650: IF c_all_master%ISOPEN THEN
651: CLOSE c_all_master;
652: END IF;
650: IF c_all_master%ISOPEN THEN
651: CLOSE c_all_master;
652: END IF;
653:
654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
655: IF (AMS_LOG_PROCEDURE_ON) THEN
656: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' Unexpected error has been raised ');
657: END IF;
658:
655: IF (AMS_LOG_PROCEDURE_ON) THEN
656: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' Unexpected error has been raised ');
657: END IF;
658:
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
660: FND_MSG_PUB.Count_AND_Get
661: ( p_count => x_msg_count,
662: p_data => x_msg_data,
663: p_encoded => FND_API.G_FALSE
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
660: FND_MSG_PUB.Count_AND_Get
661: ( p_count => x_msg_count,
662: p_data => x_msg_data,
663: p_encoded => FND_API.G_FALSE
664: );
665: IF c_all_master%ISOPEN THEN
666: CLOSE c_all_master;
667: END IF;
676: IF (AMS_LOG_EXCEPTION_ON) THEN
677: AMS_UTILITY_PVT.debug_message(AMS_LOG_EXCEPTION,g_module_name||'.'||l_api_name,'SQLCODE:' || SQLCODE || ' SQLERRM: ' || SQLERRM);
678: END IF;
679:
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
682: THEN
683: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
684: END IF;
689:
690: FND_MSG_PUB.Count_AND_Get
691: ( p_count => x_msg_count,
692: p_data => x_msg_data,
693: p_encoded => FND_API.G_FALSE
694: );
695:
696: end update_all_master_views;
697:
698:
699:
700: PROCEDURE process_views(
701: p_api_version_number IN NUMBER,
702: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
703: p_commit IN VARCHAR2 := FND_API.G_FALSE,
704: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
705:
706: x_return_status OUT NOCOPY VARCHAR2,
699:
700: PROCEDURE process_views(
701: p_api_version_number IN NUMBER,
702: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
703: p_commit IN VARCHAR2 := FND_API.G_FALSE,
704: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
705:
706: x_return_status OUT NOCOPY VARCHAR2,
707: x_msg_count OUT NOCOPY NUMBER,
700: PROCEDURE process_views(
701: p_api_version_number IN NUMBER,
702: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
703: p_commit IN VARCHAR2 := FND_API.G_FALSE,
704: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
705:
706: x_return_status OUT NOCOPY VARCHAR2,
707: x_msg_count OUT NOCOPY NUMBER,
708: x_msg_data OUT NOCOPY VARCHAR2,
725:
726: begin
727:
728:
729: IF NOT FND_API.Compatible_API_Call ( l_api_version,
730: p_api_version_number,
731: l_api_name,
732: G_PKG_NAME)
733: THEN
730: p_api_version_number,
731: l_api_name,
732: G_PKG_NAME)
733: THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736:
737:
738: -- Initialize message list IF p_init_msg_list is set to TRUE.
735: END IF;
736:
737:
738: -- Initialize message list IF p_init_msg_list is set to TRUE.
739: IF FND_API.to_Boolean( p_init_msg_list ) THEN
740: FND_MSG_PUB.initialize;
741: END IF;
742:
743: -- Debug Message
753: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,'Passed in List Source Type Id is:'||p_list_source_type_id);
754: END IF;
755:
756: -- Initialize API return status to success
757: x_return_status := FND_API.G_RET_STS_SUCCESS;
758:
759: OPEN c_source_type;
760: FETCH c_source_type into i_list_source_type, i_master_flag;
761: CLOSE c_source_type;
769: END IF;
770:
771: master_source_type_view(
772: l_api_version,
773: FND_API.G_FALSE,
774: FND_API.G_VALID_LEVEL_FULL,
775: x_return_status,
776: x_msg_count,
777: x_msg_data,
770:
771: master_source_type_view(
772: l_api_version,
773: FND_API.G_FALSE,
774: FND_API.G_VALID_LEVEL_FULL,
775: x_return_status,
776: x_msg_count,
777: x_msg_data,
778: p_list_source_type_id);
783: END IF;
784:
785: update_all_master_views(
786: l_api_version,
787: FND_API.G_FALSE,
788: FND_API.G_VALID_LEVEL_FULL,
789: x_return_status,
790: x_msg_count,
791: x_msg_data,
784:
785: update_all_master_views(
786: l_api_version,
787: FND_API.G_FALSE,
788: FND_API.G_VALID_LEVEL_FULL,
789: x_return_status,
790: x_msg_count,
791: x_msg_data,
792: p_list_source_type_id);
796: IF (AMS_LOG_STATEMENT_ON) THEN
797: AMS_UTILITY_PVT.debug_message(AMS_LOG_STATEMENT,g_module_name||'.'||l_api_name,'Return Status is:'||x_return_status);
798: END IF;
799:
800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
801: THEN
802: AMS_UTILITY_PVT.debug_message('Error Generating the tar views');
803: FND_MESSAGE.set_name('AMS', 'AMS_ERR_LIST_GEN_TAR_VIEW');
804: FND_MSG_PUB.Add;
801: THEN
802: AMS_UTILITY_PVT.debug_message('Error Generating the tar views');
803: FND_MESSAGE.set_name('AMS', 'AMS_ERR_LIST_GEN_TAR_VIEW');
804: FND_MSG_PUB.Add;
805: RAISE FND_API.g_exc_error;
806: END IF;
807:
808: END IF;
809:
845: -- Standard call to get message count AND IF count is 1, get message info.
846: FND_MSG_PUB.Count_AND_Get
847: ( p_count => x_msg_count,
848: p_data => x_msg_data,
849: p_encoded => FND_API.G_FALSE
850: );
851:
852: EXCEPTION
853:
850: );
851:
852: EXCEPTION
853:
854: WHEN FND_API.G_EXC_ERROR THEN
855: IF (AMS_LOG_PROCEDURE_ON) THEN
856: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' execution ERROR has been raised ');
857: END IF;
858:
855: IF (AMS_LOG_PROCEDURE_ON) THEN
856: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' execution ERROR has been raised ');
857: END IF;
858:
859: x_return_status := FND_API.G_RET_STS_ERROR ;
860: FND_MSG_PUB.Count_AND_Get
861: ( p_count => x_msg_count,
862: p_data => x_msg_data,
863: p_encoded => FND_API.G_FALSE
859: x_return_status := FND_API.G_RET_STS_ERROR ;
860: FND_MSG_PUB.Count_AND_Get
861: ( p_count => x_msg_count,
862: p_data => x_msg_data,
863: p_encoded => FND_API.G_FALSE
864: );
865:
866:
867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: p_encoded => FND_API.G_FALSE
864: );
865:
866:
867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
868:
869: IF (AMS_LOG_PROCEDURE_ON) THEN
870: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' Unexpected error has been raised ');
871: END IF;
869: IF (AMS_LOG_PROCEDURE_ON) THEN
870: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' Unexpected error has been raised ');
871: END IF;
872:
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
874: FND_MSG_PUB.Count_AND_Get
875: ( p_count => x_msg_count,
876: p_data => x_msg_data,
877: p_encoded => FND_API.G_FALSE
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
874: FND_MSG_PUB.Count_AND_Get
875: ( p_count => x_msg_count,
876: p_data => x_msg_data,
877: p_encoded => FND_API.G_FALSE
878: );
879:
880: WHEN OTHERS THEN
881:
887: AMS_UTILITY_PVT.debug_message(AMS_LOG_EXCEPTION,g_module_name||'.'||l_api_name,'SQLCODE:' || SQLCODE || ' SQLERRM: ' || SQLERRM);
888: END IF;
889:
890:
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
892: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
893: THEN
894: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
895: END IF;
896:
897: FND_MSG_PUB.Count_AND_Get
898: ( p_count => x_msg_count,
899: p_data => x_msg_data,
900: p_encoded => FND_API.G_FALSE
901: );
902: end process_views;
903:
904: end AMS_LIST_SRC_TYPES_PVT;