68: PROCEDURE logerror(SQLERRM VARCHAR2 DEFAULT NULL)
69: IS
70: l_msg_data VARCHAR2(2000);
71: BEGIN
72: FND_MSG_PUB.Reset;
73: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
74: l_msg_data := substr(l_msg_data || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 2000) ;
75: END LOOP;
76: IF (SQLERRM IS NOT NULL) THEN
69: IS
70: l_msg_data VARCHAR2(2000);
71: BEGIN
72: FND_MSG_PUB.Reset;
73: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
74: l_msg_data := substr(l_msg_data || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 2000) ;
75: END LOOP;
76: IF (SQLERRM IS NOT NULL) THEN
77: l_msg_data := substr(l_msg_data || SQLERRM, 1, 2000);
70: l_msg_data VARCHAR2(2000);
71: BEGIN
72: FND_MSG_PUB.Reset;
73: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
74: l_msg_data := substr(l_msg_data || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 2000) ;
75: END LOOP;
76: IF (SQLERRM IS NOT NULL) THEN
77: l_msg_data := substr(l_msg_data || SQLERRM, 1, 2000);
78: END IF;
176: x_return_status := fnd_api.g_ret_sts_unexp_error;
177: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
178: FND_MESSAGE.SET_TOKEN('PROC' ,'POP_INTERFACE_SEARCH_TAB');
179: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
180: FND_MSG_PUB.ADD;
181: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
182: p_count => x_msg_count,
183: p_data => x_msg_data);
184: END POP_INTERFACE_SEARCH_TAB;
177: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
178: FND_MESSAGE.SET_TOKEN('PROC' ,'POP_INTERFACE_SEARCH_TAB');
179: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
180: FND_MSG_PUB.ADD;
181: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
182: p_count => x_msg_count,
183: p_data => x_msg_data);
184: END POP_INTERFACE_SEARCH_TAB;
185:
315: x_return_status := fnd_api.g_ret_sts_unexp_error;
316: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
317: FND_MESSAGE.SET_TOKEN('PROC' ,'POP_INT_TCA_SEARCH_TAB');
318: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
319: FND_MSG_PUB.ADD;
320: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
321: p_count => x_msg_count,
322: p_data => x_msg_data);
323: END POP_INT_TCA_SEARCH_TAB;
316: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
317: FND_MESSAGE.SET_TOKEN('PROC' ,'POP_INT_TCA_SEARCH_TAB');
318: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
319: FND_MSG_PUB.ADD;
320: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
321: p_count => x_msg_count,
322: p_data => x_msg_data);
323: END POP_INT_TCA_SEARCH_TAB;
324:
435: x_return_status := fnd_api.g_ret_sts_unexp_error;
436: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
437: FND_MESSAGE.SET_TOKEN('PROC' ,'DQM_POST_IMP_CLEANUP');
438: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
439: FND_MSG_PUB.ADD;
440: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
441: p_count => x_msg_count,
442: p_data => x_msg_data);
443: END dqm_post_imp_cleanup;
436: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
437: FND_MESSAGE.SET_TOKEN('PROC' ,'DQM_POST_IMP_CLEANUP');
438: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
439: FND_MSG_PUB.ADD;
440: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
441: p_count => x_msg_count,
442: p_data => x_msg_data);
443: END dqm_post_imp_cleanup;
444:
479: x_return_status := fnd_api.g_ret_sts_unexp_error;
480: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
481: FND_MESSAGE.SET_TOKEN('PROC' ,'DQM_PRE_IMP_CLEANUP');
482: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
483: FND_MSG_PUB.ADD;
484: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
485: p_count => x_msg_count,
486: p_data => x_msg_data);
487: END dqm_pre_imp_cleanup;
480: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
481: FND_MESSAGE.SET_TOKEN('PROC' ,'DQM_PRE_IMP_CLEANUP');
482: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
483: FND_MSG_PUB.ADD;
484: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
485: p_count => x_msg_count,
486: p_data => x_msg_data);
487: END dqm_pre_imp_cleanup;
488:
603: x_return_status := fnd_api.g_ret_sts_unexp_error;
604: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
605: FND_MESSAGE.SET_TOKEN('PROC' ,'DQM_INTER_IMP_CLEANUP');
606: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
607: FND_MSG_PUB.ADD;
608: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
609: p_count => x_msg_count,
610: p_data => x_msg_data);
611: END dqm_inter_imp_cleanup;
604: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
605: FND_MESSAGE.SET_TOKEN('PROC' ,'DQM_INTER_IMP_CLEANUP');
606: FND_MESSAGE.SET_TOKEN('ERROR' , SQLERRM);
607: FND_MSG_PUB.ADD;
608: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
609: p_count => x_msg_count,
610: p_data => x_msg_data);
611: END dqm_inter_imp_cleanup;
612:
2585: l(' pop_contacts(p_batch_id, p_from_osr, p_to_osr);');
2586: l(' -- build_srch_indexes(); ');
2587: l(' EXCEPTION WHEN others THEN ');
2588: l(' x_return_status := fnd_api.g_ret_sts_unexp_error; ');
2589: l(' fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, ');
2590: l(' p_count => x_msg_count, ');
2591: l(' p_data => x_msg_data); ');
2592: l(' RAISE; ');
2593: l(' END POP_INTERFACE_SEARCH_TAB;');
2630: l(' END IF; ');
2631:
2632: l(' EXCEPTION WHEN others THEN ');
2633: l(' x_return_status := fnd_api.g_ret_sts_unexp_error; ');
2634: l(' fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, ');
2635: l(' p_count => x_msg_count, ');
2636: l(' p_data => x_msg_data); ');
2637: l(' RAISE; ');
2638: l(' END POP_INT_TCA_SEARCH_TAB; ');
3840: -- Initialize the compiled package name
3841: l_rule_id := TO_NUMBER(p_rule_id);
3842: l_package_name := 'HZ_IMP_MATCH_RULE_'||p_rule_id;
3843: -- Initialize message stack
3844: FND_MSG_PUB.initialize;
3845:
3846:
3847: BEGIN
3848: -- Verify that the match rule exists
3852:
3853: EXCEPTION
3854: WHEN NO_DATA_FOUND THEN
3855: FND_MESSAGE.SET_NAME('AR', 'HZ_STAGE_NO_RULE');
3856: FND_MSG_PUB.ADD;
3857: RAISE FND_API.G_EXC_ERROR;
3858: END;
3859: -- Check if match rule has any inactive transformations
3860: OPEN check_inactive;
3868: NULL;
3869: END;
3870:
3871: fnd_message.set_name('AR','HZ_MR_HAS_INACTIVE_TX');
3872: FND_MSG_PUB.ADD;
3873: RAISE FND_API.G_EXC_ERROR;
3874: END IF;
3875: CLOSE check_inactive;
3876: -- Generate and compile match rule package spec
3882: gen_pkg_body(l_package_name, l_rule_id);
3883: HZ_GEN_PLSQL.compile_code;
3884:
3885: --Standard call to get message count and if count is 1, get message info.
3886: FND_MSG_PUB.Count_And_Get(
3887: p_encoded => FND_API.G_FALSE,
3888: p_count => x_msg_count,
3889: p_data => x_msg_data);
3890:
3891: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'C' WHERE MATCH_RULE_ID = l_rule_id;
3892: COMMIT;
3893: EXCEPTION
3894: WHEN FND_API.G_EXC_ERROR THEN
3895: FND_MSG_PUB.Count_And_Get(
3896: p_encoded => FND_API.G_FALSE,
3897: p_count => x_msg_count,
3898: p_data => x_msg_data);
3899: x_return_status := FND_API.G_RET_STS_ERROR;
3899: x_return_status := FND_API.G_RET_STS_ERROR;
3900: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_rule_id;
3901: COMMIT;
3902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3903: FND_MSG_PUB.Count_And_Get(
3904: p_encoded => FND_API.G_FALSE,
3905: p_count => x_msg_count,
3906: p_data => x_msg_data);
3907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3911:
3912: FND_MESSAGE.SET_NAME('AR', 'HZ_DQM_API_ERROR');
3913: FND_MESSAGE.SET_TOKEN('PROC','compile_match_rule');
3914: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3915: FND_MSG_PUB.ADD;
3916:
3917: FND_MSG_PUB.Count_And_Get(
3918: p_encoded => FND_API.G_FALSE,
3919: p_count => x_msg_count,
3913: FND_MESSAGE.SET_TOKEN('PROC','compile_match_rule');
3914: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3915: FND_MSG_PUB.ADD;
3916:
3917: FND_MSG_PUB.Count_And_Get(
3918: p_encoded => FND_API.G_FALSE,
3919: p_count => x_msg_count,
3920: p_data => x_msg_data);
3921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;