[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 ***/
5561: l(' --Fix for bug 4417124 ');
5562: l('');
5563: l(' SELECT use_contact_addr_flag, use_contact_cpt_flag ');
5564: l(' INTO l_use_contact_addr_flag, l_use_contact_cpt_flag ');
5565: l(' FROM hz_match_rules_b ');
5566: l(' WHERE match_rule_id = '||p_rule_id||'; ');
5567: l('');
5568: l(' IF NVL(l_use_contact_addr_flag, ''Y'') = ''N'' THEN');
5569: l(' l_use_contact_addr_info := FALSE; ');
6825: l(' --Fix for bug 4417124 ');
6826: l('');
6827: l(' SELECT use_contact_addr_flag, use_contact_cpt_flag ');
6828: l(' INTO l_use_contact_addr_flag, l_use_contact_cpt_flag ');
6829: l(' FROM hz_match_rules_b ');
6830: l(' WHERE match_rule_id = '||p_rule_id||'; ');
6831: l('');
6832: l(' IF NVL(l_use_contact_addr_flag, ''Y'') = ''N'' THEN');
6833: l(' l_use_contact_addr_info := FALSE; ');
10183: l(' --Fix for bug 4417124 ');
10184: l('');
10185: l(' SELECT use_contact_addr_flag, use_contact_cpt_flag ');
10186: l(' INTO l_use_contact_addr_flag, l_use_contact_cpt_flag ');
10187: l(' FROM hz_match_rules_b ');
10188: l(' WHERE match_rule_id = '||p_rule_id||'; ');
10189: l('');
10190: l(' IF p_dup_batch_id IS NOT NULL AND NVL(l_use_contact_addr_flag, ''Y'') = ''N'' THEN');
10191: l(' l_use_contact_addr_info := FALSE; ');
15589: FND_MSG_PUB.initialize;
15590:
15591: l_cur_date := SYSDATE;
15592:
15593: UPDATE HZ_MATCH_RULES_B SET compilation_flag = 'U'
15594: where rule_purpose = p_rule_purpose ;
15595:
15596: OPEN c_rules_for_compile ;
15597: LOOP
15605: l_msg_data) ;
15606:
15607: EXCEPTION
15608: WHEN OTHERS THEN
15609: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_match_rule_id;
15610: COMMIT;
15611: END;
15612:
15613: END LOOP;
15659: l_cur_date := SYSDATE;
15660:
15661: log('');
15662:
15663: UPDATE HZ_MATCH_RULES_B SET compilation_flag = 'U';
15664:
15665: OPEN c_rules_for_compile ;
15666: LOOP
15667: FETCH c_rules_for_compile INTO l_match_rule_id, l_rule_name;
15687: retcode := 1;
15688: log('');
15689: log('Error Compiling Rule : ');
15690: err := logerror(SQLERRM);
15691: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_match_rule_id;
15692: COMMIT;
15693: END;
15694: END LOOP;
15695: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
15961: FUNCTION has_uncompiled_childern(p_rule_set_id NUMBER)
15962: RETURN BOOLEAN
15963: IS
15964: CURSOR c_uncompiled_children IS
15965: SELECT count(unique compilation_flag) FROM HZ_MATCH_RULES_B
15966: WHERE match_rule_id IN( SELECT unique condition_match_rule_id
15967: FROM HZ_MATCH_RULE_CONDITIONS
15968: WHERE match_rule_set_id = p_rule_set_id)
15969: AND compilation_flag <> 'C';
16031: WHEN OTHERS THEN
16032: log('');
16033: l_has_errors :=TRUE;
16034: log('Error Compiling Rule Set : '||l_match_rule_set_id||' ,sqlerrm='||sqlerrm);
16035: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_match_rule_set_id;
16036: COMMIT;
16037: END;
16038: END LOOP;
16039: close c_rulesets_for_compile;