63: -- 25-AUG-2005 S V Sowjanya Created.
64:
65:
66: PROCEDURE get_account_merge_event_data(
67: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
68: p_customer_merge_header_id IN NUMBER,
69: x_account_merge_obj OUT NOCOPY HZ_ACCT_MERGE_OBJ,
70: x_return_status OUT NOCOPY VARCHAR2,
71: x_msg_count OUT NOCOPY NUMBER,
120:
121: BEGIN
122:
123: -- initialize API return status to success.
124: x_return_status := FND_API.G_RET_STS_SUCCESS;
125:
126: -- Initialize message list if p_init_msg_list is set to TRUE
127: IF FND_API.to_Boolean(p_init_msg_list) THEN
128: FND_MSG_PUB.initialize;
123: -- initialize API return status to success.
124: x_return_status := FND_API.G_RET_STS_SUCCESS;
125:
126: -- Initialize message list if p_init_msg_list is set to TRUE
127: IF FND_API.to_Boolean(p_init_msg_list) THEN
128: FND_MSG_PUB.initialize;
129: END IF;
130:
131: -- Debug info.
140: close account_merge_details;
141:
142: -- SSM for merge-to acct party obj
143: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
144: (p_init_msg_list => fnd_api.g_false,
145: p_owner_table_id => x_account_merge_obj.merge_to_acct_party_obj.party_id,
146: p_owner_table_name => 'HZ_PARTIES',
147: p_action_type => NULL,
148: x_orig_sys_ref_objs => x_account_merge_obj.merge_to_acct_party_obj.orig_sys_objs,
149: x_return_status => x_return_status,
150: x_msg_count => x_msg_count,
151: x_msg_data => x_msg_data);
152:
153: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
154: RAISE FND_API.G_EXC_ERROR;
155: END IF;
156:
157: -- SSM for merge-from acct party obj
150: x_msg_count => x_msg_count,
151: x_msg_data => x_msg_data);
152:
153: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
154: RAISE FND_API.G_EXC_ERROR;
155: END IF;
156:
157: -- SSM for merge-from acct party obj
158: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
155: END IF;
156:
157: -- SSM for merge-from acct party obj
158: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
159: (p_init_msg_list => fnd_api.g_false,
160: p_owner_table_id => x_account_merge_obj.merge_from_acct_party_obj.party_id,
161: p_owner_table_name => 'HZ_PARTIES',
162: p_action_type => NULL,
163: x_orig_sys_ref_objs => x_account_merge_obj.merge_from_acct_party_obj.orig_sys_objs,
164: x_return_status => x_return_status,
165: x_msg_count => x_msg_count,
166: x_msg_data => x_msg_data);
167:
168: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
171: -- SSM for merge to account obj
172: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
165: x_msg_count => x_msg_count,
166: x_msg_data => x_msg_data);
167:
168: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
171: -- SSM for merge to account obj
172: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
173: (p_init_msg_list => fnd_api.g_false,
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
171: -- SSM for merge to account obj
172: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
173: (p_init_msg_list => fnd_api.g_false,
174: p_owner_table_id => x_account_merge_obj.merge_to_account_obj.cust_acct_id,
175: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
176: p_action_type => NULL,
177: x_orig_sys_ref_objs => x_account_merge_obj.merge_to_account_obj.orig_sys_objs,
178: x_return_status => x_return_status,
179: x_msg_count => x_msg_count,
180: x_msg_data => x_msg_data);
181:
182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: FOR I in 1..x_account_merge_obj.merge_from_account_objs.count LOOP
179: x_msg_count => x_msg_count,
180: x_msg_data => x_msg_data);
181:
182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: FOR I in 1..x_account_merge_obj.merge_from_account_objs.count LOOP
187:
185:
186: FOR I in 1..x_account_merge_obj.merge_from_account_objs.count LOOP
187:
188: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
189: (p_init_msg_list => fnd_api.g_false,
190: p_owner_table_id => x_account_merge_obj.merge_from_account_objs(I).cust_acct_id,
191: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
192: p_action_type => NULL,
193: x_orig_sys_ref_objs => x_account_merge_obj.merge_from_account_objs(I).orig_sys_objs,
194: x_return_status => x_return_status,
195: x_msg_count => x_msg_count,
196: x_msg_data => x_msg_data);
197:
198: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201: END LOOP;
202:
195: x_msg_count => x_msg_count,
196: x_msg_data => x_msg_data);
197:
198: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201: END LOOP;
202:
203: -- Debug info.
215: p_msg_level=>fnd_log.level_procedure);
216: END IF;
217: EXCEPTION
218:
219: WHEN fnd_api.g_exc_error THEN
220: x_return_status := fnd_api.g_ret_sts_error;
221:
222: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
223: p_count => x_msg_count,
216: END IF;
217: EXCEPTION
218:
219: WHEN fnd_api.g_exc_error THEN
220: x_return_status := fnd_api.g_ret_sts_error;
221:
222: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
223: p_count => x_msg_count,
224: p_data => x_msg_data);
218:
219: WHEN fnd_api.g_exc_error THEN
220: x_return_status := fnd_api.g_ret_sts_error;
221:
222: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
223: p_count => x_msg_count,
224: p_data => x_msg_data);
225:
226: -- Debug info.
234: hz_utility_v2pub.debug(p_message=>'get_account_merge_event_data(-)',
235: p_prefix=>l_debug_prefix,
236: p_msg_level=>fnd_log.level_procedure);
237: END IF;
238: WHEN fnd_api.g_exc_unexpected_error THEN
239: x_return_status := fnd_api.g_ret_sts_unexp_error;
240:
241: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
242: p_count => x_msg_count,
235: p_prefix=>l_debug_prefix,
236: p_msg_level=>fnd_log.level_procedure);
237: END IF;
238: WHEN fnd_api.g_exc_unexpected_error THEN
239: x_return_status := fnd_api.g_ret_sts_unexp_error;
240:
241: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
242: p_count => x_msg_count,
243: p_data => x_msg_data);
237: END IF;
238: WHEN fnd_api.g_exc_unexpected_error THEN
239: x_return_status := fnd_api.g_ret_sts_unexp_error;
240:
241: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
242: p_count => x_msg_count,
243: p_data => x_msg_data);
244:
245: -- Debug info.
254: p_prefix=>l_debug_prefix,
255: p_msg_level=>fnd_log.level_procedure);
256: END IF;
257: WHEN OTHERS THEN
258: x_return_status := fnd_api.g_ret_sts_unexp_error;
259:
260: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
261: fnd_message.set_token('ERROR' ,SQLERRM);
262: fnd_msg_pub.add;
260: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
261: fnd_message.set_token('ERROR' ,SQLERRM);
262: fnd_msg_pub.add;
263:
264: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
265: p_count => x_msg_count,
266: p_data => x_msg_data);
267:
268: -- Debug info.
303: --
304: -- 25-AUG-2005 S V Sowjanya Created.
305:
306: PROCEDURE get_party_merge_event_data(
307: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
308: p_batch_id IN NUMBER,
309: p_merge_to_party_id IN NUMBER,
310: p_get_merge_detail_flag IN VARCHAR2 := 'N', --5093366
311: x_party_merge_obj OUT NOCOPY HZ_PARTY_MERGE_OBJ,
569: and md.entity_name like 'HZ%';
570:
571: BEGIN
572: -- initialize API return status to success.
573: x_return_status := FND_API.G_RET_STS_SUCCESS;
574:
575: -- Initialize message list if p_init_msg_list is set to TRUE
576: IF FND_API.to_Boolean(p_init_msg_list) THEN
577: FND_MSG_PUB.initialize;
572: -- initialize API return status to success.
573: x_return_status := FND_API.G_RET_STS_SUCCESS;
574:
575: -- Initialize message list if p_init_msg_list is set to TRUE
576: IF FND_API.to_Boolean(p_init_msg_list) THEN
577: FND_MSG_PUB.initialize;
578: END IF;
579:
580: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
594: END IF;
595:
596: -- SSM for party obj
597: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
598: (p_init_msg_list => fnd_api.g_false,
599: p_owner_table_id => x_party_merge_obj.merge_to_party_obj.party_id,
600: p_owner_table_name => 'HZ_PARTIES',
601: p_action_type => NULL,
602: x_orig_sys_ref_objs => x_party_merge_obj.merge_to_party_obj.orig_sys_objs,
603: x_return_status => x_return_status,
604: x_msg_count => x_msg_count,
605: x_msg_data => x_msg_data);
606:
607: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
608: RAISE FND_API.G_EXC_ERROR;
609: END IF;
610:
611: FOR I in 1..x_party_merge_obj.merge_from_party_objs.count LOOP
604: x_msg_count => x_msg_count,
605: x_msg_data => x_msg_data);
606:
607: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
608: RAISE FND_API.G_EXC_ERROR;
609: END IF;
610:
611: FOR I in 1..x_party_merge_obj.merge_from_party_objs.count LOOP
612:
610:
611: FOR I in 1..x_party_merge_obj.merge_from_party_objs.count LOOP
612:
613: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
614: (p_init_msg_list => fnd_api.g_false,
615: p_owner_table_id => x_party_merge_obj.merge_from_party_objs(I).party_id,
616: p_owner_table_name => 'HZ_PARTIES',
617: p_action_type => NULL,
618: x_orig_sys_ref_objs => x_party_merge_obj.merge_from_party_objs(I).orig_sys_objs,
619: x_return_status => x_return_status,
620: x_msg_count => x_msg_count,
621: x_msg_data => x_msg_data);
622:
623: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626: END LOOP;
627:
620: x_msg_count => x_msg_count,
621: x_msg_data => x_msg_data);
622:
623: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626: END LOOP;
627:
628:
633: p_msg_level=>fnd_log.level_procedure);
634: END IF;
635: EXCEPTION
636:
637: WHEN fnd_api.g_exc_error THEN
638: x_return_status := fnd_api.g_ret_sts_error;
639:
640: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
641: p_count => x_msg_count,
634: END IF;
635: EXCEPTION
636:
637: WHEN fnd_api.g_exc_error THEN
638: x_return_status := fnd_api.g_ret_sts_error;
639:
640: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
641: p_count => x_msg_count,
642: p_data => x_msg_data);
636:
637: WHEN fnd_api.g_exc_error THEN
638: x_return_status := fnd_api.g_ret_sts_error;
639:
640: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
641: p_count => x_msg_count,
642: p_data => x_msg_data);
643:
644: -- Debug info.
652: hz_utility_v2pub.debug(p_message=>'get_party_merge_event_data(-)',
653: p_prefix=>l_debug_prefix,
654: p_msg_level=>fnd_log.level_procedure);
655: END IF;
656: WHEN fnd_api.g_exc_unexpected_error THEN
657: x_return_status := fnd_api.g_ret_sts_unexp_error;
658:
659: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
660: p_count => x_msg_count,
653: p_prefix=>l_debug_prefix,
654: p_msg_level=>fnd_log.level_procedure);
655: END IF;
656: WHEN fnd_api.g_exc_unexpected_error THEN
657: x_return_status := fnd_api.g_ret_sts_unexp_error;
658:
659: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
660: p_count => x_msg_count,
661: p_data => x_msg_data);
655: END IF;
656: WHEN fnd_api.g_exc_unexpected_error THEN
657: x_return_status := fnd_api.g_ret_sts_unexp_error;
658:
659: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
660: p_count => x_msg_count,
661: p_data => x_msg_data);
662:
663: -- Debug info.
672: p_prefix=>l_debug_prefix,
673: p_msg_level=>fnd_log.level_procedure);
674: END IF;
675: WHEN OTHERS THEN
676: x_return_status := fnd_api.g_ret_sts_unexp_error;
677:
678: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
679: fnd_message.set_token('ERROR' ,SQLERRM);
680: fnd_msg_pub.add;
678: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
679: fnd_message.set_token('ERROR' ,SQLERRM);
680: fnd_msg_pub.add;
681:
682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
683: p_count => x_msg_count,
684: p_data => x_msg_data);
685:
686: -- Debug info.