[Home] [Help]
120: IF (AMS_DEBUG_HIGH_ON) THEN
121:
122:
123: NULL;
124: --AMS_UTILITY_PVT.debug_message('Do_Recurring::p_recur_type::::' || p_recur_type);
125:
126: END IF;
127: write_msg('Do_Recurring::p_recur_type::::' || p_recur_type);
128:
133: l_parameter_name := G_EXP_REC_CON_PARA_NAME;
134: END IF;
135: IF (AMS_DEBUG_HIGH_ON) THEN
136: NULL;
137: --AMS_UTILITY_PVT.debug_message('Do_Recurring::l_con_program_name::' || l_con_program_name
138: -- || ' l_obj_type::' || l_obj_type || ' l_java_executable_name::' || l_java_executable_name
139: -- || ' l_parameter_name::' || l_parameter_name);
140: END IF;
141:
142: IF (AMS_DEBUG_HIGH_ON) THEN
143: NULL;
144:
145:
146: --AMS_UTILITY_PVT.debug_message('Do_Recurring::l_con_program_name::' || l_con_program_name
147: -- || ' l_obj_type::' || l_obj_type || ' l_java_executable_name::' || l_java_executable_name
148: -- || ' l_parameter_name::' || l_parameter_name);
149:
150: END IF;
153: IF (AMS_DEBUG_HIGH_ON) THEN
154:
155:
156:
157: --AMS_UTILITY_PVT.debug_message('Do_Recurring::l_con_program_name::' || l_con_program_name);
158: NULL;
159: END IF;
160: write_msg('Do_Recurring::l_con_program_name::' || l_con_program_name);
161: --
169: IF (AMS_DEBUG_HIGH_ON) THEN
170:
171:
172: NULL;
173: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 1');
174:
175: END IF;
176: write_msg('Do_Recurring::test 1');
177: FND_PROGRAM.DELETE_EXECUTABLE (
179: application => G_APP_NAME
180: );
181: IF (AMS_DEBUG_HIGH_ON) THEN
182: NULL;
183: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 2');
184: END IF;
185: write_msg('Do_Recurring::test 2');
186:
187: --
204:
205: IF p_recur_type IS NOT NULL AND UPPER(p_recur_type) = G_ARC_IMPORT_HEADER THEN --import
206: IF (AMS_DEBUG_HIGH_ON) THEN
207:
208: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 2 ::l_cancel_date::' || l_cancel_date
209: -- || ' l_cancel_flag::' || l_cancel_flag || ' l_repeat_time::' || l_repeat_time
210: -- || ' l_repeat_interval::' || l_repeat_interval || ' l_repeat_unit::' || l_repeat_unit
211: -- || ' l_repeate_end_time::' || l_repeate_end_time || ' l_repeate_start_time::' || l_repeate_start_time);
212: NULL;
225: REPEAT_END_TIME = l_repeate_end_time, REPEAT_START_TIME = l_repeate_start_time
226: WHERE EXPORT_LIST_HEADER_ID = p_obj_id;
227: END IF;
228:
229: AMS_Utility_PVT.Create_Log (
230: x_return_status => x_return_status,
231: p_arc_log_used_by => l_obj_type,
232: p_log_used_by_id => p_obj_id,
233: p_msg_data => 'After deleting executable:' || l_con_program_name,
236:
237: IF l_repeat_mode IS NOT NULL AND l_repeat_mode <> G_REPEAT_NONE THEN
238: IF (AMS_DEBUG_HIGH_ON) THEN
239: NULL;
240: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 4');
241: END IF;
242: write_msg('Do_Recurring::test 4');
243: -- Create the Executable entry.
244: IF p_recur_type IS NOT NULL AND UPPER(p_recur_type) = G_ARC_IMPORT_HEADER THEN
263: language_code => USERENV ('LANG'));
264: END IF;
265: IF (AMS_DEBUG_HIGH_ON) THEN
266: NULL;
267: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 5');
268: END IF;
269: write_msg('Do_Recurring::test 5');
270: AMS_Utility_PVT.Create_Log (
271: x_return_status => x_return_status,
266: NULL;
267: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 5');
268: END IF;
269: write_msg('Do_Recurring::test 5');
270: AMS_Utility_PVT.Create_Log (
271: x_return_status => x_return_status,
272: p_arc_log_used_by => l_obj_type,
273: p_log_used_by_id => p_obj_id,
274: p_msg_data => 'Executable:' || l_con_program_name || ' is created successfully.',
278: IF (AMS_DEBUG_HIGH_ON) THEN
279:
280:
281:
282: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 6');
283: NULL;
284: END IF;
285: write_msg('Do_Recurring::test 6');
286: --
299: IF (AMS_DEBUG_HIGH_ON) THEN
300:
301:
302:
303: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 7::l_con_program_name::' || l_con_program_name
304: -- || ' G_APP_NAME::' || G_APP_NAME || ' G_IMP_REC_CON_SEQ::' || G_IMP_REC_CON_SEQ
305: -- || ' l_parameter_name::' || l_parameter_name || ' G_DEFAULT_VALUE_SET::' || G_DEFAULT_VALUE_SET
306: -- || ' G_DEFAULT_DISPLAY_SIZE::' || G_DEFAULT_DISPLAY_SIZE );
307: NULL;
311: || ' G_APP_NAME::' || G_APP_NAME || ' G_IMP_REC_CON_SEQ::' || G_IMP_REC_CON_SEQ
312: || ' l_parameter_name::' || l_parameter_name || ' G_DEFAULT_VALUE_SET::' || G_DEFAULT_VALUE_SET
313: || ' G_DEFAULT_DISPLAY_SIZE::' || G_DEFAULT_DISPLAY_SIZE );
314:
315: AMS_Utility_PVT.Create_Log (
316: x_return_status => x_return_status,
317: p_arc_log_used_by => l_obj_type,
318: p_log_used_by_id => p_obj_id,
319: p_msg_data => l_con_program_name || ' is registered successfully.',
348: IF (AMS_DEBUG_HIGH_ON) THEN
349:
350:
351:
352: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 8:l_repeat_mode::' || l_repeat_mode);
353: NULL;
354: END IF;
355: write_msg('Do_Recurring::test 8:l_repeat_mode::' || l_repeat_mode);
356:
353: NULL;
354: END IF;
355: write_msg('Do_Recurring::test 8:l_repeat_mode::' || l_repeat_mode);
356:
357: AMS_Utility_PVT.Create_Log (
358: x_return_status => x_return_status,
359: p_arc_log_used_by => l_obj_type,
360: p_log_used_by_id => p_obj_id,
361: p_msg_data => l_con_program_name || ' parameters are set successfully.',
381: IF (AMS_DEBUG_HIGH_ON) THEN
382:
383:
384:
385: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 9');
386: NULL;
387: END IF;
388: write_msg('Do_Recurring::test 9');
389:
389:
390: IF l_repeat_option_set THEN
391: IF (AMS_DEBUG_HIGH_ON) THEN
392: NULL;
393: --AMS_UTILITY_PVT.debug_message('Do_Recurring::success in set_repeat_options');
394: END IF;
395: write_msg('Do_Recurring::success in set_repeat_options');
396: AMS_Utility_PVT.Create_Log (
397: x_return_status => x_return_status,
392: NULL;
393: --AMS_UTILITY_PVT.debug_message('Do_Recurring::success in set_repeat_options');
394: END IF;
395: write_msg('Do_Recurring::success in set_repeat_options');
396: AMS_Utility_PVT.Create_Log (
397: x_return_status => x_return_status,
398: p_arc_log_used_by => l_obj_type,
399: p_log_used_by_id => p_obj_id,
400: p_msg_data => l_con_program_name || ' schedules are set successfully.',
402: );
403: ELSE
404: IF (AMS_DEBUG_HIGH_ON) THEN
405:
406: AMS_UTILITY_PVT.debug_message('Do_Recurring::fails in set_repeat_options');
407: --AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
408: END IF;
409: --write_msg('Do_Recurring::fails in set_repeat_options');
410: AMS_Utility_PVT.Create_Log (
403: ELSE
404: IF (AMS_DEBUG_HIGH_ON) THEN
405:
406: AMS_UTILITY_PVT.debug_message('Do_Recurring::fails in set_repeat_options');
407: --AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
408: END IF;
409: --write_msg('Do_Recurring::fails in set_repeat_options');
410: AMS_Utility_PVT.Create_Log (
411: x_return_status => x_return_status,
406: AMS_UTILITY_PVT.debug_message('Do_Recurring::fails in set_repeat_options');
407: --AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
408: END IF;
409: --write_msg('Do_Recurring::fails in set_repeat_options');
410: AMS_Utility_PVT.Create_Log (
411: x_return_status => x_return_status,
412: p_arc_log_used_by => l_obj_type,
413: p_log_used_by_id => p_obj_id,
414: p_msg_data => l_con_program_name || ' schedules fail.',
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;
423: END IF;
424:
425: --
430: program => l_con_program_name,
431: argument1 => p_obj_id);
432: IF (AMS_DEBUG_HIGH_ON) THEN
433: NULL;
434: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 10::l_request_id:: '
435: -- || l_request_id);
436: END IF;
437: write_msg('Do_Recurring::test 10::l_request_id:: '
438: || l_request_id);
438: || l_request_id);
439: IF l_request_id = 0 THEN
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
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:: ');
449: END IF;
450: Ams_Utility_PVT.Create_Log (
451: x_return_status => x_return_status,
452: p_arc_log_used_by => l_obj_type,
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:: ');
449: END IF;
450: Ams_Utility_PVT.Create_Log (
451: x_return_status => x_return_status,
452: p_arc_log_used_by => l_obj_type,
453: p_log_used_by_id => p_obj_id,
454: p_msg_data => 'Can not submit:' || l_con_program_name,
479: WHEN OTHERS THEN
480: l_error := SQLERRM;
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
638:
639: SELECT AMS_IMP_LIST_HEADERS_ALL_S.NEXTVAL INTO x_ams_import_rec.import_list_header_id
640: FROM DUAL;
641:
642: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List');
643:
644: x_ams_import_rec.last_update_date := l_current_date;
645: x_ams_import_rec.creation_date := l_current_date;
646: x_ams_import_rec.name := x_ams_import_rec.name || x_ams_import_rec.import_list_header_id;
652: x_ams_import_rec.loaded_date := l_current_date;
653: x_ams_import_rec.expiry_date := l_current_date;
654: x_ams_import_rec.purge_date := l_current_date;
655: x_ams_import_rec.parent_imp_header_id := p_import_list_header_id;
656: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List before Get_DeEncrypt_String ');
657: IF (x_ams_import_rec.password IS NOT NULL AND LENGTH (x_ams_import_rec.password) > 0) THEN
658: x_ams_import_rec.password := AMS_Import_Security_PVT.Get_DeEncrypt_String (
659: p_input_string => x_ams_import_rec.password,
660: p_header_id => p_import_list_header_id,
659: p_input_string => x_ams_import_rec.password,
660: p_header_id => p_import_list_header_id,
661: p_encrypt_flag => FALSE);
662: END IF;
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,
670: x_msg_data => x_msg_data,
671: p_ams_import_rec => x_ams_import_rec,
672: x_import_list_header_id => x_ams_import_rec.import_list_header_id);
673:
674: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after Create_Import_List '
675: || ' the p_import_list_header_id::' || p_import_list_header_id
676: || ' and the x_ams_import_rec.import_list_header_id::'
677: || x_ams_import_rec.import_list_header_id);
678:
683: where import_list_header_id = p_import_list_header_id),
684: generated_list_name = name
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;
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);
695: FETCH c_get_file_type INTO x_file_type;
696: CLOSE c_get_file_type;
697:
694: OPEN c_get_file_type (p_import_list_header_id);
695: FETCH c_get_file_type INTO x_file_type;
696: CLOSE c_get_file_type;
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;
707: (p_count => x_msg_count,
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;
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;
717: -- Standard call to get message count and if count=1, get the message
831:
832: -- Debug Message
833: IF (AMS_DEBUG_HIGH_ON) THEN
834:
835: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
836: END IF;
837:
838:
839: -- Initialize API return status to SUCCESS
849: l_dummy := NULL;
850: OPEN c_id;
851: FETCH c_id INTO l_IMPORT_LIST_HEADER_ID;
852: CLOSE c_id;
853: ams_utility_pvt.create_log(l_return_status, 'IMPH', l_IMPORT_LIST_HEADER_ID, 'Get ID from sequence ' || l_IMPORT_LIST_HEADER_ID);
854:
855: OPEN c_id_exists(l_IMPORT_LIST_HEADER_ID);
856: FETCH c_id_exists INTO l_dummy;
857: CLOSE c_id_exists;
860: ELSE
861: l_IMPORT_LIST_HEADER_ID := p_ams_import_rec.IMPORT_LIST_HEADER_ID;
862: -- SOLIN, bug 4377876
863: -- If the record exists, call update API.
864: ams_utility_pvt.create_log(l_return_status, 'IMPH',
865: l_IMPORT_LIST_HEADER_ID, 'Get ID from passed in value ' || l_IMPORT_LIST_HEADER_ID);
866: l_dummy := null;
867: OPEN c_id_exists(l_IMPORT_LIST_HEADER_ID);
868: FETCH c_id_exists INTO l_dummy;
926:
927:
928:
929:
930: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
931:
932:
933:
934: END IF;
938: -- =========================================================================
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:
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);
948: END IF;
949:
950: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
951: THEN
951: THEN
952: -- Debug message
953: IF (AMS_DEBUG_HIGH_ON) THEN
954:
955: AMS_UTILITY_PVT.debug_message('Private API: Validate_Import_List');
956: END IF;
957:
958: -- Invoke validation procedures
959: Validate_import_list(
1022:
1023: -- Debug Message
1024: IF (AMS_DEBUG_HIGH_ON) THEN
1025:
1026: AMS_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
1027: END IF;
1028:
1029: l_encrpted_password := p_ams_import_rec.password;
1030:
1137:
1138: -- Debug Message
1139: IF (AMS_DEBUG_HIGH_ON) THEN
1140:
1141: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1142: END IF;
1143:
1144: -- Standard call to get message count and if count is 1, get message info.
1145: FND_MSG_PUB.Count_And_Get
1147: p_data => x_msg_data
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
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;
1157: x_return_status := FND_API.G_RET_STS_ERROR;
1240:
1241: -- Debug Message
1242: IF (AMS_DEBUG_HIGH_ON) THEN
1243:
1244: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1245: END IF;
1246:
1247:
1248: -- Initialize API return status to SUCCESS
1250:
1251: -- Debug Message
1252: IF (AMS_DEBUG_HIGH_ON) THEN
1253:
1254: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
1255: END IF;
1256:
1257: /*
1258: OPEN c_get_Import_List( l_tar_ams_import_rec.import_list_header_id);
1259:
1260: FETCH c_get_Import_List INTO l_ref_ams_import_rec ;
1261:
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;
1267: END IF;
1268: -- Debug Message
1269: IF (AMS_DEBUG_HIGH_ON) THEN
1270:
1271: AMS_UTILITY_PVT.debug_message('Private API: - Close Cursor');
1272: END IF;
1273: CLOSE c_get_Import_List;
1274: */
1275:
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;
1283: End if;
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',
1287: p_token_name => 'INFO',
1288: p_token_value => 'Import_List') ;
1289: raise FND_API.G_EXC_ERROR;
1290: End if;
1292: THEN
1293: -- Debug message
1294: IF (AMS_DEBUG_HIGH_ON) THEN
1295:
1296: AMS_UTILITY_PVT.debug_message('Private API: Validate_Import_List');
1297: END IF;
1298:
1299: -- Invoke validation procedures
1300: Validate_import_list(
1313:
1314: -- Debug Message
1315: IF (AMS_DEBUG_HIGH_ON) THEN
1316:
1317: AMS_UTILITY_PVT.debug_message('Private API: Calling update table handler');
1318: END IF;
1319:
1320: -- Invoke table handler(AMS_IMP_LIST_HEADERS_PKG.Update_Row)
1321: AMS_IMP_LIST_HEADERS_PKG.Update_Row(
1400:
1401: -- Debug Message
1402: IF (AMS_DEBUG_HIGH_ON) THEN
1403:
1404: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1405: END IF;
1406:
1407: -- Standard call to get message count and if count is 1, get message info.
1408: FND_MSG_PUB.Count_And_Get
1410: p_data => x_msg_data
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
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;
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: -- Debug Message
1491: IF (AMS_DEBUG_HIGH_ON) THEN
1492:
1493: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1494: END IF;
1495:
1496:
1497: -- Initialize API return status to SUCCESS
1502: --
1503: -- Debug Message
1504: IF (AMS_DEBUG_HIGH_ON) THEN
1505:
1506: AMS_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1507: END IF;
1508:
1509: -- Invoke table handler(AMS_IMP_LIST_HEADERS_PKG.Delete_Row)
1510: AMS_IMP_LIST_HEADERS_PKG.Delete_Row(
1522:
1523: -- Debug Message
1524: IF (AMS_DEBUG_HIGH_ON) THEN
1525:
1526: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1527: END IF;
1528:
1529: -- Standard call to get message count and if count is 1, get message info.
1530: FND_MSG_PUB.Count_And_Get
1532: p_data => x_msg_data
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
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;
1542: x_return_status := FND_API.G_RET_STS_ERROR;
1604:
1605: -- Debug Message
1606: IF (AMS_DEBUG_HIGH_ON) THEN
1607:
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 )
1633: IF (AMS_DEBUG_HIGH_ON) THEN
1634:
1635:
1636:
1637: AMS_Utility_PVT.debug_message(l_full_name||': start');
1638:
1639: END IF;
1640: OPEN c_Import_List;
1641:
1658: p_count => x_msg_count,
1659: p_data => x_msg_data);
1660: IF (AMS_DEBUG_HIGH_ON) THEN
1661:
1662: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1663: END IF;
1664: EXCEPTION
1665:
1666: WHEN AMS_Utility_PVT.resource_locked THEN
1662: AMS_Utility_PVT.debug_message(l_full_name ||': end');
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
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;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
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 ||''''
1720: );
1721: ELSE
1718: 'AMS_IMP_LIST_HEADERS_ALL',
1719: 'IMPORT_LIST_HEADER_ID = ''' || p_ams_import_rec.IMPORT_LIST_HEADER_ID ||''''
1720: );
1721: ELSE
1722: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1723: 'AMS_IMP_LIST_HEADERS_ALL',
1724: '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: );
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;
1734:
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;
1757:
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;
1764:
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;
1771:
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;
1778:
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;
1785:
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;
1792:
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;
1799:
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;
1806:
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;
1813:
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;
1820:
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;
1827:
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;
1834:
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;
1841:
1840: END IF;
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:
1847: END IF;
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:
1854: END IF;
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:
1861: END IF;
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:
1868: END IF;
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:
1875: END IF;
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:
1882: END IF;
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:
1889: END IF;
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:
1896: END IF;
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:
1903: END IF;
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:
1910: END IF;
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:
1917: END IF;
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:
1924: END IF;
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;
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');
2007: FND_MSG_PUB.Add;
2008: x_return_status := FND_API.g_ret_sts_error;
2009: RETURN;
2050: OPEN c_get_Import_List_name( p_ams_import_rec.name);
2051: FETCH c_get_Import_List_name INTO l_import_name_rec ;
2052: IF (c_get_Import_List_name%FOUND)
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;
2073:
2074: -- Check Items Uniqueness API calls
2075: IF (AMS_DEBUG_HIGH_ON) THEN
2076:
2077: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_uk_items');
2078: END IF;
2079:
2080: check_ams_import_uk_items(
2081: p_ams_import_rec => p_ams_import_rec,
2087:
2088: -- Check Items Required/NOT NULL API calls
2089: IF (AMS_DEBUG_HIGH_ON) THEN
2090:
2091: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_req_items');
2092: END IF;
2093:
2094: check_ams_import_req_items(
2095: p_ams_import_rec => p_ams_import_rec,
2100: END IF;
2101: -- Check Items Foreign Keys API calls
2102: IF (AMS_DEBUG_HIGH_ON) THEN
2103:
2104: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_FK_items');
2105: END IF;
2106:
2107: check_ams_import_FK_items(
2108: p_ams_import_rec => p_ams_import_rec,
2112: END IF;
2113: -- Check Items Lookups
2114: IF (AMS_DEBUG_HIGH_ON) THEN
2115:
2116: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_Lookup_items');
2117: END IF;
2118:
2119: check_ams_import_Lookup_items(
2120: p_ams_import_rec => p_ams_import_rec,
2123: RETURN;
2124: END IF;
2125: IF (AMS_DEBUG_HIGH_ON) THEN
2126:
2127: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after check_ams_import_Lookup_items');
2128: END IF;
2129:
2130: IF (AMS_DEBUG_HIGH_ON) THEN
2131:
2130: IF (AMS_DEBUG_HIGH_ON) THEN
2131:
2132:
2133:
2134: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_Business');
2135:
2136: END IF;
2137: check_ams_import_Business(
2138: p_ams_import_rec => p_ams_import_rec,
2142: RETURN;
2143: END IF;
2144: IF (AMS_DEBUG_HIGH_ON) THEN
2145:
2146: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after check_ams_import_Business');
2147: END IF;
2148: END Check_ams_import_Items;
2149:
2150:
2537: -- Standard Start of API savepoint
2538: SAVEPOINT VALIDATE_Import_List_;
2539: IF (AMS_DEBUG_HIGH_ON) THEN
2540:
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,
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');
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 )
2573: END IF;
2574: END IF;
2575: IF (AMS_DEBUG_HIGH_ON) THEN
2576:
2577: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Check_ams_import_Items');
2578: END IF;
2579:
2580: Complete_ams_import_Rec(
2581: p_ams_import_rec => p_ams_import_rec,
2582: x_complete_rec => l_ams_import_rec
2583: );
2584: IF (AMS_DEBUG_HIGH_ON) THEN
2585:
2586: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Complete_ams_import_Rec');
2587: END IF;
2588:
2589: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2590: Validate_ams_import_Rec(
2609:
2610: -- Debug Message
2611: IF (AMS_DEBUG_HIGH_ON) THEN
2612:
2613: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2614: END IF;
2615:
2616: -- Standard call to get message count and if count is 1, get message info.
2617: FND_MSG_PUB.Count_And_Get
2619: p_data => x_msg_data
2620: );
2621: IF (AMS_DEBUG_HIGH_ON) THEN
2622:
2623: AMS_UTILITY_PVT.debug_message('after Count_And_Get');
2624: END IF;
2625:
2626: EXCEPTION
2627:
2624: END IF;
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
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_;
2634: x_return_status := FND_API.G_RET_STS_ERROR;
2691:
2692: -- Debug Message
2693: IF (AMS_DEBUG_HIGH_ON) THEN
2694:
2695: AMS_UTILITY_PVT.debug_message('Private API: Validate_ams_import_rec');
2696: END IF;
2697: -- Standard call to get message count and if count is 1, get message info.
2698: FND_MSG_PUB.Count_And_Get
2699: (p_count => x_msg_count,