[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;
218: REPEAT_END_TIME = l_repeate_end_time, REPEAT_START_TIME = l_repeate_start_time
219: WHERE IMPORT_LIST_HEADER_ID = p_obj_id;
220: END IF;
221:
222: AMS_Utility_PVT.Create_Log (
223: x_return_status => x_return_status,
224: p_arc_log_used_by => l_obj_type,
225: p_log_used_by_id => p_obj_id,
226: p_msg_data => 'After deleting executable:' || l_con_program_name,
229:
230: IF l_repeat_mode IS NOT NULL AND l_repeat_mode <> G_REPEAT_NONE THEN
231: IF (AMS_DEBUG_HIGH_ON) THEN
232: NULL;
233: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 4');
234: END IF;
235: write_msg('Do_Recurring::test 4');
236: -- Create the Executable entry.
237: IF p_recur_type IS NOT NULL AND UPPER(p_recur_type) = G_ARC_IMPORT_HEADER THEN
256: language_code => USERENV ('LANG'));
257: END IF;
258: IF (AMS_DEBUG_HIGH_ON) THEN
259: NULL;
260: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 5');
261: END IF;
262: write_msg('Do_Recurring::test 5');
263: AMS_Utility_PVT.Create_Log (
264: x_return_status => x_return_status,
259: NULL;
260: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 5');
261: END IF;
262: write_msg('Do_Recurring::test 5');
263: AMS_Utility_PVT.Create_Log (
264: x_return_status => x_return_status,
265: p_arc_log_used_by => l_obj_type,
266: p_log_used_by_id => p_obj_id,
267: p_msg_data => 'Executable:' || l_con_program_name || ' is created successfully.',
271: IF (AMS_DEBUG_HIGH_ON) THEN
272:
273:
274:
275: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 6');
276: NULL;
277: END IF;
278: write_msg('Do_Recurring::test 6');
279: --
292: IF (AMS_DEBUG_HIGH_ON) THEN
293:
294:
295:
296: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 7::l_con_program_name::' || l_con_program_name
297: -- || ' G_APP_NAME::' || G_APP_NAME || ' G_IMP_REC_CON_SEQ::' || G_IMP_REC_CON_SEQ
298: -- || ' l_parameter_name::' || l_parameter_name || ' G_DEFAULT_VALUE_SET::' || G_DEFAULT_VALUE_SET
299: -- || ' G_DEFAULT_DISPLAY_SIZE::' || G_DEFAULT_DISPLAY_SIZE );
300: NULL;
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:
308: AMS_Utility_PVT.Create_Log (
309: x_return_status => x_return_status,
310: p_arc_log_used_by => l_obj_type,
311: p_log_used_by_id => p_obj_id,
312: p_msg_data => l_con_program_name || ' is registered successfully.',
341: IF (AMS_DEBUG_HIGH_ON) THEN
342:
343:
344:
345: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 8:l_repeat_mode::' || l_repeat_mode);
346: NULL;
347: END IF;
348: write_msg('Do_Recurring::test 8:l_repeat_mode::' || l_repeat_mode);
349:
346: NULL;
347: END IF;
348: write_msg('Do_Recurring::test 8:l_repeat_mode::' || l_repeat_mode);
349:
350: AMS_Utility_PVT.Create_Log (
351: x_return_status => x_return_status,
352: p_arc_log_used_by => l_obj_type,
353: p_log_used_by_id => p_obj_id,
354: p_msg_data => l_con_program_name || ' parameters are set successfully.',
374: IF (AMS_DEBUG_HIGH_ON) THEN
375:
376:
377:
378: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 9');
379: NULL;
380: END IF;
381: write_msg('Do_Recurring::test 9');
382:
382:
383: IF l_repeat_option_set THEN
384: IF (AMS_DEBUG_HIGH_ON) THEN
385: NULL;
386: --AMS_UTILITY_PVT.debug_message('Do_Recurring::success in set_repeat_options');
387: END IF;
388: write_msg('Do_Recurring::success in set_repeat_options');
389: AMS_Utility_PVT.Create_Log (
390: x_return_status => x_return_status,
385: NULL;
386: --AMS_UTILITY_PVT.debug_message('Do_Recurring::success in set_repeat_options');
387: END IF;
388: write_msg('Do_Recurring::success in set_repeat_options');
389: AMS_Utility_PVT.Create_Log (
390: x_return_status => x_return_status,
391: p_arc_log_used_by => l_obj_type,
392: p_log_used_by_id => p_obj_id,
393: p_msg_data => l_con_program_name || ' schedules are set successfully.',
395: );
396: ELSE
397: IF (AMS_DEBUG_HIGH_ON) THEN
398:
399: AMS_UTILITY_PVT.debug_message('Do_Recurring::fails in set_repeat_options');
400: --AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
401: END IF;
402: --write_msg('Do_Recurring::fails in set_repeat_options');
403: AMS_Utility_PVT.Create_Log (
396: ELSE
397: IF (AMS_DEBUG_HIGH_ON) THEN
398:
399: AMS_UTILITY_PVT.debug_message('Do_Recurring::fails in set_repeat_options');
400: --AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
401: END IF;
402: --write_msg('Do_Recurring::fails in set_repeat_options');
403: AMS_Utility_PVT.Create_Log (
404: x_return_status => x_return_status,
399: AMS_UTILITY_PVT.debug_message('Do_Recurring::fails in set_repeat_options');
400: --AMS_UTILITY_PVT.debug_message('AMS_IMP_REC_SCH_ERROR');
401: END IF;
402: --write_msg('Do_Recurring::fails in set_repeat_options');
403: AMS_Utility_PVT.Create_Log (
404: x_return_status => x_return_status,
405: p_arc_log_used_by => l_obj_type,
406: p_log_used_by_id => p_obj_id,
407: p_msg_data => l_con_program_name || ' schedules fail.',
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;
416: END IF;
417:
418: --
423: program => l_con_program_name,
424: argument1 => p_obj_id);
425: IF (AMS_DEBUG_HIGH_ON) THEN
426: NULL;
427: --AMS_UTILITY_PVT.debug_message('Do_Recurring::test 10::l_request_id:: '
428: -- || l_request_id);
429: END IF;
430: write_msg('Do_Recurring::test 10::l_request_id:: '
431: || l_request_id);
431: || l_request_id);
432: IF l_request_id = 0 THEN
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
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:: ');
442: END IF;
443: Ams_Utility_PVT.Create_Log (
444: x_return_status => x_return_status,
445: p_arc_log_used_by => l_obj_type,
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:: ');
442: END IF;
443: Ams_Utility_PVT.Create_Log (
444: x_return_status => x_return_status,
445: p_arc_log_used_by => l_obj_type,
446: p_log_used_by_id => p_obj_id,
447: p_msg_data => 'Can not submit:' || l_con_program_name,
472: WHEN OTHERS THEN
473: l_error := SQLERRM;
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
631:
632: SELECT AMS_IMP_LIST_HEADERS_ALL_S.NEXTVAL INTO x_ams_import_rec.import_list_header_id
633: FROM DUAL;
634:
635: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List');
636:
637: x_ams_import_rec.last_update_date := l_current_date;
638: x_ams_import_rec.creation_date := l_current_date;
639: x_ams_import_rec.name := x_ams_import_rec.name || x_ams_import_rec.import_list_header_id;
645: x_ams_import_rec.loaded_date := l_current_date;
646: x_ams_import_rec.expiry_date := l_current_date;
647: x_ams_import_rec.purge_date := l_current_date;
648: x_ams_import_rec.parent_imp_header_id := p_import_list_header_id;
649: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List before Get_DeEncrypt_String ');
650: IF (x_ams_import_rec.password IS NOT NULL AND LENGTH (x_ams_import_rec.password) > 0) THEN
651: x_ams_import_rec.password := AMS_Import_Security_PVT.Get_DeEncrypt_String (
652: p_input_string => x_ams_import_rec.password,
653: p_header_id => p_import_list_header_id,
652: p_input_string => x_ams_import_rec.password,
653: p_header_id => p_import_list_header_id,
654: p_encrypt_flag => FALSE);
655: END IF;
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,
663: x_msg_data => x_msg_data,
664: p_ams_import_rec => x_ams_import_rec,
665: x_import_list_header_id => x_ams_import_rec.import_list_header_id);
666:
667: AMS_Utility_PVT.Write_Conc_Log (' Start Duplicate_Import_List after Create_Import_List '
668: || ' the p_import_list_header_id::' || p_import_list_header_id
669: || ' and the x_ams_import_rec.import_list_header_id::'
670: || x_ams_import_rec.import_list_header_id);
671:
676: where import_list_header_id = p_import_list_header_id),
677: generated_list_name = name
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;
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);
688: FETCH c_get_file_type INTO x_file_type;
689: CLOSE c_get_file_type;
690:
687: OPEN c_get_file_type (p_import_list_header_id);
688: FETCH c_get_file_type INTO x_file_type;
689: CLOSE c_get_file_type;
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;
700: (p_count => x_msg_count,
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;
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;
710: -- Standard call to get message count and if count=1, get the message
824:
825: -- Debug Message
826: IF (AMS_DEBUG_HIGH_ON) THEN
827:
828: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
829: END IF;
830:
831:
832: -- Initialize API return status to SUCCESS
842: l_dummy := NULL;
843: OPEN c_id;
844: FETCH c_id INTO l_IMPORT_LIST_HEADER_ID;
845: CLOSE c_id;
846: ams_utility_pvt.create_log(l_return_status, 'IMPH', l_IMPORT_LIST_HEADER_ID, 'Get ID from sequence ' || l_IMPORT_LIST_HEADER_ID);
847:
848: OPEN c_id_exists(l_IMPORT_LIST_HEADER_ID);
849: FETCH c_id_exists INTO l_dummy;
850: CLOSE c_id_exists;
853: ELSE
854: l_IMPORT_LIST_HEADER_ID := p_ams_import_rec.IMPORT_LIST_HEADER_ID;
855: -- SOLIN, bug 4377876
856: -- If the record exists, call update API.
857: ams_utility_pvt.create_log(l_return_status, 'IMPH',
858: l_IMPORT_LIST_HEADER_ID, 'Get ID from passed in value ' || l_IMPORT_LIST_HEADER_ID);
859: l_dummy := null;
860: OPEN c_id_exists(l_IMPORT_LIST_HEADER_ID);
861: FETCH c_id_exists INTO l_dummy;
919:
920:
921:
922:
923: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
924:
925:
926:
927: END IF;
931: -- =========================================================================
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:
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);
941: END IF;
942:
943: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
944: THEN
944: THEN
945: -- Debug message
946: IF (AMS_DEBUG_HIGH_ON) THEN
947:
948: AMS_UTILITY_PVT.debug_message('Private API: Validate_Import_List');
949: END IF;
950:
951: -- Invoke validation procedures
952: Validate_import_list(
1015:
1016: -- Debug Message
1017: IF (AMS_DEBUG_HIGH_ON) THEN
1018:
1019: AMS_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
1020: END IF;
1021:
1022: l_encrpted_password := p_ams_import_rec.password;
1023:
1130:
1131: -- Debug Message
1132: IF (AMS_DEBUG_HIGH_ON) THEN
1133:
1134: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1135: END IF;
1136:
1137: -- Standard call to get message count and if count is 1, get message info.
1138: FND_MSG_PUB.Count_And_Get
1140: p_data => x_msg_data
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
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;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1233:
1234: -- Debug Message
1235: IF (AMS_DEBUG_HIGH_ON) THEN
1236:
1237: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1238: END IF;
1239:
1240:
1241: -- Initialize API return status to SUCCESS
1243:
1244: -- Debug Message
1245: IF (AMS_DEBUG_HIGH_ON) THEN
1246:
1247: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
1248: END IF;
1249:
1250: /*
1251: OPEN c_get_Import_List( l_tar_ams_import_rec.import_list_header_id);
1252:
1253: FETCH c_get_Import_List INTO l_ref_ams_import_rec ;
1254:
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;
1260: END IF;
1261: -- Debug Message
1262: IF (AMS_DEBUG_HIGH_ON) THEN
1263:
1264: AMS_UTILITY_PVT.debug_message('Private API: - Close Cursor');
1265: END IF;
1266: CLOSE c_get_Import_List;
1267: */
1268:
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;
1276: End if;
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',
1280: p_token_name => 'INFO',
1281: p_token_value => 'Import_List') ;
1282: raise FND_API.G_EXC_ERROR;
1283: End if;
1285: THEN
1286: -- Debug message
1287: IF (AMS_DEBUG_HIGH_ON) THEN
1288:
1289: AMS_UTILITY_PVT.debug_message('Private API: Validate_Import_List');
1290: END IF;
1291:
1292: -- Invoke validation procedures
1293: Validate_import_list(
1306:
1307: -- Debug Message
1308: IF (AMS_DEBUG_HIGH_ON) THEN
1309:
1310: AMS_UTILITY_PVT.debug_message('Private API: Calling update table handler');
1311: END IF;
1312:
1313: -- Invoke table handler(AMS_IMP_LIST_HEADERS_PKG.Update_Row)
1314: AMS_IMP_LIST_HEADERS_PKG.Update_Row(
1393:
1394: -- Debug Message
1395: IF (AMS_DEBUG_HIGH_ON) THEN
1396:
1397: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1398: END IF;
1399:
1400: -- Standard call to get message count and if count is 1, get message info.
1401: FND_MSG_PUB.Count_And_Get
1403: p_data => x_msg_data
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
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;
1413: x_return_status := FND_API.G_RET_STS_ERROR;
1482:
1483: -- Debug Message
1484: IF (AMS_DEBUG_HIGH_ON) THEN
1485:
1486: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1487: END IF;
1488:
1489:
1490: -- Initialize API return status to SUCCESS
1495: --
1496: -- Debug Message
1497: IF (AMS_DEBUG_HIGH_ON) THEN
1498:
1499: AMS_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1500: END IF;
1501:
1502: -- Invoke table handler(AMS_IMP_LIST_HEADERS_PKG.Delete_Row)
1503: AMS_IMP_LIST_HEADERS_PKG.Delete_Row(
1515:
1516: -- Debug Message
1517: IF (AMS_DEBUG_HIGH_ON) THEN
1518:
1519: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1520: END IF;
1521:
1522: -- Standard call to get message count and if count is 1, get message info.
1523: FND_MSG_PUB.Count_And_Get
1525: p_data => x_msg_data
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
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;
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1597:
1598: -- Debug Message
1599: IF (AMS_DEBUG_HIGH_ON) THEN
1600:
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 )
1626: IF (AMS_DEBUG_HIGH_ON) THEN
1627:
1628:
1629:
1630: AMS_Utility_PVT.debug_message(l_full_name||': start');
1631:
1632: END IF;
1633: OPEN c_Import_List;
1634:
1651: p_count => x_msg_count,
1652: p_data => x_msg_data);
1653: IF (AMS_DEBUG_HIGH_ON) THEN
1654:
1655: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1656: END IF;
1657: EXCEPTION
1658:
1659: WHEN AMS_Utility_PVT.resource_locked THEN
1655: AMS_Utility_PVT.debug_message(l_full_name ||': end');
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
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;
1665: x_return_status := FND_API.G_RET_STS_ERROR;
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 ||''''
1713: );
1714: ELSE
1711: 'AMS_IMP_LIST_HEADERS_ALL',
1712: 'IMPORT_LIST_HEADER_ID = ''' || p_ams_import_rec.IMPORT_LIST_HEADER_ID ||''''
1713: );
1714: ELSE
1715: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1716: 'AMS_IMP_LIST_HEADERS_ALL',
1717: '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: );
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;
1727:
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;
1750:
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;
1757:
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;
1764:
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;
1771:
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;
1778:
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;
1785:
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;
1792:
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;
1799:
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;
1806:
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;
1813:
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;
1820:
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;
1827:
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;
1834:
1833: END IF;
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:
1840: END IF;
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:
1847: END IF;
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:
1854: END IF;
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:
1861: END IF;
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:
1868: END IF;
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:
1875: END IF;
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:
1882: END IF;
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:
1889: END IF;
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:
1896: END IF;
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:
1903: END IF;
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:
1910: END IF;
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:
1917: END IF;
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;
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');
2000: FND_MSG_PUB.Add;
2001: x_return_status := FND_API.g_ret_sts_error;
2002: RETURN;
2043: OPEN c_get_Import_List_name( p_ams_import_rec.name);
2044: FETCH c_get_Import_List_name INTO l_import_name_rec ;
2045: IF (c_get_Import_List_name%FOUND)
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;
2066:
2067: -- Check Items Uniqueness API calls
2068: IF (AMS_DEBUG_HIGH_ON) THEN
2069:
2070: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_uk_items');
2071: END IF;
2072:
2073: check_ams_import_uk_items(
2074: p_ams_import_rec => p_ams_import_rec,
2080:
2081: -- Check Items Required/NOT NULL API calls
2082: IF (AMS_DEBUG_HIGH_ON) THEN
2083:
2084: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_req_items');
2085: END IF;
2086:
2087: check_ams_import_req_items(
2088: p_ams_import_rec => p_ams_import_rec,
2093: END IF;
2094: -- Check Items Foreign Keys API calls
2095: IF (AMS_DEBUG_HIGH_ON) THEN
2096:
2097: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_FK_items');
2098: END IF;
2099:
2100: check_ams_import_FK_items(
2101: p_ams_import_rec => p_ams_import_rec,
2105: END IF;
2106: -- Check Items Lookups
2107: IF (AMS_DEBUG_HIGH_ON) THEN
2108:
2109: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_Lookup_items');
2110: END IF;
2111:
2112: check_ams_import_Lookup_items(
2113: p_ams_import_rec => p_ams_import_rec,
2116: RETURN;
2117: END IF;
2118: IF (AMS_DEBUG_HIGH_ON) THEN
2119:
2120: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after check_ams_import_Lookup_items');
2121: END IF;
2122:
2123: IF (AMS_DEBUG_HIGH_ON) THEN
2124:
2123: IF (AMS_DEBUG_HIGH_ON) THEN
2124:
2125:
2126:
2127: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_ams_import_Business');
2128:
2129: END IF;
2130: check_ams_import_Business(
2131: p_ams_import_rec => p_ams_import_rec,
2135: RETURN;
2136: END IF;
2137: IF (AMS_DEBUG_HIGH_ON) THEN
2138:
2139: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after check_ams_import_Business');
2140: END IF;
2141: END Check_ams_import_Items;
2142:
2143:
2530: -- Standard Start of API savepoint
2531: SAVEPOINT VALIDATE_Import_List_;
2532: IF (AMS_DEBUG_HIGH_ON) THEN
2533:
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,
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');
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 )
2566: END IF;
2567: END IF;
2568: IF (AMS_DEBUG_HIGH_ON) THEN
2569:
2570: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Check_ams_import_Items');
2571: END IF;
2572:
2573: Complete_ams_import_Rec(
2574: p_ams_import_rec => p_ams_import_rec,
2575: x_complete_rec => l_ams_import_rec
2576: );
2577: IF (AMS_DEBUG_HIGH_ON) THEN
2578:
2579: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after Complete_ams_import_Rec');
2580: END IF;
2581:
2582: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2583: Validate_ams_import_Rec(
2602:
2603: -- Debug Message
2604: IF (AMS_DEBUG_HIGH_ON) THEN
2605:
2606: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2607: END IF;
2608:
2609: -- Standard call to get message count and if count is 1, get message info.
2610: FND_MSG_PUB.Count_And_Get
2612: p_data => x_msg_data
2613: );
2614: IF (AMS_DEBUG_HIGH_ON) THEN
2615:
2616: AMS_UTILITY_PVT.debug_message('after Count_And_Get');
2617: END IF;
2618:
2619: EXCEPTION
2620:
2617: END IF;
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
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_;
2627: x_return_status := FND_API.G_RET_STS_ERROR;
2684:
2685: -- Debug Message
2686: IF (AMS_DEBUG_HIGH_ON) THEN
2687:
2688: AMS_UTILITY_PVT.debug_message('Private API: Validate_ams_import_rec');
2689: END IF;
2690: -- Standard call to get message count and if count is 1, get message info.
2691: FND_MSG_PUB.Count_And_Get
2692: (p_count => x_msg_count,