[Home] [Help]
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:
407: p_msg_data => l_con_program_name || ' schedules fail.',
408: p_msg_type => 'DEBUG'
409: );
410: -- Initialize message list if p_init_msg_list is set to TRUE.
411: IF FND_API.to_Boolean( p_init_msg_list ) THEN
412: FND_MSG_PUB.initialize;
413: END IF;
414: AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
415: RAISE FND_API.g_exc_unexpected_error;
411: IF FND_API.to_Boolean( p_init_msg_list ) THEN
412: FND_MSG_PUB.initialize;
413: END IF;
414: AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
415: RAISE FND_API.g_exc_unexpected_error;
416: END IF;
417:
418: --
419: -- submit request
433: IF (AMS_DEBUG_HIGH_ON) THEN
434: NULL;
435: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 11::l_request_id is 0:: ');
436: END IF;
437: RAISE FND_API.g_exc_unexpected_error;
438: ELSE
439: IF (AMS_DEBUG_HIGH_ON) THEN
440: NULL;
441: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 11::l_request_id is not 0:: ');
450: END IF;
451: END IF;
452: EXCEPTION
453:
454: WHEN FND_API.G_EXC_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: FND_MSG_PUB.Count_And_Get (
457: p_encoded => FND_API.G_FALSE,
458: p_count => x_msg_count,
451: END IF;
452: EXCEPTION
453:
454: WHEN FND_API.G_EXC_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: FND_MSG_PUB.Count_And_Get (
457: p_encoded => FND_API.G_FALSE,
458: p_count => x_msg_count,
459: p_data => x_msg_data
453:
454: WHEN FND_API.G_EXC_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: FND_MSG_PUB.Count_And_Get (
457: p_encoded => FND_API.G_FALSE,
458: p_count => x_msg_count,
459: p_data => x_msg_data
460: );
461:
458: p_count => x_msg_count,
459: p_data => x_msg_data
460: );
461:
462: WHEN FND_API.g_exc_unexpected_error THEN
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464:
465: -- Standard call to get message count and if count=1, get the message
466: FND_MSG_PUB.Count_And_Get (
459: p_data => x_msg_data
460: );
461:
462: WHEN FND_API.g_exc_unexpected_error THEN
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464:
465: -- Standard call to get message count and if count=1, get the message
466: FND_MSG_PUB.Count_And_Get (
467: p_encoded => FND_API.G_FALSE,
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464:
465: -- Standard call to get message count and if count=1, get the message
466: FND_MSG_PUB.Count_And_Get (
467: p_encoded => FND_API.G_FALSE,
468: p_count => x_msg_count,
469: p_data => x_msg_data
470: );
471:
474: IF (AMS_DEBUG_HIGH_ON) THEN
475:
476: AMS_UTILITY_PVT.debug_message('Do_Recurring::The error is:: ' || l_error);
477: END IF;
478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
479: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
480: THEN
481: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
482: END IF;
481: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
482: END IF;
483: -- Standard call to get message count and if count=1, get the message
484: FND_MSG_PUB.Count_And_Get (
485: p_encoded => FND_API.G_FALSE,
486: p_count => x_msg_count,
487: p_data => x_msg_data
488: );
489: END Do_Recurring;
491: */
492:
493: PROCEDURE Duplicate_Import_List (
494: p_api_version_number IN NUMBER,
495: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
496: p_commit IN VARCHAR2 := FND_API.G_FALSE,
497: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
498:
499: x_return_status OUT NOCOPY VARCHAR2,
492:
493: PROCEDURE Duplicate_Import_List (
494: p_api_version_number IN NUMBER,
495: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
496: p_commit IN VARCHAR2 := FND_API.G_FALSE,
497: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
498:
499: x_return_status OUT NOCOPY VARCHAR2,
500: x_msg_count OUT NOCOPY NUMBER,
493: PROCEDURE Duplicate_Import_List (
494: p_api_version_number IN NUMBER,
495: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
496: p_commit IN VARCHAR2 := FND_API.G_FALSE,
497: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
498:
499: x_return_status OUT NOCOPY VARCHAR2,
500: x_msg_count OUT NOCOPY NUMBER,
501: x_msg_data OUT NOCOPY VARCHAR2,
610: -- Standard Start of API savepoint
611: SAVEPOINT Duplicate_Import_List;
612:
613: -- Standard call to check for call compatibility.
614: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
615: p_api_version_number,
616: l_api_name,
617: G_PKG_NAME) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
615: p_api_version_number,
616: l_api_name,
617: G_PKG_NAME) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620:
621: -- Initialize API return status to SUCCESS
622: x_return_status := FND_API.G_RET_STS_SUCCESS;
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620:
621: -- Initialize API return status to SUCCESS
622: x_return_status := FND_API.G_RET_STS_SUCCESS;
623:
624: OPEN c_list_import_rec (p_import_list_header_id);
625: FETCH c_list_import_rec INTO x_ams_import_rec;
626: CLOSE c_list_import_rec;
656: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after Get_DeEncrypt_String ');
657:
658: Create_Import_List(
659: p_api_version_number => 1.0,
660: p_commit => FND_API.G_TRUE,
661: x_return_status => x_return_status,
662: x_msg_count => x_msg_count,
663: x_msg_data => x_msg_data,
664: p_ams_import_rec => x_ams_import_rec,
678: where import_list_header_id = x_ams_import_rec.import_list_header_id;
679:
680: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after update AMS_IMP_LIST_HEADERS_ALL ');
681:
682: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
683: RAISE FND_API.G_EXC_ERROR;
684: END IF;
685:
686: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List 4444444 ');
679:
680: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after update AMS_IMP_LIST_HEADERS_ALL ');
681:
682: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
683: RAISE FND_API.G_EXC_ERROR;
684: END IF;
685:
686: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List 4444444 ');
687: OPEN c_get_file_type (p_import_list_header_id);
690:
691: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List 4444444 after c_get_file_type ');
692:
693: -- Standard check for p_commit
694: IF FND_API.to_Boolean( p_commit) THEN
695: COMMIT WORK;
696: END IF;
697:
698: -- Standard call to get message count and if count is 1, get message info.
701: p_data => x_msg_data);
702:
703: EXCEPTION
704: WHEN AMS_Utility_PVT.resource_locked THEN
705: x_return_status := FND_API.g_ret_sts_error;
706: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
707: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO Duplicate_Import_List;
709: x_return_status := FND_API.G_RET_STS_ERROR;
703: EXCEPTION
704: WHEN AMS_Utility_PVT.resource_locked THEN
705: x_return_status := FND_API.g_ret_sts_error;
706: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
707: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO Duplicate_Import_List;
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: -- Standard call to get message count and if count=1, get the message
711: FND_MSG_PUB.Count_And_Get (
705: x_return_status := FND_API.g_ret_sts_error;
706: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
707: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO Duplicate_Import_List;
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: -- Standard call to get message count and if count=1, get the message
711: FND_MSG_PUB.Count_And_Get (
712: p_encoded => FND_API.G_FALSE,
713: p_count => x_msg_count,
708: ROLLBACK TO Duplicate_Import_List;
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: -- Standard call to get message count and if count=1, get the message
711: FND_MSG_PUB.Count_And_Get (
712: p_encoded => FND_API.G_FALSE,
713: p_count => x_msg_count,
714: p_data => x_msg_data
715: );
716:
713: p_count => x_msg_count,
714: p_data => x_msg_data
715: );
716:
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: ROLLBACK TO Duplicate_Import_List;
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720: -- Standard call to get message count and if count=1, get the message
721: FND_MSG_PUB.Count_And_Get (
715: );
716:
717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
718: ROLLBACK TO Duplicate_Import_List;
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720: -- Standard call to get message count and if count=1, get the message
721: FND_MSG_PUB.Count_And_Get (
722: p_encoded => FND_API.G_FALSE,
723: p_count => x_msg_count,
718: ROLLBACK TO Duplicate_Import_List;
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720: -- Standard call to get message count and if count=1, get the message
721: FND_MSG_PUB.Count_And_Get (
722: p_encoded => FND_API.G_FALSE,
723: p_count => x_msg_count,
724: p_data => x_msg_data
725: );
726:
725: );
726:
727: WHEN OTHERS THEN
728: ROLLBACK TO Duplicate_Import_List;
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
731: THEN
732: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
733: END IF;
732: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
733: END IF;
734: -- Standard call to get message count and if count=1, get the message
735: FND_MSG_PUB.Count_And_Get (
736: p_encoded => FND_API.G_FALSE,
737: p_count => x_msg_count,
738: p_data => x_msg_data
739: );
740: END Duplicate_Import_List;
742:
743: -- Hint: Primary key needs to be returned.
744: PROCEDURE Create_Import_List(
745: p_api_version_number IN NUMBER,
746: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
747: p_commit IN VARCHAR2 := FND_API.G_FALSE,
748: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
749:
750: x_return_status OUT NOCOPY VARCHAR2,
743: -- Hint: Primary key needs to be returned.
744: PROCEDURE Create_Import_List(
745: p_api_version_number IN NUMBER,
746: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
747: p_commit IN VARCHAR2 := FND_API.G_FALSE,
748: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
749:
750: x_return_status OUT NOCOPY VARCHAR2,
751: x_msg_count OUT NOCOPY NUMBER,
744: PROCEDURE Create_Import_List(
745: p_api_version_number IN NUMBER,
746: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
747: p_commit IN VARCHAR2 := FND_API.G_FALSE,
748: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
749:
750: x_return_status OUT NOCOPY VARCHAR2,
751: x_msg_count OUT NOCOPY NUMBER,
752: x_msg_data OUT NOCOPY VARCHAR2,
759: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Import_List';
760: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
761: l_return_status_full VARCHAR2(1);
762: l_object_version_number NUMBER := 1;
763: l_org_id NUMBER := FND_API.G_MISS_NUM;
764: l_IMPORT_LIST_HEADER_ID NUMBER;
765: l_dummy NUMBER;
766: l_country NUMBER;
767: l_terminated_by VARCHAR2(30) := p_ams_import_rec.terminated_by;
765: l_dummy NUMBER;
766: l_country NUMBER;
767: l_terminated_by VARCHAR2(30) := p_ams_import_rec.terminated_by;
768: l_enclosed_by VARCHAR2(30) := p_ams_import_rec.enclosed_by;
769: l_batch_id NUMBER := FND_API.G_MISS_NUM;
770:
771: l_encrpted_password VARCHAR2 (2000);
772:
773: CURSOR c_id IS
806:
807:
808: -- Standard call to check for call compatibility.
809:
810: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
811: p_api_version_number,
812: l_api_name,
813: G_PKG_NAME)
814: THEN
811: p_api_version_number,
812: l_api_name,
813: G_PKG_NAME)
814: THEN
815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
816: END IF;
817:
818:
819: -- Initialize message list if p_init_msg_list is set to TRUE.
816: END IF;
817:
818:
819: -- Initialize message list if p_init_msg_list is set to TRUE.
820: IF FND_API.to_Boolean( p_init_msg_list )
821: THEN
822: FND_MSG_PUB.initialize;
823: END IF;
824:
829: END IF;
830:
831:
832: -- Initialize API return status to SUCCESS
833: x_return_status := FND_API.G_RET_STS_SUCCESS;
834:
835: -- Local variable initialization
836: OPEN c_get_status_id('AMS_IMPORT_STATUS', 'NEW', 'Y');
837: FETCH c_get_status_id INTO l_user_status_id;
836: OPEN c_get_status_id('AMS_IMPORT_STATUS', 'NEW', 'Y');
837: FETCH c_get_status_id INTO l_user_status_id;
838: CLOSE c_get_status_id;
839:
840: 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
841: LOOP
842: l_dummy := NULL;
843: OPEN c_id;
844: FETCH c_id INTO l_IMPORT_LIST_HEADER_ID;
889: END IF;
890: -- The record is already there, call update API.
891: Update_Import_List(
892: p_api_version_number => 1.0,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_commit => FND_API.G_FALSE,
895: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
896: x_return_status => x_return_status,
897: x_msg_count => x_msg_count,
890: -- The record is already there, call update API.
891: Update_Import_List(
892: p_api_version_number => 1.0,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_commit => FND_API.G_FALSE,
895: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
896: x_return_status => x_return_status,
897: x_msg_count => x_msg_count,
898: x_msg_data => x_msg_data,
891: Update_Import_List(
892: p_api_version_number => 1.0,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_commit => FND_API.G_FALSE,
895: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
896: x_return_status => x_return_status,
897: x_msg_count => x_msg_count,
898: x_msg_data => x_msg_data,
899: p_ams_import_rec => l_ams_import_rec,
905: END IF;
906:
907: -- initialize any default values
908:
909: IF p_ams_import_rec.country IS NULL OR p_ams_import_rec.country = FND_API.g_miss_num THEN
910: l_country := FND_PROFILE.value ('AMS_SRCGEN_USER_CITY');
911: END IF;
912:
913:
932:
933: IF FND_GLOBAL.User_Id IS NULL
934: THEN
935: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
936: RAISE FND_API.G_EXC_ERROR;
937: END IF;
938: IF (AMS_DEBUG_HIGH_ON) THEN
939:
940: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
939:
940: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
941: END IF;
942:
943: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
944: THEN
945: -- Debug message
946: IF (AMS_DEBUG_HIGH_ON) THEN
947:
950:
951: -- Invoke validation procedures
952: Validate_import_list(
953: p_api_version_number => 1.0,
954: p_init_msg_list => FND_API.G_FALSE,
955: p_validation_level => p_validation_level,
956: p_ams_import_rec => p_ams_import_rec,
957: x_return_status => x_return_status,
958: x_msg_count => x_msg_count,
959: x_msg_data => x_msg_data);
960:
961: END IF;
962:
963: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
964: RAISE FND_API.G_EXC_ERROR;
965: END IF;
966: /*
967: -- translate single quote to the real one for terminated by
960:
961: END IF;
962:
963: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
964: RAISE FND_API.G_EXC_ERROR;
965: END IF;
966: /*
967: -- translate single quote to the real one for terminated by
968: IF (p_ams_import_rec.terminated_by = 'SINGLEQUOTE') AND
1102: p_parent_imp_header_id => p_ams_import_rec.parent_imp_header_id,
1103: p_record_update_flag => p_ams_import_rec.record_update_flag,
1104: p_error_threshold => p_ams_import_rec.error_threshold,
1105: p_charset => p_ams_import_rec.charset);
1106: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1107: RAISE FND_API.G_EXC_ERROR;
1108: END IF;
1109: x_import_list_header_id:=l_import_list_header_id;
1110:
1103: p_record_update_flag => p_ams_import_rec.record_update_flag,
1104: p_error_threshold => p_ams_import_rec.error_threshold,
1105: p_charset => p_ams_import_rec.charset);
1106: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1107: RAISE FND_API.G_EXC_ERROR;
1108: END IF;
1109: x_import_list_header_id:=l_import_list_header_id;
1110:
1111: IF l_encrpted_password IS NOT NULL AND LENGTH(l_encrpted_password) > 0 THEN
1121: -- End of API body
1122: --
1123:
1124: -- Standard check for p_commit
1125: IF FND_API.to_Boolean( p_commit )
1126: THEN
1127: COMMIT WORK;
1128: END IF;
1129:
1141: );
1142: EXCEPTION
1143:
1144: WHEN AMS_Utility_PVT.resource_locked THEN
1145: x_return_status := FND_API.g_ret_sts_error;
1146: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1147:
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: ROLLBACK TO CREATE_Import_List_PVT;
1144: WHEN AMS_Utility_PVT.resource_locked THEN
1145: x_return_status := FND_API.g_ret_sts_error;
1146: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1147:
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: ROLLBACK TO CREATE_Import_List_PVT;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: -- Standard call to get message count and if count=1, get the message
1152: FND_MSG_PUB.Count_And_Get (
1146: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1147:
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: ROLLBACK TO CREATE_Import_List_PVT;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: -- Standard call to get message count and if count=1, get the message
1152: FND_MSG_PUB.Count_And_Get (
1153: p_encoded => FND_API.G_FALSE,
1154: p_count => x_msg_count,
1149: ROLLBACK TO CREATE_Import_List_PVT;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: -- Standard call to get message count and if count=1, get the message
1152: FND_MSG_PUB.Count_And_Get (
1153: p_encoded => FND_API.G_FALSE,
1154: p_count => x_msg_count,
1155: p_data => x_msg_data
1156: );
1157:
1154: p_count => x_msg_count,
1155: p_data => x_msg_data
1156: );
1157:
1158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1159: ROLLBACK TO CREATE_Import_List_PVT;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: -- Standard call to get message count and if count=1, get the message
1162: FND_MSG_PUB.Count_And_Get (
1156: );
1157:
1158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1159: ROLLBACK TO CREATE_Import_List_PVT;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: -- Standard call to get message count and if count=1, get the message
1162: FND_MSG_PUB.Count_And_Get (
1163: p_encoded => FND_API.G_FALSE,
1164: p_count => x_msg_count,
1159: ROLLBACK TO CREATE_Import_List_PVT;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: -- Standard call to get message count and if count=1, get the message
1162: FND_MSG_PUB.Count_And_Get (
1163: p_encoded => FND_API.G_FALSE,
1164: p_count => x_msg_count,
1165: p_data => x_msg_data
1166: );
1167:
1166: );
1167:
1168: WHEN OTHERS THEN
1169: ROLLBACK TO CREATE_Import_List_PVT;
1170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1171: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1172: THEN
1173: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1174: END IF;
1173: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1174: END IF;
1175: -- Standard call to get message count and if count=1, get the message
1176: FND_MSG_PUB.Count_And_Get (
1177: p_encoded => FND_API.G_FALSE,
1178: p_count => x_msg_count,
1179: p_data => x_msg_data
1180: );
1181: End Create_Import_List;
1182:
1183:
1184: PROCEDURE Update_Import_List(
1185: p_api_version_number IN NUMBER,
1186: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1187: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1188: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1189:
1190: x_return_status OUT NOCOPY VARCHAR2,
1183:
1184: PROCEDURE Update_Import_List(
1185: p_api_version_number IN NUMBER,
1186: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1187: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1188: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1189:
1190: x_return_status OUT NOCOPY VARCHAR2,
1191: x_msg_count OUT NOCOPY NUMBER,
1184: PROCEDURE Update_Import_List(
1185: p_api_version_number IN NUMBER,
1186: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1187: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1188: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1189:
1190: x_return_status OUT NOCOPY VARCHAR2,
1191: x_msg_count OUT NOCOPY NUMBER,
1192: x_msg_data OUT NOCOPY VARCHAR2,
1216: -- Standard Start of API savepoint
1217: SAVEPOINT UPDATE_Import_List_PVT;
1218:
1219: -- Standard call to check for call compatibility.
1220: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1221: p_api_version_number,
1222: l_api_name,
1223: G_PKG_NAME)
1224: THEN
1221: p_api_version_number,
1222: l_api_name,
1223: G_PKG_NAME)
1224: THEN
1225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1226: END IF;
1227:
1228: -- Initialize message list if p_init_msg_list is set to TRUE.
1229: IF FND_API.to_Boolean( p_init_msg_list )
1225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1226: END IF;
1227:
1228: -- Initialize message list if p_init_msg_list is set to TRUE.
1229: IF FND_API.to_Boolean( p_init_msg_list )
1230: THEN
1231: FND_MSG_PUB.initialize;
1232: END IF;
1233:
1238: END IF;
1239:
1240:
1241: -- Initialize API return status to SUCCESS
1242: x_return_status := FND_API.G_RET_STS_SUCCESS;
1243:
1244: -- Debug Message
1245: IF (AMS_DEBUG_HIGH_ON) THEN
1246:
1255: If ( c_get_Import_List%NOTFOUND) THEN
1256: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
1257: p_token_name => 'INFO',
1258: p_token_value => 'Import_List') ;
1259: RAISE FND_API.G_EXC_ERROR;
1260: END IF;
1261: -- Debug Message
1262: IF (AMS_DEBUG_HIGH_ON) THEN
1263:
1267: */
1268:
1269:
1270: If (l_tar_ams_import_rec.object_version_number is NULL or
1271: l_tar_ams_import_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1272: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1273: p_token_name => 'COLUMN',
1274: p_token_value => 'Last_Update_Date') ;
1275: raise FND_API.G_EXC_ERROR;
1271: l_tar_ams_import_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1272: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1273: p_token_name => 'COLUMN',
1274: p_token_value => 'Last_Update_Date') ;
1275: raise FND_API.G_EXC_ERROR;
1276: End if;
1277: -- Check Whether record has been changed by someone else
1278: If (l_tar_ams_import_rec.object_version_number <> l_ref_ams_import_rec.object_version_number) Then
1279: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1278: If (l_tar_ams_import_rec.object_version_number <> l_ref_ams_import_rec.object_version_number) Then
1279: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1280: p_token_name => 'INFO',
1281: p_token_value => 'Import_List') ;
1282: raise FND_API.G_EXC_ERROR;
1283: End if;
1284: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1285: THEN
1286: -- Debug message
1280: p_token_name => 'INFO',
1281: p_token_value => 'Import_List') ;
1282: raise FND_API.G_EXC_ERROR;
1283: End if;
1284: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1285: THEN
1286: -- Debug message
1287: IF (AMS_DEBUG_HIGH_ON) THEN
1288:
1291:
1292: -- Invoke validation procedures
1293: Validate_import_list(
1294: p_api_version_number => 1.0,
1295: p_init_msg_list => FND_API.G_FALSE,
1296: p_validation_level => p_validation_level,
1297: p_ams_import_rec => p_ams_import_rec,
1298: x_return_status => x_return_status,
1299: x_msg_count => x_msg_count,
1298: x_return_status => x_return_status,
1299: x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: END IF;
1302: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1303: RAISE FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1306:
1299: x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: END IF;
1302: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1303: RAISE FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1306:
1307: -- Debug Message
1384: -- End of API body.
1385: --
1386:
1387: -- Standard check for p_commit
1388: IF FND_API.to_Boolean( p_commit )
1389: THEN
1390: COMMIT WORK;
1391: END IF;
1392:
1404: );
1405: EXCEPTION
1406:
1407: WHEN AMS_Utility_PVT.resource_locked THEN
1408: x_return_status := FND_API.g_ret_sts_error;
1409: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1410:
1411: WHEN FND_API.G_EXC_ERROR THEN
1412: ROLLBACK TO UPDATE_Import_List_PVT;
1407: WHEN AMS_Utility_PVT.resource_locked THEN
1408: x_return_status := FND_API.g_ret_sts_error;
1409: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1410:
1411: WHEN FND_API.G_EXC_ERROR THEN
1412: ROLLBACK TO UPDATE_Import_List_PVT;
1413: x_return_status := FND_API.G_RET_STS_ERROR;
1414: -- Standard call to get message count and if count=1, get the message
1415: FND_MSG_PUB.Count_And_Get (
1409: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1410:
1411: WHEN FND_API.G_EXC_ERROR THEN
1412: ROLLBACK TO UPDATE_Import_List_PVT;
1413: x_return_status := FND_API.G_RET_STS_ERROR;
1414: -- Standard call to get message count and if count=1, get the message
1415: FND_MSG_PUB.Count_And_Get (
1416: p_encoded => FND_API.G_FALSE,
1417: p_count => x_msg_count,
1412: ROLLBACK TO UPDATE_Import_List_PVT;
1413: x_return_status := FND_API.G_RET_STS_ERROR;
1414: -- Standard call to get message count and if count=1, get the message
1415: FND_MSG_PUB.Count_And_Get (
1416: p_encoded => FND_API.G_FALSE,
1417: p_count => x_msg_count,
1418: p_data => x_msg_data
1419: );
1420:
1417: p_count => x_msg_count,
1418: p_data => x_msg_data
1419: );
1420:
1421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1422: ROLLBACK TO UPDATE_Import_List_PVT;
1423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1424: -- Standard call to get message count and if count=1, get the message
1425: FND_MSG_PUB.Count_And_Get (
1419: );
1420:
1421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1422: ROLLBACK TO UPDATE_Import_List_PVT;
1423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1424: -- Standard call to get message count and if count=1, get the message
1425: FND_MSG_PUB.Count_And_Get (
1426: p_encoded => FND_API.G_FALSE,
1427: p_count => x_msg_count,
1422: ROLLBACK TO UPDATE_Import_List_PVT;
1423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1424: -- Standard call to get message count and if count=1, get the message
1425: FND_MSG_PUB.Count_And_Get (
1426: p_encoded => FND_API.G_FALSE,
1427: p_count => x_msg_count,
1428: p_data => x_msg_data
1429: );
1430:
1429: );
1430:
1431: WHEN OTHERS THEN
1432: ROLLBACK TO UPDATE_Import_List_PVT;
1433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1434: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1435: THEN
1436: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1437: END IF;
1436: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1437: END IF;
1438: -- Standard call to get message count and if count=1, get the message
1439: FND_MSG_PUB.Count_And_Get (
1440: p_encoded => FND_API.G_FALSE,
1441: p_count => x_msg_count,
1442: p_data => x_msg_data
1443: );
1444: End Update_Import_List;
1445:
1446:
1447: PROCEDURE Delete_Import_List(
1448: p_api_version_number IN NUMBER,
1449: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1450: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1451: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1452: x_return_status OUT NOCOPY VARCHAR2,
1453: x_msg_count OUT NOCOPY NUMBER,
1446:
1447: PROCEDURE Delete_Import_List(
1448: p_api_version_number IN NUMBER,
1449: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1450: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1451: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1452: x_return_status OUT NOCOPY VARCHAR2,
1453: x_msg_count OUT NOCOPY NUMBER,
1454: x_msg_data OUT NOCOPY VARCHAR2,
1447: PROCEDURE Delete_Import_List(
1448: p_api_version_number IN NUMBER,
1449: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1450: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1451: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1452: x_return_status OUT NOCOPY VARCHAR2,
1453: x_msg_count OUT NOCOPY NUMBER,
1454: x_msg_data OUT NOCOPY VARCHAR2,
1455: p_import_list_header_id IN NUMBER,
1465: -- Standard Start of API savepoint
1466: SAVEPOINT DELETE_Import_List_PVT;
1467:
1468: -- Standard call to check for call compatibility.
1469: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1470: p_api_version_number,
1471: l_api_name,
1472: G_PKG_NAME)
1473: THEN
1470: p_api_version_number,
1471: l_api_name,
1472: G_PKG_NAME)
1473: THEN
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476:
1477: -- Initialize message list if p_init_msg_list is set to TRUE.
1478: IF FND_API.to_Boolean( p_init_msg_list )
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476:
1477: -- Initialize message list if p_init_msg_list is set to TRUE.
1478: IF FND_API.to_Boolean( p_init_msg_list )
1479: THEN
1480: FND_MSG_PUB.initialize;
1481: END IF;
1482:
1487: END IF;
1488:
1489:
1490: -- Initialize API return status to SUCCESS
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1492:
1493: --
1494: -- Api body
1495: --
1506: -- End of API body
1507: --
1508:
1509: -- Standard check for p_commit
1510: IF FND_API.to_Boolean( p_commit )
1511: THEN
1512: COMMIT WORK;
1513: END IF;
1514:
1526: );
1527: EXCEPTION
1528:
1529: WHEN AMS_Utility_PVT.resource_locked THEN
1530: x_return_status := FND_API.g_ret_sts_error;
1531: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1532:
1533: WHEN FND_API.G_EXC_ERROR THEN
1534: ROLLBACK TO DELETE_Import_List_PVT;
1529: WHEN AMS_Utility_PVT.resource_locked THEN
1530: x_return_status := FND_API.g_ret_sts_error;
1531: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1532:
1533: WHEN FND_API.G_EXC_ERROR THEN
1534: ROLLBACK TO DELETE_Import_List_PVT;
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: -- Standard call to get message count and if count=1, get the message
1537: FND_MSG_PUB.Count_And_Get (
1531: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1532:
1533: WHEN FND_API.G_EXC_ERROR THEN
1534: ROLLBACK TO DELETE_Import_List_PVT;
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: -- Standard call to get message count and if count=1, get the message
1537: FND_MSG_PUB.Count_And_Get (
1538: p_encoded => FND_API.G_FALSE,
1539: p_count => x_msg_count,
1534: ROLLBACK TO DELETE_Import_List_PVT;
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: -- Standard call to get message count and if count=1, get the message
1537: FND_MSG_PUB.Count_And_Get (
1538: p_encoded => FND_API.G_FALSE,
1539: p_count => x_msg_count,
1540: p_data => x_msg_data
1541: );
1542:
1539: p_count => x_msg_count,
1540: p_data => x_msg_data
1541: );
1542:
1543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1544: ROLLBACK TO DELETE_Import_List_PVT;
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1546: -- Standard call to get message count and if count=1, get the message
1547: FND_MSG_PUB.Count_And_Get (
1541: );
1542:
1543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1544: ROLLBACK TO DELETE_Import_List_PVT;
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1546: -- Standard call to get message count and if count=1, get the message
1547: FND_MSG_PUB.Count_And_Get (
1548: p_encoded => FND_API.G_FALSE,
1549: p_count => x_msg_count,
1544: ROLLBACK TO DELETE_Import_List_PVT;
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1546: -- Standard call to get message count and if count=1, get the message
1547: FND_MSG_PUB.Count_And_Get (
1548: p_encoded => FND_API.G_FALSE,
1549: p_count => x_msg_count,
1550: p_data => x_msg_data
1551: );
1552:
1551: );
1552:
1553: WHEN OTHERS THEN
1554: ROLLBACK TO DELETE_Import_List_PVT;
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1556: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1557: THEN
1558: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1559: END IF;
1558: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1559: END IF;
1560: -- Standard call to get message count and if count=1, get the message
1561: FND_MSG_PUB.Count_And_Get (
1562: p_encoded => FND_API.G_FALSE,
1563: p_count => x_msg_count,
1564: p_data => x_msg_data
1565: );
1566: End Delete_Import_List;
1569:
1570: -- Hint: Primary key needs to be returned.
1571: PROCEDURE Lock_Import_List(
1572: p_api_version_number IN NUMBER,
1573: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1574:
1575: x_return_status OUT NOCOPY VARCHAR2,
1576: x_msg_count OUT NOCOPY NUMBER,
1577: x_msg_data OUT NOCOPY VARCHAR2,
1601: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1602: END IF;
1603:
1604: -- Initialize message list if p_init_msg_list is set to TRUE.
1605: IF FND_API.to_Boolean( p_init_msg_list )
1606: THEN
1607: FND_MSG_PUB.initialize;
1608: END IF;
1609:
1607: FND_MSG_PUB.initialize;
1608: END IF;
1609:
1610: -- Standard call to check for call compatibility.
1611: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1612: p_api_version_number,
1613: l_api_name,
1614: G_PKG_NAME)
1615: THEN
1612: p_api_version_number,
1613: l_api_name,
1614: G_PKG_NAME)
1615: THEN
1616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1617: END IF;
1618:
1619:
1620: -- Initialize API return status to SUCCESS
1617: END IF;
1618:
1619:
1620: -- Initialize API return status to SUCCESS
1621: x_return_status := FND_API.G_RET_STS_SUCCESS;
1622:
1623:
1624: ------------------------ lock -------------------------
1625:
1639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1640: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1641: FND_MSG_PUB.add;
1642: END IF;
1643: RAISE FND_API.g_exc_error;
1644: END IF;
1645:
1646: CLOSE c_Import_List;
1647:
1646: CLOSE c_Import_List;
1647:
1648: -------------------- finish --------------------------
1649: FND_MSG_PUB.count_and_get(
1650: p_encoded => FND_API.g_false,
1651: p_count => x_msg_count,
1652: p_data => x_msg_data);
1653: IF (AMS_DEBUG_HIGH_ON) THEN
1654:
1656: END IF;
1657: EXCEPTION
1658:
1659: WHEN AMS_Utility_PVT.resource_locked THEN
1660: x_return_status := FND_API.g_ret_sts_error;
1661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1662:
1663: WHEN FND_API.G_EXC_ERROR THEN
1664: ROLLBACK TO LOCK_Import_List_PVT;
1659: WHEN AMS_Utility_PVT.resource_locked THEN
1660: x_return_status := FND_API.g_ret_sts_error;
1661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1662:
1663: WHEN FND_API.G_EXC_ERROR THEN
1664: ROLLBACK TO LOCK_Import_List_PVT;
1665: x_return_status := FND_API.G_RET_STS_ERROR;
1666: -- Standard call to get message count and if count=1, get the message
1667: FND_MSG_PUB.Count_And_Get (
1661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1662:
1663: WHEN FND_API.G_EXC_ERROR THEN
1664: ROLLBACK TO LOCK_Import_List_PVT;
1665: x_return_status := FND_API.G_RET_STS_ERROR;
1666: -- Standard call to get message count and if count=1, get the message
1667: FND_MSG_PUB.Count_And_Get (
1668: p_encoded => FND_API.G_FALSE,
1669: p_count => x_msg_count,
1664: ROLLBACK TO LOCK_Import_List_PVT;
1665: x_return_status := FND_API.G_RET_STS_ERROR;
1666: -- Standard call to get message count and if count=1, get the message
1667: FND_MSG_PUB.Count_And_Get (
1668: p_encoded => FND_API.G_FALSE,
1669: p_count => x_msg_count,
1670: p_data => x_msg_data
1671: );
1672:
1669: p_count => x_msg_count,
1670: p_data => x_msg_data
1671: );
1672:
1673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1674: ROLLBACK TO LOCK_Import_List_PVT;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1676: -- Standard call to get message count and if count=1, get the message
1677: FND_MSG_PUB.Count_And_Get (
1671: );
1672:
1673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1674: ROLLBACK TO LOCK_Import_List_PVT;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1676: -- Standard call to get message count and if count=1, get the message
1677: FND_MSG_PUB.Count_And_Get (
1678: p_encoded => FND_API.G_FALSE,
1679: p_count => x_msg_count,
1674: ROLLBACK TO LOCK_Import_List_PVT;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1676: -- Standard call to get message count and if count=1, get the message
1677: FND_MSG_PUB.Count_And_Get (
1678: p_encoded => FND_API.G_FALSE,
1679: p_count => x_msg_count,
1680: p_data => x_msg_data
1681: );
1682:
1681: );
1682:
1683: WHEN OTHERS THEN
1684: ROLLBACK TO LOCK_Import_List_PVT;
1685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1686: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1687: THEN
1688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1689: END IF;
1688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1689: END IF;
1690: -- Standard call to get message count and if count=1, get the message
1691: FND_MSG_PUB.Count_And_Get (
1692: p_encoded => FND_API.G_FALSE,
1693: p_count => x_msg_count,
1694: p_data => x_msg_data
1695: );
1696: End Lock_Import_List;
1704: l_valid_flag VARCHAR2(1);
1705:
1706:
1707: BEGIN
1708: x_return_status := FND_API.g_ret_sts_success;
1709: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1710: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1711: 'AMS_IMP_LIST_HEADERS_ALL',
1712: 'IMPORT_LIST_HEADER_ID = ''' || p_ams_import_rec.IMPORT_LIST_HEADER_ID ||''''
1718: ''' AND IMPORT_LIST_HEADER_ID <> ' || p_ams_import_rec.IMPORT_LIST_HEADER_ID
1719: );
1720: END IF;
1721:
1722: IF l_valid_flag = FND_API.g_false THEN
1723: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMPORT_LIST_HEADER_ID_DUPLICATE');
1724: x_return_status := FND_API.g_ret_sts_error;
1725: RETURN;
1726: END IF;
1720: END IF;
1721:
1722: IF l_valid_flag = FND_API.g_false THEN
1723: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMPORT_LIST_HEADER_ID_DUPLICATE');
1724: x_return_status := FND_API.g_ret_sts_error;
1725: RETURN;
1726: END IF;
1727:
1728:
1736: x_return_status OUT NOCOPY VARCHAR2
1737: )
1738: IS
1739: BEGIN
1740: x_return_status := FND_API.g_ret_sts_success;
1741:
1742: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1743:
1744:
1741:
1742: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1743:
1744:
1745: 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
1746: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_list_header_id');
1747: x_return_status := FND_API.g_ret_sts_error;
1748: RETURN;
1749: END IF;
1743:
1744:
1745: 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
1746: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_list_header_id');
1747: x_return_status := FND_API.g_ret_sts_error;
1748: RETURN;
1749: END IF;
1750:
1751:
1748: RETURN;
1749: END IF;
1750:
1751:
1752: IF p_ams_import_rec.last_update_date = FND_API.g_miss_date OR p_ams_import_rec.last_update_date IS NULL THEN
1753: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_update_date');
1754: x_return_status := FND_API.g_ret_sts_error;
1755: RETURN;
1756: END IF;
1750:
1751:
1752: IF p_ams_import_rec.last_update_date = FND_API.g_miss_date OR p_ams_import_rec.last_update_date IS NULL THEN
1753: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_update_date');
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_updated_by = FND_API.g_miss_num OR p_ams_import_rec.last_updated_by IS NULL THEN
1760: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_updated_by');
1761: x_return_status := FND_API.g_ret_sts_error;
1762: RETURN;
1763: END IF;
1757:
1758:
1759: IF p_ams_import_rec.last_updated_by = FND_API.g_miss_num OR p_ams_import_rec.last_updated_by IS NULL THEN
1760: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_updated_by');
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.creation_date = FND_API.g_miss_date OR p_ams_import_rec.creation_date IS NULL THEN
1767: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_creation_date');
1768: x_return_status := FND_API.g_ret_sts_error;
1769: RETURN;
1770: END IF;
1764:
1765:
1766: IF p_ams_import_rec.creation_date = FND_API.g_miss_date OR p_ams_import_rec.creation_date IS NULL THEN
1767: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_creation_date');
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.created_by = FND_API.g_miss_num OR p_ams_import_rec.created_by IS NULL THEN
1774: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_created_by');
1775: x_return_status := FND_API.g_ret_sts_error;
1776: RETURN;
1777: END IF;
1771:
1772:
1773: IF p_ams_import_rec.created_by = FND_API.g_miss_num OR p_ams_import_rec.created_by IS NULL THEN
1774: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_created_by');
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.view_application_id = FND_API.g_miss_num OR p_ams_import_rec.view_application_id IS NULL THEN
1781: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_view_application_id');
1782: x_return_status := FND_API.g_ret_sts_error;
1783: RETURN;
1784: END IF;
1778:
1779:
1780: IF p_ams_import_rec.view_application_id = FND_API.g_miss_num OR p_ams_import_rec.view_application_id IS NULL THEN
1781: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_view_application_id');
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.name = FND_API.g_miss_char OR p_ams_import_rec.name IS NULL THEN
1788: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
1789: x_return_status := FND_API.g_ret_sts_error;
1790: RETURN;
1791: END IF;
1785:
1786:
1787: IF p_ams_import_rec.name = FND_API.g_miss_char OR p_ams_import_rec.name IS NULL THEN
1788: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
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.version = FND_API.g_miss_char OR p_ams_import_rec.version IS NULL THEN
1795: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_version');
1796: x_return_status := FND_API.g_ret_sts_error;
1797: RETURN;
1798: END IF;
1792:
1793:
1794: IF p_ams_import_rec.version = FND_API.g_miss_char OR p_ams_import_rec.version IS NULL THEN
1795: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_version');
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.import_type = FND_API.g_miss_char OR p_ams_import_rec.import_type IS NULL THEN
1802: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_type');
1803: x_return_status := FND_API.g_ret_sts_error;
1804: RETURN;
1805: END IF;
1799:
1800:
1801: IF p_ams_import_rec.import_type = FND_API.g_miss_char OR p_ams_import_rec.import_type IS NULL THEN
1802: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_type');
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.owner_user_id = FND_API.g_miss_num OR p_ams_import_rec.owner_user_id IS NULL THEN
1809: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_owner_user_id');
1810: x_return_status := FND_API.g_ret_sts_error;
1811: RETURN;
1812: END IF;
1806:
1807:
1808: IF p_ams_import_rec.owner_user_id = FND_API.g_miss_num OR p_ams_import_rec.owner_user_id IS NULL THEN
1809: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_owner_user_id');
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.status_code = FND_API.g_miss_char OR p_ams_import_rec.status_code IS NULL THEN
1816: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_code');
1817: x_return_status := FND_API.g_ret_sts_error;
1818: RETURN;
1819: END IF;
1813:
1814:
1815: IF p_ams_import_rec.status_code = FND_API.g_miss_char OR p_ams_import_rec.status_code IS NULL THEN
1816: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_code');
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_date = FND_API.g_miss_date OR p_ams_import_rec.status_date IS NULL THEN
1823: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_date');
1824: x_return_status := FND_API.g_ret_sts_error;
1825: RETURN;
1826: END IF;
1820:
1821:
1822: IF p_ams_import_rec.status_date = FND_API.g_miss_date OR p_ams_import_rec.status_date IS NULL THEN
1823: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_date');
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.user_status_id = FND_API.g_miss_num OR p_ams_import_rec.user_status_id IS NULL THEN
1830: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_user_status_id');
1831: x_return_status := FND_API.g_ret_sts_error;
1832: RETURN;
1833: END IF;
1827:
1828:
1829: IF p_ams_import_rec.user_status_id = FND_API.g_miss_num OR p_ams_import_rec.user_status_id IS NULL THEN
1830: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_user_status_id');
1831: x_return_status := FND_API.g_ret_sts_error;
1832: RETURN;
1833: END IF;
1834:
1835:
1834:
1835:
1836: IF p_ams_import_rec.import_list_header_id IS NULL THEN
1837: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_list_header_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.last_update_date IS NULL THEN
1844: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_update_date');
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_updated_by IS NULL THEN
1851: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_last_updated_by');
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.creation_date IS NULL THEN
1858: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_creation_date');
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.created_by IS NULL THEN
1865: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_created_by');
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.view_application_id IS NULL THEN
1872: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_view_application_id');
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.name IS NULL THEN
1879: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
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.version IS NULL THEN
1886: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_version');
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.import_type IS NULL THEN
1893: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_import_type');
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.owner_user_id IS NULL THEN
1900: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_owner_user_id');
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.status_code IS NULL THEN
1907: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_code');
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_date IS NULL THEN
1914: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_status_date');
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.user_status_id IS NULL THEN
1921: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_user_status_id');
1922: x_return_status := FND_API.g_ret_sts_error;
1923: RETURN;
1924: END IF;
1925: END IF;
1926:
1931: x_return_status OUT NOCOPY VARCHAR2
1932: )
1933: IS
1934: BEGIN
1935: x_return_status := FND_API.g_ret_sts_success;
1936:
1937: -- Enter custom code here
1938:
1939: END check_ams_import_FK_items;
1943: x_return_status OUT NOCOPY VARCHAR2
1944: )
1945: IS
1946: BEGIN
1947: x_return_status := FND_API.g_ret_sts_success;
1948:
1949: -- Enter custom code here
1950:
1951: END check_ams_import_Lookup_items;
1969: l_import_name_rec c_get_import_list_name%ROWTYPE;
1970:
1971: BEGIN
1972:
1973: x_return_status := FND_API.g_ret_sts_success;
1974: IF p_ams_import_rec.server_flag = 'Y'
1975: THEN
1976: if fnd_profile.value('AMS_IMP_CTL_PATH') is NULL then
1977: FND_MESSAGE.set_name('AMS', 'AMS_IMP_CTL_PATH');
1975: THEN
1976: if fnd_profile.value('AMS_IMP_CTL_PATH') is NULL then
1977: FND_MESSAGE.set_name('AMS', 'AMS_IMP_CTL_PATH');
1978: FND_MSG_PUB.Add;
1979: x_return_status := FND_API.g_ret_sts_error;
1980: RETURN;
1981: end if;
1982:
1983: if fnd_profile.value('AMS_IMP_DATA_PATH') is NULL then
1982:
1983: if fnd_profile.value('AMS_IMP_DATA_PATH') is NULL then
1984: FND_MESSAGE.set_name('AMS', 'AMS_IMP_DATA_PATH');
1985: FND_MSG_PUB.Add;
1986: x_return_status := FND_API.g_ret_sts_error;
1987: RETURN;
1988: end if;
1989: END IF;
1990:
1991: IF p_validation_mode = JTF_PLSQL_API.g_update
1992: THEN
1993: --Exp date and Usage validation only applied to Rented lists
1994: IF (p_ams_import_rec.rented_list_flag = 'R') and
1995: (p_ams_import_rec.expiry_date <> FND_API.g_miss_date) and
1996: (p_ams_import_rec.expiry_date < SYSDATE)
1997: THEN
1998: --AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
1999: FND_MESSAGE.set_name('AMS', 'AMS_IMP_EXP_DATE');
1997: THEN
1998: --AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_ams_import_NO_name');
1999: FND_MESSAGE.set_name('AMS', 'AMS_IMP_EXP_DATE');
2000: FND_MSG_PUB.Add;
2001: x_return_status := FND_API.g_ret_sts_error;
2002: RETURN;
2003: END IF;
2004:
2005: -- Rented list must enter exp date and/or usage
2004:
2005: -- Rented list must enter exp date and/or usage
2006: IF (p_ams_import_rec.rented_list_flag = 'R') AND
2007: ((p_ams_import_rec.usage is NULL AND p_ams_import_rec.expiry_date is NULL) OR
2008: (p_ams_import_rec.usage = FND_API.g_miss_num AND p_ams_import_rec.expiry_date = FND_API.g_miss_date))
2009: THEN
2010: FND_MESSAGE.set_name('AMS', 'AMS_IMP_RENTED_LIST');
2011: FND_MSG_PUB.Add;
2012: x_return_status := FND_API.g_ret_sts_error;
2008: (p_ams_import_rec.usage = FND_API.g_miss_num AND p_ams_import_rec.expiry_date = FND_API.g_miss_date))
2009: THEN
2010: FND_MESSAGE.set_name('AMS', 'AMS_IMP_RENTED_LIST');
2011: FND_MSG_PUB.Add;
2012: x_return_status := FND_API.g_ret_sts_error;
2013: RETURN;
2014: END IF;
2015: END IF;
2016:
2019: -- NOFOUND means create mode
2020: IF (c_get_Import_List%NOTFOUND)
2021: THEN
2022:
2023: IF (p_ams_import_rec.data_filename = FND_API.g_miss_char) OR
2024: (p_ams_import_rec.data_filename is NULL)
2025: THEN
2026: FND_MESSAGE.set_name('AMS', 'API_MISS_DATA_FILENAME');
2027: FND_MSG_PUB.Add;
2024: (p_ams_import_rec.data_filename is NULL)
2025: THEN
2026: FND_MESSAGE.set_name('AMS', 'API_MISS_DATA_FILENAME');
2027: FND_MSG_PUB.Add;
2028: x_return_status := FND_API.g_ret_sts_error;
2029: close c_get_Import_list;
2030: RETURN;
2031: END IF;
2032:
2033: IF (p_ams_import_rec.terminated_by = p_ams_import_rec.enclosed_by)
2034: THEN
2035: FND_MESSAGE.set_name('AMS', 'API_SAME_TERMIN_ENCLOSED');
2036: FND_MSG_PUB.Add;
2037: x_return_status := FND_API.g_ret_sts_error;
2038: close c_get_Import_list;
2039: RETURN;
2040: END IF;
2041:
2046: THEN
2047: --AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMPORT_NAME_DUPLICATE');
2048: FND_MESSAGE.set_name('AMS', 'AMS_IMPORT_NAME_DUPLICATE');
2049: FND_MSG_PUB.Add;
2050: x_return_status := FND_API.g_ret_sts_error;
2051: close c_get_Import_list_name;
2052: RETURN;
2053: END IF;
2054:
2073: check_ams_import_uk_items(
2074: p_ams_import_rec => p_ams_import_rec,
2075: p_validation_mode => p_validation_mode,
2076: x_return_status => x_return_status);
2077: IF x_return_status <> FND_API.g_ret_sts_success THEN
2078: RETURN;
2079: END IF;
2080:
2081: -- Check Items Required/NOT NULL API calls
2087: check_ams_import_req_items(
2088: p_ams_import_rec => p_ams_import_rec,
2089: p_validation_mode => p_validation_mode,
2090: x_return_status => x_return_status);
2091: IF x_return_status <> FND_API.g_ret_sts_success THEN
2092: RETURN;
2093: END IF;
2094: -- Check Items Foreign Keys API calls
2095: IF (AMS_DEBUG_HIGH_ON) THEN
2099:
2100: check_ams_import_FK_items(
2101: p_ams_import_rec => p_ams_import_rec,
2102: x_return_status => x_return_status);
2103: IF x_return_status <> FND_API.g_ret_sts_success THEN
2104: RETURN;
2105: END IF;
2106: -- Check Items Lookups
2107: IF (AMS_DEBUG_HIGH_ON) THEN
2111:
2112: check_ams_import_Lookup_items(
2113: p_ams_import_rec => p_ams_import_rec,
2114: x_return_status => x_return_status);
2115: IF x_return_status <> FND_API.g_ret_sts_success THEN
2116: RETURN;
2117: END IF;
2118: IF (AMS_DEBUG_HIGH_ON) THEN
2119:
2130: check_ams_import_Business(
2131: p_ams_import_rec => p_ams_import_rec,
2132: p_validation_mode => p_validation_mode,
2133: x_return_status => x_return_status);
2134: IF x_return_status <> FND_API.g_ret_sts_success THEN
2135: RETURN;
2136: END IF;
2137: IF (AMS_DEBUG_HIGH_ON) THEN
2138:
2171: FETCH c_complete INTO l_ams_import_rec;
2172: CLOSE c_complete;
2173:
2174: -- import_list_header_id
2175: IF p_ams_import_rec.import_list_header_id = FND_API.g_miss_num THEN
2176: x_complete_rec.import_list_header_id := l_ams_import_rec.import_list_header_id;
2177: END IF;
2178:
2179: -- last_update_date
2176: x_complete_rec.import_list_header_id := l_ams_import_rec.import_list_header_id;
2177: END IF;
2178:
2179: -- last_update_date
2180: IF p_ams_import_rec.last_update_date = FND_API.g_miss_date THEN
2181: x_complete_rec.last_update_date := l_ams_import_rec.last_update_date;
2182: END IF;
2183:
2184: -- last_updated_by
2181: x_complete_rec.last_update_date := l_ams_import_rec.last_update_date;
2182: END IF;
2183:
2184: -- last_updated_by
2185: IF p_ams_import_rec.last_updated_by = FND_API.g_miss_num THEN
2186: x_complete_rec.last_updated_by := l_ams_import_rec.last_updated_by;
2187: END IF;
2188:
2189: -- creation_date
2186: x_complete_rec.last_updated_by := l_ams_import_rec.last_updated_by;
2187: END IF;
2188:
2189: -- creation_date
2190: IF p_ams_import_rec.creation_date = FND_API.g_miss_date THEN
2191: x_complete_rec.creation_date := l_ams_import_rec.creation_date;
2192: END IF;
2193:
2194: -- created_by
2191: x_complete_rec.creation_date := l_ams_import_rec.creation_date;
2192: END IF;
2193:
2194: -- created_by
2195: IF p_ams_import_rec.created_by = FND_API.g_miss_num THEN
2196: x_complete_rec.created_by := l_ams_import_rec.created_by;
2197: END IF;
2198:
2199: -- last_update_login
2196: x_complete_rec.created_by := l_ams_import_rec.created_by;
2197: END IF;
2198:
2199: -- last_update_login
2200: IF p_ams_import_rec.last_update_login = FND_API.g_miss_num THEN
2201: x_complete_rec.last_update_login := l_ams_import_rec.last_update_login;
2202: END IF;
2203:
2204: -- object_version_number
2201: x_complete_rec.last_update_login := l_ams_import_rec.last_update_login;
2202: END IF;
2203:
2204: -- object_version_number
2205: IF p_ams_import_rec.object_version_number = FND_API.g_miss_num THEN
2206: x_complete_rec.object_version_number := l_ams_import_rec.object_version_number;
2207: END IF;
2208:
2209: -- view_application_id
2206: x_complete_rec.object_version_number := l_ams_import_rec.object_version_number;
2207: END IF;
2208:
2209: -- view_application_id
2210: IF p_ams_import_rec.view_application_id = FND_API.g_miss_num THEN
2211: x_complete_rec.view_application_id := l_ams_import_rec.view_application_id;
2212: END IF;
2213:
2214: -- name
2211: x_complete_rec.view_application_id := l_ams_import_rec.view_application_id;
2212: END IF;
2213:
2214: -- name
2215: IF p_ams_import_rec.name = FND_API.g_miss_char THEN
2216: x_complete_rec.name := l_ams_import_rec.name;
2217: END IF;
2218:
2219: -- version
2216: x_complete_rec.name := l_ams_import_rec.name;
2217: END IF;
2218:
2219: -- version
2220: IF p_ams_import_rec.version = FND_API.g_miss_char THEN
2221: x_complete_rec.version := '1.0';--l_ams_import_rec.version;
2222: END IF;
2223:
2224: -- import_type
2221: x_complete_rec.version := '1.0';--l_ams_import_rec.version;
2222: END IF;
2223:
2224: -- import_type
2225: IF p_ams_import_rec.import_type = FND_API.g_miss_char THEN
2226: x_complete_rec.import_type := l_ams_import_rec.import_type;
2227: END IF;
2228:
2229: -- owner_user_id
2226: x_complete_rec.import_type := l_ams_import_rec.import_type;
2227: END IF;
2228:
2229: -- owner_user_id
2230: IF p_ams_import_rec.owner_user_id = FND_API.g_miss_num THEN
2231: x_complete_rec.owner_user_id := l_ams_import_rec.owner_user_id;
2232: END IF;
2233:
2234: -- list_source_type_id
2231: x_complete_rec.owner_user_id := l_ams_import_rec.owner_user_id;
2232: END IF;
2233:
2234: -- list_source_type_id
2235: IF p_ams_import_rec.list_source_type_id = FND_API.g_miss_num THEN
2236: x_complete_rec.list_source_type_id := l_ams_import_rec.list_source_type_id;
2237: END IF;
2238:
2239: -- status_code
2236: x_complete_rec.list_source_type_id := l_ams_import_rec.list_source_type_id;
2237: END IF;
2238:
2239: -- status_code
2240: IF p_ams_import_rec.status_code = FND_API.g_miss_char THEN
2241: x_complete_rec.status_code := 'NEW';--l_ams_import_rec.status_code;
2242: END IF;
2243:
2244: -- status_date
2241: x_complete_rec.status_code := 'NEW';--l_ams_import_rec.status_code;
2242: END IF;
2243:
2244: -- status_date
2245: IF p_ams_import_rec.status_date = FND_API.g_miss_date THEN
2246: x_complete_rec.status_date := sysdate;--l_ams_import_rec.status_date;
2247: END IF;
2248:
2249: -- user_status_id
2246: x_complete_rec.status_date := sysdate;--l_ams_import_rec.status_date;
2247: END IF;
2248:
2249: -- user_status_id
2250: IF p_ams_import_rec.user_status_id = FND_API.g_miss_num THEN
2251: x_complete_rec.user_status_id := l_user_status_id;--3001;--l_ams_import_rec.user_status_id;
2252: END IF;
2253:
2254: -- source_system
2251: x_complete_rec.user_status_id := l_user_status_id;--3001;--l_ams_import_rec.user_status_id;
2252: END IF;
2253:
2254: -- source_system
2255: IF p_ams_import_rec.source_system = FND_API.g_miss_char THEN
2256: x_complete_rec.source_system := l_ams_import_rec.source_system;
2257: END IF;
2258:
2259: -- vendor_id
2256: x_complete_rec.source_system := l_ams_import_rec.source_system;
2257: END IF;
2258:
2259: -- vendor_id
2260: IF p_ams_import_rec.vendor_id = FND_API.g_miss_num THEN
2261: x_complete_rec.vendor_id := l_ams_import_rec.vendor_id;
2262: END IF;
2263:
2264: -- pin_id
2261: x_complete_rec.vendor_id := l_ams_import_rec.vendor_id;
2262: END IF;
2263:
2264: -- pin_id
2265: IF p_ams_import_rec.pin_id = FND_API.g_miss_num THEN
2266: x_complete_rec.pin_id := l_ams_import_rec.pin_id;
2267: END IF;
2268:
2269: -- org_id
2266: x_complete_rec.pin_id := l_ams_import_rec.pin_id;
2267: END IF;
2268:
2269: -- org_id
2270: IF p_ams_import_rec.org_id = FND_API.g_miss_num THEN
2271: x_complete_rec.org_id := l_ams_import_rec.org_id;
2272: END IF;
2273:
2274: -- scheduled_time
2271: x_complete_rec.org_id := l_ams_import_rec.org_id;
2272: END IF;
2273:
2274: -- scheduled_time
2275: IF p_ams_import_rec.scheduled_time = FND_API.g_miss_date THEN
2276: x_complete_rec.scheduled_time := l_ams_import_rec.scheduled_time;
2277: END IF;
2278:
2279: -- loaded_no_of_rows
2276: x_complete_rec.scheduled_time := l_ams_import_rec.scheduled_time;
2277: END IF;
2278:
2279: -- loaded_no_of_rows
2280: IF p_ams_import_rec.loaded_no_of_rows = FND_API.g_miss_num THEN
2281: x_complete_rec.loaded_no_of_rows := l_ams_import_rec.loaded_no_of_rows;
2282: END IF;
2283:
2284: -- loaded_date
2281: x_complete_rec.loaded_no_of_rows := l_ams_import_rec.loaded_no_of_rows;
2282: END IF;
2283:
2284: -- loaded_date
2285: IF p_ams_import_rec.loaded_date = FND_API.g_miss_date THEN
2286: x_complete_rec.loaded_date := l_ams_import_rec.loaded_date;
2287: END IF;
2288:
2289: -- rows_to_skip
2286: x_complete_rec.loaded_date := l_ams_import_rec.loaded_date;
2287: END IF;
2288:
2289: -- rows_to_skip
2290: IF p_ams_import_rec.rows_to_skip = FND_API.g_miss_num THEN
2291: x_complete_rec.rows_to_skip := l_ams_import_rec.rows_to_skip;
2292: END IF;
2293:
2294: -- processed_rows
2291: x_complete_rec.rows_to_skip := l_ams_import_rec.rows_to_skip;
2292: END IF;
2293:
2294: -- processed_rows
2295: IF p_ams_import_rec.processed_rows = FND_API.g_miss_num THEN
2296: x_complete_rec.processed_rows := l_ams_import_rec.processed_rows;
2297: END IF;
2298:
2299: -- headings_flag
2296: x_complete_rec.processed_rows := l_ams_import_rec.processed_rows;
2297: END IF;
2298:
2299: -- headings_flag
2300: IF p_ams_import_rec.headings_flag = FND_API.g_miss_char THEN
2301: x_complete_rec.headings_flag := l_ams_import_rec.headings_flag;
2302: END IF;
2303:
2304: -- expiry_date
2301: x_complete_rec.headings_flag := l_ams_import_rec.headings_flag;
2302: END IF;
2303:
2304: -- expiry_date
2305: IF p_ams_import_rec.expiry_date = FND_API.g_miss_date THEN
2306: x_complete_rec.expiry_date := l_ams_import_rec.expiry_date;
2307: END IF;
2308:
2309:
2307: END IF;
2308:
2309:
2310: -- purge_date
2311: IF p_ams_import_rec.purge_date = FND_API.g_miss_date THEN
2312: x_complete_rec.purge_date := l_ams_import_rec.purge_date;
2313: END IF;
2314:
2315: -- description
2312: x_complete_rec.purge_date := l_ams_import_rec.purge_date;
2313: END IF;
2314:
2315: -- description
2316: IF p_ams_import_rec.description = FND_API.g_miss_char THEN
2317: x_complete_rec.description := l_ams_import_rec.description;
2318: END IF;
2319:
2320: -- keywords
2317: x_complete_rec.description := l_ams_import_rec.description;
2318: END IF;
2319:
2320: -- keywords
2321: IF p_ams_import_rec.keywords = FND_API.g_miss_char THEN
2322: x_complete_rec.keywords := l_ams_import_rec.keywords;
2323: END IF;
2324:
2325: -- transactional_cost
2322: x_complete_rec.keywords := l_ams_import_rec.keywords;
2323: END IF;
2324:
2325: -- transactional_cost
2326: IF p_ams_import_rec.transactional_cost = FND_API.g_miss_num THEN
2327: x_complete_rec.transactional_cost := l_ams_import_rec.transactional_cost;
2328: END IF;
2329:
2330: -- transactional_currency_code
2327: x_complete_rec.transactional_cost := l_ams_import_rec.transactional_cost;
2328: END IF;
2329:
2330: -- transactional_currency_code
2331: IF p_ams_import_rec.transactional_currency_code = FND_API.g_miss_char THEN
2332: x_complete_rec.transactional_currency_code := l_ams_import_rec.transactional_currency_code;
2333: END IF;
2334:
2335: -- functional_cost
2332: x_complete_rec.transactional_currency_code := l_ams_import_rec.transactional_currency_code;
2333: END IF;
2334:
2335: -- functional_cost
2336: IF p_ams_import_rec.functional_cost = FND_API.g_miss_num THEN
2337: x_complete_rec.functional_cost := l_ams_import_rec.functional_cost;
2338: END IF;
2339:
2340: -- functional_currency_code
2337: x_complete_rec.functional_cost := l_ams_import_rec.functional_cost;
2338: END IF;
2339:
2340: -- functional_currency_code
2341: IF p_ams_import_rec.functional_currency_code = FND_API.g_miss_char THEN
2342: x_complete_rec.functional_currency_code := l_ams_import_rec.functional_currency_code;
2343: END IF;
2344:
2345: -- terminated_by
2342: x_complete_rec.functional_currency_code := l_ams_import_rec.functional_currency_code;
2343: END IF;
2344:
2345: -- terminated_by
2346: IF p_ams_import_rec.terminated_by = FND_API.g_miss_char THEN
2347: x_complete_rec.terminated_by := l_ams_import_rec.terminated_by;
2348: END IF;
2349:
2350: -- enclosed_by
2347: x_complete_rec.terminated_by := l_ams_import_rec.terminated_by;
2348: END IF;
2349:
2350: -- enclosed_by
2351: IF p_ams_import_rec.enclosed_by = FND_API.g_miss_char THEN
2352: x_complete_rec.enclosed_by := l_ams_import_rec.enclosed_by;
2353: END IF;
2354:
2355: -- data_filename
2352: x_complete_rec.enclosed_by := l_ams_import_rec.enclosed_by;
2353: END IF;
2354:
2355: -- data_filename
2356: IF p_ams_import_rec.data_filename = FND_API.g_miss_char THEN
2357: x_complete_rec.data_filename := l_ams_import_rec.data_filename;
2358: END IF;
2359:
2360: -- process_immed_flag
2357: x_complete_rec.data_filename := l_ams_import_rec.data_filename;
2358: END IF;
2359:
2360: -- process_immed_flag
2361: IF p_ams_import_rec.process_immed_flag = FND_API.g_miss_char THEN
2362: x_complete_rec.process_immed_flag := l_ams_import_rec.process_immed_flag;
2363: END IF;
2364:
2365: -- dedupe_flag
2362: x_complete_rec.process_immed_flag := l_ams_import_rec.process_immed_flag;
2363: END IF;
2364:
2365: -- dedupe_flag
2366: IF p_ams_import_rec.dedupe_flag = FND_API.g_miss_char THEN
2367: x_complete_rec.dedupe_flag := l_ams_import_rec.dedupe_flag;
2368: END IF;
2369:
2370: -- attribute_category
2367: x_complete_rec.dedupe_flag := l_ams_import_rec.dedupe_flag;
2368: END IF;
2369:
2370: -- attribute_category
2371: IF p_ams_import_rec.attribute_category = FND_API.g_miss_char THEN
2372: x_complete_rec.attribute_category := l_ams_import_rec.attribute_category;
2373: END IF;
2374:
2375: -- attribute1
2372: x_complete_rec.attribute_category := l_ams_import_rec.attribute_category;
2373: END IF;
2374:
2375: -- attribute1
2376: IF p_ams_import_rec.attribute1 = FND_API.g_miss_char THEN
2377: x_complete_rec.attribute1 := l_ams_import_rec.attribute1;
2378: END IF;
2379:
2380: -- attribute2
2377: x_complete_rec.attribute1 := l_ams_import_rec.attribute1;
2378: END IF;
2379:
2380: -- attribute2
2381: IF p_ams_import_rec.attribute2 = FND_API.g_miss_char THEN
2382: x_complete_rec.attribute2 := l_ams_import_rec.attribute2;
2383: END IF;
2384:
2385: -- attribute3
2382: x_complete_rec.attribute2 := l_ams_import_rec.attribute2;
2383: END IF;
2384:
2385: -- attribute3
2386: IF p_ams_import_rec.attribute3 = FND_API.g_miss_char THEN
2387: x_complete_rec.attribute3 := l_ams_import_rec.attribute3;
2388: END IF;
2389:
2390: -- attribute4
2387: x_complete_rec.attribute3 := l_ams_import_rec.attribute3;
2388: END IF;
2389:
2390: -- attribute4
2391: IF p_ams_import_rec.attribute4 = FND_API.g_miss_char THEN
2392: x_complete_rec.attribute4 := l_ams_import_rec.attribute4;
2393: END IF;
2394:
2395: -- attribute5
2392: x_complete_rec.attribute4 := l_ams_import_rec.attribute4;
2393: END IF;
2394:
2395: -- attribute5
2396: IF p_ams_import_rec.attribute5 = FND_API.g_miss_char THEN
2397: x_complete_rec.attribute5 := l_ams_import_rec.attribute5;
2398: END IF;
2399:
2400: -- attribute6
2397: x_complete_rec.attribute5 := l_ams_import_rec.attribute5;
2398: END IF;
2399:
2400: -- attribute6
2401: IF p_ams_import_rec.attribute6 = FND_API.g_miss_char THEN
2402: x_complete_rec.attribute6 := l_ams_import_rec.attribute6;
2403: END IF;
2404:
2405: -- attribute7
2402: x_complete_rec.attribute6 := l_ams_import_rec.attribute6;
2403: END IF;
2404:
2405: -- attribute7
2406: IF p_ams_import_rec.attribute7 = FND_API.g_miss_char THEN
2407: x_complete_rec.attribute7 := l_ams_import_rec.attribute7;
2408: END IF;
2409:
2410: -- attribute8
2407: x_complete_rec.attribute7 := l_ams_import_rec.attribute7;
2408: END IF;
2409:
2410: -- attribute8
2411: IF p_ams_import_rec.attribute8 = FND_API.g_miss_char THEN
2412: x_complete_rec.attribute8 := l_ams_import_rec.attribute8;
2413: END IF;
2414:
2415: -- attribute9
2412: x_complete_rec.attribute8 := l_ams_import_rec.attribute8;
2413: END IF;
2414:
2415: -- attribute9
2416: IF p_ams_import_rec.attribute9 = FND_API.g_miss_char THEN
2417: x_complete_rec.attribute9 := l_ams_import_rec.attribute9;
2418: END IF;
2419:
2420: -- attribute10
2417: x_complete_rec.attribute9 := l_ams_import_rec.attribute9;
2418: END IF;
2419:
2420: -- attribute10
2421: IF p_ams_import_rec.attribute10 = FND_API.g_miss_char THEN
2422: x_complete_rec.attribute10 := l_ams_import_rec.attribute10;
2423: END IF;
2424:
2425: -- attribute11
2422: x_complete_rec.attribute10 := l_ams_import_rec.attribute10;
2423: END IF;
2424:
2425: -- attribute11
2426: IF p_ams_import_rec.attribute11 = FND_API.g_miss_char THEN
2427: x_complete_rec.attribute11 := l_ams_import_rec.attribute11;
2428: END IF;
2429:
2430: -- attribute12
2427: x_complete_rec.attribute11 := l_ams_import_rec.attribute11;
2428: END IF;
2429:
2430: -- attribute12
2431: IF p_ams_import_rec.attribute12 = FND_API.g_miss_char THEN
2432: x_complete_rec.attribute12 := l_ams_import_rec.attribute12;
2433: END IF;
2434:
2435: -- attribute13
2432: x_complete_rec.attribute12 := l_ams_import_rec.attribute12;
2433: END IF;
2434:
2435: -- attribute13
2436: IF p_ams_import_rec.attribute13 = FND_API.g_miss_char THEN
2437: x_complete_rec.attribute13 := l_ams_import_rec.attribute13;
2438: END IF;
2439:
2440: -- attribute14
2437: x_complete_rec.attribute13 := l_ams_import_rec.attribute13;
2438: END IF;
2439:
2440: -- attribute14
2441: IF p_ams_import_rec.attribute14 = FND_API.g_miss_char THEN
2442: x_complete_rec.attribute14 := l_ams_import_rec.attribute14;
2443: END IF;
2444:
2445: -- attribute15
2442: x_complete_rec.attribute14 := l_ams_import_rec.attribute14;
2443: END IF;
2444:
2445: -- attribute15
2446: IF p_ams_import_rec.attribute15 = FND_API.g_miss_char THEN
2447: x_complete_rec.attribute15 := l_ams_import_rec.attribute15;
2448: END IF;
2449:
2450:
2448: END IF;
2449:
2450:
2451: -- custom_setup_id
2452: IF p_ams_import_rec.custom_setup_id = FND_API.g_miss_num THEN
2453: x_complete_rec.custom_setup_id := l_ams_import_rec.custom_setup_id;
2454: END IF;
2455:
2456: -- country
2453: x_complete_rec.custom_setup_id := l_ams_import_rec.custom_setup_id;
2454: END IF;
2455:
2456: -- country
2457: IF p_ams_import_rec.country = FND_API.g_miss_num THEN
2458: x_complete_rec.country := l_ams_import_rec.country;
2459: END IF;
2460:
2461: -- usage
2458: x_complete_rec.country := l_ams_import_rec.country;
2459: END IF;
2460:
2461: -- usage
2462: IF p_ams_import_rec.usage = FND_API.g_miss_num THEN
2463: x_complete_rec.usage := l_ams_import_rec.usage;
2464: END IF;
2465:
2466: -- number_of_records
2463: x_complete_rec.usage := l_ams_import_rec.usage;
2464: END IF;
2465:
2466: -- number_of_records
2467: IF p_ams_import_rec.number_of_records = FND_API.g_miss_num THEN
2468: x_complete_rec.number_of_records := l_ams_import_rec.number_of_records;
2469: END IF;
2470:
2471: -- data_file_name
2468: x_complete_rec.number_of_records := l_ams_import_rec.number_of_records;
2469: END IF;
2470:
2471: -- data_file_name
2472: IF p_ams_import_rec.data_file_name = FND_API.g_miss_char THEN
2473: x_complete_rec.data_file_name := l_ams_import_rec.data_file_name;
2474: END IF;
2475:
2476: -- b2b_flag
2473: x_complete_rec.data_file_name := l_ams_import_rec.data_file_name;
2474: END IF;
2475:
2476: -- b2b_flag
2477: IF p_ams_import_rec.b2b_flag = FND_API.g_miss_char THEN
2478: x_complete_rec.b2b_flag := l_ams_import_rec.b2b_flag;
2479: END IF;
2480:
2481: -- rented_list_flag
2478: x_complete_rec.b2b_flag := l_ams_import_rec.b2b_flag;
2479: END IF;
2480:
2481: -- rented_list_flag
2482: IF p_ams_import_rec.rented_list_flag = FND_API.g_miss_char THEN
2483: x_complete_rec.rented_list_flag := l_ams_import_rec.rented_list_flag;
2484: END IF;
2485:
2486: -- server_flag
2483: x_complete_rec.rented_list_flag := l_ams_import_rec.rented_list_flag;
2484: END IF;
2485:
2486: -- server_flag
2487: IF p_ams_import_rec.server_flag = FND_API.g_miss_char THEN
2488: x_complete_rec.server_flag := l_ams_import_rec.server_flag;
2489: END IF;
2490:
2491: -- log_file_name
2488: x_complete_rec.server_flag := l_ams_import_rec.server_flag;
2489: END IF;
2490:
2491: -- log_file_name
2492: IF p_ams_import_rec.log_file_name = FND_API.g_miss_num THEN
2493: x_complete_rec.log_file_name := l_ams_import_rec.log_file_name;
2494: END IF;
2495:
2496: -- number_of_failed_records
2493: x_complete_rec.log_file_name := l_ams_import_rec.log_file_name;
2494: END IF;
2495:
2496: -- number_of_failed_records
2497: IF p_ams_import_rec.number_of_failed_records = FND_API.g_miss_num THEN
2498: x_complete_rec.number_of_failed_records := l_ams_import_rec.number_of_failed_records;
2499: END IF;
2500:
2501: -- number_of_duplicate_records
2498: x_complete_rec.number_of_failed_records := l_ams_import_rec.number_of_failed_records;
2499: END IF;
2500:
2501: -- number_of_duplicate_records
2502: IF p_ams_import_rec.number_of_duplicate_records = FND_API.g_miss_num THEN
2503: x_complete_rec.number_of_duplicate_records := l_ams_import_rec.number_of_duplicate_records;
2504: END IF;
2505:
2506: -- enable_word_replacement_flag
2503: x_complete_rec.number_of_duplicate_records := l_ams_import_rec.number_of_duplicate_records;
2504: END IF;
2505:
2506: -- enable_word_replacement_flag
2507: IF p_ams_import_rec.enable_word_replacement_flag = FND_API.g_miss_char THEN
2508: x_complete_rec.enable_word_replacement_flag := l_ams_import_rec.enable_word_replacement_flag;
2509: END IF;
2510:
2511: -- Note: Developers need to modify the procedure
2512: -- to handle any business specific requirements.
2513: END Complete_ams_import_Rec;
2514: PROCEDURE Validate_import_list(
2515: p_api_version_number IN NUMBER,
2516: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2518: p_ams_import_rec IN ams_import_rec_type,
2519: x_return_status OUT NOCOPY VARCHAR2,
2520: x_msg_count OUT NOCOPY NUMBER,
2513: END Complete_ams_import_Rec;
2514: PROCEDURE Validate_import_list(
2515: p_api_version_number IN NUMBER,
2516: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2518: p_ams_import_rec IN ams_import_rec_type,
2519: x_return_status OUT NOCOPY VARCHAR2,
2520: x_msg_count OUT NOCOPY NUMBER,
2521: x_msg_data OUT NOCOPY VARCHAR2
2534: AMS_UTILITY_PVT.debug_message('Private API: ' || 'inside validate_import_list');
2535: END IF;
2536:
2537: -- Standard call to check for call compatibility.
2538: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2539: p_api_version_number,
2540: l_api_name,
2541: G_PKG_NAME)
2542: THEN
2539: p_api_version_number,
2540: l_api_name,
2541: G_PKG_NAME)
2542: THEN
2543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2544: END IF;
2545: IF (AMS_DEBUG_HIGH_ON) THEN
2546:
2547: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Compatible_API_Call');
2547: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Compatible_API_Call');
2548: END IF;
2549:
2550: -- Initialize message list if p_init_msg_list is set to TRUE.
2551: IF FND_API.to_Boolean( p_init_msg_list )
2552: THEN
2553: FND_MSG_PUB.initialize;
2554: END IF;
2555: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2558: p_validation_mode => JTF_PLSQL_API.g_update,
2559: x_return_status => x_return_status
2560: );
2561:
2562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2563: RAISE FND_API.G_EXC_ERROR;
2564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: END IF;
2559: x_return_status => x_return_status
2560: );
2561:
2562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2563: RAISE FND_API.G_EXC_ERROR;
2564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: END IF;
2567: END IF;
2560: );
2561:
2562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2563: RAISE FND_API.G_EXC_ERROR;
2564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: END IF;
2567: END IF;
2568: IF (AMS_DEBUG_HIGH_ON) THEN
2561:
2562: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2563: RAISE FND_API.G_EXC_ERROR;
2564: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: END IF;
2567: END IF;
2568: IF (AMS_DEBUG_HIGH_ON) THEN
2569:
2581:
2582: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2583: Validate_ams_import_Rec(
2584: p_api_version_number => 1.0,
2585: p_init_msg_list => FND_API.G_FALSE,
2586: x_return_status => x_return_status,
2587: x_msg_count => x_msg_count,
2588: x_msg_data => x_msg_data,
2589: p_ams_import_rec => l_ams_import_rec);
2587: x_msg_count => x_msg_count,
2588: x_msg_data => x_msg_data,
2589: p_ams_import_rec => l_ams_import_rec);
2590:
2591: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2592: RAISE FND_API.G_EXC_ERROR;
2593: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2595: END IF;
2588: x_msg_data => x_msg_data,
2589: p_ams_import_rec => l_ams_import_rec);
2590:
2591: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2592: RAISE FND_API.G_EXC_ERROR;
2593: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2595: END IF;
2596: END IF;
2589: p_ams_import_rec => l_ams_import_rec);
2590:
2591: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2592: RAISE FND_API.G_EXC_ERROR;
2593: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2595: END IF;
2596: END IF;
2597:
2590:
2591: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2592: RAISE FND_API.G_EXC_ERROR;
2593: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2595: END IF;
2596: END IF;
2597:
2598:
2596: END IF;
2597:
2598:
2599: -- Initialize API return status to SUCCESS
2600: x_return_status := FND_API.G_RET_STS_SUCCESS;
2601:
2602:
2603: -- Debug Message
2604: IF (AMS_DEBUG_HIGH_ON) THEN
2618:
2619: EXCEPTION
2620:
2621: WHEN AMS_Utility_PVT.resource_locked THEN
2622: x_return_status := FND_API.g_ret_sts_error;
2623: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2624:
2625: WHEN FND_API.G_EXC_ERROR THEN
2626: ROLLBACK TO VALIDATE_Import_List_;
2621: WHEN AMS_Utility_PVT.resource_locked THEN
2622: x_return_status := FND_API.g_ret_sts_error;
2623: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2624:
2625: WHEN FND_API.G_EXC_ERROR THEN
2626: ROLLBACK TO VALIDATE_Import_List_;
2627: x_return_status := FND_API.G_RET_STS_ERROR;
2628: -- Standard call to get message count and if count=1, get the message
2629: FND_MSG_PUB.Count_And_Get (
2623: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2624:
2625: WHEN FND_API.G_EXC_ERROR THEN
2626: ROLLBACK TO VALIDATE_Import_List_;
2627: x_return_status := FND_API.G_RET_STS_ERROR;
2628: -- Standard call to get message count and if count=1, get the message
2629: FND_MSG_PUB.Count_And_Get (
2630: p_encoded => FND_API.G_FALSE,
2631: p_count => x_msg_count,
2626: ROLLBACK TO VALIDATE_Import_List_;
2627: x_return_status := FND_API.G_RET_STS_ERROR;
2628: -- Standard call to get message count and if count=1, get the message
2629: FND_MSG_PUB.Count_And_Get (
2630: p_encoded => FND_API.G_FALSE,
2631: p_count => x_msg_count,
2632: p_data => x_msg_data
2633: );
2634:
2631: p_count => x_msg_count,
2632: p_data => x_msg_data
2633: );
2634:
2635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2636: ROLLBACK TO VALIDATE_Import_List_;
2637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2638: -- Standard call to get message count and if count=1, get the message
2639: FND_MSG_PUB.Count_And_Get (
2633: );
2634:
2635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2636: ROLLBACK TO VALIDATE_Import_List_;
2637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2638: -- Standard call to get message count and if count=1, get the message
2639: FND_MSG_PUB.Count_And_Get (
2640: p_encoded => FND_API.G_FALSE,
2641: p_count => x_msg_count,
2636: ROLLBACK TO VALIDATE_Import_List_;
2637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2638: -- Standard call to get message count and if count=1, get the message
2639: FND_MSG_PUB.Count_And_Get (
2640: p_encoded => FND_API.G_FALSE,
2641: p_count => x_msg_count,
2642: p_data => x_msg_data
2643: );
2644:
2643: );
2644:
2645: WHEN OTHERS THEN
2646: ROLLBACK TO VALIDATE_Import_List_;
2647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2648: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2649: THEN
2650: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2651: END IF;
2650: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2651: END IF;
2652: -- Standard call to get message count and if count=1, get the message
2653: FND_MSG_PUB.Count_And_Get (
2654: p_encoded => FND_API.G_FALSE,
2655: p_count => x_msg_count,
2656: p_data => x_msg_data
2657: );
2658: End Validate_Import_List;
2659:
2660:
2661: PROCEDURE Validate_ams_import_rec(
2662: p_api_version_number IN NUMBER,
2663: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2664: x_return_status OUT NOCOPY VARCHAR2,
2665: x_msg_count OUT NOCOPY NUMBER,
2666: x_msg_data OUT NOCOPY VARCHAR2,
2667: p_ams_import_rec IN ams_import_rec_type
2668: )
2669: IS
2670: BEGIN
2671: -- Initialize message list if p_init_msg_list is set to TRUE.
2672: IF FND_API.to_Boolean( p_init_msg_list )
2673: THEN
2674: FND_MSG_PUB.initialize;
2675: END IF;
2676:
2674: FND_MSG_PUB.initialize;
2675: END IF;
2676:
2677: -- Initialize API return status to SUCCESS
2678: x_return_status := FND_API.G_RET_STS_SUCCESS;
2679:
2680: -- Hint: Validate data
2681: -- If data not valid
2682: -- THEN
2679:
2680: -- Hint: Validate data
2681: -- If data not valid
2682: -- THEN
2683: -- x_return_status := FND_API.G_RET_STS_ERROR;
2684:
2685: -- Debug Message
2686: IF (AMS_DEBUG_HIGH_ON) THEN
2687: