DBA Data[Home] [Help]

APPS.JTF_TERR_NA_MERGE_PUB dependencies on FND_FILE

Line 248: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE BEGIN: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));

244: l_to_party_na_exists := 'N';
245: l_acct_qual_maps_exist := 'N';
246: l_terr_group_id := -1;
247:
248: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE BEGIN: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
249: p_user_id := fnd_global.user_id;
250:
251: /* If from and To party sites are the same then do nothing.
252: We will not merge named accounts */

Line 261: FND_FILE.PUT_LINE(FND_FILE.LOG,' Entity error');

257:
258: x_return_status := fnd_api.g_ret_sts_success;
259:
260: IF ( p_entity_name <> 'JTF_TTY_NAMED_ACCTS' OR p_parent_entity_name <> 'HZ_PARTY_SITES' ) THEN
261: FND_FILE.PUT_LINE(FND_FILE.LOG,' Entity error');
262: fnd_message.set_name ('JTF', 'JTF_TERR_ENTITY_NAME_ERR');
263: fnd_message.set_token('P_ENTITY',p_entity_name);
264: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
265: FND_MSG_PUB.add;

Line 275: FND_FILE.PUT_LINE(FND_FILE.LOG,' Check if merged FROM party site is a named account');

271: -- dbms_output.put_line (' Inside Party Site Merge ');
272:
273: /* Check the from party is a Named Account */
274: BEGIN
275: FND_FILE.PUT_LINE(FND_FILE.LOG,' Check if merged FROM party site is a named account');
276:
277: select 'Y', named_account_id
278: into p_from_na_flag, p_from_na_id
279: from jtf_tty_named_accts

Line 293: FND_FILE.PUT_LINE(FND_FILE.LOG,' Check if merged to party is a named account');

289:
290: /* Check the To party is a Named Account */
291:
292: BEGIN
293: FND_FILE.PUT_LINE(FND_FILE.LOG,' Check if merged to party is a named account');
294: select 'Y', named_account_id
295: into p_to_na_flag, p_to_na_id
296: from jtf_tty_named_accts
297: where party_site_id = p_to_fk_id

Line 356: FND_FILE.PUT_LINE(FND_FILE.LOG,' S1: Merge From Named Account To Named Account (Same Territory Group)');

352:
353: /* S1: Merge From Named Party To Named Party (Same Territory Group). */
354: IF ( l_dist_terr_region = 'N' ) then
355:
356: FND_FILE.PUT_LINE(FND_FILE.LOG,' S1: Merge From Named Account To Named Account (Same Territory Group)');
357: FND_FILE.PUT_LINE(FND_FILE.LOG,' S1: territory group id : ' || to_char(l_terr_group_id));
358:
359: /* Delete records from JTF_TERR_... tables corresponding to the named account */
360: JTF_TTY_GEN_TERR_PVT.delete_TGA(

Line 357: FND_FILE.PUT_LINE(FND_FILE.LOG,' S1: territory group id : ' || to_char(l_terr_group_id));

353: /* S1: Merge From Named Party To Named Party (Same Territory Group). */
354: IF ( l_dist_terr_region = 'N' ) then
355:
356: FND_FILE.PUT_LINE(FND_FILE.LOG,' S1: Merge From Named Account To Named Account (Same Territory Group)');
357: FND_FILE.PUT_LINE(FND_FILE.LOG,' S1: territory group id : ' || to_char(l_terr_group_id));
358:
359: /* Delete records from JTF_TERR_... tables corresponding to the named account */
360: JTF_TTY_GEN_TERR_PVT.delete_TGA(
361: p_terr_grp_acct_id => tga_rec.terr_group_account_id,

Line 385: FND_FILE.PUT_LINE(FND_FILE.LOG,' S2: Merge From Named Account To Named Account (Distinct Territory Region) ');

381: ELSE
382:
383: /* S2: Merge From Named Party To Named Party (Distinct Territory Region). */
384:
385: FND_FILE.PUT_LINE(FND_FILE.LOG,' S2: Merge From Named Account To Named Account (Distinct Territory Region) ');
386: FND_FILE.PUT_LINE(FND_FILE.LOG,' S2: territory group id : ' || to_char(l_terr_group_id));
387:
388: /* point the non-overlapping FROM named account to the TO named account */
389: UPDATE jtf_tty_terr_grp_accts jtga

Line 386: FND_FILE.PUT_LINE(FND_FILE.LOG,' S2: territory group id : ' || to_char(l_terr_group_id));

382:
383: /* S2: Merge From Named Party To Named Party (Distinct Territory Region). */
384:
385: FND_FILE.PUT_LINE(FND_FILE.LOG,' S2: Merge From Named Account To Named Account (Distinct Territory Region) ');
386: FND_FILE.PUT_LINE(FND_FILE.LOG,' S2: territory group id : ' || to_char(l_terr_group_id));
387:
388: /* point the non-overlapping FROM named account to the TO named account */
389: UPDATE jtf_tty_terr_grp_accts jtga
390: SET jtga.named_account_id = p_to_na_id

Line 439: FND_FILE.PUT_LINE(FND_FILE.LOG,' S3: Merge From Non-Named Account To Named Account (No Impact)');

435:
436: /* S3: Merge From Non-Named Party To Named Party (No Impact). */
437:
438: IF (p_from_na_flag = 'N' and p_to_na_flag = 'Y') THEN
439: FND_FILE.PUT_LINE(FND_FILE.LOG,' S3: Merge From Non-Named Account To Named Account (No Impact)');
440: END IF;
441:
442: /* S4: Merge From Named Account To Non-Named Account (Non-Named Account becomes Named Account). */
443:

Line 446: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Merge From Named Account To Non-Named Account (Non-Named Account becomes Named)');

442: /* S4: Merge From Named Account To Non-Named Account (Non-Named Account becomes Named Account). */
443:
444: IF (p_from_na_flag = 'Y' and p_to_na_flag = 'N') THEN
445:
446: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Merge From Named Account To Non-Named Account (Non-Named Account becomes Named)');
447:
448: BEGIN
449: SELECT hzps.party_id
450: INTO l_to_party_id

Line 485: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );

481:
482:
483: IF ( l_to_party_na_exists = 'Y' ) then
484:
485: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );
486: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is either Registry Id or DUNS' );
487: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is a NA in the above TG' );
488:
489: /* Delete records from JTF_TERR_... tables corresponding to the from named account */

