[Home] [Help]
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;
656: COMMIT;
657:
658: /*
659: IF l_match_rule_type <> 'SET' THEN
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(
683: p_encoded => FND_API.G_FALSE,
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:
691: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
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:
705: PROCEDURE compile_match_rule (
739: RETURN FALSE;
740: END;
741:
742: BEGIN
743: -- UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'T' WHERE RULE_PURPOSE='Q' AND COMPILATION_FLAG='C';
744: -- Generation of code
745: l('CREATE or REPLACE PACKAGE BODY HZ_PARTY_SEARCH AS');
746: l('/*=======================================================================+');
747: l(' | Copyright (c) 1999 Oracle Corporation Redwood Shores, California, USA|');
2266: l(' END disable_debug;');
2267: */
2268:
2269: l('END;');
2270: -- UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'C' WHERE COMPILATION_FLAG = 'T';
2271:
2272: END;
2273:
2274: /** Procedure to create score function for party sites, contacts and contact points ***/
5576: l(' --Fix for bug 4417124 ');
5577: l('');
5578: l(' SELECT use_contact_addr_flag, use_contact_cpt_flag ');
5579: l(' INTO l_use_contact_addr_flag, l_use_contact_cpt_flag ');
5580: l(' FROM hz_match_rules_b ');
5581: l(' WHERE match_rule_id = '||p_rule_id||'; ');
5582: l('');
5583: l(' IF NVL(l_use_contact_addr_flag, ''Y'') = ''N'' THEN');
5584: l(' l_use_contact_addr_info := FALSE; ');
6864: l(' --Fix for bug 4417124 ');
6865: l('');
6866: l(' SELECT use_contact_addr_flag, use_contact_cpt_flag ');
6867: l(' INTO l_use_contact_addr_flag, l_use_contact_cpt_flag ');
6868: l(' FROM hz_match_rules_b ');
6869: l(' WHERE match_rule_id = '||p_rule_id||'; ');
6870: l('');
6871: l(' IF NVL(l_use_contact_addr_flag, ''Y'') = ''N'' THEN');
6872: l(' l_use_contact_addr_info := FALSE; ');
10229: l(' --Fix for bug 4417124 ');
10230: l('');
10231: l(' SELECT use_contact_addr_flag, use_contact_cpt_flag ');
10232: l(' INTO l_use_contact_addr_flag, l_use_contact_cpt_flag ');
10233: l(' FROM hz_match_rules_b ');
10234: l(' WHERE match_rule_id = '||p_rule_id||'; ');
10235: l('');
10236: l(' IF p_dup_batch_id IS NOT NULL AND NVL(l_use_contact_addr_flag, ''Y'') = ''N'' THEN');
10237: l(' l_use_contact_addr_info := FALSE; ');
15647: FND_MSG_PUB.initialize;
15648:
15649: l_cur_date := SYSDATE;
15650:
15651: UPDATE HZ_MATCH_RULES_B SET compilation_flag = 'U'
15652: where rule_purpose = p_rule_purpose ;
15653:
15654: OPEN c_rules_for_compile ;
15655: LOOP
15663: l_msg_data) ;
15664:
15665: EXCEPTION
15666: WHEN OTHERS THEN
15667: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_match_rule_id;
15668: COMMIT;
15669: END;
15670:
15671: END LOOP;
15717: l_cur_date := SYSDATE;
15718:
15719: log('');
15720:
15721: UPDATE HZ_MATCH_RULES_B SET compilation_flag = 'U';
15722:
15723: OPEN c_rules_for_compile ;
15724: LOOP
15725: FETCH c_rules_for_compile INTO l_match_rule_id, l_rule_name;
15745: retcode := 1;
15746: log('');
15747: log('Error Compiling Rule : ');
15748: err := logerror(SQLERRM);
15749: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_match_rule_id;
15750: COMMIT;
15751: END;
15752: END LOOP;
15753: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
16019: FUNCTION has_uncompiled_childern(p_rule_set_id NUMBER)
16020: RETURN BOOLEAN
16021: IS
16022: CURSOR c_uncompiled_children IS
16023: SELECT count(unique compilation_flag) FROM HZ_MATCH_RULES_B
16024: WHERE match_rule_id IN( SELECT unique condition_match_rule_id
16025: FROM HZ_MATCH_RULE_CONDITIONS
16026: WHERE match_rule_set_id = p_rule_set_id)
16027: AND compilation_flag <> 'C';
16089: WHEN OTHERS THEN
16090: log('');
16091: l_has_errors :=TRUE;
16092: log('Error Compiling Rule Set : '||l_match_rule_set_id||' ,sqlerrm='||sqlerrm);
16093: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_match_rule_set_id;
16094: COMMIT;
16095: END;
16096: END LOOP;
16097: close c_rulesets_for_compile;