[Home] [Help]
836:
837: IF (SQL%NOTFOUND) THEN
838: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
839: THEN
840: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
841: FND_MSG_PUB.add;
842: END IF;
843: RAISE FND_API.g_exc_error;
844: END IF;
959: FETCH c_lock_req INTO l_dummy;
960: IF c_lock_req%NOTFOUND THEN
961: CLOSE c_lock_req;
962: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
963: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
964: FND_MSG_PUB.add;
965: END IF;
966: RAISE FND_API.g_exc_error;
967: END IF;
985: EXCEPTION
986: WHEN AMS_Utility_PVT.resource_locked THEN
987: x_return_status := FND_API.g_ret_sts_error;
988: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
989: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
990: FND_MSG_PUB.add;
991: END IF;
992:
993: FND_MSG_PUB.count_and_get(
1379: AND object_version_number = l_party_rec.object_version_number;
1380:
1381: IF (SQL%NOTFOUND) THEN
1382: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1383: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
1384: FND_MSG_PUB.add;
1385: END IF;
1386: RAISE FND_API.g_exc_error;
1387: END IF;
2005: FETCH c_party INTO l_party_rec;
2006: IF c_party%NOTFOUND THEN
2007: CLOSE c_party;
2008: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2009: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2010: FND_MSG_PUB.add;
2011: END IF;
2012: RAISE FND_API.g_exc_error;
2013: END IF;
3360:
3361: -- PARTY_ID
3362: IF p_party_rec.party_id IS NULL THEN
3363: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3364: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_NO_PARTY_ID');
3365: FND_MSG_PUB.add;
3366: END IF;
3367:
3368: x_return_status := FND_API.g_ret_sts_error;
3371:
3372: -- IMPORT_SOURCE_LINE_ID
3373: IF p_party_rec.import_source_line_id IS NULL THEN
3374: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3375: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_NO_IMP_SRC_LINE_ID');
3376: FND_MSG_PUB.add;
3377: END IF;
3378:
3379: x_return_status := FND_API.g_ret_sts_error;
3382:
3383: -- IMPORT_LIST_HEADER_ID
3384: IF p_party_rec.import_list_header_id IS NULL THEN
3385: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3386: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_NO_IMP_LIST_HDR_ID');
3387: FND_MSG_PUB.add;
3388: END IF;
3389:
3390: x_return_status := FND_API.g_ret_sts_error;
3393:
3394: -- LIST_SOURCE_TYPE_ID
3395: IF p_party_rec.list_source_type_id IS NULL THEN
3396: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3397: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_NO_LST_SRC_TYPE_ID');
3398: FND_MSG_PUB.add;
3399: END IF;
3400:
3401: x_return_status := FND_API.g_ret_sts_error;
3436: 'party_sources_id = ' || p_party_rec.party_sources_id
3437: ) = FND_API.g_false
3438: THEN
3439: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3440: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_DUP_ID');
3441: FND_MSG_PUB.add;
3442: END IF;
3443: x_return_status := FND_API.g_ret_sts_error;
3444: RETURN;
3477: p_pk_value => p_party_rec.party_id,
3478: p_pk_data_type => AMS_Utility_PVT.g_number
3479: ) = FND_API.g_false THEN
3480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3481: FND_MESSAGE.set_name('AMS', 'AMS_PARTY_BAD_PARTY_ID');
3482: FND_MSG_PUB.add;
3483: END IF;
3484:
3485: x_return_status := FND_API.g_ret_sts_error;
3496: p_pk_value => p_party_rec.import_source_line_id,
3497: p_pk_data_type => AMS_Utility_PVT.g_number
3498: ) = FND_API.g_false THEN
3499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3500: FND_MESSAGE.set_name('AMS', 'AMS_PARTY_BAD_IMP_SRC_LINE_ID');
3501: FND_MSG_PUB.add;
3502: END IF;
3503:
3504: x_return_status := FND_API.g_ret_sts_error;
3515: p_pk_value => p_party_rec.import_list_header_id,
3516: p_pk_data_type => AMS_Utility_PVT.g_number
3517: ) = FND_API.g_false THEN
3518: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3519: FND_MESSAGE.set_name('AMS', 'AMS_PARTY_BAD_IMP_LIST_HDR_ID');
3520: FND_MSG_PUB.add;
3521: END IF;
3522:
3523: x_return_status := FND_API.g_ret_sts_error;
3534: p_pk_value => p_party_rec.list_source_type_id,
3535: p_pk_data_type => AMS_Utility_PVT.g_number
3536: ) = FND_API.g_false THEN
3537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3538: FND_MESSAGE.set_name('AMS', 'AMS_PARTY_BAD_LST_SRC_TYPE_ID');
3539: FND_MSG_PUB.add;
3540: END IF;
3541:
3542: x_return_status := FND_API.g_ret_sts_error;
3590: -- USED_FLAG
3591: IF p_party_rec.used_flag <> FND_API.g_miss_char AND p_party_rec.used_flag IS NOT NULL THEN
3592: IF AMS_Utility_PVT.is_Y_or_N (p_party_rec.used_flag) = FND_API.g_false THEN
3593: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3594: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_BAD_USED_FLAG');
3595: FND_MSG_PUB.add;
3596: END IF;
3597:
3598: x_return_status := FND_API.g_ret_sts_error;
3604: -- OVERLAY_FLAG
3605: IF p_party_rec.overlay_flag <> FND_API.g_miss_char AND p_party_rec.overlay_flag IS NOT NULL THEN
3606: IF AMS_Utility_PVT.is_Y_or_N (p_party_rec.overlay_flag) = FND_API.g_false THEN
3607: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3608: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_BAD_OVERLAY_FLAG');
3609: FND_MSG_PUB.add;
3610: END IF;
3611:
3612: x_return_status := FND_API.g_ret_sts_error;
3646: IF p_commit_flag = 'Y' THEN
3647: COMMIT WORK;
3648: END IF;
3649:
3650: errbuf := SUBSTR (FND_MESSAGE.get, 1, L_MAX_BUFFER_LENGTH);
3651: retcode := 0; -- no problems.
3652: EXCEPTION
3653: WHEN OTHERS THEN
3654: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3654: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3655: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3656: END IF;
3657: retcode := 2;
3658: errbuf := SUBSTR (FND_MESSAGE.get, 1, L_MAX_BUFFER_LENGTH);
3659: END Refresh_Key;
3660:
3661:
3662: -----------------------------------------------------------
3907: -- of the dedupe key for source imports
3908: -- was not found.
3909: CLOSE c_rule;
3910: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3911: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_DEDUPE_RULE');
3912: FND_MSG_PUB.add;
3913: END IF;
3914: RAISE FND_API.g_exc_error;
3915: END IF;
4411: END LOOP;
4412: CLOSE c_import;
4413:
4414: -- Import completed successfully
4415: FND_MESSAGE.set_name ('AMS', 'AMS_PARTY_PROCESS_COMPLETE');
4416:
4417: AMS_Utility_PVT.Create_Log (
4418: x_return_status => l_return_status,
4419: p_arc_log_used_by => 'IMPH',
4417: AMS_Utility_PVT.Create_Log (
4418: x_return_status => l_return_status,
4419: p_arc_log_used_by => 'IMPH',
4420: p_log_used_by_id => p_import_list_header_id,
4421: p_msg_data => FND_MESSAGE.get,
4422: p_msg_type => 'MILESTONE'
4423: );
4424: --dbms_session.set_sql_trace(false);
4425: