62:
63: /*
64: PROCEDURE Do_Recurring (
65: p_api_version_number IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
67: p_commit IN VARCHAR2 := FND_API.G_FALSE,
68: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
69:
70: x_return_status OUT NOCOPY VARCHAR2,
63: /*
64: PROCEDURE Do_Recurring (
65: p_api_version_number IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
67: p_commit IN VARCHAR2 := FND_API.G_FALSE,
68: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
69:
70: x_return_status OUT NOCOPY VARCHAR2,
71: x_msg_count OUT NOCOPY NUMBER,
64: PROCEDURE Do_Recurring (
65: p_api_version_number IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
67: p_commit IN VARCHAR2 := FND_API.G_FALSE,
68: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
69:
70: x_return_status OUT NOCOPY VARCHAR2,
71: x_msg_count OUT NOCOPY NUMBER,
72: x_msg_data OUT NOCOPY VARCHAR2,
106: -- Standard Start of API savepoint
107: --SAVEPOINT Do_Recurring;
108:
109: -- Standard call to check for call compatibility.
110: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
111: p_api_version_number,
112: l_api_name,
113: G_PKG_NAME) THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
111: p_api_version_number,
112: l_api_name,
113: G_PKG_NAME) THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116:
117: -- Initialize API return status to SUCCESS
118: x_return_status := FND_API.G_RET_STS_SUCCESS;
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116:
117: -- Initialize API return status to SUCCESS
118: x_return_status := FND_API.G_RET_STS_SUCCESS;
119:
120: IF (AMS_DEBUG_HIGH_ON) THEN
121:
122:
414: p_msg_data => l_con_program_name || ' schedules fail.',
415: p_msg_type => 'DEBUG'
416: );
417: -- Initialize message list if p_init_msg_list is set to TRUE.
418: IF FND_API.to_Boolean( p_init_msg_list ) THEN
419: FND_MSG_PUB.initialize;
420: END IF;
421: AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
422: RAISE FND_API.g_exc_unexpected_error;
418: IF FND_API.to_Boolean( p_init_msg_list ) THEN
419: FND_MSG_PUB.initialize;
420: END IF;
421: AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
422: RAISE FND_API.g_exc_unexpected_error;
423: END IF;
424:
425: --
426: -- submit request
440: IF (AMS_DEBUG_HIGH_ON) THEN
441: NULL;
442: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 11::l_request_id is 0:: ');
443: END IF;
444: RAISE FND_API.g_exc_unexpected_error;
445: ELSE
446: IF (AMS_DEBUG_HIGH_ON) THEN
447: NULL;
448: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 11::l_request_id is not 0:: ');
457: END IF;
458: END IF;
459: EXCEPTION
460:
461: WHEN FND_API.G_EXC_ERROR THEN
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: FND_MSG_PUB.Count_And_Get (
464: p_encoded => FND_API.G_FALSE,
465: p_count => x_msg_count,
458: END IF;
459: EXCEPTION
460:
461: WHEN FND_API.G_EXC_ERROR THEN
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: FND_MSG_PUB.Count_And_Get (
464: p_encoded => FND_API.G_FALSE,
465: p_count => x_msg_count,
466: p_data => x_msg_data
460:
461: WHEN FND_API.G_EXC_ERROR THEN
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: FND_MSG_PUB.Count_And_Get (
464: p_encoded => FND_API.G_FALSE,
465: p_count => x_msg_count,
466: p_data => x_msg_data
467: );
468:
465: p_count => x_msg_count,
466: p_data => x_msg_data
467: );
468:
469: WHEN FND_API.g_exc_unexpected_error THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: -- Standard call to get message count and if count=1, get the message
473: FND_MSG_PUB.Count_And_Get (
466: p_data => x_msg_data
467: );
468:
469: WHEN FND_API.g_exc_unexpected_error THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: -- Standard call to get message count and if count=1, get the message
473: FND_MSG_PUB.Count_And_Get (
474: p_encoded => FND_API.G_FALSE,
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: -- Standard call to get message count and if count=1, get the message
473: FND_MSG_PUB.Count_And_Get (
474: p_encoded => FND_API.G_FALSE,
475: p_count => x_msg_count,
476: p_data => x_msg_data
477: );
478:
481: IF (AMS_DEBUG_HIGH_ON) THEN
482:
483: AMS_UTILITY_PVT.debug_message('Do_Recurring::The error is:: ' || l_error);
484: END IF;
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
486: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
487: THEN
488: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
489: END IF;
488: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
489: END IF;
490: -- Standard call to get message count and if count=1, get the message
491: FND_MSG_PUB.Count_And_Get (
492: p_encoded => FND_API.G_FALSE,
493: p_count => x_msg_count,
494: p_data => x_msg_data
495: );
496: END Do_Recurring;
498: */
499:
500: PROCEDURE Duplicate_Import_List (
501: p_api_version_number IN NUMBER,
502: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
503: p_commit IN VARCHAR2 := FND_API.G_FALSE,
504: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
505:
506: x_return_status OUT NOCOPY VARCHAR2,
499:
500: PROCEDURE Duplicate_Import_List (
501: p_api_version_number IN NUMBER,
502: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
503: p_commit IN VARCHAR2 := FND_API.G_FALSE,
504: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
505:
506: x_return_status OUT NOCOPY VARCHAR2,
507: x_msg_count OUT NOCOPY NUMBER,
500: PROCEDURE Duplicate_Import_List (
501: p_api_version_number IN NUMBER,
502: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
503: p_commit IN VARCHAR2 := FND_API.G_FALSE,
504: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
505:
506: x_return_status OUT NOCOPY VARCHAR2,
507: x_msg_count OUT NOCOPY NUMBER,
508: x_msg_data OUT NOCOPY VARCHAR2,
617: -- Standard Start of API savepoint
618: SAVEPOINT Duplicate_Import_List;
619:
620: -- Standard call to check for call compatibility.
621: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
622: p_api_version_number,
623: l_api_name,
624: G_PKG_NAME) THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
622: p_api_version_number,
623: l_api_name,
624: G_PKG_NAME) THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627:
628: -- Initialize API return status to SUCCESS
629: x_return_status := FND_API.G_RET_STS_SUCCESS;
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627:
628: -- Initialize API return status to SUCCESS
629: x_return_status := FND_API.G_RET_STS_SUCCESS;
630:
631: OPEN c_list_import_rec (p_import_list_header_id);
632: FETCH c_list_import_rec INTO x_ams_import_rec;
633: CLOSE c_list_import_rec;
663: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after Get_DeEncrypt_String ');
664:
665: Create_Import_List(
666: p_api_version_number => 1.0,
667: p_commit => FND_API.G_TRUE,
668: x_return_status => x_return_status,
669: x_msg_count => x_msg_count,
670: x_msg_data => x_msg_data,
671: p_ams_import_rec => x_ams_import_rec,
685: where import_list_header_id = x_ams_import_rec.import_list_header_id;
686:
687: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after update AMS_IMP_LIST_HEADERS_ALL ');
688:
689: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692:
693: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List 4444444 ');
686:
687: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after update AMS_IMP_LIST_HEADERS_ALL ');
688:
689: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692:
693: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List 4444444 ');
694: OPEN c_get_file_type (p_import_list_header_id);
697:
698: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List 4444444 after c_get_file_type ');
699:
700: -- Standard check for p_commit
701: IF FND_API.to_Boolean( p_commit) THEN
702: COMMIT WORK;
703: END IF;
704:
705: -- Standard call to get message count and if count is 1, get message info.
708: p_data => x_msg_data);
709:
710: EXCEPTION
711: WHEN AMS_Utility_PVT.resource_locked THEN
712: x_return_status := FND_API.g_ret_sts_error;
713: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
714: WHEN FND_API.G_EXC_ERROR THEN
715: ROLLBACK TO Duplicate_Import_List;
716: x_return_status := FND_API.G_RET_STS_ERROR;
710: EXCEPTION
711: WHEN AMS_Utility_PVT.resource_locked THEN
712: x_return_status := FND_API.g_ret_sts_error;
713: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
714: WHEN FND_API.G_EXC_ERROR THEN
715: ROLLBACK TO Duplicate_Import_List;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: -- Standard call to get message count and if count=1, get the message
718: FND_MSG_PUB.Count_And_Get (
712: x_return_status := FND_API.g_ret_sts_error;
713: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
714: WHEN FND_API.G_EXC_ERROR THEN
715: ROLLBACK TO Duplicate_Import_List;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: -- Standard call to get message count and if count=1, get the message
718: FND_MSG_PUB.Count_And_Get (
719: p_encoded => FND_API.G_FALSE,
720: p_count => x_msg_count,
715: ROLLBACK TO Duplicate_Import_List;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: -- Standard call to get message count and if count=1, get the message
718: FND_MSG_PUB.Count_And_Get (
719: p_encoded => FND_API.G_FALSE,
720: p_count => x_msg_count,
721: p_data => x_msg_data
722: );
723:
720: p_count => x_msg_count,
721: p_data => x_msg_data
722: );
723:
724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
725: ROLLBACK TO Duplicate_Import_List;
726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
727: -- Standard call to get message count and if count=1, get the message
728: FND_MSG_PUB.Count_And_Get (
722: );
723:
724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
725: ROLLBACK TO Duplicate_Import_List;
726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
727: -- Standard call to get message count and if count=1, get the message
728: FND_MSG_PUB.Count_And_Get (
729: p_encoded => FND_API.G_FALSE,
730: p_count => x_msg_count,
725: ROLLBACK TO Duplicate_Import_List;
726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
727: -- Standard call to get message count and if count=1, get the message
728: FND_MSG_PUB.Count_And_Get (
729: p_encoded => FND_API.G_FALSE,
730: p_count => x_msg_count,
731: p_data => x_msg_data
732: );
733:
732: );
733:
734: WHEN OTHERS THEN
735: ROLLBACK TO Duplicate_Import_List;
736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
737: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
738: THEN
739: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
740: END IF;
739: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
740: END IF;
741: -- Standard call to get message count and if count=1, get the message
742: FND_MSG_PUB.Count_And_Get (
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data
746: );
747: END Duplicate_Import_List;
749:
750: -- Hint: Primary key needs to be returned.
751: PROCEDURE Create_Import_List(
752: p_api_version_number IN NUMBER,
753: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
754: p_commit IN VARCHAR2 := FND_API.G_FALSE,
755: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
756:
757: x_return_status OUT NOCOPY VARCHAR2,
750: -- Hint: Primary key needs to be returned.
751: PROCEDURE Create_Import_List(
752: p_api_version_number IN NUMBER,
753: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
754: p_commit IN VARCHAR2 := FND_API.G_FALSE,
755: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
756:
757: x_return_status OUT NOCOPY VARCHAR2,
758: x_msg_count OUT NOCOPY NUMBER,
751: PROCEDURE Create_Import_List(
752: p_api_version_number IN NUMBER,
753: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
754: p_commit IN VARCHAR2 := FND_API.G_FALSE,
755: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
756:
757: x_return_status OUT NOCOPY VARCHAR2,
758: x_msg_count OUT NOCOPY NUMBER,
759: x_msg_data OUT NOCOPY VARCHAR2,
766: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Import_List';
767: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
768: l_return_status_full VARCHAR2(1);
769: l_object_version_number NUMBER := 1;
770: l_org_id NUMBER := FND_API.G_MISS_NUM;
771: l_IMPORT_LIST_HEADER_ID NUMBER;
772: l_dummy NUMBER;
773: l_country NUMBER;
774: l_terminated_by VARCHAR2(30) := p_ams_import_rec.terminated_by;
772: l_dummy NUMBER;
773: l_country NUMBER;
774: l_terminated_by VARCHAR2(30) := p_ams_import_rec.terminated_by;
775: l_enclosed_by VARCHAR2(30) := p_ams_import_rec.enclosed_by;
776: l_batch_id NUMBER := FND_API.G_MISS_NUM;
777:
778: l_encrpted_password VARCHAR2 (2000);
779:
780: CURSOR c_id IS
813:
814:
815: -- Standard call to check for call compatibility.
816:
817: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
818: p_api_version_number,
819: l_api_name,
820: G_PKG_NAME)
821: THEN
818: p_api_version_number,
819: l_api_name,
820: G_PKG_NAME)
821: THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824:
825:
826: -- Initialize message list if p_init_msg_list is set to TRUE.
823: END IF;
824:
825:
826: -- Initialize message list if p_init_msg_list is set to TRUE.
827: IF FND_API.to_Boolean( p_init_msg_list )
828: THEN
829: FND_MSG_PUB.initialize;
830: END IF;
831:
836: END IF;
837:
838:
839: -- Initialize API return status to SUCCESS
840: x_return_status := FND_API.G_RET_STS_SUCCESS;
841:
842: -- Local variable initialization
843: OPEN c_get_status_id('AMS_IMPORT_STATUS', 'NEW', 'Y');
844: FETCH c_get_status_id INTO l_user_status_id;
843: OPEN c_get_status_id('AMS_IMPORT_STATUS', 'NEW', 'Y');
844: FETCH c_get_status_id INTO l_user_status_id;
845: CLOSE c_get_status_id;
846:
847: IF p_ams_import_rec.IMPORT_LIST_HEADER_ID IS NULL OR p_ams_import_rec.IMPORT_LIST_HEADER_ID = FND_API.g_miss_num THEN
848: LOOP
849: l_dummy := NULL;
850: OPEN c_id;
851: FETCH c_id INTO l_IMPORT_LIST_HEADER_ID;
896: END IF;
897: -- The record is already there, call update API.
898: Update_Import_List(
899: p_api_version_number => 1.0,
900: p_init_msg_list => FND_API.G_FALSE,
901: p_commit => FND_API.G_FALSE,
902: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
903: x_return_status => x_return_status,
904: x_msg_count => x_msg_count,
897: -- The record is already there, call update API.
898: Update_Import_List(
899: p_api_version_number => 1.0,
900: p_init_msg_list => FND_API.G_FALSE,
901: p_commit => FND_API.G_FALSE,
902: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
903: x_return_status => x_return_status,
904: x_msg_count => x_msg_count,
905: x_msg_data => x_msg_data,
898: Update_Import_List(
899: p_api_version_number => 1.0,
900: p_init_msg_list => FND_API.G_FALSE,
901: p_commit => FND_API.G_FALSE,
902: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
903: x_return_status => x_return_status,
904: x_msg_count => x_msg_count,
905: x_msg_data => x_msg_data,
906: p_ams_import_rec => l_ams_import_rec,
912: END IF;
913:
914: -- initialize any default values
915:
916: IF p_ams_import_rec.country IS NULL OR p_ams_import_rec.country = FND_API.g_miss_num THEN
917: l_country := FND_PROFILE.value ('AMS_SRCGEN_USER_CITY');
918: END IF;
919:
920:
939:
940: IF FND_GLOBAL.User_Id IS NULL
941: THEN
942: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: IF (AMS_DEBUG_HIGH_ON) THEN
946:
947: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
946:
947: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
948: END IF;
949:
950: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
951: THEN
952: -- Debug message
953: IF (AMS_DEBUG_HIGH_ON) THEN
954:
957:
958: -- Invoke validation procedures
959: Validate_import_list(
960: p_api_version_number => 1.0,
961: p_init_msg_list => FND_API.G_FALSE,
962: p_validation_level => p_validation_level,
963: p_ams_import_rec => p_ams_import_rec,
964: x_return_status => x_return_status,
965: x_msg_count => x_msg_count,
966: x_msg_data => x_msg_data);
967:
968: END IF;
969:
970: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
971: RAISE FND_API.G_EXC_ERROR;
972: END IF;
973: /*
974: -- translate single quote to the real one for terminated by
967:
968: END IF;
969:
970: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
971: RAISE FND_API.G_EXC_ERROR;
972: END IF;
973: /*
974: -- translate single quote to the real one for terminated by
975: IF (p_ams_import_rec.terminated_by = 'SINGLEQUOTE') AND
1109: p_parent_imp_header_id => p_ams_import_rec.parent_imp_header_id,
1110: p_record_update_flag => p_ams_import_rec.record_update_flag,
1111: p_error_threshold => p_ams_import_rec.error_threshold,
1112: p_charset => p_ams_import_rec.charset);
1113: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1114: RAISE FND_API.G_EXC_ERROR;
1115: END IF;
1116: x_import_list_header_id:=l_import_list_header_id;
1117:
1110: p_record_update_flag => p_ams_import_rec.record_update_flag,
1111: p_error_threshold => p_ams_import_rec.error_threshold,
1112: p_charset => p_ams_import_rec.charset);
1113: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1114: RAISE FND_API.G_EXC_ERROR;
1115: END IF;
1116: x_import_list_header_id:=l_import_list_header_id;
1117:
1118: IF l_encrpted_password IS NOT NULL AND LENGTH(l_encrpted_password) > 0 THEN
1128: -- End of API body
1129: --
1130:
1131: -- Standard check for p_commit
1132: IF FND_API.to_Boolean( p_commit )
1133: THEN
1134: COMMIT WORK;
1135: END IF;
1136:
1148: );
1149: EXCEPTION
1150:
1151: WHEN AMS_Utility_PVT.resource_locked THEN
1152: x_return_status := FND_API.g_ret_sts_error;
1153: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1154:
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: ROLLBACK TO CREATE_Import_List_PVT;
1151: WHEN AMS_Utility_PVT.resource_locked THEN
1152: x_return_status := FND_API.g_ret_sts_error;
1153: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1154:
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: ROLLBACK TO CREATE_Import_List_PVT;
1157: x_return_status := FND_API.G_RET_STS_ERROR;
1158: -- Standard call to get message count and if count=1, get the message
1159: FND_MSG_PUB.Count_And_Get (
1153: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1154:
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: ROLLBACK TO CREATE_Import_List_PVT;
1157: x_return_status := FND_API.G_RET_STS_ERROR;
1158: -- Standard call to get message count and if count=1, get the message
1159: FND_MSG_PUB.Count_And_Get (
1160: p_encoded => FND_API.G_FALSE,
1161: p_count => x_msg_count,
1156: ROLLBACK TO CREATE_Import_List_PVT;
1157: x_return_status := FND_API.G_RET_STS_ERROR;
1158: -- Standard call to get message count and if count=1, get the message
1159: FND_MSG_PUB.Count_And_Get (
1160: p_encoded => FND_API.G_FALSE,
1161: p_count => x_msg_count,
1162: p_data => x_msg_data
1163: );
1164:
1161: p_count => x_msg_count,
1162: p_data => x_msg_data
1163: );
1164:
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: ROLLBACK TO CREATE_Import_List_PVT;
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: -- Standard call to get message count and if count=1, get the message
1169: FND_MSG_PUB.Count_And_Get (
1163: );
1164:
1165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: ROLLBACK TO CREATE_Import_List_PVT;
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: -- Standard call to get message count and if count=1, get the message
1169: FND_MSG_PUB.Count_And_Get (
1170: p_encoded => FND_API.G_FALSE,
1171: p_count => x_msg_count,
1166: ROLLBACK TO CREATE_Import_List_PVT;
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: -- Standard call to get message count and if count=1, get the message
1169: FND_MSG_PUB.Count_And_Get (
1170: p_encoded => FND_API.G_FALSE,
1171: p_count => x_msg_count,
1172: p_data => x_msg_data
1173: );
1174:
1173: );
1174:
1175: WHEN OTHERS THEN
1176: ROLLBACK TO CREATE_Import_List_PVT;
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1179: THEN
1180: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1181: END IF;
1180: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1181: END IF;
1182: -- Standard call to get message count and if count=1, get the message
1183: FND_MSG_PUB.Count_And_Get (
1184: p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1186: p_data => x_msg_data
1187: );
1188: End Create_Import_List;
1189:
1190:
1191: PROCEDURE Update_Import_List(
1192: p_api_version_number IN NUMBER,
1193: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1194: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1195: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1196:
1197: x_return_status OUT NOCOPY VARCHAR2,
1190:
1191: PROCEDURE Update_Import_List(
1192: p_api_version_number IN NUMBER,
1193: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1194: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1195: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1196:
1197: x_return_status OUT NOCOPY VARCHAR2,
1198: x_msg_count OUT NOCOPY NUMBER,
1191: PROCEDURE Update_Import_List(
1192: p_api_version_number IN NUMBER,
1193: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1194: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1195: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1196:
1197: x_return_status OUT NOCOPY VARCHAR2,
1198: x_msg_count OUT NOCOPY NUMBER,
1199: x_msg_data OUT NOCOPY VARCHAR2,
1223: -- Standard Start of API savepoint
1224: SAVEPOINT UPDATE_Import_List_PVT;
1225:
1226: -- Standard call to check for call compatibility.
1227: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1228: p_api_version_number,
1229: l_api_name,
1230: G_PKG_NAME)
1231: THEN
1228: p_api_version_number,
1229: l_api_name,
1230: G_PKG_NAME)
1231: THEN
1232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1233: END IF;
1234:
1235: -- Initialize message list if p_init_msg_list is set to TRUE.
1236: IF FND_API.to_Boolean( p_init_msg_list )
1232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1233: END IF;
1234:
1235: -- Initialize message list if p_init_msg_list is set to TRUE.
1236: IF FND_API.to_Boolean( p_init_msg_list )
1237: THEN
1238: FND_MSG_PUB.initialize;
1239: END IF;
1240:
1245: END IF;
1246:
1247:
1248: -- Initialize API return status to SUCCESS
1249: x_return_status := FND_API.G_RET_STS_SUCCESS;
1250:
1251: -- Debug Message
1252: IF (AMS_DEBUG_HIGH_ON) THEN
1253:
1262: If ( c_get_Import_List%NOTFOUND) THEN
1263: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
1264: p_token_name => 'INFO',
1265: p_token_value => 'Import_List') ;
1266: RAISE FND_API.G_EXC_ERROR;
1267: END IF;
1268: -- Debug Message
1269: IF (AMS_DEBUG_HIGH_ON) THEN
1270:
1274: */
1275:
1276:
1277: If (l_tar_ams_import_rec.object_version_number is NULL or
1278: l_tar_ams_import_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1279: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1280: p_token_name => 'COLUMN',
1281: p_token_value => 'Last_Update_Date') ;
1282: raise FND_API.G_EXC_ERROR;
1278: l_tar_ams_import_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1279: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1280: p_token_name => 'COLUMN',
1281: p_token_value => 'Last_Update_Date') ;
1282: raise FND_API.G_EXC_ERROR;
1283: End if;
1284: -- Check Whether record has been changed by someone else
1285: If (l_tar_ams_import_rec.object_version_number <> l_ref_ams_import_rec.object_version_number) Then
1286: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1285: If (l_tar_ams_import_rec.object_version_number <> l_ref_ams_import_rec.object_version_number) Then
1286: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1287: p_token_name => 'INFO',
1288: p_token_value => 'Import_List') ;
1289: raise FND_API.G_EXC_ERROR;
1290: End if;
1291: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1292: THEN
1293: -- Debug message
1287: p_token_name => 'INFO',
1288: p_token_value => 'Import_List') ;
1289: raise FND_API.G_EXC_ERROR;
1290: End if;
1291: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1292: THEN
1293: -- Debug message
1294: IF (AMS_DEBUG_HIGH_ON) THEN
1295:
1298:
1299: -- Invoke validation procedures
1300: Validate_import_list(
1301: p_api_version_number => 1.0,
1302: p_init_msg_list => FND_API.G_FALSE,
1303: p_validation_level => p_validation_level,
1304: p_ams_import_rec => p_ams_import_rec,
1305: x_return_status => x_return_status,
1306: x_msg_count => x_msg_count,
1305: x_return_status => x_return_status,
1306: x_msg_count => x_msg_count,
1307: x_msg_data => x_msg_data);
1308: END IF;
1309: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312:
1313:
1306: x_msg_count => x_msg_count,
1307: x_msg_data => x_msg_data);
1308: END IF;
1309: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312:
1313:
1314: -- Debug Message
1391: -- End of API body.
1392: --
1393:
1394: -- Standard check for p_commit
1395: IF FND_API.to_Boolean( p_commit )
1396: THEN
1397: COMMIT WORK;
1398: END IF;
1399:
1411: );
1412: EXCEPTION
1413:
1414: WHEN AMS_Utility_PVT.resource_locked THEN
1415: x_return_status := FND_API.g_ret_sts_error;
1416: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1417:
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: ROLLBACK TO UPDATE_Import_List_PVT;
1414: WHEN AMS_Utility_PVT.resource_locked THEN
1415: x_return_status := FND_API.g_ret_sts_error;
1416: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1417:
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: ROLLBACK TO UPDATE_Import_List_PVT;
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: -- Standard call to get message count and if count=1, get the message
1422: FND_MSG_PUB.Count_And_Get (
1416: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1417:
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: ROLLBACK TO UPDATE_Import_List_PVT;
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: -- Standard call to get message count and if count=1, get the message
1422: FND_MSG_PUB.Count_And_Get (
1423: p_encoded => FND_API.G_FALSE,
1424: p_count => x_msg_count,
1419: ROLLBACK TO UPDATE_Import_List_PVT;
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: -- Standard call to get message count and if count=1, get the message
1422: FND_MSG_PUB.Count_And_Get (
1423: p_encoded => FND_API.G_FALSE,
1424: p_count => x_msg_count,
1425: p_data => x_msg_data
1426: );
1427:
1424: p_count => x_msg_count,
1425: p_data => x_msg_data
1426: );
1427:
1428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1429: ROLLBACK TO UPDATE_Import_List_PVT;
1430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1431: -- Standard call to get message count and if count=1, get the message
1432: FND_MSG_PUB.Count_And_Get (
1426: );
1427:
1428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1429: ROLLBACK TO UPDATE_Import_List_PVT;
1430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1431: -- Standard call to get message count and if count=1, get the message
1432: FND_MSG_PUB.Count_And_Get (
1433: p_encoded => FND_API.G_FALSE,
1434: p_count => x_msg_count,
1429: ROLLBACK TO UPDATE_Import_List_PVT;
1430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1431: -- Standard call to get message count and if count=1, get the message
1432: FND_MSG_PUB.Count_And_Get (
1433: p_encoded => FND_API.G_FALSE,
1434: p_count => x_msg_count,
1435: p_data => x_msg_data
1436: );
1437:
1436: );
1437:
1438: WHEN OTHERS THEN
1439: ROLLBACK TO UPDATE_Import_List_PVT;
1440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1441: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1442: THEN
1443: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1444: END IF;
1443: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1444: END IF;
1445: -- Standard call to get message count and if count=1, get the message
1446: FND_MSG_PUB.Count_And_Get (
1447: p_encoded => FND_API.G_FALSE,
1448: p_count => x_msg_count,
1449: p_data => x_msg_data
1450: );
1451: End Update_Import_List;
1452:
1453:
1454: PROCEDURE Delete_Import_List(
1455: p_api_version_number IN NUMBER,
1456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1457: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1458: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1459: x_return_status OUT NOCOPY VARCHAR2,
1460: x_msg_count OUT NOCOPY NUMBER,
1453:
1454: PROCEDURE Delete_Import_List(
1455: p_api_version_number IN NUMBER,
1456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1457: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1458: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1459: x_return_status OUT NOCOPY VARCHAR2,
1460: x_msg_count OUT NOCOPY NUMBER,
1461: x_msg_data OUT NOCOPY VARCHAR2,
1454: PROCEDURE Delete_Import_List(
1455: p_api_version_number IN NUMBER,
1456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1457: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1458: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1459: x_return_status OUT NOCOPY VARCHAR2,
1460: x_msg_count OUT NOCOPY NUMBER,
1461: x_msg_data OUT NOCOPY VARCHAR2,
1462: p_import_list_header_id IN NUMBER,
1472: -- Standard Start of API savepoint
1473: SAVEPOINT DELETE_Import_List_PVT;
1474:
1475: -- Standard call to check for call compatibility.
1476: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1477: p_api_version_number,
1478: l_api_name,
1479: G_PKG_NAME)
1480: THEN
1477: p_api_version_number,
1478: l_api_name,
1479: G_PKG_NAME)
1480: THEN
1481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1482: END IF;
1483:
1484: -- Initialize message list if p_init_msg_list is set to TRUE.
1485: IF FND_API.to_Boolean( p_init_msg_list )
1481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1482: END IF;
1483:
1484: -- Initialize message list if p_init_msg_list is set to TRUE.
1485: IF FND_API.to_Boolean( p_init_msg_list )
1486: THEN
1487: FND_MSG_PUB.initialize;
1488: END IF;
1489:
1494: END IF;
1495:
1496:
1497: -- Initialize API return status to SUCCESS
1498: x_return_status := FND_API.G_RET_STS_SUCCESS;
1499:
1500: --
1501: -- Api body
1502: --
1513: -- End of API body
1514: --
1515:
1516: -- Standard check for p_commit
1517: IF FND_API.to_Boolean( p_commit )
1518: THEN
1519: COMMIT WORK;
1520: END IF;
1521:
1533: );
1534: EXCEPTION
1535:
1536: WHEN AMS_Utility_PVT.resource_locked THEN
1537: x_return_status := FND_API.g_ret_sts_error;
1538: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1539:
1540: WHEN FND_API.G_EXC_ERROR THEN
1541: ROLLBACK TO DELETE_Import_List_PVT;
1536: WHEN AMS_Utility_PVT.resource_locked THEN
1537: x_return_status := FND_API.g_ret_sts_error;
1538: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1539:
1540: WHEN FND_API.G_EXC_ERROR THEN
1541: ROLLBACK TO DELETE_Import_List_PVT;
1542: x_return_status := FND_API.G_RET_STS_ERROR;
1543: -- Standard call to get message count and if count=1, get the message
1544: FND_MSG_PUB.Count_And_Get (
1538: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1539:
1540: WHEN FND_API.G_EXC_ERROR THEN
1541: ROLLBACK TO DELETE_Import_List_PVT;
1542: x_return_status := FND_API.G_RET_STS_ERROR;
1543: -- Standard call to get message count and if count=1, get the message
1544: FND_MSG_PUB.Count_And_Get (
1545: p_encoded => FND_API.G_FALSE,
1546: p_count => x_msg_count,
1541: ROLLBACK TO DELETE_Import_List_PVT;
1542: x_return_status := FND_API.G_RET_STS_ERROR;
1543: -- Standard call to get message count and if count=1, get the message
1544: FND_MSG_PUB.Count_And_Get (
1545: p_encoded => FND_API.G_FALSE,
1546: p_count => x_msg_count,
1547: p_data => x_msg_data
1548: );
1549:
1546: p_count => x_msg_count,
1547: p_data => x_msg_data
1548: );
1549:
1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1551: ROLLBACK TO DELETE_Import_List_PVT;
1552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1553: -- Standard call to get message count and if count=1, get the message
1554: FND_MSG_PUB.Count_And_Get (
1548: );
1549:
1550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1551: ROLLBACK TO DELETE_Import_List_PVT;
1552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1553: -- Standard call to get message count and if count=1, get the message
1554: FND_MSG_PUB.Count_And_Get (
1555: p_encoded => FND_API.G_FALSE,
1556: p_count => x_msg_count,
1551: ROLLBACK TO DELETE_Import_List_PVT;
1552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1553: -- Standard call to get message count and if count=1, get the message
1554: FND_MSG_PUB.Count_And_Get (
1555: p_encoded => FND_API.G_FALSE,
1556: p_count => x_msg_count,
1557: p_data => x_msg_data
1558: );
1559:
1558: );
1559:
1560: WHEN OTHERS THEN
1561: ROLLBACK TO DELETE_Import_List_PVT;
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1563: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1564: THEN
1565: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1566: END IF;
1565: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1566: END IF;
1567: -- Standard call to get message count and if count=1, get the message
1568: FND_MSG_PUB.Count_And_Get (
1569: p_encoded => FND_API.G_FALSE,
1570: p_count => x_msg_count,
1571: p_data => x_msg_data
1572: );
1573: End Delete_Import_List;
1576:
1577: -- Hint: Primary key needs to be returned.
1578: PROCEDURE Lock_Import_List(
1579: p_api_version_number IN NUMBER,
1580: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1581:
1582: x_return_status OUT NOCOPY VARCHAR2,
1583: x_msg_count OUT NOCOPY NUMBER,
1584: x_msg_data OUT NOCOPY VARCHAR2,
1608: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1609: END IF;
1610:
1611: -- Initialize message list if p_init_msg_list is set to TRUE.
1612: IF FND_API.to_Boolean( p_init_msg_list )
1613: THEN
1614: FND_MSG_PUB.initialize;
1615: END IF;
1616:
1614: FND_MSG_PUB.initialize;
1615: END IF;
1616:
1617: -- Standard call to check for call compatibility.
1618: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1619: p_api_version_number,
1620: l_api_name,
1621: G_PKG_NAME)
1622: THEN
1619: p_api_version_number,
1620: l_api_name,
1621: G_PKG_NAME)
1622: THEN
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1626:
1627: -- Initialize API return status to SUCCESS
1624: END IF;
1625:
1626:
1627: -- Initialize API return status to SUCCESS
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1629:
1630:
1631: ------------------------ lock -------------------------
1632:
1646: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1647: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1648: FND_MSG_PUB.add;
1649: END IF;
1650: RAISE FND_API.g_exc_error;
1651: END IF;
1652:
1653: CLOSE c_Import_List;
1654:
1653: CLOSE c_Import_List;
1654:
1655: -------------------- finish --------------------------
1656: FND_MSG_PUB.count_and_get(
1657: p_encoded => FND_API.g_false,
1658: p_count => x_msg_count,
1659: p_data => x_msg_data);
1660: IF (AMS_DEBUG_HIGH_ON) THEN
1661:
1663: END IF;
1664: EXCEPTION
1665:
1666: WHEN AMS_Utility_PVT.resource_locked THEN
1667: x_return_status := FND_API.g_ret_sts_error;
1668: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1669:
1670: WHEN FND_API.G_EXC_ERROR THEN
1671: ROLLBACK TO LOCK_Import_List_PVT;
1666: WHEN AMS_Utility_PVT.resource_locked THEN
1667: x_return_status := FND_API.g_ret_sts_error;
1668: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1669:
1670: WHEN FND_API.G_EXC_ERROR THEN
1671: ROLLBACK TO LOCK_Import_List_PVT;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: -- Standard call to get message count and if count=1, get the message
1674: FND_MSG_PUB.Count_And_Get (
1668: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1669:
1670: WHEN FND_API.G_EXC_ERROR THEN
1671: ROLLBACK TO LOCK_Import_List_PVT;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: -- Standard call to get message count and if count=1, get the message
1674: FND_MSG_PUB.Count_And_Get (
1675: p_encoded => FND_API.G_FALSE,
1676: p_count => x_msg_count,
1671: ROLLBACK TO LOCK_Import_List_PVT;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: -- Standard call to get message count and if count=1, get the message
1674: FND_MSG_PUB.Count_And_Get (
1675: p_encoded => FND_API.G_FALSE,
1676: p_count => x_msg_count,
1677: p_data => x_msg_data
1678: );
1679:
1676: p_count => x_msg_count,
1677: p_data => x_msg_data
1678: );
1679:
1680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1681: ROLLBACK TO LOCK_Import_List_PVT;
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: -- Standard call to get message count and if count=1, get the message
1684: FND_MSG_PUB.Count_And_Get (
1678: );
1679:
1680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1681: ROLLBACK TO LOCK_Import_List_PVT;
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: -- Standard call to get message count and if count=1, get the message
1684: FND_MSG_PUB.Count_And_Get (
1685: p_encoded => FND_API.G_FALSE,
1686: p_count => x_msg_count,
1681: ROLLBACK TO LOCK_Import_List_PVT;
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: -- Standard call to get message count and if count=1, get the message
1684: FND_MSG_PUB.Count_And_Get (
1685: p_encoded => FND_API.G_FALSE,
1686: p_count => x_msg_count,
1687: p_data => x_msg_data
1688: );
1689:
1688: );
1689:
1690: WHEN OTHERS THEN
1691: ROLLBACK TO LOCK_Import_List_PVT;
1692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1693: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1694: THEN
1695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1696: END IF;
1695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1696: END IF;
1697: -- Standard call to get message count and if count=1, get the message
1698: FND_MSG_PUB.Count_And_Get (
1699: p_encoded => FND_API.G_FALSE,
1700: p_count => x_msg_count,
1701: p_data => x_msg_data
1702: );
1703: End Lock_Import_List;
1711: l_valid_flag VARCHAR2(1);
1712:
1713:
1714: BEGIN
1715: x_return_status := FND_API.g_ret_sts_success;
1716: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1717: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1718: 'AMS_IMP_LIST_HEADERS_ALL',
1719: 'IMPORT_LIST_HEADER_ID = ''' || p_ams_import_rec.IMPORT_LIST_HEADER_ID ||''''
1725: ''' AND IMPORT_LIST_HEADER_ID <> ' || p_ams_import_rec.IMPORT_LIST_HEADER_ID
1726: );
1727: END IF;
1728:
1729: IF l_valid_flag = FND_API.g_false THEN
1730: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMPORT_LIST_HEADER_ID_DUPLICATE');
1731: x_return_status := FND_API.g_ret_sts_error;
1732: RETURN;
1733: END IF;
1727: END IF;
1728:
1729: IF l_valid_flag = FND_API.g_false THEN
1730: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMPORT_LIST_HEADER_ID_DUPLICATE');
1731: x_return_status := FND_API.g_ret_sts_error;
1732: RETURN;
1733: END IF;
1734:
1735:
1743: x_return_status OUT NOCOPY VARCHAR2
1744: )
1745: IS
1746: BEGIN
1747: x_return_status := FND_API.g_ret_sts_success;
1748:
1749: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1750:
1751:
1748:
1749: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1750:
1751:
1752: IF p_ams_import_rec.import_list_header_id = FND_API.g_miss_num OR p_ams_import_rec.import_list_header_id IS NULL THEN
1753: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_list_header_id');
1754: x_return_status := FND_API.g_ret_sts_error;
1755: RETURN;
1756: END IF;
1750:
1751:
1752: IF p_ams_import_rec.import_list_header_id = FND_API.g_miss_num OR p_ams_import_rec.import_list_header_id IS NULL THEN
1753: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_list_header_id');
1754: x_return_status := FND_API.g_ret_sts_error;
1755: RETURN;
1756: END IF;
1757:
1758:
1755: RETURN;
1756: END IF;
1757:
1758:
1759: IF p_ams_import_rec.last_update_date = FND_API.g_miss_date OR p_ams_import_rec.last_update_date IS NULL THEN
1760: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_update_date');
1761: x_return_status := FND_API.g_ret_sts_error;
1762: RETURN;
1763: END IF;
1757:
1758:
1759: IF p_ams_import_rec.last_update_date = FND_API.g_miss_date OR p_ams_import_rec.last_update_date IS NULL THEN
1760: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_update_date');
1761: x_return_status := FND_API.g_ret_sts_error;
1762: RETURN;
1763: END IF;
1764:
1765:
1762: RETURN;
1763: END IF;
1764:
1765:
1766: IF p_ams_import_rec.last_updated_by = FND_API.g_miss_num OR p_ams_import_rec.last_updated_by IS NULL THEN
1767: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_updated_by');
1768: x_return_status := FND_API.g_ret_sts_error;
1769: RETURN;
1770: END IF;
1764:
1765:
1766: IF p_ams_import_rec.last_updated_by = FND_API.g_miss_num OR p_ams_import_rec.last_updated_by IS NULL THEN
1767: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_updated_by');
1768: x_return_status := FND_API.g_ret_sts_error;
1769: RETURN;
1770: END IF;
1771:
1772:
1769: RETURN;
1770: END IF;
1771:
1772:
1773: IF p_ams_import_rec.creation_date = FND_API.g_miss_date OR p_ams_import_rec.creation_date IS NULL THEN
1774: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_creation_date');
1775: x_return_status := FND_API.g_ret_sts_error;
1776: RETURN;
1777: END IF;
1771:
1772:
1773: IF p_ams_import_rec.creation_date = FND_API.g_miss_date OR p_ams_import_rec.creation_date IS NULL THEN
1774: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_creation_date');
1775: x_return_status := FND_API.g_ret_sts_error;
1776: RETURN;
1777: END IF;
1778:
1779:
1776: RETURN;
1777: END IF;
1778:
1779:
1780: IF p_ams_import_rec.created_by = FND_API.g_miss_num OR p_ams_import_rec.created_by IS NULL THEN
1781: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_created_by');
1782: x_return_status := FND_API.g_ret_sts_error;
1783: RETURN;
1784: END IF;
1778:
1779:
1780: IF p_ams_import_rec.created_by = FND_API.g_miss_num OR p_ams_import_rec.created_by IS NULL THEN
1781: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_created_by');
1782: x_return_status := FND_API.g_ret_sts_error;
1783: RETURN;
1784: END IF;
1785:
1786:
1783: RETURN;
1784: END IF;
1785:
1786:
1787: IF p_ams_import_rec.view_application_id = FND_API.g_miss_num OR p_ams_import_rec.view_application_id IS NULL THEN
1788: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_view_application_id');
1789: x_return_status := FND_API.g_ret_sts_error;
1790: RETURN;
1791: END IF;
1785:
1786:
1787: IF p_ams_import_rec.view_application_id = FND_API.g_miss_num OR p_ams_import_rec.view_application_id IS NULL THEN
1788: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_view_application_id');
1789: x_return_status := FND_API.g_ret_sts_error;
1790: RETURN;
1791: END IF;
1792:
1793:
1790: RETURN;
1791: END IF;
1792:
1793:
1794: IF p_ams_import_rec.name = FND_API.g_miss_char OR p_ams_import_rec.name IS NULL THEN
1795: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
1796: x_return_status := FND_API.g_ret_sts_error;
1797: RETURN;
1798: END IF;
1792:
1793:
1794: IF p_ams_import_rec.name = FND_API.g_miss_char OR p_ams_import_rec.name IS NULL THEN
1795: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
1796: x_return_status := FND_API.g_ret_sts_error;
1797: RETURN;
1798: END IF;
1799:
1800:
1797: RETURN;
1798: END IF;
1799:
1800:
1801: IF p_ams_import_rec.version = FND_API.g_miss_char OR p_ams_import_rec.version IS NULL THEN
1802: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_version');
1803: x_return_status := FND_API.g_ret_sts_error;
1804: RETURN;
1805: END IF;
1799:
1800:
1801: IF p_ams_import_rec.version = FND_API.g_miss_char OR p_ams_import_rec.version IS NULL THEN
1802: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_version');
1803: x_return_status := FND_API.g_ret_sts_error;
1804: RETURN;
1805: END IF;
1806:
1807:
1804: RETURN;
1805: END IF;
1806:
1807:
1808: IF p_ams_import_rec.import_type = FND_API.g_miss_char OR p_ams_import_rec.import_type IS NULL THEN
1809: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_type');
1810: x_return_status := FND_API.g_ret_sts_error;
1811: RETURN;
1812: END IF;
1806:
1807:
1808: IF p_ams_import_rec.import_type = FND_API.g_miss_char OR p_ams_import_rec.import_type IS NULL THEN
1809: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_type');
1810: x_return_status := FND_API.g_ret_sts_error;
1811: RETURN;
1812: END IF;
1813:
1814:
1811: RETURN;
1812: END IF;
1813:
1814:
1815: IF p_ams_import_rec.owner_user_id = FND_API.g_miss_num OR p_ams_import_rec.owner_user_id IS NULL THEN
1816: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_owner_user_id');
1817: x_return_status := FND_API.g_ret_sts_error;
1818: RETURN;
1819: END IF;
1813:
1814:
1815: IF p_ams_import_rec.owner_user_id = FND_API.g_miss_num OR p_ams_import_rec.owner_user_id IS NULL THEN
1816: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_owner_user_id');
1817: x_return_status := FND_API.g_ret_sts_error;
1818: RETURN;
1819: END IF;
1820:
1821:
1818: RETURN;
1819: END IF;
1820:
1821:
1822: IF p_ams_import_rec.status_code = FND_API.g_miss_char OR p_ams_import_rec.status_code IS NULL THEN
1823: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_code');
1824: x_return_status := FND_API.g_ret_sts_error;
1825: RETURN;
1826: END IF;
1820:
1821:
1822: IF p_ams_import_rec.status_code = FND_API.g_miss_char OR p_ams_import_rec.status_code IS NULL THEN
1823: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_code');
1824: x_return_status := FND_API.g_ret_sts_error;
1825: RETURN;
1826: END IF;
1827:
1828:
1825: RETURN;
1826: END IF;
1827:
1828:
1829: IF p_ams_import_rec.status_date = FND_API.g_miss_date OR p_ams_import_rec.status_date IS NULL THEN
1830: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_date');
1831: x_return_status := FND_API.g_ret_sts_error;
1832: RETURN;
1833: END IF;
1827:
1828:
1829: IF p_ams_import_rec.status_date = FND_API.g_miss_date OR p_ams_import_rec.status_date IS NULL THEN
1830: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_date');
1831: x_return_status := FND_API.g_ret_sts_error;
1832: RETURN;
1833: END IF;
1834:
1835:
1832: RETURN;
1833: END IF;
1834:
1835:
1836: IF p_ams_import_rec.user_status_id = FND_API.g_miss_num OR p_ams_import_rec.user_status_id IS NULL THEN
1837: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_user_status_id');
1838: x_return_status := FND_API.g_ret_sts_error;
1839: RETURN;
1840: END IF;
1834:
1835:
1836: IF p_ams_import_rec.user_status_id = FND_API.g_miss_num OR p_ams_import_rec.user_status_id IS NULL THEN
1837: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_user_status_id');
1838: x_return_status := FND_API.g_ret_sts_error;
1839: RETURN;
1840: END IF;
1841:
1842:
1841:
1842:
1843: IF p_ams_import_rec.import_list_header_id IS NULL THEN
1844: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_list_header_id');
1845: x_return_status := FND_API.g_ret_sts_error;
1846: RETURN;
1847: END IF;
1848:
1849:
1848:
1849:
1850: IF p_ams_import_rec.last_update_date IS NULL THEN
1851: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_update_date');
1852: x_return_status := FND_API.g_ret_sts_error;
1853: RETURN;
1854: END IF;
1855:
1856:
1855:
1856:
1857: IF p_ams_import_rec.last_updated_by IS NULL THEN
1858: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_updated_by');
1859: x_return_status := FND_API.g_ret_sts_error;
1860: RETURN;
1861: END IF;
1862:
1863:
1862:
1863:
1864: IF p_ams_import_rec.creation_date IS NULL THEN
1865: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_creation_date');
1866: x_return_status := FND_API.g_ret_sts_error;
1867: RETURN;
1868: END IF;
1869:
1870:
1869:
1870:
1871: IF p_ams_import_rec.created_by IS NULL THEN
1872: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_created_by');
1873: x_return_status := FND_API.g_ret_sts_error;
1874: RETURN;
1875: END IF;
1876:
1877:
1876:
1877:
1878: IF p_ams_import_rec.view_application_id IS NULL THEN
1879: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_view_application_id');
1880: x_return_status := FND_API.g_ret_sts_error;
1881: RETURN;
1882: END IF;
1883:
1884:
1883:
1884:
1885: IF p_ams_import_rec.name IS NULL THEN
1886: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
1887: x_return_status := FND_API.g_ret_sts_error;
1888: RETURN;
1889: END IF;
1890:
1891:
1890:
1891:
1892: IF p_ams_import_rec.version IS NULL THEN
1893: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_version');
1894: x_return_status := FND_API.g_ret_sts_error;
1895: RETURN;
1896: END IF;
1897:
1898:
1897:
1898:
1899: IF p_ams_import_rec.import_type IS NULL THEN
1900: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_type');
1901: x_return_status := FND_API.g_ret_sts_error;
1902: RETURN;
1903: END IF;
1904:
1905:
1904:
1905:
1906: IF p_ams_import_rec.owner_user_id IS NULL THEN
1907: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_owner_user_id');
1908: x_return_status := FND_API.g_ret_sts_error;
1909: RETURN;
1910: END IF;
1911:
1912:
1911:
1912:
1913: IF p_ams_import_rec.status_code IS NULL THEN
1914: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_code');
1915: x_return_status := FND_API.g_ret_sts_error;
1916: RETURN;
1917: END IF;
1918:
1919:
1918:
1919:
1920: IF p_ams_import_rec.status_date IS NULL THEN
1921: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_date');
1922: x_return_status := FND_API.g_ret_sts_error;
1923: RETURN;
1924: END IF;
1925:
1926:
1925:
1926:
1927: IF p_ams_import_rec.user_status_id IS NULL THEN
1928: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_user_status_id');
1929: x_return_status := FND_API.g_ret_sts_error;
1930: RETURN;
1931: END IF;
1932: END IF;
1933:
1938: x_return_status OUT NOCOPY VARCHAR2
1939: )
1940: IS
1941: BEGIN
1942: x_return_status := FND_API.g_ret_sts_success;
1943:
1944: -- Enter custom code here
1945:
1946: END check_ams_import_FK_items;
1950: x_return_status OUT NOCOPY VARCHAR2
1951: )
1952: IS
1953: BEGIN
1954: x_return_status := FND_API.g_ret_sts_success;
1955:
1956: -- Enter custom code here
1957:
1958: END check_ams_import_Lookup_items;
1976: l_import_name_rec c_get_import_list_name%ROWTYPE;
1977:
1978: BEGIN
1979:
1980: x_return_status := FND_API.g_ret_sts_success;
1981: IF p_ams_import_rec.server_flag = 'Y'
1982: THEN
1983: if fnd_profile.value('AMS_IMP_CTL_PATH') is NULL then
1984: FND_MESSAGE.set_name('AMS', 'AMS_IMP_CTL_PATH');
1982: THEN
1983: if fnd_profile.value('AMS_IMP_CTL_PATH') is NULL then
1984: FND_MESSAGE.set_name('AMS', 'AMS_IMP_CTL_PATH');
1985: FND_MSG_PUB.Add;
1986: x_return_status := FND_API.g_ret_sts_error;
1987: RETURN;
1988: end if;
1989:
1990: if fnd_profile.value('AMS_IMP_DATA_PATH') is NULL then
1989:
1990: if fnd_profile.value('AMS_IMP_DATA_PATH') is NULL then
1991: FND_MESSAGE.set_name('AMS', 'AMS_IMP_DATA_PATH');
1992: FND_MSG_PUB.Add;
1993: x_return_status := FND_API.g_ret_sts_error;
1994: RETURN;
1995: end if;
1996: END IF;
1997:
1998: IF p_validation_mode = JTF_PLSQL_API.g_update
1999: THEN
2000: --Exp date and Usage validation only applied to Rented lists
2001: IF (p_ams_import_rec.rented_list_flag = 'R') and
2002: (p_ams_import_rec.expiry_date <> FND_API.g_miss_date) and
2003: (p_ams_import_rec.expiry_date < SYSDATE)
2004: THEN
2005: --AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
2006: FND_MESSAGE.set_name('AMS', 'AMS_IMP_EXP_DATE');
2004: THEN
2005: --AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
2006: FND_MESSAGE.set_name('AMS', 'AMS_IMP_EXP_DATE');
2007: FND_MSG_PUB.Add;
2008: x_return_status := FND_API.g_ret_sts_error;
2009: RETURN;
2010: END IF;
2011:
2012: -- Rented list must enter exp date and/or usage
2011:
2012: -- Rented list must enter exp date and/or usage
2013: IF (p_ams_import_rec.rented_list_flag = 'R') AND
2014: ((p_ams_import_rec.usage is NULL AND p_ams_import_rec.expiry_date is NULL) OR
2015: (p_ams_import_rec.usage = FND_API.g_miss_num AND p_ams_import_rec.expiry_date = FND_API.g_miss_date))
2016: THEN
2017: FND_MESSAGE.set_name('AMS', 'AMS_IMP_RENTED_LIST');
2018: FND_MSG_PUB.Add;
2019: x_return_status := FND_API.g_ret_sts_error;
2015: (p_ams_import_rec.usage = FND_API.g_miss_num AND p_ams_import_rec.expiry_date = FND_API.g_miss_date))
2016: THEN
2017: FND_MESSAGE.set_name('AMS', 'AMS_IMP_RENTED_LIST');
2018: FND_MSG_PUB.Add;
2019: x_return_status := FND_API.g_ret_sts_error;
2020: RETURN;
2021: END IF;
2022: END IF;
2023:
2026: -- NOFOUND means create mode
2027: IF (c_get_Import_List%NOTFOUND)
2028: THEN
2029:
2030: IF (p_ams_import_rec.data_filename = FND_API.g_miss_char) OR
2031: (p_ams_import_rec.data_filename is NULL)
2032: THEN
2033: FND_MESSAGE.set_name('AMS', 'API_MISS_DATA_FILENAME');
2034: FND_MSG_PUB.Add;
2031: (p_ams_import_rec.data_filename is NULL)
2032: THEN
2033: FND_MESSAGE.set_name('AMS', 'API_MISS_DATA_FILENAME');
2034: FND_MSG_PUB.Add;
2035: x_return_status := FND_API.g_ret_sts_error;
2036: close c_get_Import_list;
2037: RETURN;
2038: END IF;
2039:
2040: IF (p_ams_import_rec.terminated_by = p_ams_import_rec.enclosed_by)
2041: THEN
2042: FND_MESSAGE.set_name('AMS', 'API_SAME_TERMIN_ENCLOSED');
2043: FND_MSG_PUB.Add;
2044: x_return_status := FND_API.g_ret_sts_error;
2045: close c_get_Import_list;
2046: RETURN;
2047: END IF;
2048:
2053: THEN
2054: --AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMPORT_NAME_DUPLICATE');
2055: FND_MESSAGE.set_name('AMS', 'AMS_IMPORT_NAME_DUPLICATE');
2056: FND_MSG_PUB.Add;
2057: x_return_status := FND_API.g_ret_sts_error;
2058: close c_get_Import_list_name;
2059: RETURN;
2060: END IF;
2061:
2080: check_ams_import_uk_items(
2081: p_ams_import_rec => p_ams_import_rec,
2082: p_validation_mode => p_validation_mode,
2083: x_return_status => x_return_status);
2084: IF x_return_status <> FND_API.g_ret_sts_success THEN
2085: RETURN;
2086: END IF;
2087:
2088: -- Check Items Required/NOT NULL API calls
2094: check_ams_import_req_items(
2095: p_ams_import_rec => p_ams_import_rec,
2096: p_validation_mode => p_validation_mode,
2097: x_return_status => x_return_status);
2098: IF x_return_status <> FND_API.g_ret_sts_success THEN
2099: RETURN;
2100: END IF;
2101: -- Check Items Foreign Keys API calls
2102: IF (AMS_DEBUG_HIGH_ON) THEN
2106:
2107: check_ams_import_FK_items(
2108: p_ams_import_rec => p_ams_import_rec,
2109: x_return_status => x_return_status);
2110: IF x_return_status <> FND_API.g_ret_sts_success THEN
2111: RETURN;
2112: END IF;
2113: -- Check Items Lookups
2114: IF (AMS_DEBUG_HIGH_ON) THEN
2118:
2119: check_ams_import_Lookup_items(
2120: p_ams_import_rec => p_ams_import_rec,
2121: x_return_status => x_return_status);
2122: IF x_return_status <> FND_API.g_ret_sts_success THEN
2123: RETURN;
2124: END IF;
2125: IF (AMS_DEBUG_HIGH_ON) THEN
2126:
2137: check_ams_import_Business(
2138: p_ams_import_rec => p_ams_import_rec,
2139: p_validation_mode => p_validation_mode,
2140: x_return_status => x_return_status);
2141: IF x_return_status <> FND_API.g_ret_sts_success THEN
2142: RETURN;
2143: END IF;
2144: IF (AMS_DEBUG_HIGH_ON) THEN
2145:
2178: FETCH c_complete INTO l_ams_import_rec;
2179: CLOSE c_complete;
2180:
2181: -- import_list_header_id
2182: IF p_ams_import_rec.import_list_header_id = FND_API.g_miss_num THEN
2183: x_complete_rec.import_list_header_id := l_ams_import_rec.import_list_header_id;
2184: END IF;
2185:
2186: -- last_update_date
2183: x_complete_rec.import_list_header_id := l_ams_import_rec.import_list_header_id;
2184: END IF;
2185:
2186: -- last_update_date
2187: IF p_ams_import_rec.last_update_date = FND_API.g_miss_date THEN
2188: x_complete_rec.last_update_date := l_ams_import_rec.last_update_date;
2189: END IF;
2190:
2191: -- last_updated_by
2188: x_complete_rec.last_update_date := l_ams_import_rec.last_update_date;
2189: END IF;
2190:
2191: -- last_updated_by
2192: IF p_ams_import_rec.last_updated_by = FND_API.g_miss_num THEN
2193: x_complete_rec.last_updated_by := l_ams_import_rec.last_updated_by;
2194: END IF;
2195:
2196: -- creation_date
2193: x_complete_rec.last_updated_by := l_ams_import_rec.last_updated_by;
2194: END IF;
2195:
2196: -- creation_date
2197: IF p_ams_import_rec.creation_date = FND_API.g_miss_date THEN
2198: x_complete_rec.creation_date := l_ams_import_rec.creation_date;
2199: END IF;
2200:
2201: -- created_by
2198: x_complete_rec.creation_date := l_ams_import_rec.creation_date;
2199: END IF;
2200:
2201: -- created_by
2202: IF p_ams_import_rec.created_by = FND_API.g_miss_num THEN
2203: x_complete_rec.created_by := l_ams_import_rec.created_by;
2204: END IF;
2205:
2206: -- last_update_login
2203: x_complete_rec.created_by := l_ams_import_rec.created_by;
2204: END IF;
2205:
2206: -- last_update_login
2207: IF p_ams_import_rec.last_update_login = FND_API.g_miss_num THEN
2208: x_complete_rec.last_update_login := l_ams_import_rec.last_update_login;
2209: END IF;
2210:
2211: -- object_version_number
2208: x_complete_rec.last_update_login := l_ams_import_rec.last_update_login;
2209: END IF;
2210:
2211: -- object_version_number
2212: IF p_ams_import_rec.object_version_number = FND_API.g_miss_num THEN
2213: x_complete_rec.object_version_number := l_ams_import_rec.object_version_number;
2214: END IF;
2215:
2216: -- view_application_id
2213: x_complete_rec.object_version_number := l_ams_import_rec.object_version_number;
2214: END IF;
2215:
2216: -- view_application_id
2217: IF p_ams_import_rec.view_application_id = FND_API.g_miss_num THEN
2218: x_complete_rec.view_application_id := l_ams_import_rec.view_application_id;
2219: END IF;
2220:
2221: -- name
2218: x_complete_rec.view_application_id := l_ams_import_rec.view_application_id;
2219: END IF;
2220:
2221: -- name
2222: IF p_ams_import_rec.name = FND_API.g_miss_char THEN
2223: x_complete_rec.name := l_ams_import_rec.name;
2224: END IF;
2225:
2226: -- version
2223: x_complete_rec.name := l_ams_import_rec.name;
2224: END IF;
2225:
2226: -- version
2227: IF p_ams_import_rec.version = FND_API.g_miss_char THEN
2228: x_complete_rec.version := '1.0';--l_ams_import_rec.version;
2229: END IF;
2230:
2231: -- import_type
2228: x_complete_rec.version := '1.0';--l_ams_import_rec.version;
2229: END IF;
2230:
2231: -- import_type
2232: IF p_ams_import_rec.import_type = FND_API.g_miss_char THEN
2233: x_complete_rec.import_type := l_ams_import_rec.import_type;
2234: END IF;
2235:
2236: -- owner_user_id
2233: x_complete_rec.import_type := l_ams_import_rec.import_type;
2234: END IF;
2235:
2236: -- owner_user_id
2237: IF p_ams_import_rec.owner_user_id = FND_API.g_miss_num THEN
2238: x_complete_rec.owner_user_id := l_ams_import_rec.owner_user_id;
2239: END IF;
2240:
2241: -- list_source_type_id
2238: x_complete_rec.owner_user_id := l_ams_import_rec.owner_user_id;
2239: END IF;
2240:
2241: -- list_source_type_id
2242: IF p_ams_import_rec.list_source_type_id = FND_API.g_miss_num THEN
2243: x_complete_rec.list_source_type_id := l_ams_import_rec.list_source_type_id;
2244: END IF;
2245:
2246: -- status_code
2243: x_complete_rec.list_source_type_id := l_ams_import_rec.list_source_type_id;
2244: END IF;
2245:
2246: -- status_code
2247: IF p_ams_import_rec.status_code = FND_API.g_miss_char THEN
2248: x_complete_rec.status_code := 'NEW';--l_ams_import_rec.status_code;
2249: END IF;
2250:
2251: -- status_date
2248: x_complete_rec.status_code := 'NEW';--l_ams_import_rec.status_code;
2249: END IF;
2250:
2251: -- status_date
2252: IF p_ams_import_rec.status_date = FND_API.g_miss_date THEN
2253: x_complete_rec.status_date := sysdate;--l_ams_import_rec.status_date;
2254: END IF;
2255:
2256: -- user_status_id
2253: x_complete_rec.status_date := sysdate;--l_ams_import_rec.status_date;
2254: END IF;
2255:
2256: -- user_status_id
2257: IF p_ams_import_rec.user_status_id = FND_API.g_miss_num THEN
2258: x_complete_rec.user_status_id := l_user_status_id;--3001;--l_ams_import_rec.user_status_id;
2259: END IF;
2260:
2261: -- source_system
2258: x_complete_rec.user_status_id := l_user_status_id;--3001;--l_ams_import_rec.user_status_id;
2259: END IF;
2260:
2261: -- source_system
2262: IF p_ams_import_rec.source_system = FND_API.g_miss_char THEN
2263: x_complete_rec.source_system := l_ams_import_rec.source_system;
2264: END IF;
2265:
2266: -- vendor_id
2263: x_complete_rec.source_system := l_ams_import_rec.source_system;
2264: END IF;
2265:
2266: -- vendor_id
2267: IF p_ams_import_rec.vendor_id = FND_API.g_miss_num THEN
2268: x_complete_rec.vendor_id := l_ams_import_rec.vendor_id;
2269: END IF;
2270:
2271: -- pin_id
2268: x_complete_rec.vendor_id := l_ams_import_rec.vendor_id;
2269: END IF;
2270:
2271: -- pin_id
2272: IF p_ams_import_rec.pin_id = FND_API.g_miss_num THEN
2273: x_complete_rec.pin_id := l_ams_import_rec.pin_id;
2274: END IF;
2275:
2276: -- org_id
2273: x_complete_rec.pin_id := l_ams_import_rec.pin_id;
2274: END IF;
2275:
2276: -- org_id
2277: IF p_ams_import_rec.org_id = FND_API.g_miss_num THEN
2278: x_complete_rec.org_id := l_ams_import_rec.org_id;
2279: END IF;
2280:
2281: -- scheduled_time
2278: x_complete_rec.org_id := l_ams_import_rec.org_id;
2279: END IF;
2280:
2281: -- scheduled_time
2282: IF p_ams_import_rec.scheduled_time = FND_API.g_miss_date THEN
2283: x_complete_rec.scheduled_time := l_ams_import_rec.scheduled_time;
2284: END IF;
2285:
2286: -- loaded_no_of_rows
2283: x_complete_rec.scheduled_time := l_ams_import_rec.scheduled_time;
2284: END IF;
2285:
2286: -- loaded_no_of_rows
2287: IF p_ams_import_rec.loaded_no_of_rows = FND_API.g_miss_num THEN
2288: x_complete_rec.loaded_no_of_rows := l_ams_import_rec.loaded_no_of_rows;
2289: END IF;
2290:
2291: -- loaded_date
2288: x_complete_rec.loaded_no_of_rows := l_ams_import_rec.loaded_no_of_rows;
2289: END IF;
2290:
2291: -- loaded_date
2292: IF p_ams_import_rec.loaded_date = FND_API.g_miss_date THEN
2293: x_complete_rec.loaded_date := l_ams_import_rec.loaded_date;
2294: END IF;
2295:
2296: -- rows_to_skip
2293: x_complete_rec.loaded_date := l_ams_import_rec.loaded_date;
2294: END IF;
2295:
2296: -- rows_to_skip
2297: IF p_ams_import_rec.rows_to_skip = FND_API.g_miss_num THEN
2298: x_complete_rec.rows_to_skip := l_ams_import_rec.rows_to_skip;
2299: END IF;
2300:
2301: -- processed_rows
2298: x_complete_rec.rows_to_skip := l_ams_import_rec.rows_to_skip;
2299: END IF;
2300:
2301: -- processed_rows
2302: IF p_ams_import_rec.processed_rows = FND_API.g_miss_num THEN
2303: x_complete_rec.processed_rows := l_ams_import_rec.processed_rows;
2304: END IF;
2305:
2306: -- headings_flag
2303: x_complete_rec.processed_rows := l_ams_import_rec.processed_rows;
2304: END IF;
2305:
2306: -- headings_flag
2307: IF p_ams_import_rec.headings_flag = FND_API.g_miss_char THEN
2308: x_complete_rec.headings_flag := l_ams_import_rec.headings_flag;
2309: END IF;
2310:
2311: -- expiry_date
2308: x_complete_rec.headings_flag := l_ams_import_rec.headings_flag;
2309: END IF;
2310:
2311: -- expiry_date
2312: IF p_ams_import_rec.expiry_date = FND_API.g_miss_date THEN
2313: x_complete_rec.expiry_date := l_ams_import_rec.expiry_date;
2314: END IF;
2315:
2316:
2314: END IF;
2315:
2316:
2317: -- purge_date
2318: IF p_ams_import_rec.purge_date = FND_API.g_miss_date THEN
2319: x_complete_rec.purge_date := l_ams_import_rec.purge_date;
2320: END IF;
2321:
2322: -- description
2319: x_complete_rec.purge_date := l_ams_import_rec.purge_date;
2320: END IF;
2321:
2322: -- description
2323: IF p_ams_import_rec.description = FND_API.g_miss_char THEN
2324: x_complete_rec.description := l_ams_import_rec.description;
2325: END IF;
2326:
2327: -- keywords
2324: x_complete_rec.description := l_ams_import_rec.description;
2325: END IF;
2326:
2327: -- keywords
2328: IF p_ams_import_rec.keywords = FND_API.g_miss_char THEN
2329: x_complete_rec.keywords := l_ams_import_rec.keywords;
2330: END IF;
2331:
2332: -- transactional_cost
2329: x_complete_rec.keywords := l_ams_import_rec.keywords;
2330: END IF;
2331:
2332: -- transactional_cost
2333: IF p_ams_import_rec.transactional_cost = FND_API.g_miss_num THEN
2334: x_complete_rec.transactional_cost := l_ams_import_rec.transactional_cost;
2335: END IF;
2336:
2337: -- transactional_currency_code
2334: x_complete_rec.transactional_cost := l_ams_import_rec.transactional_cost;
2335: END IF;
2336:
2337: -- transactional_currency_code
2338: IF p_ams_import_rec.transactional_currency_code = FND_API.g_miss_char THEN
2339: x_complete_rec.transactional_currency_code := l_ams_import_rec.transactional_currency_code;
2340: END IF;
2341:
2342: -- functional_cost
2339: x_complete_rec.transactional_currency_code := l_ams_import_rec.transactional_currency_code;
2340: END IF;
2341:
2342: -- functional_cost
2343: IF p_ams_import_rec.functional_cost = FND_API.g_miss_num THEN
2344: x_complete_rec.functional_cost := l_ams_import_rec.functional_cost;
2345: END IF;
2346:
2347: -- functional_currency_code
2344: x_complete_rec.functional_cost := l_ams_import_rec.functional_cost;
2345: END IF;
2346:
2347: -- functional_currency_code
2348: IF p_ams_import_rec.functional_currency_code = FND_API.g_miss_char THEN
2349: x_complete_rec.functional_currency_code := l_ams_import_rec.functional_currency_code;
2350: END IF;
2351:
2352: -- terminated_by
2349: x_complete_rec.functional_currency_code := l_ams_import_rec.functional_currency_code;
2350: END IF;
2351:
2352: -- terminated_by
2353: IF p_ams_import_rec.terminated_by = FND_API.g_miss_char THEN
2354: x_complete_rec.terminated_by := l_ams_import_rec.terminated_by;
2355: END IF;
2356:
2357: -- enclosed_by
2354: x_complete_rec.terminated_by := l_ams_import_rec.terminated_by;
2355: END IF;
2356:
2357: -- enclosed_by
2358: IF p_ams_import_rec.enclosed_by = FND_API.g_miss_char THEN
2359: x_complete_rec.enclosed_by := l_ams_import_rec.enclosed_by;
2360: END IF;
2361:
2362: -- data_filename
2359: x_complete_rec.enclosed_by := l_ams_import_rec.enclosed_by;
2360: END IF;
2361:
2362: -- data_filename
2363: IF p_ams_import_rec.data_filename = FND_API.g_miss_char THEN
2364: x_complete_rec.data_filename := l_ams_import_rec.data_filename;
2365: END IF;
2366:
2367: -- process_immed_flag
2364: x_complete_rec.data_filename := l_ams_import_rec.data_filename;
2365: END IF;
2366:
2367: -- process_immed_flag
2368: IF p_ams_import_rec.process_immed_flag = FND_API.g_miss_char THEN
2369: x_complete_rec.process_immed_flag := l_ams_import_rec.process_immed_flag;
2370: END IF;
2371:
2372: -- dedupe_flag
2369: x_complete_rec.process_immed_flag := l_ams_import_rec.process_immed_flag;
2370: END IF;
2371:
2372: -- dedupe_flag
2373: IF p_ams_import_rec.dedupe_flag = FND_API.g_miss_char THEN
2374: x_complete_rec.dedupe_flag := l_ams_import_rec.dedupe_flag;
2375: END IF;
2376:
2377: -- attribute_category
2374: x_complete_rec.dedupe_flag := l_ams_import_rec.dedupe_flag;
2375: END IF;
2376:
2377: -- attribute_category
2378: IF p_ams_import_rec.attribute_category = FND_API.g_miss_char THEN
2379: x_complete_rec.attribute_category := l_ams_import_rec.attribute_category;
2380: END IF;
2381:
2382: -- attribute1
2379: x_complete_rec.attribute_category := l_ams_import_rec.attribute_category;
2380: END IF;
2381:
2382: -- attribute1
2383: IF p_ams_import_rec.attribute1 = FND_API.g_miss_char THEN
2384: x_complete_rec.attribute1 := l_ams_import_rec.attribute1;
2385: END IF;
2386:
2387: -- attribute2
2384: x_complete_rec.attribute1 := l_ams_import_rec.attribute1;
2385: END IF;
2386:
2387: -- attribute2
2388: IF p_ams_import_rec.attribute2 = FND_API.g_miss_char THEN
2389: x_complete_rec.attribute2 := l_ams_import_rec.attribute2;
2390: END IF;
2391:
2392: -- attribute3
2389: x_complete_rec.attribute2 := l_ams_import_rec.attribute2;
2390: END IF;
2391:
2392: -- attribute3
2393: IF p_ams_import_rec.attribute3 = FND_API.g_miss_char THEN
2394: x_complete_rec.attribute3 := l_ams_import_rec.attribute3;
2395: END IF;
2396:
2397: -- attribute4
2394: x_complete_rec.attribute3 := l_ams_import_rec.attribute3;
2395: END IF;
2396:
2397: -- attribute4
2398: IF p_ams_import_rec.attribute4 = FND_API.g_miss_char THEN
2399: x_complete_rec.attribute4 := l_ams_import_rec.attribute4;
2400: END IF;
2401:
2402: -- attribute5
2399: x_complete_rec.attribute4 := l_ams_import_rec.attribute4;
2400: END IF;
2401:
2402: -- attribute5
2403: IF p_ams_import_rec.attribute5 = FND_API.g_miss_char THEN
2404: x_complete_rec.attribute5 := l_ams_import_rec.attribute5;
2405: END IF;
2406:
2407: -- attribute6
2404: x_complete_rec.attribute5 := l_ams_import_rec.attribute5;
2405: END IF;
2406:
2407: -- attribute6
2408: IF p_ams_import_rec.attribute6 = FND_API.g_miss_char THEN
2409: x_complete_rec.attribute6 := l_ams_import_rec.attribute6;
2410: END IF;
2411:
2412: -- attribute7
2409: x_complete_rec.attribute6 := l_ams_import_rec.attribute6;
2410: END IF;
2411:
2412: -- attribute7
2413: IF p_ams_import_rec.attribute7 = FND_API.g_miss_char THEN
2414: x_complete_rec.attribute7 := l_ams_import_rec.attribute7;
2415: END IF;
2416:
2417: -- attribute8
2414: x_complete_rec.attribute7 := l_ams_import_rec.attribute7;
2415: END IF;
2416:
2417: -- attribute8
2418: IF p_ams_import_rec.attribute8 = FND_API.g_miss_char THEN
2419: x_complete_rec.attribute8 := l_ams_import_rec.attribute8;
2420: END IF;
2421:
2422: -- attribute9
2419: x_complete_rec.attribute8 := l_ams_import_rec.attribute8;
2420: END IF;
2421:
2422: -- attribute9
2423: IF p_ams_import_rec.attribute9 = FND_API.g_miss_char THEN
2424: x_complete_rec.attribute9 := l_ams_import_rec.attribute9;
2425: END IF;
2426:
2427: -- attribute10
2424: x_complete_rec.attribute9 := l_ams_import_rec.attribute9;
2425: END IF;
2426:
2427: -- attribute10
2428: IF p_ams_import_rec.attribute10 = FND_API.g_miss_char THEN
2429: x_complete_rec.attribute10 := l_ams_import_rec.attribute10;
2430: END IF;
2431:
2432: -- attribute11
2429: x_complete_rec.attribute10 := l_ams_import_rec.attribute10;
2430: END IF;
2431:
2432: -- attribute11
2433: IF p_ams_import_rec.attribute11 = FND_API.g_miss_char THEN
2434: x_complete_rec.attribute11 := l_ams_import_rec.attribute11;
2435: END IF;
2436:
2437: -- attribute12
2434: x_complete_rec.attribute11 := l_ams_import_rec.attribute11;
2435: END IF;
2436:
2437: -- attribute12
2438: IF p_ams_import_rec.attribute12 = FND_API.g_miss_char THEN
2439: x_complete_rec.attribute12 := l_ams_import_rec.attribute12;
2440: END IF;
2441:
2442: -- attribute13
2439: x_complete_rec.attribute12 := l_ams_import_rec.attribute12;
2440: END IF;
2441:
2442: -- attribute13
2443: IF p_ams_import_rec.attribute13 = FND_API.g_miss_char THEN
2444: x_complete_rec.attribute13 := l_ams_import_rec.attribute13;
2445: END IF;
2446:
2447: -- attribute14
2444: x_complete_rec.attribute13 := l_ams_import_rec.attribute13;
2445: END IF;
2446:
2447: -- attribute14
2448: IF p_ams_import_rec.attribute14 = FND_API.g_miss_char THEN
2449: x_complete_rec.attribute14 := l_ams_import_rec.attribute14;
2450: END IF;
2451:
2452: -- attribute15
2449: x_complete_rec.attribute14 := l_ams_import_rec.attribute14;
2450: END IF;
2451:
2452: -- attribute15
2453: IF p_ams_import_rec.attribute15 = FND_API.g_miss_char THEN
2454: x_complete_rec.attribute15 := l_ams_import_rec.attribute15;
2455: END IF;
2456:
2457:
2455: END IF;
2456:
2457:
2458: -- custom_setup_id
2459: IF p_ams_import_rec.custom_setup_id = FND_API.g_miss_num THEN
2460: x_complete_rec.custom_setup_id := l_ams_import_rec.custom_setup_id;
2461: END IF;
2462:
2463: -- country
2460: x_complete_rec.custom_setup_id := l_ams_import_rec.custom_setup_id;
2461: END IF;
2462:
2463: -- country
2464: IF p_ams_import_rec.country = FND_API.g_miss_num THEN
2465: x_complete_rec.country := l_ams_import_rec.country;
2466: END IF;
2467:
2468: -- usage
2465: x_complete_rec.country := l_ams_import_rec.country;
2466: END IF;
2467:
2468: -- usage
2469: IF p_ams_import_rec.usage = FND_API.g_miss_num THEN
2470: x_complete_rec.usage := l_ams_import_rec.usage;
2471: END IF;
2472:
2473: -- number_of_records
2470: x_complete_rec.usage := l_ams_import_rec.usage;
2471: END IF;
2472:
2473: -- number_of_records
2474: IF p_ams_import_rec.number_of_records = FND_API.g_miss_num THEN
2475: x_complete_rec.number_of_records := l_ams_import_rec.number_of_records;
2476: END IF;
2477:
2478: -- data_file_name
2475: x_complete_rec.number_of_records := l_ams_import_rec.number_of_records;
2476: END IF;
2477:
2478: -- data_file_name
2479: IF p_ams_import_rec.data_file_name = FND_API.g_miss_char THEN
2480: x_complete_rec.data_file_name := l_ams_import_rec.data_file_name;
2481: END IF;
2482:
2483: -- b2b_flag
2480: x_complete_rec.data_file_name := l_ams_import_rec.data_file_name;
2481: END IF;
2482:
2483: -- b2b_flag
2484: IF p_ams_import_rec.b2b_flag = FND_API.g_miss_char THEN
2485: x_complete_rec.b2b_flag := l_ams_import_rec.b2b_flag;
2486: END IF;
2487:
2488: -- rented_list_flag
2485: x_complete_rec.b2b_flag := l_ams_import_rec.b2b_flag;
2486: END IF;
2487:
2488: -- rented_list_flag
2489: IF p_ams_import_rec.rented_list_flag = FND_API.g_miss_char THEN
2490: x_complete_rec.rented_list_flag := l_ams_import_rec.rented_list_flag;
2491: END IF;
2492:
2493: -- server_flag
2490: x_complete_rec.rented_list_flag := l_ams_import_rec.rented_list_flag;
2491: END IF;
2492:
2493: -- server_flag
2494: IF p_ams_import_rec.server_flag = FND_API.g_miss_char THEN
2495: x_complete_rec.server_flag := l_ams_import_rec.server_flag;
2496: END IF;
2497:
2498: -- log_file_name
2495: x_complete_rec.server_flag := l_ams_import_rec.server_flag;
2496: END IF;
2497:
2498: -- log_file_name
2499: IF p_ams_import_rec.log_file_name = FND_API.g_miss_num THEN
2500: x_complete_rec.log_file_name := l_ams_import_rec.log_file_name;
2501: END IF;
2502:
2503: -- number_of_failed_records
2500: x_complete_rec.log_file_name := l_ams_import_rec.log_file_name;
2501: END IF;
2502:
2503: -- number_of_failed_records
2504: IF p_ams_import_rec.number_of_failed_records = FND_API.g_miss_num THEN
2505: x_complete_rec.number_of_failed_records := l_ams_import_rec.number_of_failed_records;
2506: END IF;
2507:
2508: -- number_of_duplicate_records
2505: x_complete_rec.number_of_failed_records := l_ams_import_rec.number_of_failed_records;
2506: END IF;
2507:
2508: -- number_of_duplicate_records
2509: IF p_ams_import_rec.number_of_duplicate_records = FND_API.g_miss_num THEN
2510: x_complete_rec.number_of_duplicate_records := l_ams_import_rec.number_of_duplicate_records;
2511: END IF;
2512:
2513: -- enable_word_replacement_flag
2510: x_complete_rec.number_of_duplicate_records := l_ams_import_rec.number_of_duplicate_records;
2511: END IF;
2512:
2513: -- enable_word_replacement_flag
2514: IF p_ams_import_rec.enable_word_replacement_flag = FND_API.g_miss_char THEN
2515: x_complete_rec.enable_word_replacement_flag := l_ams_import_rec.enable_word_replacement_flag;
2516: END IF;
2517:
2518: -- Note: Developers need to modify the procedure
2519: -- to handle any business specific requirements.
2520: END Complete_ams_import_Rec;
2521: PROCEDURE Validate_import_list(
2522: p_api_version_number IN NUMBER,
2523: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2524: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2525: p_ams_import_rec IN ams_import_rec_type,
2526: x_return_status OUT NOCOPY VARCHAR2,
2527: x_msg_count OUT NOCOPY NUMBER,
2520: END Complete_ams_import_Rec;
2521: PROCEDURE Validate_import_list(
2522: p_api_version_number IN NUMBER,
2523: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2524: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2525: p_ams_import_rec IN ams_import_rec_type,
2526: x_return_status OUT NOCOPY VARCHAR2,
2527: x_msg_count OUT NOCOPY NUMBER,
2528: x_msg_data OUT NOCOPY VARCHAR2
2541: AMS_UTILITY_PVT.debug_message('Private API: ' || 'inside validate_import_list');
2542: END IF;
2543:
2544: -- Standard call to check for call compatibility.
2545: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2546: p_api_version_number,
2547: l_api_name,
2548: G_PKG_NAME)
2549: THEN
2546: p_api_version_number,
2547: l_api_name,
2548: G_PKG_NAME)
2549: THEN
2550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2551: END IF;
2552: IF (AMS_DEBUG_HIGH_ON) THEN
2553:
2554: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Compatible_API_Call');
2554: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Compatible_API_Call');
2555: END IF;
2556:
2557: -- Initialize message list if p_init_msg_list is set to TRUE.
2558: IF FND_API.to_Boolean( p_init_msg_list )
2559: THEN
2560: FND_MSG_PUB.initialize;
2561: END IF;
2562: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2565: p_validation_mode => JTF_PLSQL_API.g_update,
2566: x_return_status => x_return_status
2567: );
2568:
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2566: x_return_status => x_return_status
2567: );
2568:
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574: END IF;
2567: );
2568:
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574: END IF;
2575: IF (AMS_DEBUG_HIGH_ON) THEN
2568:
2569: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574: END IF;
2575: IF (AMS_DEBUG_HIGH_ON) THEN
2576:
2588:
2589: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2590: Validate_ams_import_Rec(
2591: p_api_version_number => 1.0,
2592: p_init_msg_list => FND_API.G_FALSE,
2593: x_return_status => x_return_status,
2594: x_msg_count => x_msg_count,
2595: x_msg_data => x_msg_data,
2596: p_ams_import_rec => l_ams_import_rec);
2594: x_msg_count => x_msg_count,
2595: x_msg_data => x_msg_data,
2596: p_ams_import_rec => l_ams_import_rec);
2597:
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2595: x_msg_data => x_msg_data,
2596: p_ams_import_rec => l_ams_import_rec);
2597:
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603: END IF;
2596: p_ams_import_rec => l_ams_import_rec);
2597:
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603: END IF;
2604:
2597:
2598: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2599: RAISE FND_API.G_EXC_ERROR;
2600: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603: END IF;
2604:
2605:
2603: END IF;
2604:
2605:
2606: -- Initialize API return status to SUCCESS
2607: x_return_status := FND_API.G_RET_STS_SUCCESS;
2608:
2609:
2610: -- Debug Message
2611: IF (AMS_DEBUG_HIGH_ON) THEN
2625:
2626: EXCEPTION
2627:
2628: WHEN AMS_Utility_PVT.resource_locked THEN
2629: x_return_status := FND_API.g_ret_sts_error;
2630: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2631:
2632: WHEN FND_API.G_EXC_ERROR THEN
2633: ROLLBACK TO VALIDATE_Import_List_;
2628: WHEN AMS_Utility_PVT.resource_locked THEN
2629: x_return_status := FND_API.g_ret_sts_error;
2630: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2631:
2632: WHEN FND_API.G_EXC_ERROR THEN
2633: ROLLBACK TO VALIDATE_Import_List_;
2634: x_return_status := FND_API.G_RET_STS_ERROR;
2635: -- Standard call to get message count and if count=1, get the message
2636: FND_MSG_PUB.Count_And_Get (
2630: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2631:
2632: WHEN FND_API.G_EXC_ERROR THEN
2633: ROLLBACK TO VALIDATE_Import_List_;
2634: x_return_status := FND_API.G_RET_STS_ERROR;
2635: -- Standard call to get message count and if count=1, get the message
2636: FND_MSG_PUB.Count_And_Get (
2637: p_encoded => FND_API.G_FALSE,
2638: p_count => x_msg_count,
2633: ROLLBACK TO VALIDATE_Import_List_;
2634: x_return_status := FND_API.G_RET_STS_ERROR;
2635: -- Standard call to get message count and if count=1, get the message
2636: FND_MSG_PUB.Count_And_Get (
2637: p_encoded => FND_API.G_FALSE,
2638: p_count => x_msg_count,
2639: p_data => x_msg_data
2640: );
2641:
2638: p_count => x_msg_count,
2639: p_data => x_msg_data
2640: );
2641:
2642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2643: ROLLBACK TO VALIDATE_Import_List_;
2644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2645: -- Standard call to get message count and if count=1, get the message
2646: FND_MSG_PUB.Count_And_Get (
2640: );
2641:
2642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2643: ROLLBACK TO VALIDATE_Import_List_;
2644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2645: -- Standard call to get message count and if count=1, get the message
2646: FND_MSG_PUB.Count_And_Get (
2647: p_encoded => FND_API.G_FALSE,
2648: p_count => x_msg_count,
2643: ROLLBACK TO VALIDATE_Import_List_;
2644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2645: -- Standard call to get message count and if count=1, get the message
2646: FND_MSG_PUB.Count_And_Get (
2647: p_encoded => FND_API.G_FALSE,
2648: p_count => x_msg_count,
2649: p_data => x_msg_data
2650: );
2651:
2650: );
2651:
2652: WHEN OTHERS THEN
2653: ROLLBACK TO VALIDATE_Import_List_;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2655: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2656: THEN
2657: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2658: END IF;
2657: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2658: END IF;
2659: -- Standard call to get message count and if count=1, get the message
2660: FND_MSG_PUB.Count_And_Get (
2661: p_encoded => FND_API.G_FALSE,
2662: p_count => x_msg_count,
2663: p_data => x_msg_data
2664: );
2665: End Validate_Import_List;
2666:
2667:
2668: PROCEDURE Validate_ams_import_rec(
2669: p_api_version_number IN NUMBER,
2670: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2671: x_return_status OUT NOCOPY VARCHAR2,
2672: x_msg_count OUT NOCOPY NUMBER,
2673: x_msg_data OUT NOCOPY VARCHAR2,
2674: p_ams_import_rec IN ams_import_rec_type
2675: )
2676: IS
2677: BEGIN
2678: -- Initialize message list if p_init_msg_list is set to TRUE.
2679: IF FND_API.to_Boolean( p_init_msg_list )
2680: THEN
2681: FND_MSG_PUB.initialize;
2682: END IF;
2683:
2681: FND_MSG_PUB.initialize;
2682: END IF;
2683:
2684: -- Initialize API return status to SUCCESS
2685: x_return_status := FND_API.G_RET_STS_SUCCESS;
2686:
2687: -- Hint: Validate data
2688: -- If data not valid
2689: -- THEN
2686:
2687: -- Hint: Validate data
2688: -- If data not valid
2689: -- THEN
2690: -- x_return_status := FND_API.G_RET_STS_ERROR;
2691:
2692: -- Debug Message
2693: IF (AMS_DEBUG_HIGH_ON) THEN
2694: