[Home] [Help]
123:
124:
125:
126: -- Debug Message
127: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
128:
129:
130:
131: -- Initialize API return status to SUCCESS
136: -- =========================================================================
137:
138: IF FND_GLOBAL.USER_ID IS NULL
139: THEN
140: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
141: RAISE FND_API.G_EXC_ERROR;
142: END IF;
143:
144:
160:
161: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
162: THEN
163: -- Debug message
164: AMS_UTILITY_PVT.debug_message('Private API: Validate_Dm_Target_Sources');
165:
166: -- Invoke validation procedures
167: Validate_dm_target_sources(
168: p_api_version_number => 1.0,
180: END IF;
181:
182:
183: -- Debug Message
184: AMS_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
185:
186: -- Invoke table handler(Ams_Dm_Target_Sources_Pkg.Insert_Row)
187: Ams_Dm_Target_Sources_Pkg.Insert_Row(
188: px_target_source_id => l_target_source_rec.target_source_id,
211: END IF;
212:
213:
214: -- Debug Message
215: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
216:
217:
218: -- Standard call to get message count and if count is 1, get message info.
219: FND_MSG_PUB.Count_And_Get
221: p_data => x_msg_data
222: );
223: EXCEPTION
224:
225: WHEN AMS_Utility_PVT.resource_locked THEN
226: x_return_status := FND_API.g_ret_sts_error;
227: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
228:
229: WHEN FND_API.G_EXC_ERROR THEN
223: EXCEPTION
224:
225: WHEN AMS_Utility_PVT.resource_locked THEN
226: x_return_status := FND_API.g_ret_sts_error;
227: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
228:
229: WHEN FND_API.G_EXC_ERROR THEN
230: ROLLBACK TO CREATE_Dm_Target_Sources_PVT;
231: x_return_status := FND_API.G_RET_STS_ERROR;
350:
351:
352:
353: -- Debug Message
354: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
355:
356:
357:
358: -- Initialize API return status to SUCCESS
358: -- Initialize API return status to SUCCESS
359: x_return_status := FND_API.G_RET_STS_SUCCESS;
360:
361: -- Debug Message
362: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
363:
364: OPEN c_get_Dm_Target_Sources( l_tar_target_source_rec.target_source_id);
365:
366: FETCH c_get_Dm_Target_Sources INTO l_ref_target_source_rec ;
365:
366: FETCH c_get_Dm_Target_Sources INTO l_ref_target_source_rec ;
367:
368: If ( c_get_Dm_Target_Sources%NOTFOUND) THEN
369: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
370: p_token_name => 'INFO',
371: p_token_value => 'Dm_Target_Sources') ;
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
371: p_token_value => 'Dm_Target_Sources') ;
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
374: -- Debug Message
375: AMS_UTILITY_PVT.debug_message('Private API: - Close Cursor');
376: CLOSE c_get_Dm_Target_Sources;
377:
378:
379: If (l_tar_target_source_rec.object_version_number is NULL or
377:
378:
379: If (l_tar_target_source_rec.object_version_number is NULL or
380: l_tar_target_source_rec.object_version_number = FND_API.G_MISS_NUM ) Then
381: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
382: p_token_name => 'COLUMN',
383: p_token_value => 'Last_Update_Date') ;
384: raise FND_API.G_EXC_ERROR;
385: End if;
384: raise FND_API.G_EXC_ERROR;
385: End if;
386: -- Check Whether record has been changed by someone else
387: If (l_tar_target_source_rec.object_version_number <> l_ref_target_source_rec.object_version_number) Then
388: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
389: p_token_name => 'INFO',
390: p_token_value => 'Dm_Target_Sources') ;
391: raise FND_API.G_EXC_ERROR;
392: End if;
394:
395: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
396: THEN
397: -- Debug message
398: AMS_UTILITY_PVT.debug_message('Private API: Validate_Dm_Target_Sources');
399:
400: -- Invoke validation procedures
401: Validate_dm_target_sources(
402: p_api_version_number => 1.0,
414: END IF;
415:
416:
417: -- Debug Message
418: AMS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
419:
420: -- Invoke table handler(Ams_Dm_Target_Sources_Pkg.Update_Row)
421: Ams_Dm_Target_Sources_Pkg.Update_Row(
422: p_target_source_id => p_target_source_rec_type_rec.target_source_id,
438: END IF;
439:
440:
441: -- Debug Message
442: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
443:
444:
445: -- Standard call to get message count and if count is 1, get message info.
446: FND_MSG_PUB.Count_And_Get
448: p_data => x_msg_data
449: );
450: EXCEPTION
451:
452: WHEN AMS_Utility_PVT.resource_locked THEN
453: x_return_status := FND_API.g_ret_sts_error;
454: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
455:
456: WHEN FND_API.G_EXC_ERROR THEN
450: EXCEPTION
451:
452: WHEN AMS_Utility_PVT.resource_locked THEN
453: x_return_status := FND_API.g_ret_sts_error;
454: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
455:
456: WHEN FND_API.G_EXC_ERROR THEN
457: ROLLBACK TO UPDATE_Dm_Target_Sources_PVT;
458: x_return_status := FND_API.G_RET_STS_ERROR;
570:
571:
572:
573: -- Debug Message
574: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
575:
576:
577:
578: -- Initialize API return status to SUCCESS
582: FETCH c_target_source INTO l_dummy;
583: CLOSE c_target_source ;
584:
585: IF l_dummy IS NOT NULL THEN
586: AMS_Utility_PVT.error_message ('AMS_DM_CHLD_DS_DEL_ERR');
587: RAISE FND_API.G_EXC_ERROR;
588: END IF;
589: --
590: -- Api body
589: --
590: -- Api body
591: --
592: -- Debug Message
593: AMS_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
594:
595: -- Invoke table handler(Ams_Dm_Target_Sources_Pkg.Delete_Row)
596: Ams_Dm_Target_Sources_Pkg.Delete_Row(
597: p_target_source_id => p_target_source_id,
607: END IF;
608:
609:
610: -- Debug Message
611: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
612:
613:
614: -- Standard call to get message count and if count is 1, get message info.
615: FND_MSG_PUB.Count_And_Get
617: p_data => x_msg_data
618: );
619: EXCEPTION
620:
621: WHEN AMS_Utility_PVT.resource_locked THEN
622: x_return_status := FND_API.g_ret_sts_error;
623: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
624:
625: WHEN FND_API.G_EXC_ERROR THEN
619: EXCEPTION
620:
621: WHEN AMS_Utility_PVT.resource_locked THEN
622: x_return_status := FND_API.g_ret_sts_error;
623: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
624:
625: WHEN FND_API.G_EXC_ERROR THEN
626: ROLLBACK TO DELETE_Dm_Target_Sources_PVT;
627: x_return_status := FND_API.G_RET_STS_ERROR;
713:
714: BEGIN
715:
716: -- Debug Message
717: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
718:
719:
720: -- Initialize message list if p_init_msg_list is set to TRUE.
721: IF FND_API.to_Boolean( p_init_msg_list )
748: FND_MSG_PUB.count_and_get(
749: p_encoded => FND_API.g_false,
750: p_count => x_msg_count,
751: p_data => x_msg_data);
752: AMS_Utility_PVT.debug_message(l_full_name ||': end');
753: EXCEPTION
754:
755: WHEN AMS_Utility_PVT.resource_locked THEN
756: x_return_status := FND_API.g_ret_sts_error;
751: p_data => x_msg_data);
752: AMS_Utility_PVT.debug_message(l_full_name ||': end');
753: EXCEPTION
754:
755: WHEN AMS_Utility_PVT.resource_locked THEN
756: x_return_status := FND_API.g_ret_sts_error;
757: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
758:
759: WHEN FND_API.G_EXC_ERROR THEN
753: EXCEPTION
754:
755: WHEN AMS_Utility_PVT.resource_locked THEN
756: x_return_status := FND_API.g_ret_sts_error;
757: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
758:
759: WHEN FND_API.G_EXC_ERROR THEN
760: ROLLBACK TO LOCK_Dm_Target_Sources_PVT;
761: x_return_status := FND_API.G_RET_STS_ERROR;
805: x_return_status := FND_API.g_ret_sts_success;
806: IF p_validation_mode = JTF_PLSQL_API.g_create
807: AND p_target_source_rec_type_rec.target_source_id IS NOT NULL
808: THEN
809: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
810: 'ams_dm_target_sources',
811: 'target_source_id = ''' || p_target_source_rec_type_rec.target_source_id ||''''
812: );
813: END IF;
812: );
813: END IF;
814:
815: IF l_valid_flag = FND_API.g_false THEN
816: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_target_source_id_DUPLICATE');
817: x_return_status := FND_API.g_ret_sts_error;
818: END IF;
819:
820: END check_Target_Source_Uk_Items;
833: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
834:
835:
836: IF p_target_source_rec_type_rec.target_source_id = FND_API.G_MISS_NUM OR p_target_source_rec_type_rec.target_source_id IS NULL THEN
837: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_SOURCE_ID' );
838: x_return_status := FND_API.g_ret_sts_error;
839: END IF;
840:
841:
839: END IF;
840:
841:
842: IF p_target_source_rec_type_rec.target_id = FND_API.G_MISS_NUM OR p_target_source_rec_type_rec.target_id IS NULL THEN
843: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_ID' );
844: x_return_status := FND_API.g_ret_sts_error;
845: END IF;
846:
847:
845: END IF;
846:
847:
848: IF p_target_source_rec_type_rec.data_source_id = FND_API.G_MISS_NUM OR p_target_source_rec_type_rec.data_source_id IS NULL THEN
849: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'DATA_SOURCE_ID' );
850: x_return_status := FND_API.g_ret_sts_error;
851: END IF;
852:
853:
854: ELSE
855:
856:
857: IF p_target_source_rec_type_rec.target_source_id = FND_API.G_MISS_NUM THEN
858: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_SOURCE_ID' );
859: x_return_status := FND_API.g_ret_sts_error;
860: END IF;
861:
862:
860: END IF;
861:
862:
863: IF p_target_source_rec_type_rec.target_id = FND_API.G_MISS_NUM THEN
864: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'TARGET_ID' );
865: x_return_status := FND_API.g_ret_sts_error;
866: END IF;
867:
868:
866: END IF;
867:
868:
869: IF p_target_source_rec_type_rec.data_source_id = FND_API.G_MISS_NUM THEN
870: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'DATA_SOURCE_ID' );
871: x_return_status := FND_API.g_ret_sts_error;
872: END IF;
873: END IF;
874:
883: IS
884: BEGIN
885: IF (AMS_DEBUG_HIGH_ON) THEN
886:
887: AMS_UTILITY_PVT.debug_message('Private API:check_Target_Source_Fk_Items');
888: END IF;
889: x_return_status := FND_API.g_ret_sts_success;
890:
891: --------------------- data_source_id ------------------------
889: x_return_status := FND_API.g_ret_sts_success;
890:
891: --------------------- data_source_id ------------------------
892: IF p_target_source_rec_type_rec.data_source_id <> FND_API.g_miss_num THEN
893: IF AMS_Utility_PVT.check_fk_exists(
894: 'ams_list_src_types',
895: 'LIST_SOURCE_TYPE_ID',
896: p_target_source_rec_type_rec.data_source_id
897: ) = FND_API.g_false
895: 'LIST_SOURCE_TYPE_ID',
896: p_target_source_rec_type_rec.data_source_id
897: ) = FND_API.g_false
898: THEN
899: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'DATA_SOURCE_ID');
900: x_return_status := FND_API.g_ret_sts_error;
901: END IF;
902: END IF;
903:
902: END IF;
903:
904: --------------------- target_id ------------------------
905: IF p_target_source_rec_type_rec.target_id <> FND_API.g_miss_num THEN
906: IF AMS_Utility_PVT.check_fk_exists(
907: 'ams_dm_targets_b',
908: 'target_id',
909: p_target_source_rec_type_rec.target_id
910: ) = FND_API.g_false
908: 'target_id',
909: p_target_source_rec_type_rec.target_id
910: ) = FND_API.g_false
911: THEN
912: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'TARGET_ID');
913: x_return_status := FND_API.g_ret_sts_error;
914: END IF;
915: END IF;
916:
1153: END IF;
1154:
1155:
1156: -- Debug Message
1157: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1158:
1159:
1160:
1161: -- Initialize API return status to SUCCESS
1162: x_return_status := FND_API.G_RET_STS_SUCCESS;
1163:
1164:
1165: -- Debug Message
1166: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1167:
1168:
1169: -- Standard call to get message count and if count is 1, get message info.
1170: FND_MSG_PUB.Count_And_Get
1172: p_data => x_msg_data
1173: );
1174: EXCEPTION
1175:
1176: WHEN AMS_Utility_PVT.resource_locked THEN
1177: x_return_status := FND_API.g_ret_sts_error;
1178: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1179:
1180: WHEN FND_API.G_EXC_ERROR THEN
1174: EXCEPTION
1175:
1176: WHEN AMS_Utility_PVT.resource_locked THEN
1177: x_return_status := FND_API.g_ret_sts_error;
1178: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1179:
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: ROLLBACK TO VALIDATE_Dm_Target_Sources_;
1182: x_return_status := FND_API.G_RET_STS_ERROR;
1252: -- x_return_status := FND_API.G_RET_STS_ERROR;
1253:
1254: -- Debug Message
1255: IF (AMS_DEBUG_HIGH_ON) THEN
1256: AMS_UTILITY_PVT.debug_message('Private API: Validate_Target_Source_Rec');
1257: END IF;
1258:
1259: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1260:
1262: FETCH c_check_underlying_obj INTO l_dummy;
1263: CLOSE c_check_underlying_obj;
1264:
1265: IF l_dummy <> 0 THEN
1266: AMS_Utility_PVT.error_message ('AMS_DM_CHILD_OBJ_EXISTS');
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: END IF;
1269:
1270: END IF;
1285:
1286: -- Debug Message
1287: IF (AMS_DEBUG_HIGH_ON) THEN
1288:
1289: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1290: END IF;
1291:
1292: --
1293: -- Api body
1301:
1302: -- Debug Message
1303: IF (AMS_DEBUG_HIGH_ON) THEN
1304:
1305: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1306: END IF;
1307:
1308: EXCEPTION
1309:
1306: END IF;
1307:
1308: EXCEPTION
1309:
1310: WHEN AMS_Utility_PVT.resource_locked THEN
1311: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1312:
1313: WHEN FND_API.G_EXC_ERROR THEN
1314: ROLLBACK TO delete_tgtsources_for_target;
1307:
1308: EXCEPTION
1309:
1310: WHEN AMS_Utility_PVT.resource_locked THEN
1311: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1312:
1313: WHEN FND_API.G_EXC_ERROR THEN
1314: ROLLBACK TO delete_tgtsources_for_target;
1315: