[Home] [Help]
714: FND_FILE.put_line(FND_FILE.log,'Parties ::: Number of parties in HZ_DUP_RESULTS before reporting '|| p_count );
715: FND_FILE.put_line(FND_FILE.log,'Parties ::: Begin time of insert '||to_char(sysdate,'hh24:mi:ss'));
716:
717:
718: insert into hz_dup_sets ( winner_party_id, dup_set_id, dup_batch_id,
719: status, merge_type, created_by, creation_date, last_update_login,
720: last_update_date, last_updated_by)
721: select win_party_id, HZ_MERGE_BATCH_S.nextval, p_batch_id,
722: 'SYSBATCH', 'PARTY_MERGE', hz_utility_pub.created_by, hz_utility_pub.creation_date,
753: select a.winner_party_id, a.dup_set_id, 0, 0, 100 ,'Y',
754: hz_utility_pub.created_by,hz_utility_pub.creation_date,
755: hz_utility_pub.last_update_login,hz_utility_pub.last_update_date,
756: hz_utility_pub.user_id,a.dup_batch_id --Bug No: 4244529
757: from hz_dup_sets a
758: where a.dup_batch_id = p_batch_id
759: union all
760: -- this is the part for all the duplicates of the winner
761: -- basically compare the winner from dup set to any row which has the winner has its ord_fid
763: select b.ord_tid, a.dup_set_id, 0, 0, b.score ,decode( sign(b.score - p_auto_merge_threshold),-1,'N','Y'),
764: hz_utility_pub.created_by,hz_utility_pub.creation_date,
765: hz_utility_pub.last_update_login,hz_utility_pub.last_update_date,
766: hz_utility_pub.user_id,a.dup_batch_id
767: from hz_dup_sets a, hz_dup_results b
768: where a.dup_batch_id = p_batch_id
769: and a.winner_party_id = b.ord_fid ;
770:
771: FND_FILE.put_line(FND_FILE.log,'Parties ::: Number of parties inserted to Dup Set Parties'||SQL%ROWCOUNT);
1068: -- sanitize data in temp tables that get populated by the match rule
1069: sanitize_tca_dup_parties ( x_threshold, x_auto_merge_threshold, p_subset_sql,
1070: p_within_subset);
1071:
1072: -- report duplicate parties to hz_dup_sets aand hz_dup_set_parties
1073: report_tca_dup_parties (
1074: p_dup_batch_id, x_threshold, x_auto_merge_threshold );
1075:
1076: -- exception block
1195: where batch_id = p_batch_id;
1196:
1197: -- CALL THE HZ_DUP_BATCH TABLE HANDLER, INSERT A ROW
1198: -- FOR THIS INTERFACE BATCH AND ALSO GET THE BATCH ID
1199: -- FOR REPORTING THESE DUPLICATES TO HZ_DUP_SETS
1200: -- AND HZ_DUP_PARTIES
1201:
1202: HZ_DUP_BATCH_PKG.Insert_Row(
1203: px_dup_batch_id => l_dup_batch_id
1225: -- DUPS ARE INTERFACE PARTIES
1226:
1227:
1228:
1229: -- INSERT INTO HZ_DUP_SETS, ALL THE DISTINCT DUP_PARTY_IDs WHICH OCCUR IN HZ_IMP_DUP_PARTIES
1230: -- AS WINNERS, FOR THE GIVEN BATCH PROVIDED THE FOLLOWING CONDITION IS MET.
1231: -- 1. THE WINNER HAS ATLEAST A PARTY ID ASSOCIATED WITH IT, WHICH HAS
1232: -- ITS AUTO MERGE FLAG <> 'R' AND IS LOADED
1233:
1238: FND_FILE.put_line(FND_FILE.log,'------------------------------------------------------------');
1239: FND_FILE.put_line(FND_FILE.log,'Parties ::: Number of parties in HZ_IMP_DUP_PARTIES before reporting '|| p_count );
1240: FND_FILE.put_line(FND_FILE.log,'Parties ::: Begin time of insert '||to_char(sysdate,'hh24:mi:ss'));
1241:
1242: insert into hz_dup_sets ( winner_party_id, dup_set_id, dup_batch_id,
1243: status, merge_type, created_by, creation_date, last_update_login,
1244: last_update_date, last_updated_by)
1245: select win_party_id, HZ_MERGE_BATCH_S.nextval, l_dup_batch_id,
1246: 'SYSBATCH', 'PARTY_MERGE', hz_utility_pub.created_by, hz_utility_pub.creation_date,
1277: select a.winner_party_id, a.dup_set_id, 0, 0, 100 ,'Y',
1278: hz_utility_pub.created_by,hz_utility_pub.creation_date,
1279: hz_utility_pub.last_update_login,hz_utility_pub.last_update_date,
1280: hz_utility_pub.user_id,a.dup_batch_id --Bug No: 4244529
1281: from hz_dup_sets a
1282: where a.dup_batch_id = l_dup_batch_id
1283: union all
1284: -- this is the part for all the duplicates of the winner
1285: -- basically compare the winner from dup set to any row which has the winner
1290: select b.party_id, a.dup_set_id, 0, p_batch_id, b.score , b.auto_merge_flag,
1291: hz_utility_pub.created_by,hz_utility_pub.creation_date,
1292: hz_utility_pub.last_update_login,hz_utility_pub.last_update_date,
1293: hz_utility_pub.user_id,a.dup_batch_id --Bug No: 4244529
1294: from hz_dup_sets a, hz_imp_dup_parties b, hz_parties c
1295: where a.dup_batch_id = l_dup_batch_id
1296: and a.winner_party_id = b.dup_party_id
1297: and b.party_id = c.party_id
1298: and c.request_id = p_request_id
1341: c_count number ;
1342: cp_count number ;
1343: BEGIN
1344:
1345: -- INSERT INTO HZ_DUP_SETS, ALL THE DISTINCT PARTY_IDs WHICH OCCUR IN HZ_IMP_DUP_DETAILS
1346: -- FOR THE GIVEN BATCH, PROVIDED THE FOLLOWING CONDITION IS MET:
1347: -- 1. ALL THE WINNER PARTIES SHOULD HAVE ATLEAST ONE DETAIL THAT HAS BEEN
1348: -- LOADED TO TCA.
1349:
1354: FND_FILE.put_line(FND_FILE.log,'------------------------------------------------------------');
1355: FND_FILE.put_line(FND_FILE.log,'Details ::: Number of parties in HZ_IMP_DUP_DETAILS before reporting'|| p_count );
1356: FND_FILE.put_line(FND_FILE.log,'Details ::: Begin time of insert '||to_char(sysdate,'hh24:mi:ss'));
1357:
1358: insert into hz_dup_sets ( winner_party_id, dup_set_id, dup_batch_id,
1359: status, merge_type, created_by, creation_date, last_update_login,
1360: last_update_date, last_updated_by)
1361: select win_party_id, HZ_MERGE_BATCH_S.nextval, l_dup_batch_id,
1362: 'SYSBATCH', 'SAME_PARTY_MERGE', hz_utility_pub.created_by, hz_utility_pub.creation_date,
1397: FND_FILE.put_line(FND_FILE.log,'------------------------------------------------------------');
1398: FND_FILE.put_line(FND_FILE.log,'Details ::: Number of parties inserted to Dup Sets '||SQL%ROWCOUNT);
1399: FND_FILE.put_line(FND_FILE.log,'Details ::: End time of insert '||to_char(sysdate,'hh24:mi:ss'));
1400:
1401: -- INSERT INTO HZ_DUP_SET_PARTIES, ALL THE WINNERS FROM HZ_DUP_SETS
1402: -- FOR THE GIVEN BATCH
1403: insert into hz_dup_set_parties (dup_party_id, dup_set_id,merge_seq_id,
1404: merge_batch_id,score,merge_flag, created_by,creation_date,last_update_login,
1405: last_update_date,last_updated_by,dup_set_batch_id) --Bug No: 4244529
1406: select a.winner_party_id, a.dup_set_id, 0, 0, 100 ,'Y',
1407: hz_utility_pub.created_by,hz_utility_pub.creation_date,
1408: hz_utility_pub.last_update_login,hz_utility_pub.last_update_date,
1409: hz_utility_pub.user_id,a.dup_batch_id --Bug No: 4244529
1410: from hz_dup_sets a
1411: where a.dup_batch_id = l_dup_batch_id
1412: and a.merge_type = 'SAME_PARTY_MERGE';
1413:
1414: FND_FILE.put_line(FND_FILE.log,'------------------------------------------------------------');
2327: where a.fid=b.tid and b.fid=a.tid and a.score < b.score) ;
2328:
2329: ------------------------------------------------------------------------------------------------------
2330: -- Step 2 - IDENTIFY DUP SETS AND REPORT THEM APPROPRIATELY, TO ANOTHER TEMP TABLE
2331: -- THAT WILL BE THE BASIS FOR REPORTING TO HZ_DUP_SETS AND HZ_DUP_SET_PARTIES
2332: ------------------------------------------------------------------------------------------------------
2333:
2334: -- Now call the stored program
2335: identify_dup_sets('T',x_return_status,x_msg_count,x_msg_data);
2382: -- create the dup set id from sequence
2383: IF rowCount = 0
2384: THEN
2385: master_party_id := to_char(p_fid);
2386: -- get the sequence from HZ_DUP_SETS
2387: SELECT HZ_MERGE_BATCH_S.nextval INTO x_dup_set_id FROM DUAL;
2388: END IF;
2389:
2390: -- Stamp all intersecting rows (including the passed in row itself), that still have a 'D' flag,
2406: IS
2407: BEGIN
2408:
2409: -- Stamp the dup set id column of all rows with flag = 'ND', with sequence obtained from
2410: -- HZ_DUP_SETS
2411: update hz_dup_results a
2412: set dup_set_id = HZ_MERGE_BATCH_S.nextval
2413: where a.flag = 'ND' ;
2414: return 0 ;
2495: ------------------------------------------------------
2496: -- Step1: Report trivial dup sets
2497: ------------------------------------------------------
2498:
2499: -- Insert winner party into HZ_DUP_SETS
2500: insert into hz_dup_sets ( dup_set_id, dup_batch_id, winner_party_id,
2501: status, merge_type, created_by, creation_date, last_update_login,
2502: last_update_date, last_updated_by)
2503: select dup_set_id, p_batch_id, fid,
2496: -- Step1: Report trivial dup sets
2497: ------------------------------------------------------
2498:
2499: -- Insert winner party into HZ_DUP_SETS
2500: insert into hz_dup_sets ( dup_set_id, dup_batch_id, winner_party_id,
2501: status, merge_type, created_by, creation_date, last_update_login,
2502: last_update_date, last_updated_by)
2503: select dup_set_id, p_batch_id, fid,
2504: 'SYSBATCH', 'PARTY_MERGE', hz_utility_pub.created_by, hz_utility_pub.creation_date,
2531: ------------------------------------------------------
2532: -- Step2: Report non trivial dup sets
2533: ------------------------------------------------------
2534:
2535: -- Insert winner party into HZ_DUP_SETS
2536: insert into hz_dup_sets ( dup_set_id, dup_batch_id, winner_party_id,
2537: status, merge_type, created_by, creation_date, last_update_login,
2538: last_update_date, last_updated_by)
2539: select distinct dup_set_id, p_batch_id, flag ,
2532: -- Step2: Report non trivial dup sets
2533: ------------------------------------------------------
2534:
2535: -- Insert winner party into HZ_DUP_SETS
2536: insert into hz_dup_sets ( dup_set_id, dup_batch_id, winner_party_id,
2537: status, merge_type, created_by, creation_date, last_update_login,
2538: last_update_date, last_updated_by)
2539: select distinct dup_set_id, p_batch_id, flag ,
2540: 'SYSBATCH', 'PARTY_MERGE', hz_utility_pub.created_by, hz_utility_pub.creation_date,
2615: ret_value := identify_dup_pairs ;
2616:
2617:
2618: -- Identify all non-trivial dupsets, by stamping them with flag = master party id of the dup set
2619: -- and the dup set id column with the sequence generated from HZ_DUP_SETS
2620: ret_value := stamp_non_trivial_dup_sets ;
2621:
2622: -- Stamp the dup set id column of all trivial dup sets with the sequence
2623: -- generated from HZ_DUP_SETS
2619: -- and the dup set id column with the sequence generated from HZ_DUP_SETS
2620: ret_value := stamp_non_trivial_dup_sets ;
2621:
2622: -- Stamp the dup set id column of all trivial dup sets with the sequence
2623: -- generated from HZ_DUP_SETS
2624: ret_value := stamp_trivial_dup_sets ;
2625:
2626:
2627: -- standard call to get message count and if count is 1, get message info.