283: FROM hz_party_sites
284: WHERE party_site_id = p_party_site_id;
285:
286: l_return_status VARCHAR2(2);
287: l_module fnd_log_messages.module%TYPE;
288: l_invalid_param VARCHAR2(30);
289:
290: CURSOR l_party_site_cur(p_party_site_id NUMBER) IS
291: SELECT party_id
299: BEGIN
300:
301: l_module := g_log_module || 'PARTY_MERGE_ROUTINE';
302:
303: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
304: fnd_log.string(fnd_log.level_procedure, l_module, 'p_parent_entity_name ' || p_parent_entity_name);
305:
306: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
307: fnd_log.string(fnd_log.level_procedure, l_module, 'p_entity_name ' || p_entity_name);
300:
301: l_module := g_log_module || 'PARTY_MERGE_ROUTINE';
302:
303: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
304: fnd_log.string(fnd_log.level_procedure, l_module, 'p_parent_entity_name ' || p_parent_entity_name);
305:
306: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
307: fnd_log.string(fnd_log.level_procedure, l_module, 'p_entity_name ' || p_entity_name);
308: END IF;
302:
303: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
304: fnd_log.string(fnd_log.level_procedure, l_module, 'p_parent_entity_name ' || p_parent_entity_name);
305:
306: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
307: fnd_log.string(fnd_log.level_procedure, l_module, 'p_entity_name ' || p_entity_name);
308: END IF;
309:
310:
303: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
304: fnd_log.string(fnd_log.level_procedure, l_module, 'p_parent_entity_name ' || p_parent_entity_name);
305:
306: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
307: fnd_log.string(fnd_log.level_procedure, l_module, 'p_entity_name ' || p_entity_name);
308: END IF;
309:
310:
311: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
307: fnd_log.string(fnd_log.level_procedure, l_module, 'p_entity_name ' || p_entity_name);
308: END IF;
309:
310:
311: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
312: fnd_log.string(fnd_log.level_procedure, l_module, 'p_from_fk_id ' || p_from_fk_id);
313: END IF;
314:
315:
308: END IF;
309:
310:
311: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
312: fnd_log.string(fnd_log.level_procedure, l_module, 'p_from_fk_id ' || p_from_fk_id);
313: END IF;
314:
315:
316: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
312: fnd_log.string(fnd_log.level_procedure, l_module, 'p_from_fk_id ' || p_from_fk_id);
313: END IF;
314:
315:
316: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
317: fnd_log.string(fnd_log.level_procedure, l_module, 'p_to_fk_id ' || p_to_fk_id);
318: END IF;
319:
320: END IF;
313: END IF;
314:
315:
316: IF ( fnd_log.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
317: fnd_log.string(fnd_log.level_procedure, l_module, 'p_to_fk_id ' || p_to_fk_id);
318: END IF;
319:
320: END IF;
321:
416: CLOSE l_party_site_cur;
417:
418: END IF;
419:
420: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
421: fnd_log.string(fnd_log.level_statement, l_module, 'l_from_party_id ' || l_from_party_id);
422:
423: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
424: fnd_log.string(fnd_log.level_statement, l_module, 'l_to_party_id ' || l_to_party_id);
417:
418: END IF;
419:
420: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
421: fnd_log.string(fnd_log.level_statement, l_module, 'l_from_party_id ' || l_from_party_id);
422:
423: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
424: fnd_log.string(fnd_log.level_statement, l_module, 'l_to_party_id ' || l_to_party_id);
425: END IF;
419:
420: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
421: fnd_log.string(fnd_log.level_statement, l_module, 'l_from_party_id ' || l_from_party_id);
422:
423: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
424: fnd_log.string(fnd_log.level_statement, l_module, 'l_to_party_id ' || l_to_party_id);
425: END IF;
426:
427: END IF;
420: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
421: fnd_log.string(fnd_log.level_statement, l_module, 'l_from_party_id ' || l_from_party_id);
422:
423: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
424: fnd_log.string(fnd_log.level_statement, l_module, 'l_to_party_id ' || l_to_party_id);
425: END IF;
426:
427: END IF;
428:
435: END IF;
436:
437: update_supplier_mapping(p_from_fk_id, p_to_fk_id, l_return_status);
438:
439: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
440: fnd_log.string(fnd_log.level_statement, l_module, 'return_status for from party ' || l_return_status);
441: END IF;
442:
443: IF l_return_status = fnd_api.g_ret_sts_success THEN
436:
437: update_supplier_mapping(p_from_fk_id, p_to_fk_id, l_return_status);
438:
439: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
440: fnd_log.string(fnd_log.level_statement, l_module, 'return_status for from party ' || l_return_status);
441: END IF;
442:
443: IF l_return_status = fnd_api.g_ret_sts_success THEN
444: check_party_for_veto(l_to_party_id, 'N', l_return_status);
441: END IF;
442:
443: IF l_return_status = fnd_api.g_ret_sts_success THEN
444: check_party_for_veto(l_to_party_id, 'N', l_return_status);
445: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
446: fnd_log.string(fnd_log.level_statement, l_module, 'return_status for from party ' || l_return_status);
447: END IF;
448: END IF;
449:
442:
443: IF l_return_status = fnd_api.g_ret_sts_success THEN
444: check_party_for_veto(l_to_party_id, 'N', l_return_status);
445: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
446: fnd_log.string(fnd_log.level_statement, l_module, 'return_status for from party ' || l_return_status);
447: END IF;
448: END IF;
449:
450: x_return_status := l_return_status;