[Home] [Help]
257: fetch check_set_party_exist_csr into l_count;
258: close check_set_party_exist_csr;
259:
260: IF l_count = 0 or l_master_party_id is null or x_master_party_name is null THEN
261: fnd_message.set_name('AR', 'HZ_DL_USER_HOOK_ERR');
262: fnd_msg_pub.add;
263: x_return_status := fnd_api.g_ret_sts_error;
264: RAISE FND_API.G_EXC_ERROR;
265: end if;
312: EXCEPTION
313: WHEN OTHERS THEN
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315:
316: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
317: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
318: FND_MSG_PUB.ADD;
319:
320: FND_MSG_PUB.Count_And_Get(
313: WHEN OTHERS THEN
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315:
316: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
317: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
318: FND_MSG_PUB.ADD;
319:
320: FND_MSG_PUB.Count_And_Get(
321: p_encoded => FND_API.G_FALSE,
413:
414: WHEN OTHERS THEN
415: ROLLBACK TO create_dup_pvt;
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
417: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
418: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
419: FND_MSG_PUB.ADD;
420: FND_MSG_PUB.Count_And_Get(
421: p_encoded => FND_API.G_FALSE,
414: WHEN OTHERS THEN
415: ROLLBACK TO create_dup_pvt;
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
417: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
418: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
419: FND_MSG_PUB.ADD;
420: FND_MSG_PUB.Count_And_Get(
421: p_encoded => FND_API.G_FALSE,
422: p_count => x_msg_count,
468: --Initialize API return status to success.
469: x_return_status := FND_API.G_RET_STS_SUCCESS;
470:
471: IF(p_dup_set_id IS NULL OR p_dup_set_id = FND_API.G_MISS_NUM) THEN
472: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
473: FND_MESSAGE.SET_TOKEN('COLUMN' ,'DUP_SET_ID');
474: FND_MSG_PUB.ADD;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
469: x_return_status := FND_API.G_RET_STS_SUCCESS;
470:
471: IF(p_dup_set_id IS NULL OR p_dup_set_id = FND_API.G_MISS_NUM) THEN
472: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
473: FND_MESSAGE.SET_TOKEN('COLUMN' ,'DUP_SET_ID');
474: FND_MSG_PUB.ADD;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
478: IF(p_dup_set_party_id IS NULL OR p_dup_set_party_id = FND_API.G_MISS_NUM) THEN
479: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
480: FND_MESSAGE.SET_TOKEN('COLUMN' ,'DUP_SET_PARTY_ID');
481: FND_MSG_PUB.ADD;
482: RAISE FND_API.G_EXC_ERROR;
483: END IF;
476: END IF;
477:
478: IF(p_dup_set_party_id IS NULL OR p_dup_set_party_id = FND_API.G_MISS_NUM) THEN
479: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
480: FND_MESSAGE.SET_TOKEN('COLUMN' ,'DUP_SET_PARTY_ID');
481: FND_MSG_PUB.ADD;
482: RAISE FND_API.G_EXC_ERROR;
483: END IF;
484:
495:
496: IF NOT (l_winner_type = l_cand_type) THEN
497: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
498: -- parties have different type in a merge request
499: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_PARTIES');
500: FND_MSG_PUB.ADD;
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503: END IF;*/
545:
546: WHEN OTHERS THEN
547: ROLLBACK TO create_dup_set_party_pvt;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
550: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
551: FND_MSG_PUB.ADD;
552: FND_MSG_PUB.Count_And_Get(
553: p_encoded => FND_API.G_FALSE,
546: WHEN OTHERS THEN
547: ROLLBACK TO create_dup_set_party_pvt;
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
550: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
551: FND_MSG_PUB.ADD;
552: FND_MSG_PUB.Count_And_Get(
553: p_encoded => FND_API.G_FALSE,
554: p_count => x_msg_count,
591: x_return_status := FND_API.G_RET_STS_SUCCESS;
592:
593: IF(p_dup_batch_rec.match_rule_id IS NULL OR
594: p_dup_batch_rec.match_rule_id = FND_API.G_MISS_NUM) THEN
595: FND_MESSAGE.SET_NAME( 'AR', 'HZ_NO_MATCH_RULE' );
596: FND_MSG_PUB.ADD;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599:
598: END IF;
599:
600: IF(p_dup_batch_rec.request_type IS NULL OR
601: p_dup_batch_rec.request_type = FND_API.G_MISS_CHAR) THEN
602: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
603: FND_MESSAGE.SET_TOKEN('COLUMN' ,'REQUEST_TYPE');
604: FND_MSG_PUB.ADD;
605: RAISE FND_API.G_EXC_ERROR;
606: END IF;
599:
600: IF(p_dup_batch_rec.request_type IS NULL OR
601: p_dup_batch_rec.request_type = FND_API.G_MISS_CHAR) THEN
602: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
603: FND_MESSAGE.SET_TOKEN('COLUMN' ,'REQUEST_TYPE');
604: FND_MSG_PUB.ADD;
605: RAISE FND_API.G_EXC_ERROR;
606: END IF;
607:
606: END IF;
607:
608: IF(p_dup_set_rec.status IS NULL OR
609: p_dup_set_rec.status = FND_API.G_MISS_CHAR) THEN
610: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
611: FND_MESSAGE.SET_TOKEN('COLUMN' ,'STATUS');
612: FND_MSG_PUB.ADD;
613: RAISE FND_API.G_EXC_ERROR;
614: END IF;
607:
608: IF(p_dup_set_rec.status IS NULL OR
609: p_dup_set_rec.status = FND_API.G_MISS_CHAR) THEN
610: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
611: FND_MESSAGE.SET_TOKEN('COLUMN' ,'STATUS');
612: FND_MSG_PUB.ADD;
613: RAISE FND_API.G_EXC_ERROR;
614: END IF;
615:
627: CLOSE get_party_type;
628: IF NOT (l_party_type = l_temp_type) THEN
629: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
630: -- parties have different type in a merge request
631: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_PARTIES');
632: FND_MSG_PUB.ADD;
633: RAISE FND_API.G_EXC_ERROR;
634: END IF;
635: END IF;
707:
708: WHEN OTHERS THEN
709: ROLLBACK TO create_dup_batch_pvt;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
712: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
713: FND_MSG_PUB.ADD;
714: FND_MSG_PUB.Count_And_Get(
715: p_encoded => FND_API.G_FALSE,
708: WHEN OTHERS THEN
709: ROLLBACK TO create_dup_batch_pvt;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
712: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
713: FND_MSG_PUB.ADD;
714: FND_MSG_PUB.Count_And_Get(
715: p_encoded => FND_API.G_FALSE,
716: p_count => x_msg_count,
747: x_return_status := FND_API.G_RET_STS_SUCCESS;
748:
749: IF(p_dup_set_rec.dup_batch_id IS NULL OR
750: p_dup_set_rec.dup_batch_id = FND_API.G_MISS_NUM) THEN
751: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
752: FND_MESSAGE.SET_TOKEN('COLUMN' ,'DUP_BATCH_ID');
753: FND_MSG_PUB.ADD;
754: RAISE FND_API.G_EXC_ERROR;
755: END IF;
748:
749: IF(p_dup_set_rec.dup_batch_id IS NULL OR
750: p_dup_set_rec.dup_batch_id = FND_API.G_MISS_NUM) THEN
751: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
752: FND_MESSAGE.SET_TOKEN('COLUMN' ,'DUP_BATCH_ID');
753: FND_MSG_PUB.ADD;
754: RAISE FND_API.G_EXC_ERROR;
755: END IF;
756:
756:
757: OPEN check_dup_batch_id;
758: FETCH check_dup_batch_id INTO l_temp;
759: IF(check_dup_batch_id%NOTFOUND) THEN
760: FND_MESSAGE.SET_NAME( 'AR', 'HZ_INVALID_DUP_BATCH' );
761: FND_MSG_PUB.ADD;
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764:
763: END IF;
764:
765: IF(p_dup_set_rec.status IS NULL OR
766: p_dup_set_rec.status = FND_API.G_MISS_CHAR) THEN
767: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
768: FND_MESSAGE.SET_TOKEN('COLUMN' ,'STATUS');
769: FND_MSG_PUB.ADD;
770: RAISE FND_API.G_EXC_ERROR;
771: END IF;
764:
765: IF(p_dup_set_rec.status IS NULL OR
766: p_dup_set_rec.status = FND_API.G_MISS_CHAR) THEN
767: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
768: FND_MESSAGE.SET_TOKEN('COLUMN' ,'STATUS');
769: FND_MSG_PUB.ADD;
770: RAISE FND_API.G_EXC_ERROR;
771: END IF;
772:
826:
827: WHEN OTHERS THEN
828: ROLLBACK TO create_dup_set_pvt;
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
831: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
832: FND_MSG_PUB.ADD;
833: FND_MSG_PUB.Count_And_Get(
834: p_encoded => FND_API.G_FALSE,
827: WHEN OTHERS THEN
828: ROLLBACK TO create_dup_set_pvt;
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
831: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
832: FND_MSG_PUB.ADD;
833: FND_MSG_PUB.Count_And_Get(
834: p_encoded => FND_API.G_FALSE,
835: p_count => x_msg_count,
876: FETCH check_winner_party_exist INTO l_temp;
877: IF check_winner_party_exist%NOTFOUND THEN
878: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
879: -- new winner party_id cannot be found in dup_set_parties
880: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_WINNER_PARTY');
881: FND_MSG_PUB.ADD;
882: RAISE FND_API.G_EXC_ERROR;
883: END IF;
884: END IF;
894: IF (l_set_obj_version_number IS NOT NULL) THEN
895: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
896: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
897: -- row has been changed by another user.
898: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
899: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
900: FND_MSG_PUB.ADD;
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
895: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
896: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
897: -- row has been changed by another user.
898: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
899: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
900: FND_MSG_PUB.ADD;
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
903: END IF;
976:
977: WHEN OTHERS THEN
978: ROLLBACK TO update_winner_party_pvt;
979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
980: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
981: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
982: FND_MSG_PUB.ADD;
983: FND_MSG_PUB.Count_And_Get(
984: p_encoded => FND_API.G_FALSE,
977: WHEN OTHERS THEN
978: ROLLBACK TO update_winner_party_pvt;
979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
980: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
981: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
982: FND_MSG_PUB.ADD;
983: FND_MSG_PUB.Count_And_Get(
984: p_encoded => FND_API.G_FALSE,
985: p_count => x_msg_count,
1036: IF (l_set_obj_version_number IS NOT NULL) THEN
1037: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
1038: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1039: -- row has been changed by another user.
1040: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1041: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
1042: FND_MSG_PUB.ADD;
1043: RAISE FND_API.G_EXC_ERROR;
1044: END IF;
1037: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
1038: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1039: -- row has been changed by another user.
1040: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1041: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
1042: FND_MSG_PUB.ADD;
1043: RAISE FND_API.G_EXC_ERROR;
1044: END IF;
1045: END IF;
1053: FETCH check_winner_party INTO l_check;
1054: IF check_winner_party%FOUND THEN
1055: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1056: -- cannot remove winner party without specifying a new winner party
1057: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1058: FND_MESSAGE.SET_TOKEN('COLUMN' ,'NEW_WINNER_PARTY_ID');
1059: FND_MSG_PUB.ADD;
1060: RAISE FND_API.G_EXC_ERROR;
1061: END IF;
1054: IF check_winner_party%FOUND THEN
1055: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1056: -- cannot remove winner party without specifying a new winner party
1057: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1058: FND_MESSAGE.SET_TOKEN('COLUMN' ,'NEW_WINNER_PARTY_ID');
1059: FND_MSG_PUB.ADD;
1060: RAISE FND_API.G_EXC_ERROR;
1061: END IF;
1062: END IF;
1084: FETCH check_winner_party INTO l_check;
1085: IF check_winner_party%FOUND THEN
1086: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1087: -- cannot remove winner party without specifying a new winner party
1088: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_WINNER_PARTY');
1089: FND_MSG_PUB.ADD;
1090: RAISE FND_API.G_EXC_ERROR;
1091: END IF;
1092: END IF;
1096: FETCH check_dup_party INTO l_check;
1097: IF check_dup_party%NOTFOUND THEN
1098: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1099: -- cannot remove winner party without specifying a new winner party
1100: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_DUP_PARTY');
1101: FND_MSG_PUB.ADD;
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104: END IF;
1157:
1158: WHEN OTHERS THEN
1159: ROLLBACK TO delete_dup_party_pvt;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1162: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1163: FND_MSG_PUB.ADD;
1164: FND_MSG_PUB.Count_And_Get(
1165: p_encoded => FND_API.G_FALSE,
1158: WHEN OTHERS THEN
1159: ROLLBACK TO delete_dup_party_pvt;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1162: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1163: FND_MSG_PUB.ADD;
1164: FND_MSG_PUB.Count_And_Get(
1165: p_encoded => FND_API.G_FALSE,
1166: p_count => x_msg_count,
1230: IF (l_set_obj_version_number IS NOT NULL) THEN
1231: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
1232: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1233: -- row has been changed by another user.
1234: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1235: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
1236: FND_MSG_PUB.ADD;
1237: RAISE FND_API.G_EXC_ERROR;
1238: END IF;
1231: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
1232: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1233: -- row has been changed by another user.
1234: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1235: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
1236: FND_MSG_PUB.ADD;
1237: RAISE FND_API.G_EXC_ERROR;
1238: END IF;
1239: END IF;
1246: IF check_winner_party%NOTFOUND THEN
1247: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1248: -- the remain party in HZ_DUP_SET_PARTIES which has merge_flag <> 'N'
1249: -- is not the same as the winner_party_id in HZ_DUP_SETS
1250: FND_MESSAGE.SET_NAME('AR', 'HZ_DL_SEL_MASTER');
1251: FND_MSG_PUB.ADD;
1252: RAISE FND_API.G_EXC_ERROR;
1253: END IF;
1254: END IF;
1294:
1295: WHEN OTHERS THEN
1296: ROLLBACK TO reset_merge_type_pvt;
1297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1298: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1299: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1300: FND_MSG_PUB.ADD;
1301: FND_MSG_PUB.Count_And_Get(
1302: p_encoded => FND_API.G_FALSE,
1295: WHEN OTHERS THEN
1296: ROLLBACK TO reset_merge_type_pvt;
1297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1298: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1299: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1300: FND_MSG_PUB.ADD;
1301: FND_MSG_PUB.Count_And_Get(
1302: p_encoded => FND_API.G_FALSE,
1303: p_count => x_msg_count,
1343: IF (l_set_obj_version_number IS NOT NULL) THEN
1344: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
1345: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1346: -- row has been changed by another user.
1347: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1348: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
1349: FND_MSG_PUB.ADD;
1350: RAISE FND_API.G_EXC_ERROR;
1351: END IF;
1344: IF (l_set_obj_version_number <> px_set_obj_version_number) THEN
1345: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1346: -- row has been changed by another user.
1347: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1348: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_DUP_SETS');
1349: FND_MSG_PUB.ADD;
1350: RAISE FND_API.G_EXC_ERROR;
1351: END IF;
1352: END IF;
1397:
1398: WHEN OTHERS THEN
1399: ROLLBACK TO reject_merge_pvt;
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1401: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1402: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1403: FND_MSG_PUB.ADD;
1404: FND_MSG_PUB.Count_And_Get(
1405: p_encoded => FND_API.G_FALSE,
1398: WHEN OTHERS THEN
1399: ROLLBACK TO reject_merge_pvt;
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1401: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1402: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1403: FND_MSG_PUB.ADD;
1404: FND_MSG_PUB.Count_And_Get(
1405: p_encoded => FND_API.G_FALSE,
1406: p_count => x_msg_count,
1514: dev_status => l_conc_dev_status,
1515: message => l_message ) ;
1516:
1517: IF l_conc_dev_phase <> 'COMPLETE' THEN
1518: FND_MESSAGE.set_name('AR', 'HZ_CANNOT_SUBMIT_PROCESSING');
1519: FND_MSG_PUB.ADD;
1520: RAISE FND_API.G_EXC_ERROR;
1521: ELSE
1522: IF l_conc_status <>'NORMAL' THEN
1523: l_request_id := fnd_request.submit_request('AR','ARHDUPB','Create Merge Batch',to_char(sysdate,'DD-MON-YY HH24:MI:SS'),
1524: FALSE,p_dup_set_id );
1525:
1526: IF l_request_id = 0 THEN
1527: FND_MESSAGE.SET_NAME('AR', 'AR_CUST_CONC_ERROR');
1528: FND_MSG_PUB.ADD;
1529: RAISE FND_API.G_EXC_ERROR;
1530: END IF;
1531:
1539: WHERE dup_set_id = p_dup_set_id;
1540: END IF;
1541:
1542: ELSE --if completed normally
1543: FND_MESSAGE.set_name('AR', 'HZ_CANNOT_SUBMIT_REQUEST');
1544: FND_MSG_PUB.ADD;
1545: RAISE FND_API.G_EXC_ERROR;
1546: END IF; --l_conc_status
1547: END IF; --l_conc_dev_phase
1549: l_request_id := fnd_request.submit_request('AR','ARHDUPB','Create Merge Batch',to_char(sysdate,'DD-MON-YY HH24:MI:SS')
1550: ,FALSE,p_dup_set_id );
1551:
1552: IF l_request_id = 0 THEN
1553: FND_MESSAGE.SET_NAME('AR', 'AR_CUST_CONC_ERROR');
1554: FND_MSG_PUB.ADD;
1555: RAISE FND_API.G_EXC_ERROR;
1556: END IF;
1557:
1596: WHEN OTHERS THEN
1597: ROLLBACK to submit_dup;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599:
1600: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1601: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1602: FND_MSG_PUB.ADD;
1603:
1604: FND_MSG_PUB.Count_And_Get(
1597: ROLLBACK to submit_dup;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599:
1600: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1601: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1602: FND_MSG_PUB.ADD;
1603:
1604: FND_MSG_PUB.Count_And_Get(
1605: p_encoded => FND_API.G_FALSE,
2031: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2032:
2033: if l_dl_dss_prof = 'S'
2034: then -- show error at submission
2035: FND_MESSAGE.SET_NAME('AR', 'HZ_DL_MERGE_PROTECTION');
2036:
2037: else -- show error at mapping
2038: FND_MESSAGE.SET_NAME('AR', 'HZ_DL_DSS_NO_PRIVILEGE');
2039: end if;
2034: then -- show error at submission
2035: FND_MESSAGE.SET_NAME('AR', 'HZ_DL_MERGE_PROTECTION');
2036:
2037: else -- show error at mapping
2038: FND_MESSAGE.SET_NAME('AR', 'HZ_DL_DSS_NO_PRIVILEGE');
2039: end if;
2040:
2041: FND_MSG_PUB.ADD;
2042: x_dss_update_flag := 'N';
2062: p_data => x_msg_data);
2063: return; -- only find one is ok
2064: WHEN OTHERS THEN
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2067: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2068: FND_MSG_PUB.ADD;
2069: FND_MSG_PUB.Count_And_Get(
2070: p_encoded => FND_API.G_FALSE,
2063: return; -- only find one is ok
2064: WHEN OTHERS THEN
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2067: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2068: FND_MSG_PUB.ADD;
2069: FND_MSG_PUB.Count_And_Get(
2070: p_encoded => FND_API.G_FALSE,
2071: p_count => x_msg_count,
2121: close validate_reprocess_req_csr;
2122:
2123: if l_count > 0
2124: then
2125: FND_MESSAGE.SET_NAME( 'AR', 'HZ_MRQ_REPROCESS_ERR' );
2126: FND_MSG_PUB.ADD;
2127: RAISE FND_API.G_EXC_ERROR;
2128: end if;
2129:
2166: p_data => x_msg_data);
2167:
2168: WHEN OTHERS THEN
2169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2170: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2171: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2172: FND_MSG_PUB.ADD;
2173: FND_MSG_PUB.Count_And_Get(
2174: p_encoded => FND_API.G_FALSE,
2167:
2168: WHEN OTHERS THEN
2169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2170: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2171: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2172: FND_MSG_PUB.ADD;
2173: FND_MSG_PUB.Count_And_Get(
2174: p_encoded => FND_API.G_FALSE,
2175: p_count => x_msg_count,