522:
523: BEGIN
524:
525: --Initialize API return status to success.
526: x_return_status := FND_API.G_RET_STS_SUCCESS;
527:
528: -- Initialize the compiled package name
529: l_rule_id := TO_NUMBER(p_rule_id);
530: l_package_name := 'HZ_MATCH_RULE_'||p_rule_id;
541: EXCEPTION
542: WHEN NO_DATA_FOUND THEN
543: FND_MESSAGE.SET_NAME('AR', 'HZ_STAGE_NO_RULE');
544: FND_MSG_PUB.ADD;
545: RAISE FND_API.G_EXC_ERROR;
546: END;
547:
548:
549: SELECT RULE_PURPOSE,NVL(MATCH_RULE_TYPE,'SINGLE') into l_purpose,l_match_rule_type FROM HZ_MATCH_RULES_VL --Code Change for Match Rule Set
553: IF (l_match_rule_type = 'SET') THEN
554: IF (has_uncompiled_childern(l_rule_id)) THEN
555: FND_MESSAGE.SET_NAME('AR', 'HZ_RULE_SET_UNCOMP_RULE_EXISTS');
556: FND_MSG_PUB.ADD;
557: RAISE FND_API.G_EXC_ERROR;
558: END IF;
559: --Populate the match rule set primary and secondary attributes
560: HZ_POP_MRULE_SET_ATTR_V2PUB.pop_mrule_set_attributes(l_rule_id);
561: END IF;
587: NULL;
588: END;
589: fnd_message.set_name('AR','HZ_SCORING_NO_ACQUISITION');
590: FND_MSG_PUB.ADD;
591: RAISE FND_API.G_EXC_ERROR;
592: END IF;
593: CLOSE check_null_set;
594:
595: /* Check if match rule has any inactive transformations */
605: END;
606:
607: fnd_message.set_name('AR','HZ_MR_HAS_INACTIVE_TX');
608: FND_MSG_PUB.ADD;
609: RAISE FND_API.G_EXC_ERROR;
610: END IF;
611: CLOSE check_inactive;
612:
613: -- Generate and compile match rule package spec
647: EXECUTE IMMEDIATE 'ALTER PACKAGE ' || l_package_name || ' COMPILE SPECIFICATION'; --bug 5622345
648:
649: --Standard call to get message count and if count is 1, get message info.
650: FND_MSG_PUB.Count_And_Get(
651: p_encoded => FND_API.G_FALSE,
652: p_count => x_msg_count,
653: p_data => x_msg_data);
654:
655: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'C' WHERE MATCH_RULE_ID = l_rule_id;
669: HZ_DQM_DUP_ID_PKG.compile_match_rule(l_rule_id,x_return_status,x_msg_count,x_msg_data);
670: END IF;
671:
672: EXCEPTION
673: WHEN FND_API.G_EXC_ERROR THEN
674: FND_MSG_PUB.Count_And_Get(
675: p_encoded => FND_API.G_FALSE,
676: p_count => x_msg_count,
677: p_data => x_msg_data);
671:
672: EXCEPTION
673: WHEN FND_API.G_EXC_ERROR THEN
674: FND_MSG_PUB.Count_And_Get(
675: p_encoded => FND_API.G_FALSE,
676: p_count => x_msg_count,
677: p_data => x_msg_data);
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
674: FND_MSG_PUB.Count_And_Get(
675: p_encoded => FND_API.G_FALSE,
676: p_count => x_msg_count,
677: p_data => x_msg_data);
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
680: COMMIT;
681: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
682: FND_MSG_PUB.Count_And_Get(
677: p_data => x_msg_data);
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
680: COMMIT;
681: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
682: FND_MSG_PUB.Count_And_Get(
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data);
679: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
680: COMMIT;
681: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
682: FND_MSG_PUB.Count_And_Get(
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data);
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
682: FND_MSG_PUB.Count_And_Get(
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data);
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
688: COMMIT;
689: WHEN OTHERS THEN
690:
693: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
694: FND_MSG_PUB.ADD;
695:
696: FND_MSG_PUB.Count_And_Get(
697: p_encoded => FND_API.G_FALSE,
698: p_count => x_msg_count,
699: p_data => x_msg_data);
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
696: FND_MSG_PUB.Count_And_Get(
697: p_encoded => FND_API.G_FALSE,
698: p_count => x_msg_count,
699: p_data => x_msg_data);
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
702: COMMIT;
703: END;
704:
774: --l(' PROCEDURE disable_debug;');
775:
776: -- Generate find_parties code. Backward compatible signature.
777: l(' PROCEDURE find_parties (');
778: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
779: l(' x_rule_id IN OUT NUMBER,');
780: l(' p_party_search_rec IN party_search_rec_type,');
781: l(' p_party_site_list IN party_site_list,');
782: l(' p_contact_list IN contact_list,');
801: l(' END;');
802: l('');
803: -- Generate find_parties code. Public signature.
804: l(' PROCEDURE find_parties (');
805: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
806: l(' p_rule_id IN NUMBER,');
807: l(' p_party_search_rec IN party_search_rec_type,');
808: l(' p_party_site_list IN party_site_list,');
809: l(' p_contact_list IN contact_list,');
826: l('');
827: d(fnd_log.level_procedure,'find_parties(+)');
828: d(fnd_log.level_statement,'Rule ID','p_rule_id');
829: l(' -- Initialize return status and message stack');
830: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
831: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
832: l(' FND_MSG_PUB.initialize;');
833: l(' END IF;');
834: l('');
827: d(fnd_log.level_procedure,'find_parties(+)');
828: d(fnd_log.level_statement,'Rule ID','p_rule_id');
829: l(' -- Initialize return status and message stack');
830: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
831: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
832: l(' FND_MSG_PUB.initialize;');
833: l(' END IF;');
834: l('');
835: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
838: l('');
839: l(' -- No MATCH RULE FOUND');
840: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
841: l(' FND_MSG_PUB.ADD;');
842: l(' RAISE FND_API.G_EXC_ERROR;');
843: l(' END IF;');
844:
845: l(' OPEN c_match_rule;');
846: l(' FETCH c_match_rule INTO l_cmp_flag;');
846: l(' FETCH c_match_rule INTO l_cmp_flag;');
847: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
848: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
849: l(' FND_MSG_PUB.ADD;');
850: l(' RAISE FND_API.G_EXC_ERROR;');
851: l(' END IF;');
852:
853: FIRST := TRUE;
854: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
865: END IF;
866: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
867: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
868: l(' FND_MSG_PUB.ADD;');
869: l(' RAISE FND_API.G_EXC_ERROR;');
870: l(' END IF;');
871:
872: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_parties(');
873: l(' p_rule_id,p_party_search_rec,p_party_site_list,p_contact_list,');
887:
888:
889: -- Generate find_persons code. Public signature.
890: l(' PROCEDURE find_persons (');
891: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
892: l(' p_rule_id IN NUMBER,');
893: l(' p_party_search_rec IN party_search_rec_type,');
894: l(' p_party_site_list IN party_site_list,');
895: l(' p_contact_list IN contact_list,');
912: l('');
913: d(fnd_log.level_procedure,'find_persons(+)');
914: d(fnd_log.level_statement,'Rule ID','p_rule_id');
915: l(' -- Initialize return status and message stack');
916: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
917: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
918: l(' FND_MSG_PUB.initialize;');
919: l(' END IF;');
920: l('');
913: d(fnd_log.level_procedure,'find_persons(+)');
914: d(fnd_log.level_statement,'Rule ID','p_rule_id');
915: l(' -- Initialize return status and message stack');
916: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
917: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
918: l(' FND_MSG_PUB.initialize;');
919: l(' END IF;');
920: l('');
921: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
924: l('');
925: l(' -- No MATCH RULE FOUND');
926: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
927: l(' FND_MSG_PUB.ADD;');
928: l(' RAISE FND_API.G_EXC_ERROR;');
929: l(' END IF;');
930:
931: l(' OPEN c_match_rule;');
932: l(' FETCH c_match_rule INTO l_cmp_flag;');
932: l(' FETCH c_match_rule INTO l_cmp_flag;');
933: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
934: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
935: l(' FND_MSG_PUB.ADD;');
936: l(' RAISE FND_API.G_EXC_ERROR;');
937: l(' END IF;');
938: ---Bug:5261867, additional parameter null in place of p_search_merged
939: l_sql := 'declare x number; y number; begin HZ_MATCH_RULE_RULEID.find_persons(-1,'||
940: 'HZ_PARTY_SEARCH.G_MISS_PARTY_SEARCH_REC,HZ_PARTY_SEARCH.G_MISS_PARTY_SITE_LIST,'||
957: IF check_proc(RULE.MATCH_RULE_ID) THEN
958: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
959: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
960: l(' FND_MSG_PUB.ADD;');
961: l(' RAISE FND_API.G_EXC_ERROR;');
962: l(' END IF;');
963: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_persons(');
964: l(' p_rule_id,p_party_search_rec,p_party_site_list,p_contact_list,');
965: l(' p_contact_point_list,p_restrict_sql,p_match_type,p_search_merged,''N'',x_search_ctx_id,x_num_matches);');
965: l(' p_contact_point_list,p_restrict_sql,p_match_type,p_search_merged,''N'',x_search_ctx_id,x_num_matches);');
966: ELSE
967: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
968: l(' FND_MSG_PUB.ADD;');
969: l(' RAISE FND_API.G_EXC_ERROR;');
970: END IF;
971:
972: END LOOP;
973: l(' END IF;');
978:
979:
980: -- Generate find_persons code. Public signature.
981: l(' PROCEDURE find_persons (');
982: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
983: l(' p_rule_id IN NUMBER,');
984: l(' p_party_search_rec IN party_search_rec_type,');
985: l(' p_party_site_list IN party_site_list,');
986: l(' p_contact_list IN contact_list,');
1002: l('');
1003:
1004: -- Generate find_party_details code. Public signature.
1005: l(' PROCEDURE find_party_details (');
1006: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1007: l(' p_rule_id IN NUMBER,');
1008: l(' p_party_search_rec IN party_search_rec_type,');
1009: l(' p_party_site_list IN party_site_list,');
1010: l(' p_contact_list IN contact_list,');
1032: dc(fnd_log.level_statement,'Rule ID','p_rule_id');
1033: de(' ');
1034: l('');
1035: l(' -- Initialize return status and message stack');
1036: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1037: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1038: l(' FND_MSG_PUB.initialize;');
1039: l(' END IF;');
1040: l('');
1033: de(' ');
1034: l('');
1035: l(' -- Initialize return status and message stack');
1036: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1037: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1038: l(' FND_MSG_PUB.initialize;');
1039: l(' END IF;');
1040: l('');
1041: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1044: l('');
1045: l(' -- No MATCH RULE FOUND');
1046: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1047: l(' FND_MSG_PUB.ADD;');
1048: l(' RAISE FND_API.G_EXC_ERROR;');
1049: l(' END IF;');
1050:
1051: l(' OPEN c_match_rule;');
1052: l(' FETCH c_match_rule INTO l_cmp_flag;');
1052: l(' FETCH c_match_rule INTO l_cmp_flag;');
1053: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1054: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1055: l(' FND_MSG_PUB.ADD;');
1056: l(' RAISE FND_API.G_EXC_ERROR;');
1057: l(' END IF;');
1058:
1059: FIRST := TRUE;
1060: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1071: END IF;
1072: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1073: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1074: l(' FND_MSG_PUB.ADD;');
1075: l(' RAISE FND_API.G_EXC_ERROR;');
1076: l(' END IF;');
1077:
1078: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_party_details(');
1079: l(' p_rule_id,p_party_search_rec,p_party_site_list,p_contact_list,');
1084: gen_exception_block;
1085: l(' END;');
1086: l('');
1087: l(' PROCEDURE find_duplicate_parties (');
1088: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1089: l(' p_rule_id IN NUMBER,');
1090: l(' p_party_id IN NUMBER,');
1091: l(' p_restrict_sql IN VARCHAR2,');
1092: l(' p_match_type IN VARCHAR2,');
1111: d(fnd_log.level_statement,'Rule ID','p_rule_id');
1112:
1113: l('');
1114: l(' -- Initialize return status and message stack');
1115: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1116: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1117: l(' FND_MSG_PUB.initialize;');
1118: l(' END IF;');
1119: l('');
1112:
1113: l('');
1114: l(' -- Initialize return status and message stack');
1115: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1116: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1117: l(' FND_MSG_PUB.initialize;');
1118: l(' END IF;');
1119: l('');
1120: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1123: l('');
1124: l(' -- No MATCH RULE FOUND');
1125: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1126: l(' FND_MSG_PUB.ADD;');
1127: l(' RAISE FND_API.G_EXC_ERROR;');
1128: l(' END IF;');
1129:
1130: l(' IF g_last_rule<>p_rule_id OR NOT g_last_rule_valid THEN');
1131: l(' OPEN c_match_rule;');
1132: l(' FETCH c_match_rule INTO l_cmp_flag;');
1133: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1134: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1135: l(' FND_MSG_PUB.ADD;');
1136: l(' RAISE FND_API.G_EXC_ERROR;');
1137: l(' END IF;');
1138: l(' g_last_rule := p_rule_id;');
1139: l(' g_last_rule_valid := TRUE;');
1140: l(' END IF;');
1154: END IF;
1155: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1156: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1157: l(' FND_MSG_PUB.ADD;');
1158: l(' RAISE FND_API.G_EXC_ERROR;');
1159: l(' END IF;');
1160:
1161: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_duplicate_parties(');
1162: l(' p_rule_id,p_party_id,');
1170: l('');
1171:
1172: l('');
1173: l(' PROCEDURE find_duplicate_party_sites (');
1174: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1175: l(' p_rule_id IN NUMBER,');
1176: l(' p_party_site_id IN NUMBER,');
1177: l(' p_party_id IN NUMBER,');
1178: l(' p_restrict_sql IN VARCHAR2,');
1195: d(fnd_log.level_statement,'Rule ID','p_rule_id');
1196:
1197: l('');
1198: l(' -- Initialize return status and message stack');
1199: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1200: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1201: l(' FND_MSG_PUB.initialize;');
1202: l(' END IF;');
1203: l('');
1196:
1197: l('');
1198: l(' -- Initialize return status and message stack');
1199: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1200: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1201: l(' FND_MSG_PUB.initialize;');
1202: l(' END IF;');
1203: l('');
1204: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1207: l('');
1208: l(' -- No MATCH RULE FOUND');
1209: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1210: l(' FND_MSG_PUB.ADD;');
1211: l(' RAISE FND_API.G_EXC_ERROR;');
1212: l(' END IF;');
1213:
1214: l(' OPEN c_match_rule;');
1215: l(' FETCH c_match_rule INTO l_cmp_flag;');
1215: l(' FETCH c_match_rule INTO l_cmp_flag;');
1216: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1217: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1218: l(' FND_MSG_PUB.ADD;');
1219: l(' RAISE FND_API.G_EXC_ERROR;');
1220: l(' END IF;');
1221:
1222: FIRST := TRUE;
1223: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1234: END IF;
1235: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1236: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1237: l(' FND_MSG_PUB.ADD;');
1238: l(' RAISE FND_API.G_EXC_ERROR;');
1239: l(' END IF;');
1240:
1241: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_duplicate_party_sites(');
1242: l(' p_rule_id,p_party_site_id,p_party_id,');
1249: l(' END;');
1250:
1251: l('');
1252: l(' PROCEDURE find_duplicate_contacts (');
1253: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1254: l(' p_rule_id IN NUMBER,');
1255: l(' p_org_contact_id IN NUMBER,');
1256: l(' p_party_id IN NUMBER,');
1257: l(' p_restrict_sql IN VARCHAR2,');
1274: d(fnd_log.level_statement,'Rule ID','p_rule_id');
1275:
1276: l('');
1277: l(' -- Initialize return status and message stack');
1278: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1279: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1280: l(' FND_MSG_PUB.initialize;');
1281: l(' END IF;');
1282: l('');
1275:
1276: l('');
1277: l(' -- Initialize return status and message stack');
1278: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1279: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1280: l(' FND_MSG_PUB.initialize;');
1281: l(' END IF;');
1282: l('');
1283: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1286: l('');
1287: l(' -- No MATCH RULE FOUND');
1288: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1289: l(' FND_MSG_PUB.ADD;');
1290: l(' RAISE FND_API.G_EXC_ERROR;');
1291: l(' END IF;');
1292:
1293: l(' OPEN c_match_rule;');
1294: l(' FETCH c_match_rule INTO l_cmp_flag;');
1294: l(' FETCH c_match_rule INTO l_cmp_flag;');
1295: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1296: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1297: l(' FND_MSG_PUB.ADD;');
1298: l(' RAISE FND_API.G_EXC_ERROR;');
1299: l(' END IF;');
1300:
1301: FIRST := TRUE;
1302: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1313: END IF;
1314: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1315: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1316: l(' FND_MSG_PUB.ADD;');
1317: l(' RAISE FND_API.G_EXC_ERROR;');
1318: l(' END IF;');
1319:
1320: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_duplicate_contacts(');
1321: l(' p_rule_id,p_org_contact_id,p_party_id,');
1328: l(' END;');
1329:
1330: l('');
1331: l(' PROCEDURE find_duplicate_contact_points (');
1332: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1333: l(' p_rule_id IN NUMBER,');
1334: l(' p_contact_point_id IN NUMBER,');
1335: l(' p_party_id IN NUMBER,');
1336: l(' p_restrict_sql IN VARCHAR2,');
1353: d(fnd_log.level_statement,'Rule ID','p_rule_id');
1354:
1355: l('');
1356: l(' -- Initialize return status and message stack');
1357: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1358: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1359: l(' FND_MSG_PUB.initialize;');
1360: l(' END IF;');
1361: l('');
1354:
1355: l('');
1356: l(' -- Initialize return status and message stack');
1357: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1358: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1359: l(' FND_MSG_PUB.initialize;');
1360: l(' END IF;');
1361: l('');
1362: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1365: l('');
1366: l(' -- No MATCH RULE FOUND');
1367: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1368: l(' FND_MSG_PUB.ADD;');
1369: l(' RAISE FND_API.G_EXC_ERROR;');
1370: l(' END IF;');
1371:
1372: l(' OPEN c_match_rule;');
1373: l(' FETCH c_match_rule INTO l_cmp_flag;');
1373: l(' FETCH c_match_rule INTO l_cmp_flag;');
1374: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1375: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1376: l(' FND_MSG_PUB.ADD;');
1377: l(' RAISE FND_API.G_EXC_ERROR;');
1378: l(' END IF;');
1379:
1380: FIRST := TRUE;
1381: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1392: END IF;
1393: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1394: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1395: l(' FND_MSG_PUB.ADD;');
1396: l(' RAISE FND_API.G_EXC_ERROR;');
1397: l(' END IF;');
1398:
1399: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_duplicate_contact_points(');
1400: l(' p_rule_id,p_contact_point_id,p_party_id,');
1407: l(' END;');
1408: l('');
1409: l('');
1410: l(' PROCEDURE find_parties_dynamic (');
1411: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1412: l(' p_rule_id IN NUMBER,');
1413: l(' p_attrib_id1 IN NUMBER,');
1414: l(' p_attrib_id2 IN NUMBER,');
1415: l(' p_attrib_id3 IN NUMBER,');
1471: d(fnd_log.level_statement,'Rule ID','p_rule_id');
1472:
1473: l('');
1474: l(' -- Initialize return status and message stack');
1475: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1476: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1477: l(' FND_MSG_PUB.initialize;');
1478: l(' END IF;');
1479: l('');
1472:
1473: l('');
1474: l(' -- Initialize return status and message stack');
1475: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1476: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1477: l(' FND_MSG_PUB.initialize;');
1478: l(' END IF;');
1479: l('');
1480: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1483: l('');
1484: l(' -- No MATCH RULE FOUND');
1485: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1486: l(' FND_MSG_PUB.ADD;');
1487: l(' RAISE FND_API.G_EXC_ERROR;');
1488: l(' END IF;');
1489:
1490: l(' OPEN c_match_rule;');
1491: l(' FETCH c_match_rule INTO l_cmp_flag;');
1491: l(' FETCH c_match_rule INTO l_cmp_flag;');
1492: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1493: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1494: l(' FND_MSG_PUB.ADD;');
1495: l(' RAISE FND_API.G_EXC_ERROR;');
1496: l(' END IF;');
1497:
1498: FIRST := TRUE;
1499: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1510: END IF;
1511: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1512: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1513: l(' FND_MSG_PUB.ADD;');
1514: l(' RAISE FND_API.G_EXC_ERROR;');
1515: l(' END IF;');
1516:
1517: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.find_parties_dynamic(');
1518: l(' p_rule_id,');
1532: gen_exception_block;
1533: l(' END;');
1534: l('');
1535: l(' PROCEDURE call_api_dynamic (');
1536: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1537: l(' p_rule_id IN NUMBER,');
1538: l(' p_attrib_id1 IN NUMBER,');
1539: l(' p_attrib_id2 IN NUMBER,');
1540: l(' p_attrib_id3 IN NUMBER,');
1598: d(fnd_log.level_statement,'Rule ID','p_rule_id');
1599:
1600: l('');
1601: l(' -- Initialize return status and message stack');
1602: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1603: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1604: l(' FND_MSG_PUB.initialize;');
1605: l(' END IF;');
1606: l('');
1599:
1600: l('');
1601: l(' -- Initialize return status and message stack');
1602: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1603: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1604: l(' FND_MSG_PUB.initialize;');
1605: l(' END IF;');
1606: l('');
1607: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1610: l('');
1611: l(' -- No MATCH RULE FOUND');
1612: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1613: l(' FND_MSG_PUB.ADD;');
1614: l(' RAISE FND_API.G_EXC_ERROR;');
1615: l(' END IF;');
1616:
1617: l(' OPEN c_match_rule;');
1618: l(' FETCH c_match_rule INTO l_cmp_flag;');
1618: l(' FETCH c_match_rule INTO l_cmp_flag;');
1619: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1620: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1621: l(' FND_MSG_PUB.ADD;');
1622: l(' RAISE FND_API.G_EXC_ERROR;');
1623: l(' END IF;');
1624:
1625: l_sql := 'declare x number; y number; begin HZ_MATCH_RULE_RULEID.call_api_dynamic(null,null,'||
1626: 'null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,'||
1645:
1646: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1647: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1648: l(' FND_MSG_PUB.ADD;');
1649: l(' RAISE FND_API.G_EXC_ERROR;');
1650: l(' END IF;');
1651:
1652: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.call_api_dynamic(');
1653: l(' p_rule_id,');
1662: l(' p_restrict_sql,p_api_name,p_match_type,p_party_id,p_search_merged,x_search_ctx_id,x_num_matches);');
1663: ELSE
1664: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1665: l(' FND_MSG_PUB.ADD;');
1666: l(' RAISE FND_API.G_EXC_ERROR;');
1667: END IF;
1668:
1669: END LOOP;
1670: l(' END IF;');
1676: gen_call_api_dynamic_names;
1677:
1678: -- Generate get_matching_party_sites code
1679: l('PROCEDURE get_matching_party_sites (');
1680: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1681: l(' p_rule_id IN NUMBER,');
1682: l(' p_party_id IN NUMBER,');
1683: l(' p_party_site_list IN PARTY_SITE_LIST,');
1684: l(' p_contact_point_list IN CONTACT_POINT_LIST,');
1702:
1703: l(' END;');
1704:
1705: l('PROCEDURE get_matching_party_sites (');
1706: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1707: l(' p_rule_id IN NUMBER,');
1708: l(' p_party_id IN NUMBER,');
1709: l(' p_party_site_list IN PARTY_SITE_LIST,');
1710: l(' p_contact_point_list IN CONTACT_POINT_LIST,');
1729:
1730:
1731: l('');
1732: l(' -- Initialize return status and message stack');
1733: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1734: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1735: l(' FND_MSG_PUB.initialize;');
1736: l(' END IF;');
1737: l('');
1730:
1731: l('');
1732: l(' -- Initialize return status and message stack');
1733: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1734: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1735: l(' FND_MSG_PUB.initialize;');
1736: l(' END IF;');
1737: l('');
1738: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1738: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1739: l(' -- No MATCH RULE FOUND');
1740: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1741: l(' FND_MSG_PUB.ADD;');
1742: l(' RAISE FND_API.G_EXC_ERROR;');
1743: l(' END IF;');
1744:
1745: l(' OPEN c_match_rule;');
1746: l(' FETCH c_match_rule INTO l_cmp_flag;');
1746: l(' FETCH c_match_rule INTO l_cmp_flag;');
1747: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1748: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1749: l(' FND_MSG_PUB.ADD;');
1750: l(' RAISE FND_API.G_EXC_ERROR;');
1751: l(' END IF;');
1752:
1753: FIRST := TRUE;
1754: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1765: END IF;
1766: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1767: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1768: l(' FND_MSG_PUB.ADD;');
1769: l(' RAISE FND_API.G_EXC_ERROR;');
1770: l(' END IF;');
1771: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.get_matching_party_sites(');
1772: l(' p_rule_id, p_party_id,p_party_site_list, p_contact_point_list,');
1773: l(' p_restrict_sql, p_match_type,null,x_search_ctx_id,x_num_matches);');
1779: l(' END;');
1780: l('');
1781: -- Generate get_matching_contacts code
1782: l('PROCEDURE get_matching_contacts (');
1783: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1784: l(' p_rule_id IN NUMBER,');
1785: l(' p_party_id IN NUMBER,');
1786: l(' p_contact_list IN CONTACT_LIST,');
1787: l(' p_contact_point_list IN CONTACT_POINT_LIST,');
1805:
1806: l(' END;');
1807:
1808: l('PROCEDURE get_matching_contacts (');
1809: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1810: l(' p_rule_id IN NUMBER,');
1811: l(' p_party_id IN NUMBER,');
1812: l(' p_contact_list IN CONTACT_LIST,');
1813: l(' p_contact_point_list IN CONTACT_POINT_LIST,');
1832:
1833:
1834: l('');
1835: l(' -- Initialize return status and message stack');
1836: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1837: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1838: l(' FND_MSG_PUB.initialize;');
1839: l(' END IF;');
1840: l('');
1833:
1834: l('');
1835: l(' -- Initialize return status and message stack');
1836: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1837: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1838: l(' FND_MSG_PUB.initialize;');
1839: l(' END IF;');
1840: l('');
1841: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1841: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1842: l(' -- No MATCH RULE FOUND');
1843: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1844: l(' FND_MSG_PUB.ADD;');
1845: l(' RAISE FND_API.G_EXC_ERROR;');
1846: l(' END IF;');
1847:
1848: l(' OPEN c_match_rule;');
1849: l(' FETCH c_match_rule INTO l_cmp_flag;');
1849: l(' FETCH c_match_rule INTO l_cmp_flag;');
1850: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1851: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1852: l(' FND_MSG_PUB.ADD;');
1853: l(' RAISE FND_API.G_EXC_ERROR;');
1854: l(' END IF;');
1855:
1856: FIRST := TRUE;
1857: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1868: END IF;
1869: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1870: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1871: l(' FND_MSG_PUB.ADD;');
1872: l(' RAISE FND_API.G_EXC_ERROR;');
1873: l(' END IF;');
1874: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.get_matching_contacts(');
1875: l(' p_rule_id, p_party_id,p_contact_list, p_contact_point_list,');
1876: l(' p_restrict_sql, p_match_type,null,x_search_ctx_id,x_num_matches);');
1882: l(' END;');
1883: l('');
1884: -- Generate get_matching_contact_points code
1885: l('PROCEDURE get_matching_contact_points (');
1886: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1887: l(' p_rule_id IN NUMBER,');
1888: l(' p_party_id IN NUMBER,');
1889: l(' p_contact_point_list IN CONTACT_POINT_LIST,');
1890: l(' x_search_ctx_id OUT NUMBER,');
1906: d(fnd_log.level_procedure,'get_matching_contact_points-1(-)');
1907:
1908: l(' END;');
1909: l('PROCEDURE get_matching_contact_points (');
1910: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1911: l(' p_rule_id IN NUMBER,');
1912: l(' p_party_id IN NUMBER,');
1913: l(' p_contact_point_list IN CONTACT_POINT_LIST,');
1914: l(' p_restrict_sql IN VARCHAR2,');
1931: d(fnd_log.level_statement,'Rule ID','p_rule_id');
1932:
1933: l('');
1934: l(' -- Initialize return status and message stack');
1935: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1936: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1937: l(' FND_MSG_PUB.initialize;');
1938: l(' END IF;');
1939: l('');
1932:
1933: l('');
1934: l(' -- Initialize return status and message stack');
1935: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
1936: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
1937: l(' FND_MSG_PUB.initialize;');
1938: l(' END IF;');
1939: l('');
1940: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1940: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
1941: l(' -- No MATCH RULE FOUND');
1942: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
1943: l(' FND_MSG_PUB.ADD;');
1944: l(' RAISE FND_API.G_EXC_ERROR;');
1945: l(' END IF;');
1946:
1947: l(' OPEN c_match_rule;');
1948: l(' FETCH c_match_rule INTO l_cmp_flag;');
1948: l(' FETCH c_match_rule INTO l_cmp_flag;');
1949: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
1950: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
1951: l(' FND_MSG_PUB.ADD;');
1952: l(' RAISE FND_API.G_EXC_ERROR;');
1953: l(' END IF;');
1954:
1955: FIRST := TRUE;
1956: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
1967: END IF;
1968: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
1969: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
1970: l(' FND_MSG_PUB.ADD;');
1971: l(' RAISE FND_API.G_EXC_ERROR;');
1972: l(' END IF;');
1973:
1974: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.get_matching_contact_points(');
1975: l(' p_rule_id, p_party_id, p_contact_point_list,');
1982: l(' END;');
1983: l('');
1984: -- Generate get_party_score_details code
1985: l('PROCEDURE get_party_score_details (');
1986: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
1987: l(' p_rule_id IN NUMBER,');
1988: l(' p_party_id IN NUMBER,');
1989: l(' p_search_ctx_id IN NUMBER,');
1990: l(' p_party_search_rec IN party_search_rec_type,');
2010:
2011: l(' END;');
2012:
2013: l('PROCEDURE get_score_details (');
2014: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
2015: l(' p_rule_id IN NUMBER,');
2016: l(' p_party_id IN NUMBER,');
2017: l(' p_party_search_rec IN party_search_rec_type,');
2018: l(' p_party_site_list IN party_site_list,');
2036:
2037:
2038: l('');
2039: l(' -- Initialize return status and message stack');
2040: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
2041: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
2042: l(' FND_MSG_PUB.initialize;');
2043: l(' END IF;');
2044: l('');
2037:
2038: l('');
2039: l(' -- Initialize return status and message stack');
2040: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
2041: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
2042: l(' FND_MSG_PUB.initialize;');
2043: l(' END IF;');
2044: l('');
2045: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
2045: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
2046: l(' -- No MATCH RULE FOUND');
2047: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
2048: l(' FND_MSG_PUB.ADD;');
2049: l(' RAISE FND_API.G_EXC_ERROR;');
2050: l(' END IF;');
2051:
2052: l(' OPEN c_match_rule;');
2053: l(' FETCH c_match_rule INTO l_cmp_flag;');
2053: l(' FETCH c_match_rule INTO l_cmp_flag;');
2054: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
2055: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
2056: l(' FND_MSG_PUB.ADD;');
2057: l(' RAISE FND_API.G_EXC_ERROR;');
2058: l(' END IF;');
2059:
2060: FIRST := TRUE;
2061: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
2072: END IF;
2073: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
2074: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
2075: l(' FND_MSG_PUB.ADD;');
2076: l(' RAISE FND_API.G_EXC_ERROR;');
2077: l(' END IF;');
2078: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.get_score_details(');
2079: l(' p_rule_id,');
2080: l(' p_party_id, p_party_search_rec,p_party_site_list,');
2085:
2086: gen_exception_block;
2087: l(' END;');
2088: l('PROCEDURE get_party_for_search (');
2089: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
2090: l(' p_rule_id IN NUMBER,');
2091: l(' p_party_id IN NUMBER,');
2092: l(' x_party_search_rec OUT NOCOPY party_search_rec_type,');
2093: l(' x_party_site_list OUT NOCOPY party_site_list,');
2109: d(fnd_log.level_statement,'Rule ID','p_rule_id');
2110:
2111: l('');
2112: l(' -- Initialize return status and message stack');
2113: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
2114: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
2115: l(' FND_MSG_PUB.initialize;');
2116: l(' END IF;');
2117: l('');
2110:
2111: l('');
2112: l(' -- Initialize return status and message stack');
2113: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
2114: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
2115: l(' FND_MSG_PUB.initialize;');
2116: l(' END IF;');
2117: l('');
2118: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
2118: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
2119: l(' -- No MATCH RULE FOUND');
2120: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
2121: l(' FND_MSG_PUB.ADD;');
2122: l(' RAISE FND_API.G_EXC_ERROR;');
2123: l(' END IF;');
2124:
2125: l(' OPEN c_match_rule;');
2126: l(' FETCH c_match_rule INTO l_cmp_flag;');
2126: l(' FETCH c_match_rule INTO l_cmp_flag;');
2127: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
2128: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
2129: l(' FND_MSG_PUB.ADD;');
2130: l(' RAISE FND_API.G_EXC_ERROR;');
2131: l(' END IF;');
2132:
2133: FIRST := TRUE;
2134: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
2145: END IF;
2146: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
2147: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
2148: l(' FND_MSG_PUB.ADD;');
2149: l(' RAISE FND_API.G_EXC_ERROR;');
2150: l(' END IF;');
2151: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.get_party_for_search(');
2152: l(' p_party_id, x_party_search_rec,x_party_site_list,');
2153: l(' x_contact_list, x_contact_point_list);');
2158: gen_exception_block;
2159: l(' END;');
2160:
2161: l('PROCEDURE get_search_criteria (');
2162: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
2163: l(' p_rule_id IN NUMBER,');
2164: l(' p_party_id IN NUMBER,');
2165: l(' p_party_site_ids IN IDList,');
2166: l(' p_contact_ids IN IDList,');
2184: d(fnd_log.level_statement,'Rule ID','p_rule_id');
2185:
2186: l('');
2187: l(' -- Initialize return status and message stack');
2188: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
2189: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
2190: l(' FND_MSG_PUB.initialize;');
2191: l(' END IF;');
2192: l('');
2185:
2186: l('');
2187: l(' -- Initialize return status and message stack');
2188: l(' x_return_status := FND_API.G_RET_STS_SUCCESS;');
2189: l(' IF FND_API.to_Boolean(p_init_msg_list) THEN');
2190: l(' FND_MSG_PUB.initialize;');
2191: l(' END IF;');
2192: l('');
2193: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
2193: l(' IF p_rule_id IS NULL OR p_rule_id = 0 THEN');
2194: l(' -- No MATCH RULE FOUND');
2195: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_MATCH_RULE'');');
2196: l(' FND_MSG_PUB.ADD;');
2197: l(' RAISE FND_API.G_EXC_ERROR;');
2198: l(' END IF;');
2199:
2200: l(' OPEN c_match_rule;');
2201: l(' FETCH c_match_rule INTO l_cmp_flag;');
2201: l(' FETCH c_match_rule INTO l_cmp_flag;');
2202: l(' IF c_match_rule%NOTFOUND OR l_cmp_flag <> ''C'' THEN');
2203: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
2204: l(' FND_MSG_PUB.ADD;');
2205: l(' RAISE FND_API.G_EXC_ERROR;');
2206: l(' END IF;');
2207:
2208: FIRST := TRUE;
2209: FOR RULE IN (SELECT MATCH_RULE_ID,RULE_NAME
2220: END IF;
2221: l(' IF NOT HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.check_staged THEN');
2222: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_MATCH_RULE_TX_NOT_STAGED'');');
2223: l(' FND_MSG_PUB.ADD;');
2224: l(' RAISE FND_API.G_EXC_ERROR;');
2225: l(' END IF;');
2226: l(' HZ_MATCH_RULE_'||RULE.MATCH_RULE_ID||'.get_search_criteria(');
2227: l(' p_party_id, p_party_site_ids, p_contact_ids, p_contact_pt_ids, x_party_search_rec,x_party_site_list,');
2228: l(' x_contact_list, x_contact_point_list);');
2816: l(' IF lengthb(l_contains_str) > 4000 THEN');
2817: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_SEARCH_CRIT_LARGE_ERROR'');');
2818: l(' FND_MESSAGE.SET_TOKEN(''ENTITY'','''||p_entity||''');');
2819: l(' FND_MSG_PUB.ADD;');
2820: l(' RAISE FND_API.G_EXC_ERROR;');
2821: l(' END IF;');
2822: l(' x_denorm_str := l_den_contains_str;');
2823: l(' RETURN l_contains_str;');
2824: l(' END;');
3059: l(' when others then');
3060: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
3061: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
3062: l(' FND_MSG_PUB.ADD;');
3063: l(' RAISE FND_API.G_EXC_ERROR;');
3064: --Start Bug No: 3032742.
3065: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
3066: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
3067: l(' FND_MSG_PUB.ADD;');
3064: --Start Bug No: 3032742.
3065: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
3066: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
3067: l(' FND_MSG_PUB.ADD;');
3068: l(' RAISE FND_API.G_EXC_ERROR;');
3069: --End Bug No : 3032742.
3070: l(' else ');
3071: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
3072: l(' end if;');
3067: l(' FND_MSG_PUB.ADD;');
3068: l(' RAISE FND_API.G_EXC_ERROR;');
3069: --End Bug No : 3032742.
3070: l(' else ');
3071: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
3072: l(' end if;');
3073: --bug 4959719 end
3074: l('END;');
3075:
3309: l(' p_contact_list,');
3310: l(' p_contact_point_list) THEN');
3311: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_PRIMARY_COND'');');
3312: l(' FND_MSG_PUB.ADD;');
3313: l(' RAISE FND_API.G_EXC_ERROR;');
3314: l(' END IF;');
3315: IF l_max_score=1 THEN
3316: ldbg_s('In init_search calling util package set_no_score');
3317: l(' HZ_DQM_SEARCH_UTIL.set_no_score;');
3558: l(' IF lengthb(l_party_contains_str) > 4000 THEN');
3559: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_SEARCH_CRIT_LARGE_ERROR'');');
3560: l(' FND_MESSAGE.SET_TOKEN(''ENTITY'',''PARTY'');');
3561: l(' FND_MSG_PUB.ADD;');
3562: l(' RAISE FND_API.G_EXC_ERROR;');
3563: l(' END IF;');
3564: l(' IF (p_match_str = '' AND '' OR p_party_max_score
3566: ldbg_sv('l_party_contains_str = ', 'l_party_contains_str');
3971: l(' when others then');
3972: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
3973: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
3974: l(' FND_MSG_PUB.ADD;');
3975: l(' RAISE FND_API.G_EXC_ERROR;');
3976: --Start Bug No: 3032742.
3977: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
3978: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
3979: l(' FND_MSG_PUB.ADD;');
3976: --Start Bug No: 3032742.
3977: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
3978: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
3979: l(' FND_MSG_PUB.ADD;');
3980: l(' RAISE FND_API.G_EXC_ERROR;');
3981: --Bug: 3392837
3982: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
3983: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
3984: l(' FND_MSG_PUB.ADD;');
3981: --Bug: 3392837
3982: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
3983: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
3984: l(' FND_MSG_PUB.ADD;');
3985: l(' RAISE FND_API.G_EXC_ERROR;');
3986: --End Bug No : 3032742.
3987: l(' else ');
3988: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
3989: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
3987: l(' else ');
3988: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
3989: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
3990: l(' FND_MSG_PUB.ADD;');
3991: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
3992: l(' end if;');
3993: l(' END;');
3994: l('');
3995:
4251: l(' when others then');
4252: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
4253: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
4254: l(' FND_MSG_PUB.ADD;');
4255: l(' RAISE FND_API.G_EXC_ERROR;');
4256: --Start Bug No: 3032742.
4257: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
4258: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4259: l(' FND_MSG_PUB.ADD;');
4256: --Start Bug No: 3032742.
4257: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
4258: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4259: l(' FND_MSG_PUB.ADD;');
4260: l(' RAISE FND_API.G_EXC_ERROR;');
4261: --Bug: 3392837
4262: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
4263: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4264: l(' FND_MSG_PUB.ADD;');
4261: --Bug: 3392837
4262: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
4263: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4264: l(' FND_MSG_PUB.ADD;');
4265: l(' RAISE FND_API.G_EXC_ERROR;');
4266: --End Bug No : 3032742.
4267: l(' else ');
4268: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
4269: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
4267: l(' else ');
4268: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
4269: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
4270: l(' FND_MSG_PUB.ADD;');
4271: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
4272: l(' end if;');
4273: l(' END;');
4274: l('');
4275: l(' PROCEDURE open_contact_cursor(');
4419: l(' when others then');
4420: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
4421: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
4422: l(' FND_MSG_PUB.ADD;');
4423: l(' RAISE FND_API.G_EXC_ERROR;');
4424: --Start Bug No: 3032742.
4425: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
4426: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4427: l(' FND_MSG_PUB.ADD;');
4424: --Start Bug No: 3032742.
4425: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
4426: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4427: l(' FND_MSG_PUB.ADD;');
4428: l(' RAISE FND_API.G_EXC_ERROR;');
4429: --Bug: 3392837
4430: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
4431: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4432: l(' FND_MSG_PUB.ADD;');
4429: --Bug: 3392837
4430: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
4431: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4432: l(' FND_MSG_PUB.ADD;');
4433: l(' RAISE FND_API.G_EXC_ERROR;');
4434: --End Bug No : 3032742.
4435: l(' else ');
4436: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
4437: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
4435: l(' else ');
4436: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
4437: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
4438: l(' FND_MSG_PUB.ADD;');
4439: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
4440: l(' end if;');
4441: l(' END;');
4442: l('');
4443: l(' PROCEDURE open_contact_pt_cursor(');
4731: l(' when others then');
4732: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
4733: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
4734: l(' FND_MSG_PUB.ADD;');
4735: l(' RAISE FND_API.G_EXC_ERROR;');
4736: --Start Bug No: 3032742.
4737: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
4738: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4739: l(' FND_MSG_PUB.ADD;');
4736: --Start Bug No: 3032742.
4737: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
4738: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4739: l(' FND_MSG_PUB.ADD;');
4740: l(' RAISE FND_API.G_EXC_ERROR;');
4741: --Bug: 3392837
4742: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
4743: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4744: l(' FND_MSG_PUB.ADD;');
4741: --Bug: 3392837
4742: l(' elsif (instrb(SQLERRM,''ORA-20000'')>0) then ');
4743: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
4744: l(' FND_MSG_PUB.ADD;');
4745: l(' RAISE FND_API.G_EXC_ERROR;');
4746: --End Bug No : 3032742.
4747: l(' else ');
4748: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
4749: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
4747: l(' else ');
4748: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_API_OTHERS_EXCEP'');');
4749: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
4750: l(' FND_MSG_PUB.ADD;');
4751: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
4752: l(' end if;');
4753: l(' END;');
4754: l('');
4755:
4995: l(' IF p_index>1 THEN');
4996: ldbg_s('In eval party level number of matches found exceeded threshold');
4997: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
4998: l(' FND_MSG_PUB.ADD;');
4999: l(' RAISE FND_API.G_EXC_ERROR;');
5000: l(' ELSE');
5001: l(' push_eval;');
5002: l(' RETURN;');
5003: l(' END IF;');
5045: l(' IF p_index>1 THEN');
5046: ldbg_s('In eval party level estimated hits exceed threshold');
5047: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
5048: l(' FND_MSG_PUB.ADD;');
5049: l(' RAISE FND_API.G_EXC_ERROR;');
5050: l(' ELSE');
5051: l(' push_eval;');
5052: l(' RETURN;');
5053: l(' END IF;');
5107: l(' IF p_index>1 THEN');
5108: ldbg_s('In eval party site level number of matches found exceeded threshold');
5109: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
5110: l(' FND_MSG_PUB.ADD;');
5111: l(' RAISE FND_API.G_EXC_ERROR;');
5112: l(' ELSE');
5113: l(' push_eval;');
5114: l(' RETURN;');
5115: l(' END IF;');
5204: l(' IF p_index>1 THEN');
5205: ldbg_s('In eval contact level number of matches found exceeded threshold');
5206: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
5207: l(' FND_MSG_PUB.ADD;');
5208: l(' RAISE FND_API.G_EXC_ERROR;');
5209: l(' ELSE');
5210: l(' push_eval;');
5211: l(' RETURN;');
5212: l(' END IF;');
5301: l(' IF p_index>1 THEN');
5302: ldbg_s('In eval contact point level number of matches found exceeded threshold');
5303: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
5304: l(' FND_MSG_PUB.ADD;');
5305: l(' RAISE FND_API.G_EXC_ERROR;');
5306: l(' ELSE');
5307: l(' push_eval;');
5308: l(' RETURN;');
5309: l(' END IF;');
5506: l(' ELSE ');
5507: ldbg_s('In do eval number of matches found exceeded threshold');
5508: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED''); ');
5509: l(' FND_MSG_PUB.ADD; ');
5510: l(' RAISE FND_API.G_EXC_ERROR; ');
5511: l(' END IF; ');
5512: --end of Bug No:5218095
5513: l(' ELSE');
5514: ldbg_s('In do eval number of matches found exceeded threshold');
5513: l(' ELSE');
5514: ldbg_s('In do eval number of matches found exceeded threshold');
5515: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
5516: l(' FND_MSG_PUB.ADD;');
5517: l(' RAISE FND_API.G_EXC_ERROR;');
5518: l(' END IF; ');
5519: l(' END IF;');
5520: --End of Bug No: 4407425
5521: /*l(' IF p_index=5 AND call_order(5) <> ''NONE'' AND H_PARTY_ID.COUNT=0 THEN');
5520: --End of Bug No: 4407425
5521: /*l(' IF p_index=5 AND call_order(5) <> ''NONE'' AND H_PARTY_ID.COUNT=0 THEN');
5522: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
5523: l(' FND_MSG_PUB.ADD;');
5524: l(' RAISE FND_API.G_EXC_ERROR;');
5525: l(' END IF;');
5526: */
5527: l(' IF call_order(p_index) = ''PARTY'' AND l_party_contains_str IS NOT NULL THEN');
5528: l(' eval_party_level(l_party_contains_str,call_type(p_index), p_index);');
5805: l('EXCEPTION');
5806:
5807: END IF; ---End of Code Change for Match Rule Set
5808:
5809: l(' WHEN FND_API.G_EXC_ERROR THEN');
5810: l(' RAISE FND_API.G_EXC_ERROR;');
5811: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
5812: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
5813: l(' WHEN OTHERS THEN');
5806:
5807: END IF; ---End of Code Change for Match Rule Set
5808:
5809: l(' WHEN FND_API.G_EXC_ERROR THEN');
5810: l(' RAISE FND_API.G_EXC_ERROR;');
5811: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
5812: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
5813: l(' WHEN OTHERS THEN');
5814: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
5807: END IF; ---End of Code Change for Match Rule Set
5808:
5809: l(' WHEN FND_API.G_EXC_ERROR THEN');
5810: l(' RAISE FND_API.G_EXC_ERROR;');
5811: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
5812: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
5813: l(' WHEN OTHERS THEN');
5814: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
5815: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_parties'');');
5808:
5809: l(' WHEN FND_API.G_EXC_ERROR THEN');
5810: l(' RAISE FND_API.G_EXC_ERROR;');
5811: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
5812: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
5813: l(' WHEN OTHERS THEN');
5814: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
5815: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_parties'');');
5816: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
5814: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
5815: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_parties'');');
5816: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
5817: l(' FND_MSG_PUB.ADD;');
5818: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
5819: l('END find_parties;');
5820: l('');
5821:
5822: l('PROCEDURE find_persons (');
6019: l(' IF p_index>1 THEN');
6020: ldbg_s('In eval party level number of matches found exceeded threshold');
6021: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
6022: l(' FND_MSG_PUB.ADD;');
6023: l(' RAISE FND_API.G_EXC_ERROR;');
6024: l(' ELSE');
6025: l(' push_eval;');
6026: l(' RETURN;');
6027: l(' END IF;');
6072: l(' IF p_index>1 THEN');
6073: ldbg_s('In eval party level number of matches found exceeded threshold');
6074: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
6075: l(' FND_MSG_PUB.ADD;');
6076: l(' RAISE FND_API.G_EXC_ERROR;');
6077: l(' ELSE');
6078: l(' push_eval;');
6079: l(' RETURN;');
6080: l(' END IF;');
6109: l(' when others then');
6110: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
6111: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
6112: l(' FND_MSG_PUB.ADD;');
6113: l(' RAISE FND_API.G_EXC_ERROR;');
6114: --Start Bug No: 3032742.
6115: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
6116: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
6117: l(' FND_MSG_PUB.ADD;');
6114: --Start Bug No: 3032742.
6115: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
6116: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
6117: l(' FND_MSG_PUB.ADD;');
6118: l(' RAISE FND_API.G_EXC_ERROR;');
6119: --End Bug No : 3032742.
6120: l(' else ');
6121: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6122: l(' end if;');
6117: l(' FND_MSG_PUB.ADD;');
6118: l(' RAISE FND_API.G_EXC_ERROR;');
6119: --End Bug No : 3032742.
6120: l(' else ');
6121: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6122: l(' end if;');
6123: --bug 4959719 end
6124: l(' END;');
6125:
6191: l(' IF p_index>1 THEN');
6192: ldbg_s('In eval party site level number of matches found exceeded threshold');
6193: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
6194: l(' FND_MSG_PUB.ADD;');
6195: l(' RAISE FND_API.G_EXC_ERROR;');
6196: l(' ELSE');
6197: l(' push_eval;');
6198: l(' RETURN;');
6199: l(' END IF;');
6413: l(' IF p_index>1 THEN');
6414: ldbg_s('In eval contact point level number of matches found exceeded threshold');
6415: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
6416: l(' FND_MSG_PUB.ADD;');
6417: l(' RAISE FND_API.G_EXC_ERROR;');
6418: l(' ELSE');
6419: l(' push_eval;');
6420: l(' RETURN;');
6421: l(' END IF;');
6529: l(' ELSE ');
6530: ldbg_s('In do eval number of matches found exceeded threshold');
6531: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED''); ');
6532: l(' FND_MSG_PUB.ADD; ');
6533: l(' RAISE FND_API.G_EXC_ERROR; ');
6534: l(' END IF; ');
6535: --end of Bug No:5218095
6536: l(' ELSE');
6537: ldbg_s('In do eval number of matches found exceeded threshold');
6536: l(' ELSE');
6537: ldbg_s('In do eval number of matches found exceeded threshold');
6538: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
6539: l(' FND_MSG_PUB.ADD;');
6540: l(' RAISE FND_API.G_EXC_ERROR;');
6541: l(' END IF; ');
6542: l(' END IF;');
6543: --End of Bug No: 4407425
6544: /*l(' IF p_index=5 AND call_order(5) <> ''NONE'' AND H_PARTY_ID.COUNT=0 THEN');
6543: --End of Bug No: 4407425
6544: /*l(' IF p_index=5 AND call_order(5) <> ''NONE'' AND H_PARTY_ID.COUNT=0 THEN');
6545: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
6546: l(' FND_MSG_PUB.ADD;');
6547: l(' RAISE FND_API.G_EXC_ERROR;');
6548: l(' END IF;');
6549: */
6550: l(' IF call_order(p_index) = ''PARTY'' AND l_party_contains_str IS NOT NULL THEN');
6551: l(' eval_party_level(l_party_contains_str,call_type(p_index), p_index);');
6715:
6716: l('EXCEPTION');
6717: l(' WHEN L_RETURN_IMM_EXC THEN');
6718: l(' RETURN;');
6719: l(' WHEN FND_API.G_EXC_ERROR THEN');
6720: l(' RAISE FND_API.G_EXC_ERROR;');
6721: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6722: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6723: l(' WHEN OTHERS THEN');
6716: l('EXCEPTION');
6717: l(' WHEN L_RETURN_IMM_EXC THEN');
6718: l(' RETURN;');
6719: l(' WHEN FND_API.G_EXC_ERROR THEN');
6720: l(' RAISE FND_API.G_EXC_ERROR;');
6721: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6722: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6723: l(' WHEN OTHERS THEN');
6724: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6717: l(' WHEN L_RETURN_IMM_EXC THEN');
6718: l(' RETURN;');
6719: l(' WHEN FND_API.G_EXC_ERROR THEN');
6720: l(' RAISE FND_API.G_EXC_ERROR;');
6721: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6722: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6723: l(' WHEN OTHERS THEN');
6724: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6725: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
6718: l(' RETURN;');
6719: l(' WHEN FND_API.G_EXC_ERROR THEN');
6720: l(' RAISE FND_API.G_EXC_ERROR;');
6721: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6722: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6723: l(' WHEN OTHERS THEN');
6724: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6725: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
6726: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6724: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6725: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
6726: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6727: l(' FND_MSG_PUB.ADD;');
6728: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6729: l('END find_persons;');
6730: l('');
6731: ELSE ---Start of Code Change for Match Rule Set
6732: l('BEGIN');
6738: de;
6739: pop_conditions(p_rule_id,'find_persons','p_rule_id,p_party_search_rec,p_party_site_list,p_contact_list,p_contact_point_list,p_restrict_sql,p_match_type,p_search_merged,p_ins_details,x_search_ctx_id,x_num_matches','PARTY');
6740: d(fnd_log.level_procedure,'find_persons(-)');
6741: l('EXCEPTION');
6742: l(' WHEN FND_API.G_EXC_ERROR THEN');
6743: l(' RAISE FND_API.G_EXC_ERROR;');
6744: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6745: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6746: l(' WHEN OTHERS THEN');
6739: pop_conditions(p_rule_id,'find_persons','p_rule_id,p_party_search_rec,p_party_site_list,p_contact_list,p_contact_point_list,p_restrict_sql,p_match_type,p_search_merged,p_ins_details,x_search_ctx_id,x_num_matches','PARTY');
6740: d(fnd_log.level_procedure,'find_persons(-)');
6741: l('EXCEPTION');
6742: l(' WHEN FND_API.G_EXC_ERROR THEN');
6743: l(' RAISE FND_API.G_EXC_ERROR;');
6744: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6745: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6746: l(' WHEN OTHERS THEN');
6747: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6740: d(fnd_log.level_procedure,'find_persons(-)');
6741: l('EXCEPTION');
6742: l(' WHEN FND_API.G_EXC_ERROR THEN');
6743: l(' RAISE FND_API.G_EXC_ERROR;');
6744: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6745: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6746: l(' WHEN OTHERS THEN');
6747: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6748: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
6741: l('EXCEPTION');
6742: l(' WHEN FND_API.G_EXC_ERROR THEN');
6743: l(' RAISE FND_API.G_EXC_ERROR;');
6744: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6745: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6746: l(' WHEN OTHERS THEN');
6747: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6748: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
6749: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6747: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6748: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
6749: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6750: l(' FND_MSG_PUB.ADD;');
6751: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6752: l('END find_persons;');
6753: END IF; ---End of Code Change for Match Rule Set
6754:
6755: l('PROCEDURE find_persons (');
6812: d(fnd_log.level_procedure,'find_party_details(-)');
6813:
6814:
6815: l('EXCEPTION');
6816: l(' WHEN FND_API.G_EXC_ERROR THEN');
6817: l(' RAISE FND_API.G_EXC_ERROR;');
6818: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6819: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6820: l(' WHEN OTHERS THEN');
6813:
6814:
6815: l('EXCEPTION');
6816: l(' WHEN FND_API.G_EXC_ERROR THEN');
6817: l(' RAISE FND_API.G_EXC_ERROR;');
6818: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6819: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6820: l(' WHEN OTHERS THEN');
6821: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6814:
6815: l('EXCEPTION');
6816: l(' WHEN FND_API.G_EXC_ERROR THEN');
6817: l(' RAISE FND_API.G_EXC_ERROR;');
6818: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6819: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6820: l(' WHEN OTHERS THEN');
6821: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6822: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_party_details'');');
6815: l('EXCEPTION');
6816: l(' WHEN FND_API.G_EXC_ERROR THEN');
6817: l(' RAISE FND_API.G_EXC_ERROR;');
6818: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6819: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6820: l(' WHEN OTHERS THEN');
6821: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6822: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_party_details'');');
6823: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6821: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6822: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_party_details'');');
6823: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6824: l(' FND_MSG_PUB.ADD;');
6825: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6826: l('END find_party_details;');
6827: l('');
6828: /************** find_duplicate_parties API ***************/
6829: l('PROCEDURE find_duplicate_parties (');
6930: d(fnd_log.level_procedure,'find_duplicate_parties(-)');
6931:
6932:
6933: l('EXCEPTION');
6934: l(' WHEN FND_API.G_EXC_ERROR THEN');
6935: l(' RAISE FND_API.G_EXC_ERROR;');
6936: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6937: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6938: l(' WHEN OTHERS THEN');
6931:
6932:
6933: l('EXCEPTION');
6934: l(' WHEN FND_API.G_EXC_ERROR THEN');
6935: l(' RAISE FND_API.G_EXC_ERROR;');
6936: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6937: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6938: l(' WHEN OTHERS THEN');
6939: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6932:
6933: l('EXCEPTION');
6934: l(' WHEN FND_API.G_EXC_ERROR THEN');
6935: l(' RAISE FND_API.G_EXC_ERROR;');
6936: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6937: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6938: l(' WHEN OTHERS THEN');
6939: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6940: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_parties'');');
6933: l('EXCEPTION');
6934: l(' WHEN FND_API.G_EXC_ERROR THEN');
6935: l(' RAISE FND_API.G_EXC_ERROR;');
6936: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
6937: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6938: l(' WHEN OTHERS THEN');
6939: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6940: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_parties'');');
6941: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6939: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
6940: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_parties'');');
6941: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
6942: l(' FND_MSG_PUB.ADD;');
6943: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
6944: l('END find_duplicate_parties;');
6945:
6946:
6947: l('');
7023: d(fnd_log.level_procedure,'find_duplicate_party_sites(-)');
7024:
7025:
7026: l('EXCEPTION');
7027: l(' WHEN FND_API.G_EXC_ERROR THEN');
7028: l(' RAISE FND_API.G_EXC_ERROR;');
7029: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7030: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7031: l(' WHEN OTHERS THEN');
7024:
7025:
7026: l('EXCEPTION');
7027: l(' WHEN FND_API.G_EXC_ERROR THEN');
7028: l(' RAISE FND_API.G_EXC_ERROR;');
7029: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7030: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7031: l(' WHEN OTHERS THEN');
7032: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7025:
7026: l('EXCEPTION');
7027: l(' WHEN FND_API.G_EXC_ERROR THEN');
7028: l(' RAISE FND_API.G_EXC_ERROR;');
7029: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7030: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7031: l(' WHEN OTHERS THEN');
7032: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7033: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_party_sites'');');
7026: l('EXCEPTION');
7027: l(' WHEN FND_API.G_EXC_ERROR THEN');
7028: l(' RAISE FND_API.G_EXC_ERROR;');
7029: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7030: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7031: l(' WHEN OTHERS THEN');
7032: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7033: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_party_sites'');');
7034: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7032: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7033: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_party_sites'');');
7034: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7035: l(' FND_MSG_PUB.ADD;');
7036: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7037: l('END find_duplicate_party_sites; ');
7038: l(' ');
7039:
7040: /************** find_duplicate_contacts API ***************/
7119: d(fnd_log.level_procedure,'find_duplicate_contacts(-)');
7120:
7121:
7122: l('EXCEPTION');
7123: l(' WHEN FND_API.G_EXC_ERROR THEN');
7124: l(' RAISE FND_API.G_EXC_ERROR;');
7125: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7126: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7127: l(' WHEN OTHERS THEN');
7120:
7121:
7122: l('EXCEPTION');
7123: l(' WHEN FND_API.G_EXC_ERROR THEN');
7124: l(' RAISE FND_API.G_EXC_ERROR;');
7125: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7126: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7127: l(' WHEN OTHERS THEN');
7128: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7121:
7122: l('EXCEPTION');
7123: l(' WHEN FND_API.G_EXC_ERROR THEN');
7124: l(' RAISE FND_API.G_EXC_ERROR;');
7125: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7126: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7127: l(' WHEN OTHERS THEN');
7128: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7129: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contacts'');');
7122: l('EXCEPTION');
7123: l(' WHEN FND_API.G_EXC_ERROR THEN');
7124: l(' RAISE FND_API.G_EXC_ERROR;');
7125: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7126: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7127: l(' WHEN OTHERS THEN');
7128: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7129: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contacts'');');
7130: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7128: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7129: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contacts'');');
7130: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7131: l(' FND_MSG_PUB.ADD;');
7132: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7133: l('END find_duplicate_contacts; ');
7134: l('');
7135: /************** find_duplicate_contact_points API ***************/
7136: l('PROCEDURE find_duplicate_contact_points (');
7195: d(fnd_log.level_procedure,'find_duplicate_contact_points(-)');
7196:
7197:
7198: l('EXCEPTION');
7199: l(' WHEN FND_API.G_EXC_ERROR THEN');
7200: l(' RAISE FND_API.G_EXC_ERROR;');
7201: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7202: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7203: l(' WHEN OTHERS THEN');
7196:
7197:
7198: l('EXCEPTION');
7199: l(' WHEN FND_API.G_EXC_ERROR THEN');
7200: l(' RAISE FND_API.G_EXC_ERROR;');
7201: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7202: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7203: l(' WHEN OTHERS THEN');
7204: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7197:
7198: l('EXCEPTION');
7199: l(' WHEN FND_API.G_EXC_ERROR THEN');
7200: l(' RAISE FND_API.G_EXC_ERROR;');
7201: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7202: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7203: l(' WHEN OTHERS THEN');
7204: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7205: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contact_points'');');
7198: l('EXCEPTION');
7199: l(' WHEN FND_API.G_EXC_ERROR THEN');
7200: l(' RAISE FND_API.G_EXC_ERROR;');
7201: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7202: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7203: l(' WHEN OTHERS THEN');
7204: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7205: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contact_points'');');
7206: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7204: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7205: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contact_points'');');
7206: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7207: l(' FND_MSG_PUB.ADD;');
7208: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7209: l('END find_duplicate_contact_points;');
7210: l('');
7211: l('PROCEDURE find_parties_dynamic (');
7212: l(' p_rule_id IN NUMBER,');
7437: d(fnd_log.level_procedure,'call_api_dynamic(-)');
7438:
7439:
7440: l('EXCEPTION');
7441: l(' WHEN FND_API.G_EXC_ERROR THEN');
7442: l(' RAISE FND_API.G_EXC_ERROR;');
7443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7444: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7445: l(' WHEN OTHERS THEN');
7438:
7439:
7440: l('EXCEPTION');
7441: l(' WHEN FND_API.G_EXC_ERROR THEN');
7442: l(' RAISE FND_API.G_EXC_ERROR;');
7443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7444: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7445: l(' WHEN OTHERS THEN');
7446: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7439:
7440: l('EXCEPTION');
7441: l(' WHEN FND_API.G_EXC_ERROR THEN');
7442: l(' RAISE FND_API.G_EXC_ERROR;');
7443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7444: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7445: l(' WHEN OTHERS THEN');
7446: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7447: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.call_api_dynamic'');');
7440: l('EXCEPTION');
7441: l(' WHEN FND_API.G_EXC_ERROR THEN');
7442: l(' RAISE FND_API.G_EXC_ERROR;');
7443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7444: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7445: l(' WHEN OTHERS THEN');
7446: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7447: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.call_api_dynamic'');');
7448: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7446: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7447: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.call_api_dynamic'');');
7448: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7449: l(' FND_MSG_PUB.ADD;');
7450: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7451:
7452:
7453: l('END call_api_dynamic; ');
7454: l('');
7710: END IF; ---End of Code Change for Match Rule Set
7711: d(fnd_log.level_procedure,'get_matching_party_sites(-)');
7712:
7713: l('EXCEPTION');
7714: l(' WHEN FND_API.G_EXC_ERROR THEN');
7715: l(' RAISE FND_API.G_EXC_ERROR;');
7716: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7717: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7718: l(' WHEN OTHERS THEN');
7711: d(fnd_log.level_procedure,'get_matching_party_sites(-)');
7712:
7713: l('EXCEPTION');
7714: l(' WHEN FND_API.G_EXC_ERROR THEN');
7715: l(' RAISE FND_API.G_EXC_ERROR;');
7716: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7717: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7718: l(' WHEN OTHERS THEN');
7719: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7712:
7713: l('EXCEPTION');
7714: l(' WHEN FND_API.G_EXC_ERROR THEN');
7715: l(' RAISE FND_API.G_EXC_ERROR;');
7716: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7717: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7718: l(' WHEN OTHERS THEN');
7719: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7720: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_party_sites'');');
7713: l('EXCEPTION');
7714: l(' WHEN FND_API.G_EXC_ERROR THEN');
7715: l(' RAISE FND_API.G_EXC_ERROR;');
7716: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7717: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7718: l(' WHEN OTHERS THEN');
7719: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7720: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_party_sites'');');
7721: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7719: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7720: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_party_sites'');');
7721: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7722: l(' FND_MSG_PUB.ADD;');
7723: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7724: l('END get_matching_party_sites;');
7725: l('');
7726:
7727: -- l(' NULL;');
7986:
7987: d(fnd_log.level_procedure,'get_matching_contacts(-)');
7988:
7989: l('EXCEPTION');
7990: l(' WHEN FND_API.G_EXC_ERROR THEN');
7991: l(' RAISE FND_API.G_EXC_ERROR;');
7992: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7993: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7994: l(' WHEN OTHERS THEN');
7987: d(fnd_log.level_procedure,'get_matching_contacts(-)');
7988:
7989: l('EXCEPTION');
7990: l(' WHEN FND_API.G_EXC_ERROR THEN');
7991: l(' RAISE FND_API.G_EXC_ERROR;');
7992: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7993: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7994: l(' WHEN OTHERS THEN');
7995: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7988:
7989: l('EXCEPTION');
7990: l(' WHEN FND_API.G_EXC_ERROR THEN');
7991: l(' RAISE FND_API.G_EXC_ERROR;');
7992: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7993: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7994: l(' WHEN OTHERS THEN');
7995: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7996: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contacts'');');
7989: l('EXCEPTION');
7990: l(' WHEN FND_API.G_EXC_ERROR THEN');
7991: l(' RAISE FND_API.G_EXC_ERROR;');
7992: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
7993: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
7994: l(' WHEN OTHERS THEN');
7995: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7996: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contacts'');');
7997: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7995: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
7996: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contacts'');');
7997: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
7998: l(' FND_MSG_PUB.ADD;');
7999: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8000: l('END get_matching_contacts;');
8001: l('');
8002:
8003:
8168: END IF; ---End of Code Change for Match Rule Set
8169: d(fnd_log.level_procedure,'get_matching_contact_points(-)');
8170:
8171: l('EXCEPTION');
8172: l(' WHEN FND_API.G_EXC_ERROR THEN');
8173: l(' RAISE FND_API.G_EXC_ERROR;');
8174: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8175: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8176: l(' WHEN OTHERS THEN');
8169: d(fnd_log.level_procedure,'get_matching_contact_points(-)');
8170:
8171: l('EXCEPTION');
8172: l(' WHEN FND_API.G_EXC_ERROR THEN');
8173: l(' RAISE FND_API.G_EXC_ERROR;');
8174: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8175: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8176: l(' WHEN OTHERS THEN');
8177: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8170:
8171: l('EXCEPTION');
8172: l(' WHEN FND_API.G_EXC_ERROR THEN');
8173: l(' RAISE FND_API.G_EXC_ERROR;');
8174: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8175: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8176: l(' WHEN OTHERS THEN');
8177: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8178: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contact_points'');');
8171: l('EXCEPTION');
8172: l(' WHEN FND_API.G_EXC_ERROR THEN');
8173: l(' RAISE FND_API.G_EXC_ERROR;');
8174: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8175: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8176: l(' WHEN OTHERS THEN');
8177: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8178: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contact_points'');');
8179: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8177: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8178: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contact_points'');');
8179: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8180: l(' FND_MSG_PUB.ADD;');
8181: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8182: l('END get_matching_contact_points;');
8183:
8184: l('');
8185: l(' /**********************************************************');
8418: d(fnd_log.level_procedure,'get_score_details(-)');
8419: END IF; ---End of Code Change for Match Rule Set
8420:
8421: l('EXCEPTION');
8422: l(' WHEN FND_API.G_EXC_ERROR THEN');
8423: l(' RAISE FND_API.G_EXC_ERROR;');
8424: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8425: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8426: l(' WHEN OTHERS THEN');
8419: END IF; ---End of Code Change for Match Rule Set
8420:
8421: l('EXCEPTION');
8422: l(' WHEN FND_API.G_EXC_ERROR THEN');
8423: l(' RAISE FND_API.G_EXC_ERROR;');
8424: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8425: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8426: l(' WHEN OTHERS THEN');
8427: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8420:
8421: l('EXCEPTION');
8422: l(' WHEN FND_API.G_EXC_ERROR THEN');
8423: l(' RAISE FND_API.G_EXC_ERROR;');
8424: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8425: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8426: l(' WHEN OTHERS THEN');
8427: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8428: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_score_details'');');
8421: l('EXCEPTION');
8422: l(' WHEN FND_API.G_EXC_ERROR THEN');
8423: l(' RAISE FND_API.G_EXC_ERROR;');
8424: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
8425: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8426: l(' WHEN OTHERS THEN');
8427: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8428: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_score_details'');');
8429: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8427: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8428: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_score_details'');');
8429: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8430: l(' FND_MSG_PUB.ADD;');
8431: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8432: l('END get_score_details;');
8433: l('');
8434:
8435: generate_acquire_proc(p_rule_id, NULL);
8525: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8526: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_parties_bulk'');');
8527: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8528: l(' FND_MSG_PUB.ADD;');
8529: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8530: l(' END check_parties_bulk ;');
8531: l('');
8532: END generate_check_parties_bulk ;
8533:
8587: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8588: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_party_sites_bulk'');');
8589: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8590: l(' FND_MSG_PUB.ADD;');
8591: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8592: l(' END check_party_sites_bulk ;');
8593: l('');
8594:
8595: END generate_check_partysites_bulk ;
8651: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8652: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_contacts_bulk'');');
8653: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8654: l(' FND_MSG_PUB.ADD;');
8655: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8656: l(' END check_contacts_bulk ;');
8657: l('');
8658:
8659: END generate_check_contacts_bulk ;
8713: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
8714: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_cpts_bulk'');');
8715: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
8716: l(' FND_MSG_PUB.ADD;');
8717: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
8718: l(' END check_cpts_bulk ;');
8719: l('');
8720:
8721: END generate_check_cpts_bulk ;
9014: l(' p_contact_list,');
9015: l(' p_contact_point_list) THEN');
9016: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_PRIMARY_COND'');');
9017: l(' FND_MSG_PUB.ADD;');
9018: l(' RAISE FND_API.G_EXC_ERROR;');
9019: l(' END IF;');
9020: IF l_max_score=1 THEN
9021: l(' HZ_DQM_SEARCH_UTIL.set_no_score;');
9022: ELSE
9337: l(' when others then');
9338: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
9339: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9340: l(' FND_MSG_PUB.ADD;');
9341: l(' RAISE FND_API.G_EXC_ERROR;');
9342: l(' else ');
9343: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9344: l(' end if;');
9345: ELSE
9339: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9340: l(' FND_MSG_PUB.ADD;');
9341: l(' RAISE FND_API.G_EXC_ERROR;');
9342: l(' else ');
9343: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9344: l(' end if;');
9345: ELSE
9346: l('NULL ;');
9347: END IF;
9450: l(' when others then');
9451: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
9452: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9453: l(' FND_MSG_PUB.ADD;');
9454: l(' RAISE FND_API.G_EXC_ERROR;');
9455: l(' else ');
9456: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9457: l(' end if;');
9458: ELSE
9452: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9453: l(' FND_MSG_PUB.ADD;');
9454: l(' RAISE FND_API.G_EXC_ERROR;');
9455: l(' else ');
9456: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9457: l(' end if;');
9458: ELSE
9459: l('NULL ;');
9460: END IF;
9551: l(' when others then');
9552: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
9553: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9554: l(' FND_MSG_PUB.ADD;');
9555: l(' RAISE FND_API.G_EXC_ERROR;');
9556: l(' else ');
9557: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9558: l(' end if;');
9559: ELSE
9553: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9554: l(' FND_MSG_PUB.ADD;');
9555: l(' RAISE FND_API.G_EXC_ERROR;');
9556: l(' else ');
9557: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9558: l(' end if;');
9559: ELSE
9560: l('NULL ;');
9561: END IF;
9658: l(' when others then');
9659: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
9660: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9661: l(' FND_MSG_PUB.ADD;');
9662: l(' RAISE FND_API.G_EXC_ERROR;');
9663: l(' else ');
9664: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9665: l(' end if;');
9666: ELSE
9660: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
9661: l(' FND_MSG_PUB.ADD;');
9662: l(' RAISE FND_API.G_EXC_ERROR;');
9663: l(' else ');
9664: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
9665: l(' end if;');
9666: ELSE
9667: l('NULL ;');
9668: END IF;
9877: l(' IF p_index>1 THEN');
9878: ldbg_s('In eval party level number of matches found exceeded threshold');
9879: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
9880: l(' FND_MSG_PUB.ADD;');
9881: l(' RAISE FND_API.G_EXC_ERROR;');
9882: l(' ELSE');
9883: l(' push_eval;');
9884: l(' RETURN;');
9885: l(' END IF;');
9949: l(' IF p_index>1 THEN');
9950: ldbg_s('In eval party site level number of matches found exceeded threshold');
9951: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
9952: l(' FND_MSG_PUB.ADD;');
9953: l(' RAISE FND_API.G_EXC_ERROR;');
9954: l(' ELSE');
9955: l(' push_eval;');
9956: l(' RETURN;');
9957: l(' END IF;');
10033: l(' IF p_index>1 THEN');
10034: ldbg_s('In eval contact level number of matches found exceeded threshold');
10035: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
10036: l(' FND_MSG_PUB.ADD;');
10037: l(' RAISE FND_API.G_EXC_ERROR;');
10038: l(' ELSE');
10039: l(' push_eval;');
10040: l(' RETURN;');
10041: l(' END IF;');
10117: l(' IF p_index>1 THEN');
10118: ldbg_s('In eval contact point level number of matches found exceeded threshold');
10119: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
10120: l(' FND_MSG_PUB.ADD;');
10121: l(' RAISE FND_API.G_EXC_ERROR;');
10122: l(' ELSE');
10123: l(' push_eval;');
10124: l(' RETURN;');
10125: l(' END IF;');
10165: l(' ELSE');
10166: ldbg_s('In do eval number of matches found exceeded threshold');
10167: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
10168: l(' FND_MSG_PUB.ADD;');
10169: l(' RAISE FND_API.G_EXC_ERROR;');
10170: l(' END IF; ');
10171: l(' END IF;');
10172: --End of Bug No: 4407425
10173: /*l(' IF p_index=5 AND call_order(5) <> ''NONE'' AND H_PARTY_ID.COUNT=0 THEN');
10172: --End of Bug No: 4407425
10173: /*l(' IF p_index=5 AND call_order(5) <> ''NONE'' AND H_PARTY_ID.COUNT=0 THEN');
10174: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
10175: l(' FND_MSG_PUB.ADD;');
10176: l(' RAISE FND_API.G_EXC_ERROR;');
10177: l(' END IF;');
10178: */
10179: l(' IF call_order(p_index) = ''PARTY'' AND l_party_contains_str IS NOT NULL THEN');
10180: l(' eval_party_level(l_party_contains_str,call_type(p_index), p_index);');
10436: d(fnd_log.level_procedure,'find_parties(-)');
10437:
10438:
10439: l('EXCEPTION');
10440: l(' WHEN FND_API.G_EXC_ERROR THEN');
10441: l(' ROLLBACK to find_parties;');
10442: l(' RAISE FND_API.G_EXC_ERROR;');
10443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
10444: l(' ROLLBACK to find_parties;');
10438:
10439: l('EXCEPTION');
10440: l(' WHEN FND_API.G_EXC_ERROR THEN');
10441: l(' ROLLBACK to find_parties;');
10442: l(' RAISE FND_API.G_EXC_ERROR;');
10443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
10444: l(' ROLLBACK to find_parties;');
10445: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
10446: l(' WHEN OTHERS THEN');
10439: l('EXCEPTION');
10440: l(' WHEN FND_API.G_EXC_ERROR THEN');
10441: l(' ROLLBACK to find_parties;');
10442: l(' RAISE FND_API.G_EXC_ERROR;');
10443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
10444: l(' ROLLBACK to find_parties;');
10445: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
10446: l(' WHEN OTHERS THEN');
10447: l(' ROLLBACK to find_parties;');
10441: l(' ROLLBACK to find_parties;');
10442: l(' RAISE FND_API.G_EXC_ERROR;');
10443: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
10444: l(' ROLLBACK to find_parties;');
10445: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
10446: l(' WHEN OTHERS THEN');
10447: l(' ROLLBACK to find_parties;');
10448: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
10449: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_parties'');');
10448: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
10449: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_parties'');');
10450: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
10451: l(' FND_MSG_PUB.ADD;');
10452: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
10453: l('END find_parties;');
10454: l('');
10455:
10456: l('-------------------------------------------------------------------------------------');
10672: l(' IF p_index>1 THEN');
10673: ldbg_s('In eval party level number of matches found exceeded threshold');
10674: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
10675: l(' FND_MSG_PUB.ADD;');
10676: l(' RAISE FND_API.G_EXC_ERROR;');
10677: l(' ELSE');
10678: l(' push_eval;');
10679: l(' RETURN;');
10680: l(' END IF;');
10709: l(' when others then');
10710: l(' if (instrb(SQLERRM,''DRG-51030'')>0) then ');
10711: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_WILDCARD_ERR'');');
10712: l(' FND_MSG_PUB.ADD;');
10713: l(' RAISE FND_API.G_EXC_ERROR;');
10714: --Start Bug No: 3032742.
10715: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
10716: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
10717: l(' FND_MSG_PUB.ADD;');
10714: --Start Bug No: 3032742.
10715: l(' elsif (instrb(SQLERRM,''DRG-50943'')>0) then ');
10716: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_SEARCH_ERROR'');');
10717: l(' FND_MSG_PUB.ADD;');
10718: l(' RAISE FND_API.G_EXC_ERROR;');
10719: --End Bug No : 3032742.
10720: l(' else ');
10721: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
10722: l(' end if;');
10717: l(' FND_MSG_PUB.ADD;');
10718: l(' RAISE FND_API.G_EXC_ERROR;');
10719: --End Bug No : 3032742.
10720: l(' else ');
10721: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
10722: l(' end if;');
10723: --bug 4959719 end
10724: l(' END;');
10725:
10796: l(' IF p_index>1 THEN');
10797: ldbg_s('In eval party site level number of matches found exceeded threshold');
10798: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
10799: l(' FND_MSG_PUB.ADD;');
10800: l(' RAISE FND_API.G_EXC_ERROR;');
10801: l(' ELSE');
10802: l(' push_eval;');
10803: l(' RETURN;');
10804: l(' END IF;');
10952: l(' IF p_index>1 THEN');
10953: ldbg_s('In eval contact point level number of matches found exceeded threshold');
10954: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
10955: l(' FND_MSG_PUB.ADD;');
10956: l(' RAISE FND_API.G_EXC_ERROR;');
10957: l(' ELSE');
10958: l(' push_eval;');
10959: l(' RETURN;');
10960: l(' END IF;');
11000: l(' ELSE');
11001: ldbg_s('In do eval number of matches found exceeded threshold');
11002: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
11003: l(' FND_MSG_PUB.ADD;');
11004: l(' RAISE FND_API.G_EXC_ERROR;');
11005: l(' END IF; ');
11006: l(' END IF;');
11007: --End of Bug No: 4407425
11008: /*
11008: /*
11009: l(' IF p_index=5 AND call_order(5) <> ''NONE'' AND H_PARTY_ID.COUNT=0 THEN');
11010: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_THRESH_EXCEEDED'');');
11011: l(' FND_MSG_PUB.ADD;');
11012: l(' RAISE FND_API.G_EXC_ERROR;');
11013: l(' END IF;');
11014: */
11015: l(' IF call_order(p_index) = ''PARTY'' AND l_party_contains_str IS NOT NULL THEN');
11016: l(' eval_party_level(l_party_contains_str,call_type(p_index), p_index);');
11149: d(fnd_log.level_procedure,'find_persons(-)');
11150:
11151:
11152: l('EXCEPTION');
11153: l(' WHEN FND_API.G_EXC_ERROR THEN');
11154: l(' ROLLBACK to find_persons;');
11155: l(' RAISE FND_API.G_EXC_ERROR;');
11156: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11157: l(' ROLLBACK to find_persons;');
11151:
11152: l('EXCEPTION');
11153: l(' WHEN FND_API.G_EXC_ERROR THEN');
11154: l(' ROLLBACK to find_persons;');
11155: l(' RAISE FND_API.G_EXC_ERROR;');
11156: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11157: l(' ROLLBACK to find_persons;');
11158: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11159: l(' WHEN OTHERS THEN');
11152: l('EXCEPTION');
11153: l(' WHEN FND_API.G_EXC_ERROR THEN');
11154: l(' ROLLBACK to find_persons;');
11155: l(' RAISE FND_API.G_EXC_ERROR;');
11156: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11157: l(' ROLLBACK to find_persons;');
11158: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11159: l(' WHEN OTHERS THEN');
11160: l(' ROLLBACK to find_persons;');
11154: l(' ROLLBACK to find_persons;');
11155: l(' RAISE FND_API.G_EXC_ERROR;');
11156: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11157: l(' ROLLBACK to find_persons;');
11158: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11159: l(' WHEN OTHERS THEN');
11160: l(' ROLLBACK to find_persons;');
11161: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11162: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
11161: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11162: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_persons'');');
11163: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11164: l(' FND_MSG_PUB.ADD;');
11165: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11166: l('END find_persons;');
11167: ELSE
11168: l('BEGIN');
11169: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
11167: ELSE
11168: l('BEGIN');
11169: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_INVALID_MATCH_RULE'');');
11170: l(' FND_MSG_PUB.ADD;');
11171: l(' RAISE FND_API.G_EXC_ERROR;');
11172: l('END find_persons;');
11173: l('');
11174: END IF;
11175: l('PROCEDURE find_persons (');
11232: d(fnd_log.level_procedure,'find_party_details(-)');
11233:
11234:
11235: l('EXCEPTION');
11236: l(' WHEN FND_API.G_EXC_ERROR THEN');
11237: l(' RAISE FND_API.G_EXC_ERROR;');
11238: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11239: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11240: l(' WHEN OTHERS THEN');
11233:
11234:
11235: l('EXCEPTION');
11236: l(' WHEN FND_API.G_EXC_ERROR THEN');
11237: l(' RAISE FND_API.G_EXC_ERROR;');
11238: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11239: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11240: l(' WHEN OTHERS THEN');
11241: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11234:
11235: l('EXCEPTION');
11236: l(' WHEN FND_API.G_EXC_ERROR THEN');
11237: l(' RAISE FND_API.G_EXC_ERROR;');
11238: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11239: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11240: l(' WHEN OTHERS THEN');
11241: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11242: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_party_details'');');
11235: l('EXCEPTION');
11236: l(' WHEN FND_API.G_EXC_ERROR THEN');
11237: l(' RAISE FND_API.G_EXC_ERROR;');
11238: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11239: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11240: l(' WHEN OTHERS THEN');
11241: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11242: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_party_details'');');
11243: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11241: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11242: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_party_details'');');
11243: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11244: l(' FND_MSG_PUB.ADD;');
11245: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11246: l('END find_party_details;');
11247: l('');
11248: l('-------------------------------------------------------------------------------------');
11249: l('-------------------- BULK MATCH RULE ::: find_duplicate_parties -------------------');
11324: d(fnd_log.level_procedure,'find_duplicate_parties(-)');
11325:
11326:
11327: l('EXCEPTION');
11328: l(' WHEN FND_API.G_EXC_ERROR THEN');
11329: l(' RAISE FND_API.G_EXC_ERROR;');
11330: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11331: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11332: l(' WHEN OTHERS THEN');
11325:
11326:
11327: l('EXCEPTION');
11328: l(' WHEN FND_API.G_EXC_ERROR THEN');
11329: l(' RAISE FND_API.G_EXC_ERROR;');
11330: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11331: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11332: l(' WHEN OTHERS THEN');
11333: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11326:
11327: l('EXCEPTION');
11328: l(' WHEN FND_API.G_EXC_ERROR THEN');
11329: l(' RAISE FND_API.G_EXC_ERROR;');
11330: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11331: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11332: l(' WHEN OTHERS THEN');
11333: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11334: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_parties'');');
11327: l('EXCEPTION');
11328: l(' WHEN FND_API.G_EXC_ERROR THEN');
11329: l(' RAISE FND_API.G_EXC_ERROR;');
11330: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11331: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11332: l(' WHEN OTHERS THEN');
11333: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11334: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_parties'');');
11335: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11333: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11334: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_parties'');');
11335: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11336: l(' FND_MSG_PUB.ADD;');
11337: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11338: l('END find_duplicate_parties;');
11339:
11340:
11341: l('');
11419: d(fnd_log.level_procedure,'find_duplicate_party_sites(-)');
11420:
11421:
11422: l('EXCEPTION');
11423: l(' WHEN FND_API.G_EXC_ERROR THEN');
11424: l(' RAISE FND_API.G_EXC_ERROR;');
11425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11427: l(' WHEN OTHERS THEN');
11420:
11421:
11422: l('EXCEPTION');
11423: l(' WHEN FND_API.G_EXC_ERROR THEN');
11424: l(' RAISE FND_API.G_EXC_ERROR;');
11425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11427: l(' WHEN OTHERS THEN');
11428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11421:
11422: l('EXCEPTION');
11423: l(' WHEN FND_API.G_EXC_ERROR THEN');
11424: l(' RAISE FND_API.G_EXC_ERROR;');
11425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11427: l(' WHEN OTHERS THEN');
11428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11429: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_party_sites'');');
11422: l('EXCEPTION');
11423: l(' WHEN FND_API.G_EXC_ERROR THEN');
11424: l(' RAISE FND_API.G_EXC_ERROR;');
11425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11427: l(' WHEN OTHERS THEN');
11428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11429: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_party_sites'');');
11430: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11429: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_party_sites'');');
11430: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11431: l(' FND_MSG_PUB.ADD;');
11432: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11433: l('END find_duplicate_party_sites; ');
11434: l(' ');
11435:
11436: l('-------------------------------------------------------------------------------------');
11517: d(fnd_log.level_procedure,'find_duplicate_contacts(-)');
11518:
11519:
11520: l('EXCEPTION');
11521: l(' WHEN FND_API.G_EXC_ERROR THEN');
11522: l(' RAISE FND_API.G_EXC_ERROR;');
11523: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11524: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11525: l(' WHEN OTHERS THEN');
11518:
11519:
11520: l('EXCEPTION');
11521: l(' WHEN FND_API.G_EXC_ERROR THEN');
11522: l(' RAISE FND_API.G_EXC_ERROR;');
11523: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11524: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11525: l(' WHEN OTHERS THEN');
11526: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11519:
11520: l('EXCEPTION');
11521: l(' WHEN FND_API.G_EXC_ERROR THEN');
11522: l(' RAISE FND_API.G_EXC_ERROR;');
11523: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11524: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11525: l(' WHEN OTHERS THEN');
11526: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11527: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contacts'');');
11520: l('EXCEPTION');
11521: l(' WHEN FND_API.G_EXC_ERROR THEN');
11522: l(' RAISE FND_API.G_EXC_ERROR;');
11523: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11524: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11525: l(' WHEN OTHERS THEN');
11526: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11527: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contacts'');');
11528: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11526: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11527: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contacts'');');
11528: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11529: l(' FND_MSG_PUB.ADD;');
11530: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11531: l('END find_duplicate_contacts; ');
11532: l('');
11533: l('-------------------------------------------------------------------------------------');
11534: l('-------------------- BULK MATCH RULE ::: find_duplicate_contact_points -------------');
11595: d(fnd_log.level_procedure,'find_duplicate_contact_points(-)');
11596:
11597:
11598: l('EXCEPTION');
11599: l(' WHEN FND_API.G_EXC_ERROR THEN');
11600: l(' RAISE FND_API.G_EXC_ERROR;');
11601: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11602: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11603: l(' WHEN OTHERS THEN');
11596:
11597:
11598: l('EXCEPTION');
11599: l(' WHEN FND_API.G_EXC_ERROR THEN');
11600: l(' RAISE FND_API.G_EXC_ERROR;');
11601: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11602: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11603: l(' WHEN OTHERS THEN');
11604: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11597:
11598: l('EXCEPTION');
11599: l(' WHEN FND_API.G_EXC_ERROR THEN');
11600: l(' RAISE FND_API.G_EXC_ERROR;');
11601: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11602: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11603: l(' WHEN OTHERS THEN');
11604: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11605: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contact_points'');');
11598: l('EXCEPTION');
11599: l(' WHEN FND_API.G_EXC_ERROR THEN');
11600: l(' RAISE FND_API.G_EXC_ERROR;');
11601: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11602: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11603: l(' WHEN OTHERS THEN');
11604: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11605: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contact_points'');');
11606: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11604: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11605: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.find_duplicate_contact_points'');');
11606: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11607: l(' FND_MSG_PUB.ADD;');
11608: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11609: l('END find_duplicate_contact_points;');
11610: l('');
11611:
11612: l('-------------------------------------------------------------------------------------');
11838: d(fnd_log.level_procedure,'call_api_dynamic(-)');
11839:
11840:
11841: l('EXCEPTION');
11842: l(' WHEN FND_API.G_EXC_ERROR THEN');
11843: l(' RAISE FND_API.G_EXC_ERROR;');
11844: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11845: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11846: l(' WHEN OTHERS THEN');
11839:
11840:
11841: l('EXCEPTION');
11842: l(' WHEN FND_API.G_EXC_ERROR THEN');
11843: l(' RAISE FND_API.G_EXC_ERROR;');
11844: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11845: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11846: l(' WHEN OTHERS THEN');
11847: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11840:
11841: l('EXCEPTION');
11842: l(' WHEN FND_API.G_EXC_ERROR THEN');
11843: l(' RAISE FND_API.G_EXC_ERROR;');
11844: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11845: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11846: l(' WHEN OTHERS THEN');
11847: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11848: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.call_api_dynamic'');');
11841: l('EXCEPTION');
11842: l(' WHEN FND_API.G_EXC_ERROR THEN');
11843: l(' RAISE FND_API.G_EXC_ERROR;');
11844: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
11845: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11846: l(' WHEN OTHERS THEN');
11847: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11848: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.call_api_dynamic'');');
11849: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11847: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
11848: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.call_api_dynamic'');');
11849: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
11850: l(' FND_MSG_PUB.ADD;');
11851: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
11852:
11853:
11854: l('END call_api_dynamic;');
11855: l('');
12076:
12077: d(fnd_log.level_procedure,'get_matching_party_sites(-)');
12078:
12079: l('EXCEPTION');
12080: l(' WHEN FND_API.G_EXC_ERROR THEN');
12081: l(' ROLLBACK to get_matching_party_sites ;');
12082: l(' RAISE FND_API.G_EXC_ERROR;');
12083: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12084: l(' ROLLBACK to get_matching_party_sites ;');
12078:
12079: l('EXCEPTION');
12080: l(' WHEN FND_API.G_EXC_ERROR THEN');
12081: l(' ROLLBACK to get_matching_party_sites ;');
12082: l(' RAISE FND_API.G_EXC_ERROR;');
12083: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12084: l(' ROLLBACK to get_matching_party_sites ;');
12085: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12086: l(' WHEN OTHERS THEN');
12079: l('EXCEPTION');
12080: l(' WHEN FND_API.G_EXC_ERROR THEN');
12081: l(' ROLLBACK to get_matching_party_sites ;');
12082: l(' RAISE FND_API.G_EXC_ERROR;');
12083: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12084: l(' ROLLBACK to get_matching_party_sites ;');
12085: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12086: l(' WHEN OTHERS THEN');
12087: l(' ROLLBACK to get_matching_party_sites ;');
12081: l(' ROLLBACK to get_matching_party_sites ;');
12082: l(' RAISE FND_API.G_EXC_ERROR;');
12083: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12084: l(' ROLLBACK to get_matching_party_sites ;');
12085: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12086: l(' WHEN OTHERS THEN');
12087: l(' ROLLBACK to get_matching_party_sites ;');
12088: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
12089: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_party_sites'');');
12088: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
12089: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_party_sites'');');
12090: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
12091: l(' FND_MSG_PUB.ADD;');
12092: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12093: l('END get_matching_party_sites;');
12094: l('');
12095:
12096: -- l(' NULL;');
12318:
12319: d(fnd_log.level_procedure,'get_matching_contacts(-)');
12320:
12321: l('EXCEPTION');
12322: l(' WHEN FND_API.G_EXC_ERROR THEN');
12323: l(' ROLLBACK to get_matching_contacts ;');
12324: l(' RAISE FND_API.G_EXC_ERROR;');
12325: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12326: l(' ROLLBACK to get_matching_contacts ;');
12320:
12321: l('EXCEPTION');
12322: l(' WHEN FND_API.G_EXC_ERROR THEN');
12323: l(' ROLLBACK to get_matching_contacts ;');
12324: l(' RAISE FND_API.G_EXC_ERROR;');
12325: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12326: l(' ROLLBACK to get_matching_contacts ;');
12327: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12328: l(' WHEN OTHERS THEN');
12321: l('EXCEPTION');
12322: l(' WHEN FND_API.G_EXC_ERROR THEN');
12323: l(' ROLLBACK to get_matching_contacts ;');
12324: l(' RAISE FND_API.G_EXC_ERROR;');
12325: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12326: l(' ROLLBACK to get_matching_contacts ;');
12327: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12328: l(' WHEN OTHERS THEN');
12329: l(' ROLLBACK to get_matching_contacts ;');
12323: l(' ROLLBACK to get_matching_contacts ;');
12324: l(' RAISE FND_API.G_EXC_ERROR;');
12325: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12326: l(' ROLLBACK to get_matching_contacts ;');
12327: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12328: l(' WHEN OTHERS THEN');
12329: l(' ROLLBACK to get_matching_contacts ;');
12330: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
12331: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contacts'');');
12330: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
12331: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contacts'');');
12332: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
12333: l(' FND_MSG_PUB.ADD;');
12334: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12335: l('END get_matching_contacts;');
12336: l('');
12337: l('-------------------------------------------------------------------------------------');
12338: l('-------------------- BULK MATCH RULE ::: get_matching_contact_points ---------------');
12479:
12480: d(fnd_log.level_procedure,'get_matching_contact_points(-)');
12481:
12482: l('EXCEPTION');
12483: l(' WHEN FND_API.G_EXC_ERROR THEN');
12484: l(' ROLLBACK to get_matching_contact_points ;');
12485: l(' RAISE FND_API.G_EXC_ERROR;');
12486: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12487: l(' ROLLBACK to get_matching_contact_points ;');
12481:
12482: l('EXCEPTION');
12483: l(' WHEN FND_API.G_EXC_ERROR THEN');
12484: l(' ROLLBACK to get_matching_contact_points ;');
12485: l(' RAISE FND_API.G_EXC_ERROR;');
12486: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12487: l(' ROLLBACK to get_matching_contact_points ;');
12488: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12489: l(' WHEN OTHERS THEN');
12482: l('EXCEPTION');
12483: l(' WHEN FND_API.G_EXC_ERROR THEN');
12484: l(' ROLLBACK to get_matching_contact_points ;');
12485: l(' RAISE FND_API.G_EXC_ERROR;');
12486: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12487: l(' ROLLBACK to get_matching_contact_points ;');
12488: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12489: l(' WHEN OTHERS THEN');
12490: l(' ROLLBACK to get_matching_contact_points ;');
12484: l(' ROLLBACK to get_matching_contact_points ;');
12485: l(' RAISE FND_API.G_EXC_ERROR;');
12486: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12487: l(' ROLLBACK to get_matching_contact_points ;');
12488: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12489: l(' WHEN OTHERS THEN');
12490: l(' ROLLBACK to get_matching_contact_points ;');
12491: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
12492: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contact_points'');');
12491: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
12492: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_matching_contact_points'');');
12493: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
12494: l(' FND_MSG_PUB.ADD;');
12495: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12496: l('END get_matching_contact_points;');
12497:
12498: l('');
12499: l(' /**********************************************************');
12709: d(fnd_log.level_procedure,'get_score_details(-)');
12710:
12711:
12712: l('EXCEPTION');
12713: l(' WHEN FND_API.G_EXC_ERROR THEN');
12714: l(' --------------- DELETE FROM ALL SRCH TABLES ---------------------');
12715: l(' DELETE FROM HZ_SRCH_PARTIES WHERE batch_id = -1 ;');
12716: l(' DELETE FROM HZ_SRCH_PSITES WHERE batch_id = -1 ;');
12717: l(' DELETE FROM HZ_SRCH_CONTACTS WHERE batch_id = -1 ;');
12715: l(' DELETE FROM HZ_SRCH_PARTIES WHERE batch_id = -1 ;');
12716: l(' DELETE FROM HZ_SRCH_PSITES WHERE batch_id = -1 ;');
12717: l(' DELETE FROM HZ_SRCH_CONTACTS WHERE batch_id = -1 ;');
12718: l(' DELETE FROM HZ_SRCH_CPTS WHERE batch_id = -1 ;');
12719: l(' RAISE FND_API.G_EXC_ERROR;');
12720: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12721: l(' --------------- DELETE FROM ALL SRCH TABLES ---------------------');
12722: l(' DELETE FROM HZ_SRCH_PARTIES WHERE batch_id = -1 ;');
12723: l(' DELETE FROM HZ_SRCH_PSITES WHERE batch_id = -1 ;');
12716: l(' DELETE FROM HZ_SRCH_PSITES WHERE batch_id = -1 ;');
12717: l(' DELETE FROM HZ_SRCH_CONTACTS WHERE batch_id = -1 ;');
12718: l(' DELETE FROM HZ_SRCH_CPTS WHERE batch_id = -1 ;');
12719: l(' RAISE FND_API.G_EXC_ERROR;');
12720: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
12721: l(' --------------- DELETE FROM ALL SRCH TABLES ---------------------');
12722: l(' DELETE FROM HZ_SRCH_PARTIES WHERE batch_id = -1 ;');
12723: l(' DELETE FROM HZ_SRCH_PSITES WHERE batch_id = -1 ;');
12724: l(' DELETE FROM HZ_SRCH_CONTACTS WHERE batch_id = -1 ;');
12722: l(' DELETE FROM HZ_SRCH_PARTIES WHERE batch_id = -1 ;');
12723: l(' DELETE FROM HZ_SRCH_PSITES WHERE batch_id = -1 ;');
12724: l(' DELETE FROM HZ_SRCH_CONTACTS WHERE batch_id = -1 ;');
12725: l(' DELETE FROM HZ_SRCH_CPTS WHERE batch_id = -1 ;');
12726: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12727: l(' WHEN OTHERS THEN');
12728: l(' --------------- DELETE FROM ALL SRCH TABLES ---------------------');
12729: l(' DELETE FROM HZ_SRCH_PARTIES WHERE batch_id = -1 ;');
12730: l(' DELETE FROM HZ_SRCH_PSITES WHERE batch_id = -1 ;');
12733: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
12734: l(' FND_MESSAGE.SET_TOKEN(''PROC'','''||p_pkg_name||'.get_score_details'');');
12735: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
12736: l(' FND_MSG_PUB.ADD;');
12737: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12738: l('END get_score_details;');
12739: l('');
12740:
12741: generate_acquire_proc(p_rule_id, 'Q');
12966: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_TRANSFORM_PROC_ERROR'');');
12967: l(' FND_MESSAGE.SET_TOKEN(''PROC'' , ''' || p_proc_name || ''');');
12968: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
12969: l(' FND_MSG_PUB.ADD;');
12970: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
12971: l('END;');
12972:
12973: END generate_party_map_proc_bulk ;
12974:
13158: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_TRANSFORM_PROC_ERROR'');');
13159: l(' FND_MESSAGE.SET_TOKEN(''PROC'' , ''' || p_proc_name || ''');');
13160: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
13161: l(' FND_MSG_PUB.ADD;');
13162: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
13163: l('END;');
13164:
13165: END generate_map_proc;
13166:
13258: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_TRANSFORM_PROC_ERROR'');');
13259: l(' FND_MESSAGE.SET_TOKEN(''PROC'' , ''' || p_proc_name || ''');');
13260: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
13261: l(' FND_MSG_PUB.ADD;');
13262: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
13263: l('END;');
13264:
13265: END ;
13266:
13476: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_TRANSFORM_PROC_ERROR'');');
13477: l(' FND_MESSAGE.SET_TOKEN(''PROC'' , ''' || p_proc_name || ''');');
13478: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
13479: l(' FND_MSG_PUB.ADD;');
13480: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
13481: l('END;');
13482:
13483: END generate_map_proc_bulk ;
13484:
13682: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_TRANSFORM_PROC_ERROR'');');
13683: l(' FND_MESSAGE.SET_TOKEN(''PROC'' , ''' || p_proc_name || ''');');
13684: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
13685: l(' FND_MSG_PUB.ADD;');
13686: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
13687: l('END;');
13688:
13689: END generate_party_map_proc;
13690:
13732: IF NOT FIRST THEN
13733: l(' ) THEN');
13734: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_CONTACT_POINT_TYPE'');');
13735: l(' FND_MSG_PUB.ADD;');
13736: l(' RAISE FND_API.G_EXC_ERROR;');
13737: l(' END IF;');
13738: l(' END LOOP;');
13739: l('');
13740: END IF;
13778: l(' END LOOP;');
13779: END LOOP;
13780: l(' RETURN FALSE;');
13781: l('EXCEPTION');
13782: l(' WHEN FND_API.G_EXC_ERROR THEN');
13783: l(' RAISE FND_API.G_EXC_ERROR;');
13784: l(' WHEN OTHERS THEN');
13785: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
13786: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_prim_cond'');');
13779: END LOOP;
13780: l(' RETURN FALSE;');
13781: l('EXCEPTION');
13782: l(' WHEN FND_API.G_EXC_ERROR THEN');
13783: l(' RAISE FND_API.G_EXC_ERROR;');
13784: l(' WHEN OTHERS THEN');
13785: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
13786: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_prim_cond'');');
13787: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
13785: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
13786: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_prim_cond'');');
13787: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
13788: l(' FND_MSG_PUB.ADD;');
13789: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
13790: l(' END check_prim_cond;');
13791: l('');
13792:
13793: l('/************************************************');
13921: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
13922: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_party_site_cond'');');
13923: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
13924: l(' FND_MSG_PUB.ADD;');
13925: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
13926: l(' END check_party_site_cond;');
13927: l('');
13928:
13929: l('/************************************************');
14059: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14060: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_contact_cond'');');
14061: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14062: l(' FND_MSG_PUB.ADD;');
14063: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14064: l(' END check_contact_cond;');
14065: l('');
14066:
14067: l('/************************************************');
14082: l(' FOR I IN 1..p_contact_point_list.COUNT LOOP');
14083: l(' IF p_contact_point_list(I).CONTACT_POINT_TYPE IS NULL THEN ');
14084: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_NO_CONTACT_POINT_TYPE'');');
14085: l(' FND_MSG_PUB.ADD;');
14086: l(' RAISE FND_API.G_EXC_ERROR;');
14087: l(' END IF;');
14088: l(' END LOOP;');
14089: l('');
14090: l(' FOR I IN 1..p_contact_point_list.COUNT LOOP');
14146: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14147: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''check_contact_point_cond'');');
14148: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14149: l(' FND_MSG_PUB.ADD;');
14150: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14151: l(' END check_contact_point_cond;');
14152: l('');
14153:
14154:
14419: l(' get_search_criteria(l_party_id,l_party_site_ids,l_contact_ids,l_contact_pt_ids,');
14420: l(' x_party_search_rec,x_party_site_list,x_contact_list,x_contact_point_list);');
14421:
14422: l('EXCEPTION');
14423: l(' WHEN FND_API.G_EXC_ERROR THEN');
14424: l(' RAISE FND_API.G_EXC_ERROR;');
14425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14427: l(' WHEN OTHERS THEN');
14420: l(' x_party_search_rec,x_party_site_list,x_contact_list,x_contact_point_list);');
14421:
14422: l('EXCEPTION');
14423: l(' WHEN FND_API.G_EXC_ERROR THEN');
14424: l(' RAISE FND_API.G_EXC_ERROR;');
14425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14427: l(' WHEN OTHERS THEN');
14428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14421:
14422: l('EXCEPTION');
14423: l(' WHEN FND_API.G_EXC_ERROR THEN');
14424: l(' RAISE FND_API.G_EXC_ERROR;');
14425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14427: l(' WHEN OTHERS THEN');
14428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14429: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_party_for_search'');');
14422: l('EXCEPTION');
14423: l(' WHEN FND_API.G_EXC_ERROR THEN');
14424: l(' RAISE FND_API.G_EXC_ERROR;');
14425: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14426: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14427: l(' WHEN OTHERS THEN');
14428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14429: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_party_for_search'');');
14430: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14428: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14429: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_party_for_search'');');
14430: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14431: l(' FND_MSG_PUB.ADD;');
14432: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14433: l('END get_party_for_search;');
14434: l('');
14435:
14436: l('PROCEDURE get_search_criteria (');
14554: l(' get_contact_point_rec(p_contact_pt_ids, x_contact_point_list);');
14555: l(' END IF;');
14556: END IF;
14557: l('EXCEPTION');
14558: l(' WHEN FND_API.G_EXC_ERROR THEN');
14559: l(' RAISE FND_API.G_EXC_ERROR;');
14560: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14561: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14562: l(' WHEN OTHERS THEN');
14555: l(' END IF;');
14556: END IF;
14557: l('EXCEPTION');
14558: l(' WHEN FND_API.G_EXC_ERROR THEN');
14559: l(' RAISE FND_API.G_EXC_ERROR;');
14560: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14561: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14562: l(' WHEN OTHERS THEN');
14563: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14556: END IF;
14557: l('EXCEPTION');
14558: l(' WHEN FND_API.G_EXC_ERROR THEN');
14559: l(' RAISE FND_API.G_EXC_ERROR;');
14560: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14561: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14562: l(' WHEN OTHERS THEN');
14563: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14564: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_search_criteria'');');
14557: l('EXCEPTION');
14558: l(' WHEN FND_API.G_EXC_ERROR THEN');
14559: l(' RAISE FND_API.G_EXC_ERROR;');
14560: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
14561: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14562: l(' WHEN OTHERS THEN');
14563: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14564: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_search_criteria'');');
14565: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14563: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
14564: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_search_criteria'');');
14565: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14566: l(' FND_MSG_PUB.ADD;');
14567: l(' RAISE FND_API.G_EXC_UNEXPECTED_ERROR;');
14568: l('END get_search_criteria;');
14569: l('');
14570:
14571: l('');
14812: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_party_rec'');');
14813: l(' FND_MESSAGE.SET_TOKEN(''PARTY_ID'',p_party_id);');
14814: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14815: l(' FND_MSG_PUB.ADD;');
14816: l(' RAISE FND_API.G_EXC_ERROR;');
14817: l('END get_party_rec;');
14818: l('');
14819: l('/************************************************');
14820: l(' This procedure retrieves the match rule party site attributes into ');
14901: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_party_site_rec'');');
14902: l(' FND_MESSAGE.SET_TOKEN(''PARTY_ID'',l_party_site_id);');
14903: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14904: l(' FND_MSG_PUB.ADD;');
14905: l(' RAISE FND_API.G_EXC_ERROR;');
14906: l('END get_party_site_rec;');
14907: l('');
14908:
14909: l('/************************************************');
14995: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_contact_rec'');');
14996: l(' FND_MESSAGE.SET_TOKEN(''PARTY_ID'',l_org_contact_id);');
14997: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
14998: l(' FND_MSG_PUB.ADD;');
14999: l(' RAISE FND_API.G_EXC_ERROR;');
15000: l('END get_contact_rec;');
15001: l('');
15002: l('/************************************************');
15003: l(' This procedure retrieves the match rule contact point attributes into ');
15090: l(' FND_MESSAGE.SET_TOKEN(''PROC'',''get_contact_point_rec'');');
15091: l(' FND_MESSAGE.SET_TOKEN(''PARTY_ID'',l_contact_point_id);');
15092: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM );');
15093: l(' FND_MSG_PUB.ADD;');
15094: l(' RAISE FND_API.G_EXC_ERROR;');
15095: l('END get_contact_point_rec;');
15096:
15097: END;
15098:
15581:
15582: BEGIN
15583: l(' --Standard call to get message count and if count is 1, get message info');
15584: l(' FND_MSG_PUB.Count_And_Get(');
15585: l(' p_encoded => FND_API.G_FALSE,');
15586: l(' p_count => x_msg_count,');
15587: l(' p_data => x_msg_data);');
15588: l(' EXCEPTION');
15589: l(' WHEN FND_API.G_EXC_ERROR THEN');
15585: l(' p_encoded => FND_API.G_FALSE,');
15586: l(' p_count => x_msg_count,');
15587: l(' p_data => x_msg_data);');
15588: l(' EXCEPTION');
15589: l(' WHEN FND_API.G_EXC_ERROR THEN');
15590: l(' x_return_status := FND_API.G_RET_STS_ERROR;');
15591: l(' FND_MSG_PUB.Count_And_Get(');
15592: l(' p_encoded => FND_API.G_FALSE,');
15593: l(' p_count => x_msg_count,');
15586: l(' p_count => x_msg_count,');
15587: l(' p_data => x_msg_data);');
15588: l(' EXCEPTION');
15589: l(' WHEN FND_API.G_EXC_ERROR THEN');
15590: l(' x_return_status := FND_API.G_RET_STS_ERROR;');
15591: l(' FND_MSG_PUB.Count_And_Get(');
15592: l(' p_encoded => FND_API.G_FALSE,');
15593: l(' p_count => x_msg_count,');
15594: l(' p_data => x_msg_data);');
15588: l(' EXCEPTION');
15589: l(' WHEN FND_API.G_EXC_ERROR THEN');
15590: l(' x_return_status := FND_API.G_RET_STS_ERROR;');
15591: l(' FND_MSG_PUB.Count_And_Get(');
15592: l(' p_encoded => FND_API.G_FALSE,');
15593: l(' p_count => x_msg_count,');
15594: l(' p_data => x_msg_data);');
15595: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
15596: l(' x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
15591: l(' FND_MSG_PUB.Count_And_Get(');
15592: l(' p_encoded => FND_API.G_FALSE,');
15593: l(' p_count => x_msg_count,');
15594: l(' p_data => x_msg_data);');
15595: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
15596: l(' x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
15597: l(' FND_MSG_PUB.Count_And_Get(');
15598: l(' p_encoded => FND_API.G_FALSE,');
15599: l(' p_count => x_msg_count,');
15592: l(' p_encoded => FND_API.G_FALSE,');
15593: l(' p_count => x_msg_count,');
15594: l(' p_data => x_msg_data);');
15595: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
15596: l(' x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
15597: l(' FND_MSG_PUB.Count_And_Get(');
15598: l(' p_encoded => FND_API.G_FALSE,');
15599: l(' p_count => x_msg_count,');
15600: l(' p_data => x_msg_data);');
15594: l(' p_data => x_msg_data);');
15595: l(' WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN');
15596: l(' x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
15597: l(' FND_MSG_PUB.Count_And_Get(');
15598: l(' p_encoded => FND_API.G_FALSE,');
15599: l(' p_count => x_msg_count,');
15600: l(' p_data => x_msg_data);');
15601: l('');
15602: l(' WHEN OTHERS THEN');
15599: l(' p_count => x_msg_count,');
15600: l(' p_data => x_msg_data);');
15601: l('');
15602: l(' WHEN OTHERS THEN');
15603: l(' x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
15604: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_API_ERROR'');');
15605: l(' FND_MESSAGE.SET_TOKEN(''PROC'' ,''HZ_PARTY_SEARCH'');');
15606: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
15607: l(' FND_MSG_PUB.ADD;');
15606: l(' FND_MESSAGE.SET_TOKEN(''ERROR'' ,SQLERRM);');
15607: l(' FND_MSG_PUB.ADD;');
15608: l('');
15609: l(' FND_MSG_PUB.Count_And_Get(');
15610: l(' p_encoded => FND_API.G_FALSE,');
15611: l(' p_count => x_msg_count,');
15612: l(' p_data => x_msg_data);');
15613: END;
15614:
15823: BEGIN
15824: FND_MSG_PUB.Reset;
15825:
15826: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
15827: l_msg_data := l_msg_data || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE );
15828: END LOOP;
15829: IF (SQLERRM IS NOT NULL) THEN
15830: l_msg_data := l_msg_data || SQLERRM;
15831: END IF;
15853: l(' EXCEPTION WHEN NO_DATA_FOUND THEN ');
15854: l(' FND_MESSAGE.SET_NAME(''AR'', ''HZ_DQM_NOATTRIB_ERROR'' ); ');
15855: l(' FND_MESSAGE.SET_TOKEN(''ENTITY_ATTRIBUTE'' ,p_str); ');
15856: l(' FND_MSG_PUB.ADD; ');
15857: l(' RAISE FND_API.G_EXC_ERROR; ');
15858: l(' END get_attrib_id; ');
15859:
15860: l(' PROCEDURE call_api_dynamic_names (');
15861: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
15857: l(' RAISE FND_API.G_EXC_ERROR; ');
15858: l(' END get_attrib_id; ');
15859:
15860: l(' PROCEDURE call_api_dynamic_names (');
15861: l(' p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,');
15862: l(' p_rule_id IN NUMBER,');
15863: l(' p_attrib_name1 IN VARCHAR2,');
15864: l(' p_attrib_name2 IN VARCHAR2,');
15865: l(' p_attrib_name3 IN VARCHAR2,');