137: --end npalepu
138:
139: BEGIN
140: --
141: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY');
142:
143: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
144: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
139: BEGIN
140: --
141: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY');
142:
143: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
144: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
140: --
141: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY');
142:
143: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
144: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
148: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
141: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY');
142:
143: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
144: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
148: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
149: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
142:
143: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
144: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
148: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
149: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
150: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
143: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
144: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
148: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
149: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
150: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
151: --
144: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
148: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
149: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
150: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
151: --
152: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY()+');
145: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
148: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
149: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
150: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
151: --
152: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY()+');
153:
146: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
147: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
148: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
149: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
150: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
151: --
152: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CPL_MERGE_PARTY()+');
153:
154: x_return_status := FND_API.G_RET_STS_SUCCESS;
159: l_object_user_code := c_party;
160: end if;
161: --
162:
163: fnd_file.put_line(fnd_file.log, 'l_object_user_code : '||l_object_user_code);
164:
165:
166: --
167: select merge_reason_code
196: begin
197:
198: arp_message.set_name('AR','AR_UPDATING_TABLE');
199: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES',FALSE);
200: fnd_file.put_line(fnd_file.log, 'Updating Table okc_k_party_roles_b');
201: --
202: --
203: -- Fix for bug 4105272 Insert into okc_k_vers_numbers_h
204: INSERT INTO OKC_K_VERS_NUMBERS_H(
249:
250: --npalepu added on 10-feb-2006 for bug # 5005475
251: l_count := sql%rowcount;
252:
253: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
254: arp_message.set_name('AR','AR_ROWS_UPDATED');
255: arp_message.set_token('NUM_ROWS',to_char(l_count));
256:
257: OPEN l_get_cpl_ids_csr;
261: -- nechatur for bug#5378426 added on 9/7/06
262: EXIT WHEN l_from_cpl_id.COUNT <= 0 ;
263: -- end nechatur
264:
265: fnd_file.put_line(fnd_file.log, 'Updating Table okc_contacts');
266:
267: FORALL i IN l_from_cpl_id.FIRST .. l_from_cpl_id.LAST
268: UPDATE okc_contacts cntc
269: SET cntc.cpl_id = l_to_cpl_id(i)
273: ,cntc.last_update_login = fnd_global.conc_login_id
274: WHERE cntc.cpl_id = l_from_cpl_id(i);
275:
276: l_count := sql%rowcount;
277: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
278: arp_message.set_name('AR','AR_ROWS_UPDATED');
279: arp_message.set_token('NUM_ROWS',to_char(l_count));
280:
281: fnd_file.put_line(fnd_file.log, 'Deleting Table OKC_K_PARTY_ROLES_TL');
277: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
278: arp_message.set_name('AR','AR_ROWS_UPDATED');
279: arp_message.set_token('NUM_ROWS',to_char(l_count));
280:
281: fnd_file.put_line(fnd_file.log, 'Deleting Table OKC_K_PARTY_ROLES_TL');
282: -- Delete party_roles_tl table to handle related party merge Bug # 4529376
283:
284: FORALL i IN l_from_cpl_id.FIRST .. l_from_cpl_id.LAST
285: DELETE from okc_k_party_roles_tl rtl
285: DELETE from okc_k_party_roles_tl rtl
286: WHERE rtl.id = l_from_cpl_id(i);
287:
288: l_count := sql%rowcount;
289: fnd_file.put_line(fnd_file.log, 'No of Rows Deleted : '||l_count);
290:
291: fnd_file.put_line(fnd_file.log, 'Deleting Table OKC_K_PARTY_ROLES');
292: -- Delete party_roles table to handle related party merge Bug # 4529376
293:
287:
288: l_count := sql%rowcount;
289: fnd_file.put_line(fnd_file.log, 'No of Rows Deleted : '||l_count);
290:
291: fnd_file.put_line(fnd_file.log, 'Deleting Table OKC_K_PARTY_ROLES');
292: -- Delete party_roles table to handle related party merge Bug # 4529376
293:
294: FORALL i IN l_from_cpl_id.FIRST .. l_from_cpl_id.LAST
295: DELETE FROM okc_k_party_roles_B role1
295: DELETE FROM okc_k_party_roles_B role1
296: WHERE role1.id = l_from_cpl_id(i);
297:
298: l_count := sql%rowcount;
299: fnd_file.put_line(fnd_file.log, 'No of Rows Deleted : '||l_count);
300:
301: --nechatur added on 9/7/2006 for bug # 5378426
302: l_from_cpl_id.DELETE;
303: l_to_cpl_id.DELETE;
309: CLOSE l_get_cpl_ids_csr;
310: --end npalepu
311: --
312: --
313: fnd_file.put_line(fnd_file.log, 'Updating Table okc_k_party_roles_b');
314: UPDATE okc_k_party_roles_b kpr
315: SET kpr.object1_id1 = p_to_fk_id
316: ,kpr.object_version_number = kpr.object_version_number + 1
317: ,kpr.last_update_date = SYSDATE
324: WHERE ojt.object_code = oue.object_code
325: AND oue.object_user_code = l_object_user_code) ;
326:
327: l_count := sql%rowcount;
328: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
329: --
330: -- Bug 2949149 calling OKS procedure OKS_UPDATE_CONTRACT to update the short description
331: --
332: fnd_file.put_line(fnd_file.log, 'Before call to OKC_OKS_PUB.OKS_UPDATE_CONTRACT ');
328: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
329: --
330: -- Bug 2949149 calling OKS procedure OKS_UPDATE_CONTRACT to update the short description
331: --
332: fnd_file.put_line(fnd_file.log, 'Before call to OKC_OKS_PUB.OKS_UPDATE_CONTRACT ');
333: OKC_OKS_PUB.OKS_UPDATE_CONTRACT(p_from_id => p_from_fk_id,
334: p_to_id => p_to_fk_id,
335: x_return_status => l_return_status);
336:
355: -- Party Merge Dictionary
356: --
357: l_count := sql%rowcount;
358:
359: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
360: arp_message.set_name('AR','AR_ROWS_UPDATED');
361: arp_message.set_token('NUM_ROWS',to_char(l_count));
362: --
363: OKS_CODE_HOOK.Update_Party_Merge(p_entity_name =>p_entity_name
376:
377: exception
378: when OKC_API.G_EXCEPTION_ERROR THEN -- Bug 2949149
379: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
380: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
381: x_return_status := FND_API.G_RET_STS_ERROR;
382: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN -- Bug 2949149
383: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
384: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
380: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
381: x_return_status := FND_API.G_RET_STS_ERROR;
382: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN -- Bug 2949149
383: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
384: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
385: x_return_status := FND_API.G_RET_STS_ERROR;
386: when others then
387: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
388: --
385: x_return_status := FND_API.G_RET_STS_ERROR;
386: when others then
387: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
388: --
389: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
390: 'OKC_K_PARTY_ROLES = ' ||l_object_user_code||'-'|| p_from_id));
391: --
392: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
393: x_return_status := FND_API.G_RET_STS_ERROR;
388: --
389: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
390: 'OKC_K_PARTY_ROLES = ' ||l_object_user_code||'-'|| p_from_id));
391: --
392: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
393: x_return_status := FND_API.G_RET_STS_ERROR;
394: end;
395: end if;
396: END OKC_CPL_MERGE_PARTY;
416: --
417: --
418: BEGIN
419: --
420: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1');
421:
422: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
423: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
418: BEGIN
419: --
420: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1');
421:
422: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
423: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
419: --
420: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1');
421:
422: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
423: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
427: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
420: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1');
421:
422: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
423: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
427: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
428: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
421:
422: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
423: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
427: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
428: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
429: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
422: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
423: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
427: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
428: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
429: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
430: --
423: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
427: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
428: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
429: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
430: --
431: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1()+');
424: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
427: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
428: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
429: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
430: --
431: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1()+');
432:
425: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
426: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
427: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
428: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
429: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
430: --
431: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID1()+');
432:
433: x_return_status := FND_API.G_RET_STS_SUCCESS;
439: elsif p_parent_entity_name = 'HZ_PARTY_SITES' then l_object_user_code := c_p_site;
440: end if;
441: --
442:
443: fnd_file.put_line(fnd_file.log, 'l_object_user_code : '||l_object_user_code);
444:
445:
446: --
447: select merge_reason_code
475: begin
476: -- Rules ID1
477: arp_message.set_name('AR','AR_UPDATING_TABLE');
478: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT1_ID1',FALSE);
479: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
480: --
481: UPDATE okc_rules_b rle
482: SET rle.object1_id1 = p_to_fk_id
483: ,rle.object_version_number = rle.object_version_number + 1
494: ;
495: --
496: l_count := sql%rowcount;
497:
498: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
499: arp_message.set_name('AR','AR_ROWS_UPDATED');
500: arp_message.set_token('NUM_ROWS',to_char(l_count));
501: --
502: --
503: exception
504: when others then
505: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
506: --
507: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
508: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
509: --
510: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
511: x_return_status := FND_API.G_RET_STS_ERROR;
506: --
507: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
508: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
509: --
510: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
511: x_return_status := FND_API.G_RET_STS_ERROR;
512: end;
513: end if;
514: END OKC_RUL_MERGE_PARTY_ID1;
535: --
536: --
537: BEGIN
538: --
539: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2');
540:
541: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
542: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
537: BEGIN
538: --
539: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2');
540:
541: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
542: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
538: --
539: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2');
540:
541: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
542: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
546: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
539: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2');
540:
541: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
542: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
546: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
547: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
540:
541: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
542: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
546: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
547: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
548: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
541: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
542: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
546: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
547: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
548: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
549: --
542: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
546: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
547: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
548: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
549: --
550: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2()+');
543: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
546: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
547: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
548: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
549: --
550: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2()+');
551:
544: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
545: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
546: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
547: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
548: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
549: --
550: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID2()+');
551:
552: x_return_status := FND_API.G_RET_STS_SUCCESS;
558: elsif p_parent_entity_name = 'HZ_PARTY_SITES' then l_object_user_code := c_p_site;
559: end if;
560: --
561:
562: fnd_file.put_line(fnd_file.log, 'l_object_user_code : '||l_object_user_code);
563:
564:
565: --
566: select merge_reason_code
594: begin
595: -- Rules ID1
596: arp_message.set_name('AR','AR_UPDATING_TABLE');
597: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT1_ID1',FALSE);
598: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
599: --
600: UPDATE okc_rules_b rle
601: SET rle.object2_id1 = p_to_fk_id
602: ,rle.object_version_number = rle.object_version_number + 1
613: ;
614: --
615: l_count := sql%rowcount;
616:
617: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
618: arp_message.set_name('AR','AR_ROWS_UPDATED');
619: arp_message.set_token('NUM_ROWS',to_char(l_count));
620: --
621: --
622: exception
623: when others then
624: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
625: --
626: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
627: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
628: --
629: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
630: x_return_status := FND_API.G_RET_STS_ERROR;
625: --
626: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
627: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
628: --
629: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
630: x_return_status := FND_API.G_RET_STS_ERROR;
631: end;
632: end if;
633: END OKC_RUL_MERGE_PARTY_ID2;
653: --
654: --
655: BEGIN
656: --
657: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3');
658:
659: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
660: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
655: BEGIN
656: --
657: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3');
658:
659: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
660: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
656: --
657: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3');
658:
659: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
660: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
664: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
657: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3');
658:
659: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
660: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
664: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
665: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
658:
659: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
660: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
664: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
665: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
666: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
659: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
660: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
664: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
665: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
666: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
667: --
660: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
664: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
665: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
666: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
667: --
668: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3()+');
661: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
664: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
665: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
666: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
667: --
668: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3()+');
669:
662: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
663: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
664: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
665: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
666: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
667: --
668: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_RUL_MERGE_PARTY_ID3()+');
669:
670: x_return_status := FND_API.G_RET_STS_SUCCESS;
675: elsif p_parent_entity_name = 'HZ_PARTY_SITES' then l_object_user_code := c_p_site;
676: end if;
677: --
678:
679: fnd_file.put_line(fnd_file.log, 'l_object_user_code : '||l_object_user_code);
680:
681:
682: --
683: select merge_reason_code
711: begin
712: -- Rules ID3
713: arp_message.set_name('AR','AR_UPDATING_TABLE');
714: arp_message.set_token('TABLE_NAME','OKC_RULES_B.OBJECT3_ID1',FALSE);
715: fnd_file.put_line(fnd_file.log, 'Updating Table okc_rules_b');
716: --
717: UPDATE okc_rules_b rle
718: SET rle.object3_id1 = p_to_fk_id
719: ,rle.object_version_number = rle.object_version_number + 1
731:
732: --
733: l_count := sql%rowcount;
734:
735: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
736: arp_message.set_name('AR','AR_ROWS_UPDATED');
737: arp_message.set_token('NUM_ROWS',to_char(l_count));
738: --
739: --
740: exception
741: when others then
742: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
743: --
744: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
745: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
746: --
747: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
748: x_return_status := FND_API.G_RET_STS_ERROR;
743: --
744: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
745: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
746: --
747: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: end;
750: end if;
751: END OKC_RUL_MERGE_PARTY_ID3;
770: l_object_user_code VARCHAR2(20);
771: --
772: BEGIN
773: --
774: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY');
775:
776: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
777: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
772: BEGIN
773: --
774: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY');
775:
776: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
777: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
773: --
774: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY');
775:
776: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
777: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
781: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
774: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY');
775:
776: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
777: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
781: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
782: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
775:
776: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
777: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
781: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
782: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
783: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
776: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
777: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
781: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
782: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
783: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
784: --
777: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
781: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
782: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
783: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
784: --
785: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY()+');
778: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
781: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
782: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
783: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
784: --
785: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY()+');
786:
779: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
780: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
781: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
782: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
783: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
784: --
785: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CIM_MERGE_PARTY()+');
786:
787: x_return_status := FND_API.G_RET_STS_SUCCESS;
793: elsif p_parent_entity_name = 'HZ_PARTY_SITES' then l_object_user_code := c_p_site;
794: end if;
795: --
796:
797: fnd_file.put_line(fnd_file.log, 'l_object_user_code : '||l_object_user_code);
798:
799:
800: --
801: select merge_reason_code
828: if p_from_fk_id <> p_to_fk_id then
829: begin
830: arp_message.set_name('AR','AR_UPDATING_TABLE');
831: arp_message.set_token('TABLE_NAME','OKC_K_ITEMS',FALSE);
832: fnd_file.put_line(fnd_file.log, 'Updating Table okc_k_items');
833: --
834: --
835: UPDATE okc_k_items cim
836: SET cim.object1_id1 = p_to_fk_id
848: --
849: --
850: l_count := sql%rowcount;
851:
852: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
853: arp_message.set_name('AR','AR_ROWS_UPDATED');
854: arp_message.set_token('NUM_ROWS',to_char(l_count));
855: --
856: exception
856: exception
857: when others then
858: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
859: --
860: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
861: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
862: --
863: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
864: x_return_status := FND_API.G_RET_STS_ERROR;
859: --
860: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
861: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
862: --
863: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
864: x_return_status := FND_API.G_RET_STS_ERROR;
865: end;
866: end if;
867: END OKC_CIM_MERGE_PARTY;
886: l_object_user_code VARCHAR2(20);
887: --
888: BEGIN
889: --
890: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY');
891:
892: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
893: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
888: BEGIN
889: --
890: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY');
891:
892: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
893: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
889: --
890: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY');
891:
892: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
893: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
897: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
890: fnd_file.put_line(fnd_file.log, 'OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY');
891:
892: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
893: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
897: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
898: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
891:
892: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
893: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
897: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
898: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
899: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
892: fnd_file.put_line(fnd_file.log, '****** PARAMETERS ****** ');
893: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
897: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
898: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
899: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
900: --
893: fnd_file.put_line(fnd_file.log, 'p_entity_name : '||p_entity_name);
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
897: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
898: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
899: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
900: --
901: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY()+');
894: fnd_file.put_line(fnd_file.log, 'p_from_id : '||p_from_id);
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
897: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
898: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
899: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
900: --
901: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY()+');
902:
895: fnd_file.put_line(fnd_file.log, 'p_from_fk_id : '||p_from_fk_id);
896: fnd_file.put_line(fnd_file.log, 'p_to_fk_id : '||p_to_fk_id);
897: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
898: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
899: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
900: --
901: arp_message.set_line('OKC_PARTY_MERGE_PKG.OKC_CTC_MERGE_PARTY()+');
902:
903: x_return_status := FND_API.G_RET_STS_SUCCESS;
907: if p_parent_entity_name = 'HZ_PARTIES' then l_object_user_code := c_contact;
908: end if;
909: --
910:
911: fnd_file.put_line(fnd_file.log, 'l_object_user_code : '||l_object_user_code);
912:
913:
914: --
915: select merge_reason_code
942: if p_from_fk_id <> p_to_fk_id then
943: begin
944: arp_message.set_name('AR','AR_UPDATING_TABLE');
945: arp_message.set_token('TABLE_NAME','OKC_CONTACTS',FALSE);
946: fnd_file.put_line(fnd_file.log, 'Updating Table okc_contacts');
947: --
948: --
949: UPDATE okc_contacts ctc
950: SET ctc.object1_id1 = p_to_fk_id
970: -- AND oue.object_user_code = l_object_user_code)
971: --
972: l_count := sql%rowcount;
973:
974: fnd_file.put_line(fnd_file.log, 'No of Rows Updated : '||l_count);
975: arp_message.set_name('AR','AR_ROWS_UPDATED');
976: arp_message.set_token('NUM_ROWS',to_char(l_count));
977: --
978: exception
978: exception
979: when others then
980: arp_message.set_line(g_proc_name || '.' || l_api_name || ': ' || sqlerrm);
981: --
982: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
983: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
984: --
985: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
986: x_return_status := FND_API.G_RET_STS_ERROR;
981: --
982: fnd_file.put_line(fnd_file.log,(g_proc_name || '.' || l_api_name ||
983: 'OKC_K_PARTY_ROLES for = ' ||l_object_user_code||'-'|| p_from_id));
984: --
985: fnd_file.put_line(fnd_file.log, g_proc_name||'.'||l_api_name||':'||sqlerrm);
986: x_return_status := FND_API.G_RET_STS_ERROR;
987: end;
988: end if;
989: END OKC_CTC_MERGE_PARTY;