Line 486: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is either Registry Id or DUNS' );

482:
483: IF ( l_to_party_na_exists = 'Y' ) then
484:
485: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );
486: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is either Registry Id or DUNS' );
487: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is a NA in the above TG' );
488:
489: /* Delete records from JTF_TERR_... tables corresponding to the from named account */
490: JTF_TTY_GEN_TERR_PVT.delete_TGA(

Line 487: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is a NA in the above TG' );

483: IF ( l_to_party_na_exists = 'Y' ) then
484:
485: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );
486: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is either Registry Id or DUNS' );
487: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is a NA in the above TG' );
488:
489: /* Delete records from JTF_TERR_... tables corresponding to the from named account */
490: JTF_TTY_GEN_TERR_PVT.delete_TGA(
491: p_terr_grp_acct_id => tga_rec.terr_group_account_id,

Line 518: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );

514:
515: IF ( ( tga_rec.matching_rule_code NOT IN ( '3', '4' ))
516: OR ( l_to_party_na_exists = 'N' ) ) then
517:
518: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );
519: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is neither Registry Id nor DUNS' );
520: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is not a NA in the above TG' );
521:
522: l_to_na_exists := 'N';

Line 519: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is neither Registry Id nor DUNS' );

515: IF ( ( tga_rec.matching_rule_code NOT IN ( '3', '4' ))
516: OR ( l_to_party_na_exists = 'N' ) ) then
517:
518: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );
519: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is neither Registry Id nor DUNS' );
520: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is not a NA in the above TG' );
521:
522: l_to_na_exists := 'N';
523:

Line 520: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is not a NA in the above TG' );

516: OR ( l_to_party_na_exists = 'N' ) ) then
517:
518: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: territory group id :' || to_char(l_terr_group_id) );
519: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: Party Matching Rule of above TG is neither Registry Id nor DUNS' );
520: FND_FILE.PUT_LINE(FND_FILE.LOG,' S4: The Party corresponding to To Party Site is not a NA in the above TG' );
521:
522: l_to_na_exists := 'N';
523:
524: /*

Line 574: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE END: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));

570: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
571: RAISE fnd_api.g_exc_error;
572: END IF;
573:
574: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE END: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
575:
576: EXCEPTION
577:
578: WHEN fnd_api.g_exc_error THEN

Line 581: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE END: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));

577:
578: WHEN fnd_api.g_exc_error THEN
579: x_return_status := fnd_api.g_ret_sts_error;
580: -- ROLLBACK TO TERR_NA_PARTY_MERGE_PUB;
581: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE END: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
582: RAISE;
583:
584: WHEN OTHERS THEN
585: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');

Line 592: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE END: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));

588: fnd_message.set_token('P_API_NAME', l_api_name);
589: FND_MSG_PUB.add;
590: x_return_status := fnd_api.g_ret_sts_unexp_error;
591: -- ROLLBACK TO TERR_NA_PARTY_MERGE_PUB;
592: FND_FILE.PUT_LINE(FND_FILE.LOG,'JTY PARTY SITE MERGE END: '||to_char(sysdate,'DD-MON-YYYY HH24:MI'));
593: RAISE;
594: END party_site_merge;
595:
596: END JTF_TERR_NA_MERGE_PUB;