75: -- 25-AUG-2005 S V Sowjanya Created.
76:
77:
78: PROCEDURE get_account_merge_event_data(
79: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
80: p_customer_merge_header_id IN NUMBER,
81: x_account_merge_obj OUT NOCOPY HZ_ACCT_MERGE_OBJ,
82: x_return_status OUT NOCOPY VARCHAR2,
83: x_msg_count OUT NOCOPY NUMBER,
132:
133: BEGIN
134:
135: -- initialize API return status to success.
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137:
138: -- Initialize message list if p_init_msg_list is set to TRUE
139: IF FND_API.to_Boolean(p_init_msg_list) THEN
140: FND_MSG_PUB.initialize;
135: -- initialize API return status to success.
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137:
138: -- Initialize message list if p_init_msg_list is set to TRUE
139: IF FND_API.to_Boolean(p_init_msg_list) THEN
140: FND_MSG_PUB.initialize;
141: END IF;
142:
143: -- Debug info.
152: close account_merge_details;
153:
154: -- SSM for merge-to acct party obj
155: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
156: (p_init_msg_list => fnd_api.g_false,
157: p_owner_table_id => x_account_merge_obj.merge_to_acct_party_obj.party_id,
158: p_owner_table_name => 'HZ_PARTIES',
159: p_action_type => NULL,
160: x_orig_sys_ref_objs => x_account_merge_obj.merge_to_acct_party_obj.orig_sys_objs,
161: x_return_status => x_return_status,
162: x_msg_count => x_msg_count,
163: x_msg_data => x_msg_data);
164:
165: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
168:
169: -- SSM for merge-from acct party obj
162: x_msg_count => x_msg_count,
163: x_msg_data => x_msg_data);
164:
165: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
168:
169: -- SSM for merge-from acct party obj
170: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
167: END IF;
168:
169: -- SSM for merge-from acct party obj
170: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
171: (p_init_msg_list => fnd_api.g_false,
172: p_owner_table_id => x_account_merge_obj.merge_from_acct_party_obj.party_id,
173: p_owner_table_name => 'HZ_PARTIES',
174: p_action_type => NULL,
175: x_orig_sys_ref_objs => x_account_merge_obj.merge_from_acct_party_obj.orig_sys_objs,
176: x_return_status => x_return_status,
177: x_msg_count => x_msg_count,
178: x_msg_data => x_msg_data);
179:
180: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
181: RAISE FND_API.G_EXC_ERROR;
182: END IF;
183: -- SSM for merge to account obj
184: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
177: x_msg_count => x_msg_count,
178: x_msg_data => x_msg_data);
179:
180: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
181: RAISE FND_API.G_EXC_ERROR;
182: END IF;
183: -- SSM for merge to account obj
184: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
185: (p_init_msg_list => fnd_api.g_false,
181: RAISE FND_API.G_EXC_ERROR;
182: END IF;
183: -- SSM for merge to account obj
184: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
185: (p_init_msg_list => fnd_api.g_false,
186: p_owner_table_id => x_account_merge_obj.merge_to_account_obj.cust_acct_id,
187: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
188: p_action_type => NULL,
189: x_orig_sys_ref_objs => x_account_merge_obj.merge_to_account_obj.orig_sys_objs,
190: x_return_status => x_return_status,
191: x_msg_count => x_msg_count,
192: x_msg_data => x_msg_data);
193:
194: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197:
198: FOR I in 1..x_account_merge_obj.merge_from_account_objs.count LOOP
191: x_msg_count => x_msg_count,
192: x_msg_data => x_msg_data);
193:
194: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197:
198: FOR I in 1..x_account_merge_obj.merge_from_account_objs.count LOOP
199:
197:
198: FOR I in 1..x_account_merge_obj.merge_from_account_objs.count LOOP
199:
200: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
201: (p_init_msg_list => fnd_api.g_false,
202: p_owner_table_id => x_account_merge_obj.merge_from_account_objs(I).cust_acct_id,
203: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
204: p_action_type => NULL,
205: x_orig_sys_ref_objs => x_account_merge_obj.merge_from_account_objs(I).orig_sys_objs,
206: x_return_status => x_return_status,
207: x_msg_count => x_msg_count,
208: x_msg_data => x_msg_data);
209:
210: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
211: RAISE FND_API.G_EXC_ERROR;
212: END IF;
213: END LOOP;
214:
207: x_msg_count => x_msg_count,
208: x_msg_data => x_msg_data);
209:
210: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
211: RAISE FND_API.G_EXC_ERROR;
212: END IF;
213: END LOOP;
214:
215: -- Debug info.
227: p_msg_level=>fnd_log.level_procedure);
228: END IF;
229: EXCEPTION
230:
231: WHEN fnd_api.g_exc_error THEN
232: x_return_status := fnd_api.g_ret_sts_error;
233:
234: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
235: p_count => x_msg_count,
228: END IF;
229: EXCEPTION
230:
231: WHEN fnd_api.g_exc_error THEN
232: x_return_status := fnd_api.g_ret_sts_error;
233:
234: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
235: p_count => x_msg_count,
236: p_data => x_msg_data);
230:
231: WHEN fnd_api.g_exc_error THEN
232: x_return_status := fnd_api.g_ret_sts_error;
233:
234: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
235: p_count => x_msg_count,
236: p_data => x_msg_data);
237:
238: -- Debug info.
246: hz_utility_v2pub.debug(p_message=>'get_account_merge_event_data(-)',
247: p_prefix=>l_debug_prefix,
248: p_msg_level=>fnd_log.level_procedure);
249: END IF;
250: WHEN fnd_api.g_exc_unexpected_error THEN
251: x_return_status := fnd_api.g_ret_sts_unexp_error;
252:
253: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
254: p_count => x_msg_count,
247: p_prefix=>l_debug_prefix,
248: p_msg_level=>fnd_log.level_procedure);
249: END IF;
250: WHEN fnd_api.g_exc_unexpected_error THEN
251: x_return_status := fnd_api.g_ret_sts_unexp_error;
252:
253: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
254: p_count => x_msg_count,
255: p_data => x_msg_data);
249: END IF;
250: WHEN fnd_api.g_exc_unexpected_error THEN
251: x_return_status := fnd_api.g_ret_sts_unexp_error;
252:
253: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
254: p_count => x_msg_count,
255: p_data => x_msg_data);
256:
257: -- Debug info.
266: p_prefix=>l_debug_prefix,
267: p_msg_level=>fnd_log.level_procedure);
268: END IF;
269: WHEN OTHERS THEN
270: x_return_status := fnd_api.g_ret_sts_unexp_error;
271:
272: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
273: fnd_message.set_token('ERROR' ,SQLERRM);
274: fnd_msg_pub.add;
272: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
273: fnd_message.set_token('ERROR' ,SQLERRM);
274: fnd_msg_pub.add;
275:
276: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
277: p_count => x_msg_count,
278: p_data => x_msg_data);
279:
280: -- Debug info.
316: -- 6-Jan-2009 S V Sowjanya Created.
317:
318:
319: PROCEDURE get_account_merge_event_data(
320: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
321: p_customer_merge_header_id IN NUMBER,
322: p_get_merge_detail_flag IN VARCHAR2 := 'N',
323: x_account_merge_v2_obj OUT NOCOPY HZ_ACCOUNT_MERGE_V2_OBJ,
324: x_return_status OUT NOCOPY VARCHAR2,
1009: l_header_id NUMBER;
1010: BEGIN
1011:
1012: -- initialize API return status to success.
1013: x_return_status := FND_API.G_RET_STS_SUCCESS;
1014:
1015: -- Initialize message list if p_init_msg_list is set to TRUE
1016: IF FND_API.to_Boolean(p_init_msg_list) THEN
1017: FND_MSG_PUB.initialize;
1012: -- initialize API return status to success.
1013: x_return_status := FND_API.G_RET_STS_SUCCESS;
1014:
1015: -- Initialize message list if p_init_msg_list is set to TRUE
1016: IF FND_API.to_Boolean(p_init_msg_list) THEN
1017: FND_MSG_PUB.initialize;
1018: END IF;
1019:
1020: -- Debug info.
1030: FND_MESSAGE.SET_TOKEN('VALUE1',p_get_merge_detail_flag);
1031: FND_MESSAGE.SET_TOKEN('COLUMN2','getMergeDetailFlag');
1032: FND_MESSAGE.SET_TOKEN('VALUE2','Y/N');
1033: FND_MSG_PUB.ADD();
1034: RAISE fnd_api.g_exc_error;
1035: END IF;
1036:
1037: BEGIN
1038: SELECT customer_merge_header_id INTO l_header_id
1041: EXCEPTION
1042: WHEN NO_DATA_FOUND THEN
1043: FND_MESSAGE.SET_NAME('AR','HZ_API_INVALID_TCA_ID');
1044: FND_MSG_PUB.ADD();
1045: RAISE fnd_api.g_exc_error;
1046: END;
1047:
1048: OPEN account_merge_details;
1049: FETCH account_merge_details into x_account_merge_v2_obj;
1049: FETCH account_merge_details into x_account_merge_v2_obj;
1050: CLOSE account_merge_details;
1051: -- SSM for merge-to acct party obj
1052: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1053: (p_init_msg_list => fnd_api.g_false,
1054: p_owner_table_id => x_account_merge_v2_obj.merge_to_acct_party_obj.party_id,
1055: p_owner_table_name => 'HZ_PARTIES',
1056: p_action_type => NULL,
1057: x_orig_sys_ref_objs => x_account_merge_v2_obj.merge_to_acct_party_obj.orig_sys_objs,
1058: x_return_status => x_return_status,
1059: x_msg_count => x_msg_count,
1060: x_msg_data => x_msg_data);
1061:
1062: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1063: RAISE FND_API.G_EXC_ERROR;
1064: END IF;
1065:
1066: -- SSM for merge-from acct party obj
1059: x_msg_count => x_msg_count,
1060: x_msg_data => x_msg_data);
1061:
1062: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1063: RAISE FND_API.G_EXC_ERROR;
1064: END IF;
1065:
1066: -- SSM for merge-from acct party obj
1067: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1064: END IF;
1065:
1066: -- SSM for merge-from acct party obj
1067: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1068: (p_init_msg_list => fnd_api.g_false,
1069: p_owner_table_id => x_account_merge_v2_obj.merge_from_acct_party_obj.party_id,
1070: p_owner_table_name => 'HZ_PARTIES',
1071: p_action_type => NULL,
1072: x_orig_sys_ref_objs => x_account_merge_v2_obj.merge_from_acct_party_obj.orig_sys_objs,
1073: x_return_status => x_return_status,
1074: x_msg_count => x_msg_count,
1075: x_msg_data => x_msg_data);
1076:
1077: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080: -- SSM for merge to account obj
1081: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1074: x_msg_count => x_msg_count,
1075: x_msg_data => x_msg_data);
1076:
1077: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080: -- SSM for merge to account obj
1081: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1082: (p_init_msg_list => fnd_api.g_false,
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080: -- SSM for merge to account obj
1081: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1082: (p_init_msg_list => fnd_api.g_false,
1083: p_owner_table_id => x_account_merge_v2_obj.merge_to_account_obj.cust_acct_id,
1084: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1085: p_action_type => NULL,
1086: x_orig_sys_ref_objs => x_account_merge_v2_obj.merge_to_account_obj.orig_sys_objs,
1087: x_return_status => x_return_status,
1088: x_msg_count => x_msg_count,
1089: x_msg_data => x_msg_data);
1090:
1091: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1094:
1095: FOR I in 1..x_account_merge_v2_obj.merge_from_account_objs.count LOOP
1088: x_msg_count => x_msg_count,
1089: x_msg_data => x_msg_data);
1090:
1091: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1094:
1095: FOR I in 1..x_account_merge_v2_obj.merge_from_account_objs.count LOOP
1096:
1094:
1095: FOR I in 1..x_account_merge_v2_obj.merge_from_account_objs.count LOOP
1096:
1097: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1098: (p_init_msg_list => fnd_api.g_false,
1099: p_owner_table_id => x_account_merge_v2_obj.merge_from_account_objs(I).cust_acct_id,
1100: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1101: p_action_type => NULL,
1102: x_orig_sys_ref_objs => x_account_merge_v2_obj.merge_from_account_objs(I).orig_sys_objs,
1103: x_return_status => x_return_status,
1104: x_msg_count => x_msg_count,
1105: x_msg_data => x_msg_data);
1106:
1107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1108: RAISE FND_API.G_EXC_ERROR;
1109: END IF;
1110: END LOOP;
1111:
1104: x_msg_count => x_msg_count,
1105: x_msg_data => x_msg_data);
1106:
1107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1108: RAISE FND_API.G_EXC_ERROR;
1109: END IF;
1110: END LOOP;
1111:
1112: IF p_get_merge_detail_flag = 'N' THEN
1134:
1135: IF l_site_use_id IS NOT NULL THEN
1136:
1137: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1138: (p_init_msg_list => fnd_api.g_false,
1139: p_owner_table_id => x_account_merge_v2_obj.customer_profile_objs(I).from_parent_object_id,
1140: p_owner_table_name => 'HZ_CUST_SITE_USES_ALL',
1141: p_action_type => NULL,
1142: x_orig_sys_ref_objs => x_account_merge_v2_obj.customer_profile_objs(I).from_parent_obj_sys_ref_objs,
1143: x_return_status => x_return_status,
1144: x_msg_count => x_msg_count,
1145: x_msg_data => x_msg_data);
1146:
1147: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150:
1151: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1144: x_msg_count => x_msg_count,
1145: x_msg_data => x_msg_data);
1146:
1147: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150:
1151: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1152: (p_init_msg_list => fnd_api.g_false,
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150:
1151: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1152: (p_init_msg_list => fnd_api.g_false,
1153: p_owner_table_id => x_account_merge_v2_obj.customer_profile_objs(I).to_parent_object_id,
1154: p_owner_table_name => 'HZ_CUST_SITE_USES_ALL',
1155: p_action_type => NULL,
1156: x_orig_sys_ref_objs => x_account_merge_v2_obj.customer_profile_objs(I).to_parent_obj_sys_ref_objs,
1157: x_return_status => x_return_status,
1158: x_msg_count => x_msg_count,
1159: x_msg_data => x_msg_data);
1160:
1161: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164:
1165: ELSE
1158: x_msg_count => x_msg_count,
1159: x_msg_data => x_msg_data);
1160:
1161: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164:
1165: ELSE
1166: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1163: END IF;
1164:
1165: ELSE
1166: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1167: (p_init_msg_list => fnd_api.g_false,
1168: p_owner_table_id => x_account_merge_v2_obj.customer_profile_objs(I).from_parent_object_id,
1169: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1170: p_action_type => NULL,
1171: x_orig_sys_ref_objs => x_account_merge_v2_obj.customer_profile_objs(I).from_parent_obj_sys_ref_objs,
1172: x_return_status => x_return_status,
1173: x_msg_count => x_msg_count,
1174: x_msg_data => x_msg_data);
1175:
1176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1180: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1173: x_msg_count => x_msg_count,
1174: x_msg_data => x_msg_data);
1175:
1176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1180: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1181: (p_init_msg_list => fnd_api.g_false,
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1180: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1181: (p_init_msg_list => fnd_api.g_false,
1182: p_owner_table_id => x_account_merge_v2_obj.customer_profile_objs(I).to_parent_object_id,
1183: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1184: p_action_type => NULL,
1185: x_orig_sys_ref_objs => x_account_merge_v2_obj.customer_profile_objs(I).to_parent_obj_sys_ref_objs,
1186: x_return_status => x_return_status,
1187: x_msg_count => x_msg_count,
1188: x_msg_data => x_msg_data);
1189:
1190: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1191: RAISE FND_API.G_EXC_ERROR;
1192: END IF;
1193:
1194: END IF; --l_site_use_id
1187: x_msg_count => x_msg_count,
1188: x_msg_data => x_msg_data);
1189:
1190: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1191: RAISE FND_API.G_EXC_ERROR;
1192: END IF;
1193:
1194: END IF; --l_site_use_id
1195: END LOOP; --customer_profiles
1207:
1208: IF l_site_use_id IS NOT NULL THEN
1209:
1210: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1211: (p_init_msg_list => fnd_api.g_false,
1212: p_owner_table_id => x_account_merge_v2_obj.cust_profile_amt_objs(I).from_parent_object_id,
1213: p_owner_table_name => 'HZ_CUST_SITE_USES_ALL',
1214: p_action_type => NULL,
1215: x_orig_sys_ref_objs => x_account_merge_v2_obj.cust_profile_amt_objs(I).from_parent_obj_sys_ref_objs,
1216: x_return_status => x_return_status,
1217: x_msg_count => x_msg_count,
1218: x_msg_data => x_msg_data);
1219:
1220: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1221: RAISE FND_API.G_EXC_ERROR;
1222: END IF;
1223:
1224: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1217: x_msg_count => x_msg_count,
1218: x_msg_data => x_msg_data);
1219:
1220: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1221: RAISE FND_API.G_EXC_ERROR;
1222: END IF;
1223:
1224: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1225: (p_init_msg_list => fnd_api.g_false,
1221: RAISE FND_API.G_EXC_ERROR;
1222: END IF;
1223:
1224: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1225: (p_init_msg_list => fnd_api.g_false,
1226: p_owner_table_id => x_account_merge_v2_obj.cust_profile_amt_objs(I).to_parent_object_id,
1227: p_owner_table_name => 'HZ_CUST_SITE_USES_ALL',
1228: p_action_type => NULL,
1229: x_orig_sys_ref_objs => x_account_merge_v2_obj.cust_profile_amt_objs(I).to_parent_obj_sys_ref_objs,
1230: x_return_status => x_return_status,
1231: x_msg_count => x_msg_count,
1232: x_msg_data => x_msg_data);
1233:
1234: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1235: RAISE FND_API.G_EXC_ERROR;
1236: END IF;
1237:
1238: ELSE
1231: x_msg_count => x_msg_count,
1232: x_msg_data => x_msg_data);
1233:
1234: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1235: RAISE FND_API.G_EXC_ERROR;
1236: END IF;
1237:
1238: ELSE
1239: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1236: END IF;
1237:
1238: ELSE
1239: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1240: (p_init_msg_list => fnd_api.g_false,
1241: p_owner_table_id => x_account_merge_v2_obj.cust_profile_amt_objs(I).from_parent_object_id,
1242: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1243: p_action_type => NULL,
1244: x_orig_sys_ref_objs => x_account_merge_v2_obj.cust_profile_amt_objs(I).from_parent_obj_sys_ref_objs,
1245: x_return_status => x_return_status,
1246: x_msg_count => x_msg_count,
1247: x_msg_data => x_msg_data);
1248:
1249: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252:
1253: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1246: x_msg_count => x_msg_count,
1247: x_msg_data => x_msg_data);
1248:
1249: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252:
1253: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1254: (p_init_msg_list => fnd_api.g_false,
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252:
1253: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1254: (p_init_msg_list => fnd_api.g_false,
1255: p_owner_table_id => x_account_merge_v2_obj.cust_profile_amt_objs(I).to_parent_object_id,
1256: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1257: p_action_type => NULL,
1258: x_orig_sys_ref_objs => x_account_merge_v2_obj.cust_profile_amt_objs(I).to_parent_obj_sys_ref_objs,
1259: x_return_status => x_return_status,
1260: x_msg_count => x_msg_count,
1261: x_msg_data => x_msg_data);
1262:
1263: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1264: RAISE FND_API.G_EXC_ERROR;
1265: END IF;
1266:
1267: END IF; --l_site_use_id
1260: x_msg_count => x_msg_count,
1261: x_msg_data => x_msg_data);
1262:
1263: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1264: RAISE FND_API.G_EXC_ERROR;
1265: END IF;
1266:
1267: END IF; --l_site_use_id
1268: END LOOP; --customer_profile_amts
1273:
1274: FOR I in 1..x_account_merge_v2_obj.acct_role_objs.count LOOP
1275:
1276: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1277: (p_init_msg_list => fnd_api.g_false,
1278: p_owner_table_id => x_account_merge_v2_obj.acct_role_objs(I).from_object_id,
1279: p_owner_table_name => 'HZ_CUST_ACCOUNT_ROLES',
1280: p_action_type => NULL,
1281: x_orig_sys_ref_objs => x_account_merge_v2_obj.acct_role_objs(I).from_object_sys_ref_objs,
1282: x_return_status => x_return_status,
1283: x_msg_count => x_msg_count,
1284: x_msg_data => x_msg_data);
1285:
1286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1287: RAISE FND_API.G_EXC_ERROR;
1288: END IF;
1289:
1290: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1283: x_msg_count => x_msg_count,
1284: x_msg_data => x_msg_data);
1285:
1286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1287: RAISE FND_API.G_EXC_ERROR;
1288: END IF;
1289:
1290: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1291: (p_init_msg_list => fnd_api.g_false,
1287: RAISE FND_API.G_EXC_ERROR;
1288: END IF;
1289:
1290: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1291: (p_init_msg_list => fnd_api.g_false,
1292: p_owner_table_id => x_account_merge_v2_obj.acct_role_objs(I).to_object_id,
1293: p_owner_table_name => 'HZ_CUST_ACCOUNT_ROLES',
1294: p_action_type => NULL,
1295: x_orig_sys_ref_objs => x_account_merge_v2_obj.acct_role_objs(I).to_object_sys_ref_objs,
1296: x_return_status => x_return_status,
1297: x_msg_count => x_msg_count,
1298: x_msg_data => x_msg_data);
1299:
1300: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303:
1304: l_site_use_id := null;
1297: x_msg_count => x_msg_count,
1298: x_msg_data => x_msg_data);
1299:
1300: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303:
1304: l_site_use_id := null;
1305:
1309:
1310: IF l_site_use_id IS NOT NULL THEN
1311:
1312: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1313: (p_init_msg_list => fnd_api.g_false,
1314: p_owner_table_id => x_account_merge_v2_obj.acct_role_objs(I).from_parent_object_id,
1315: p_owner_table_name => 'HZ_CUST_ACCT_SITES_ALL',
1316: p_action_type => NULL,
1317: x_orig_sys_ref_objs => x_account_merge_v2_obj.acct_role_objs(I).from_parent_obj_sys_ref_objs,
1318: x_return_status => x_return_status,
1319: x_msg_count => x_msg_count,
1320: x_msg_data => x_msg_data);
1321:
1322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1323: RAISE FND_API.G_EXC_ERROR;
1324: END IF;
1325:
1326: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1319: x_msg_count => x_msg_count,
1320: x_msg_data => x_msg_data);
1321:
1322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1323: RAISE FND_API.G_EXC_ERROR;
1324: END IF;
1325:
1326: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1327: (p_init_msg_list => fnd_api.g_false,
1323: RAISE FND_API.G_EXC_ERROR;
1324: END IF;
1325:
1326: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1327: (p_init_msg_list => fnd_api.g_false,
1328: p_owner_table_id => x_account_merge_v2_obj.acct_role_objs(I).to_parent_object_id,
1329: p_owner_table_name => 'HZ_CUST_ACCT_SITES_ALL',
1330: p_action_type => NULL,
1331: x_orig_sys_ref_objs => x_account_merge_v2_obj.acct_role_objs(I).to_parent_obj_sys_ref_objs,
1332: x_return_status => x_return_status,
1333: x_msg_count => x_msg_count,
1334: x_msg_data => x_msg_data);
1335:
1336: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1337: RAISE FND_API.G_EXC_ERROR;
1338: END IF;
1339:
1340: ELSE
1333: x_msg_count => x_msg_count,
1334: x_msg_data => x_msg_data);
1335:
1336: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1337: RAISE FND_API.G_EXC_ERROR;
1338: END IF;
1339:
1340: ELSE
1341: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1338: END IF;
1339:
1340: ELSE
1341: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1342: (p_init_msg_list => fnd_api.g_false,
1343: p_owner_table_id => x_account_merge_v2_obj.acct_role_objs(I).from_parent_object_id,
1344: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1345: p_action_type => NULL,
1346: x_orig_sys_ref_objs => x_account_merge_v2_obj.acct_role_objs(I).from_parent_obj_sys_ref_objs,
1347: x_return_status => x_return_status,
1348: x_msg_count => x_msg_count,
1349: x_msg_data => x_msg_data);
1350:
1351: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1352: RAISE FND_API.G_EXC_ERROR;
1353: END IF;
1354:
1355: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1348: x_msg_count => x_msg_count,
1349: x_msg_data => x_msg_data);
1350:
1351: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1352: RAISE FND_API.G_EXC_ERROR;
1353: END IF;
1354:
1355: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1356: (p_init_msg_list => fnd_api.g_false,
1352: RAISE FND_API.G_EXC_ERROR;
1353: END IF;
1354:
1355: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1356: (p_init_msg_list => fnd_api.g_false,
1357: p_owner_table_id => x_account_merge_v2_obj.acct_role_objs(I).to_parent_object_id,
1358: p_owner_table_name => 'HZ_CUST_ACCOUNTS',
1359: p_action_type => NULL,
1360: x_orig_sys_ref_objs => x_account_merge_v2_obj.acct_role_objs(I).to_parent_obj_sys_ref_objs,
1361: x_return_status => x_return_status,
1362: x_msg_count => x_msg_count,
1363: x_msg_data => x_msg_data);
1364:
1365: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1366: RAISE FND_API.G_EXC_ERROR;
1367: END IF;
1368:
1369: END IF; --l_site_use_id
1362: x_msg_count => x_msg_count,
1363: x_msg_data => x_msg_data);
1364:
1365: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1366: RAISE FND_API.G_EXC_ERROR;
1367: END IF;
1368:
1369: END IF; --l_site_use_id
1370: END LOOP; --cust_account_roles
1382: END IF;
1383:
1384: EXCEPTION
1385:
1386: WHEN fnd_api.g_exc_error THEN
1387: x_return_status := fnd_api.g_ret_sts_error;
1388:
1389: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1390: p_count => x_msg_count,
1383:
1384: EXCEPTION
1385:
1386: WHEN fnd_api.g_exc_error THEN
1387: x_return_status := fnd_api.g_ret_sts_error;
1388:
1389: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1390: p_count => x_msg_count,
1391: p_data => x_msg_data);
1385:
1386: WHEN fnd_api.g_exc_error THEN
1387: x_return_status := fnd_api.g_ret_sts_error;
1388:
1389: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1390: p_count => x_msg_count,
1391: p_data => x_msg_data);
1392:
1393: -- Debug info.
1401: hz_utility_v2pub.debug(p_message=>'get_account_merge_event_data(-)',
1402: p_prefix=>l_debug_prefix,
1403: p_msg_level=>fnd_log.level_procedure);
1404: END IF;
1405: WHEN fnd_api.g_exc_unexpected_error THEN
1406: x_return_status := fnd_api.g_ret_sts_unexp_error;
1407:
1408: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1409: p_count => x_msg_count,
1402: p_prefix=>l_debug_prefix,
1403: p_msg_level=>fnd_log.level_procedure);
1404: END IF;
1405: WHEN fnd_api.g_exc_unexpected_error THEN
1406: x_return_status := fnd_api.g_ret_sts_unexp_error;
1407:
1408: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1409: p_count => x_msg_count,
1410: p_data => x_msg_data);
1404: END IF;
1405: WHEN fnd_api.g_exc_unexpected_error THEN
1406: x_return_status := fnd_api.g_ret_sts_unexp_error;
1407:
1408: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1409: p_count => x_msg_count,
1410: p_data => x_msg_data);
1411:
1412: -- Debug info.
1421: p_prefix=>l_debug_prefix,
1422: p_msg_level=>fnd_log.level_procedure);
1423: END IF;
1424: WHEN OTHERS THEN
1425: x_return_status := fnd_api.g_ret_sts_unexp_error;
1426:
1427: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1428: fnd_message.set_token('ERROR' ,SQLERRM);
1429: fnd_msg_pub.add;
1427: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1428: fnd_message.set_token('ERROR' ,SQLERRM);
1429: fnd_msg_pub.add;
1430:
1431: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1432: p_count => x_msg_count,
1433: p_data => x_msg_data);
1434:
1435: -- Debug info.
1471: --
1472: -- 25-AUG-2005 S V Sowjanya Created.
1473:
1474: PROCEDURE get_party_merge_event_data(
1475: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1476: p_batch_id IN NUMBER,
1477: p_merge_to_party_id IN NUMBER,
1478: p_get_merge_detail_flag IN VARCHAR2 := 'N', --5093366
1479: x_party_merge_obj OUT NOCOPY HZ_PARTY_MERGE_OBJ,
1741: and md.entity_name like 'HZ%';
1742:
1743: BEGIN
1744: -- initialize API return status to success.
1745: x_return_status := FND_API.G_RET_STS_SUCCESS;
1746:
1747: -- Initialize message list if p_init_msg_list is set to TRUE
1748: IF FND_API.to_Boolean(p_init_msg_list) THEN
1749: FND_MSG_PUB.initialize;
1744: -- initialize API return status to success.
1745: x_return_status := FND_API.G_RET_STS_SUCCESS;
1746:
1747: -- Initialize message list if p_init_msg_list is set to TRUE
1748: IF FND_API.to_Boolean(p_init_msg_list) THEN
1749: FND_MSG_PUB.initialize;
1750: END IF;
1751:
1752: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1761: FND_MESSAGE.SET_TOKEN('VALUE1',p_get_merge_detail_flag);
1762: FND_MESSAGE.SET_TOKEN('COLUMN2','getMergeDetailFlag');
1763: FND_MESSAGE.SET_TOKEN('VALUE2','Y/N');
1764: FND_MSG_PUB.ADD();
1765: RAISE fnd_api.g_exc_error;
1766: END IF;
1767:
1768: BEGIN
1769: SELECT batch_id, batch_status INTO l_batch_id, l_merge_status
1772: EXCEPTION
1773: WHEN NO_DATA_FOUND THEN
1774: FND_MESSAGE.SET_NAME('AR','HZ_INVALID_DUP_BATCH');
1775: FND_MSG_PUB.ADD();
1776: RAISE fnd_api.g_exc_error;
1777: END;
1778: IF p_merge_to_party_id IS NOT NULL THEN
1779: BEGIN
1780: SELECT to_party_id INTO l_merge_to_party_id
1785: EXCEPTION
1786: WHEN NO_DATA_FOUND THEN
1787: FND_MESSAGE.SET_NAME('AR','HZ_API_INVALID_TCA_ID');
1788: FND_MSG_PUB.ADD();
1789: RAISE fnd_api.g_exc_error;
1790: END;
1791: ELSE
1792: SELECT to_party_id INTO l_merge_to_party_id
1793: FROM hz_merge_parties
1798:
1799: IF l_merge_status <> 'COMPLETE' THEN
1800: FND_MESSAGE.SET_NAME('AR','HZ_CANNOT_SUBMIT_PROCESSING');
1801: FND_MSG_PUB.ADD();
1802: RAISE fnd_api.g_exc_error;
1803: END IF;
1804:
1805: open party_merge_details;
1806: fetch party_merge_details into x_party_merge_obj;
1813: END IF;
1814:
1815: -- SSM for party obj
1816: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1817: (p_init_msg_list => fnd_api.g_false,
1818: p_owner_table_id => x_party_merge_obj.merge_to_party_obj.party_id,
1819: p_owner_table_name => 'HZ_PARTIES',
1820: p_action_type => NULL,
1821: x_orig_sys_ref_objs => x_party_merge_obj.merge_to_party_obj.orig_sys_objs,
1822: x_return_status => x_return_status,
1823: x_msg_count => x_msg_count,
1824: x_msg_data => x_msg_data);
1825:
1826: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: FOR I in 1..x_party_merge_obj.merge_from_party_objs.count LOOP
1823: x_msg_count => x_msg_count,
1824: x_msg_data => x_msg_data);
1825:
1826: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: FOR I in 1..x_party_merge_obj.merge_from_party_objs.count LOOP
1831:
1829:
1830: FOR I in 1..x_party_merge_obj.merge_from_party_objs.count LOOP
1831:
1832: HZ_EXTRACT_ORIG_SYS_REF_BO_PVT.get_orig_sys_ref_bos
1833: (p_init_msg_list => fnd_api.g_false,
1834: p_owner_table_id => x_party_merge_obj.merge_from_party_objs(I).party_id,
1835: p_owner_table_name => 'HZ_PARTIES',
1836: p_action_type => NULL,
1837: x_orig_sys_ref_objs => x_party_merge_obj.merge_from_party_objs(I).orig_sys_objs,
1838: x_return_status => x_return_status,
1839: x_msg_count => x_msg_count,
1840: x_msg_data => x_msg_data);
1841:
1842: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1843: RAISE FND_API.G_EXC_ERROR;
1844: END IF;
1845: END LOOP;
1846:
1839: x_msg_count => x_msg_count,
1840: x_msg_data => x_msg_data);
1841:
1842: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1843: RAISE FND_API.G_EXC_ERROR;
1844: END IF;
1845: END LOOP;
1846:
1847:
1852: p_msg_level=>fnd_log.level_procedure);
1853: END IF;
1854: EXCEPTION
1855:
1856: WHEN fnd_api.g_exc_error THEN
1857: x_return_status := fnd_api.g_ret_sts_error;
1858:
1859: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1860: p_count => x_msg_count,
1853: END IF;
1854: EXCEPTION
1855:
1856: WHEN fnd_api.g_exc_error THEN
1857: x_return_status := fnd_api.g_ret_sts_error;
1858:
1859: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1860: p_count => x_msg_count,
1861: p_data => x_msg_data);
1855:
1856: WHEN fnd_api.g_exc_error THEN
1857: x_return_status := fnd_api.g_ret_sts_error;
1858:
1859: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1860: p_count => x_msg_count,
1861: p_data => x_msg_data);
1862:
1863: -- Debug info.
1871: hz_utility_v2pub.debug(p_message=>'get_party_merge_event_data(-)',
1872: p_prefix=>l_debug_prefix,
1873: p_msg_level=>fnd_log.level_procedure);
1874: END IF;
1875: WHEN fnd_api.g_exc_unexpected_error THEN
1876: x_return_status := fnd_api.g_ret_sts_unexp_error;
1877:
1878: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1879: p_count => x_msg_count,
1872: p_prefix=>l_debug_prefix,
1873: p_msg_level=>fnd_log.level_procedure);
1874: END IF;
1875: WHEN fnd_api.g_exc_unexpected_error THEN
1876: x_return_status := fnd_api.g_ret_sts_unexp_error;
1877:
1878: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1879: p_count => x_msg_count,
1880: p_data => x_msg_data);
1874: END IF;
1875: WHEN fnd_api.g_exc_unexpected_error THEN
1876: x_return_status := fnd_api.g_ret_sts_unexp_error;
1877:
1878: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1879: p_count => x_msg_count,
1880: p_data => x_msg_data);
1881:
1882: -- Debug info.
1891: p_prefix=>l_debug_prefix,
1892: p_msg_level=>fnd_log.level_procedure);
1893: END IF;
1894: WHEN OTHERS THEN
1895: x_return_status := fnd_api.g_ret_sts_unexp_error;
1896:
1897: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1898: fnd_message.set_token('ERROR' ,SQLERRM);
1899: fnd_msg_pub.add;
1897: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1898: fnd_message.set_token('ERROR' ,SQLERRM);
1899: fnd_msg_pub.add;
1900:
1901: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1902: p_count => x_msg_count,
1903: p_data => x_msg_data);
1904:
1905: -- Debug info.