[Home] [Help]
65:
66: x_return_status := FND_API.g_ret_sts_success;
67:
68: -- validate
69: -- IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
70: JTF_Utility_PVT.debug_message(l_full_name || ': validate');
71:
72: validate_loc_area
73: (
296:
297: -- validate
298: IF p_remove_flag <> 'Y' THEN
299: -- item level
300: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
301: JTF_Utility_PVT.debug_message(l_full_name || ': validate');
302:
303: check_items
304: (
301: JTF_Utility_PVT.debug_message(l_full_name || ': validate');
302:
303: check_items
304: (
305: p_validation_mode => JTF_PLSQL_API.g_update,
306: x_return_status => l_return_status,
307: p_loc_area_rec => l_loc_area_rec
308: );
309:
314: END IF;
315: END IF;
316:
317: -- record level
318: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
319: JTF_Utility_PVT.debug_message(l_full_name||': check record');
320: check_record
321: (
322: p_loc_area_rec => p_loc_area_rec,
790:
791: x_return_status := FND_API.g_ret_sts_success;
792:
793: ---------------------- validate ------------------------
794: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
795: JTF_Utility_PVT.debug_message(l_full_name||': check items');
796: check_items
797: (
798: p_validation_mode => JTF_PLSQL_API.g_create,
794: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
795: JTF_Utility_PVT.debug_message(l_full_name||': check items');
796: check_items
797: (
798: p_validation_mode => JTF_PLSQL_API.g_create,
799: x_return_status => l_return_status,
800: p_loc_area_rec => p_loc_area_rec
801: );
802:
807: END IF;
808: END IF;
809:
810: -- record level
811: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
812: JTF_Utility_PVT.debug_message(l_full_name||': check record');
813: check_record
814: (
815: p_loc_area_rec => p_loc_area_rec,
960: x_return_status := FND_API.g_ret_sts_success;
961:
962: -- check location_area_id
963: IF p_loc_area_rec.location_area_id IS NULL
964: AND p_validation_mode = JTF_PLSQL_API.g_update THEN
965: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
966: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_NO_LOC_AREA_ID');
967: FND_MSG_PUB.add;
968: END IF;
983: END IF;
984:
985: -- check object_version_number
986: IF p_loc_area_rec.object_version_number IS NULL
987: AND p_validation_mode = JTF_PLSQL_API.g_update
988: THEN
989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
990: FND_MESSAGE.set_name('JTF', 'JTF_API_NO_OBJ_VER_NUM');
991: FND_MSG_PUB.add;
1049: CLOSE c_world_exist;
1050:
1051: IF l_world_exist IS NOT NULL -- world exists, cant create another world
1052: THEN
1053: IF p_validation_mode = JTF_PLSQL_API.g_create
1054: THEN
1055: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1056: FND_MESSAGE.set_name('JTF', 'JTF_LOC_AREA_WORLD_EXISTS');
1057: FND_MSG_PUB.add;
1085: -- 11/22/1999 julou created
1086: -------------------------------------------------------------------------------
1087: PROCEDURE check_loc_area_uk_items
1088: (
1089: p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
1090: p_loc_area_rec IN loc_area_rec_type,
1091: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1092: )
1093: IS
1121:
1122: x_return_status := FND_API.g_ret_sts_success;
1123:
1124: -- check PK, if location_area_id is passed in, must check if it is duplicate
1125: IF p_validation_mode = JTF_PLSQL_API.g_create
1126: AND p_loc_area_rec.location_area_id IS NOT NULL
1127: THEN
1128: l_uk_flag := JTF_Utility_PVT.check_uniqueness
1129: (