98:
99: begin
100: --GET USER ID AND SYSDATE
101: l_date := sysdate;
102: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
103: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
104: -------------------------------------
105: l_error_handle := NVL(FND_PROFILE.Value('JTF_RS_PARTY_MRG_FRMID_TOID_ER'),'ERROR');
106: -------------------------------------
99: begin
100: --GET USER ID AND SYSDATE
101: l_date := sysdate;
102: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
103: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
104: -------------------------------------
105: l_error_handle := NVL(FND_PROFILE.Value('JTF_RS_PARTY_MRG_FRMID_TOID_ER'),'ERROR');
106: -------------------------------------
107: savepoint party_merge_sp;
101: l_date := sysdate;
102: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
103: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
104: -------------------------------------
105: l_error_handle := NVL(FND_PROFILE.Value('JTF_RS_PARTY_MRG_FRMID_TOID_ER'),'ERROR');
106: -------------------------------------
107: savepoint party_merge_sp;
108:
109: -----Debug Messages--------------------
520:
521: begin
522: --GET USER ID AND SYSDATE
523: l_date := sysdate;
524: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
525: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
526: -------------------------------------
527: l_error_handle := NVL(FND_PROFILE.Value('JTF_RS_PARTY_MRG_FRMID_TOID_ER'),'ERROR');
528: -------------------------------------
521: begin
522: --GET USER ID AND SYSDATE
523: l_date := sysdate;
524: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
525: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
526: -------------------------------------
527: l_error_handle := NVL(FND_PROFILE.Value('JTF_RS_PARTY_MRG_FRMID_TOID_ER'),'ERROR');
528: -------------------------------------
529:
523: l_date := sysdate;
524: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
525: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
526: -------------------------------------
527: l_error_handle := NVL(FND_PROFILE.Value('JTF_RS_PARTY_MRG_FRMID_TOID_ER'),'ERROR');
528: -------------------------------------
529:
530: savepoint site_merge_sp;
531:
736: x_return_status := fnd_api.g_ret_sts_success;
737:
738: --GET USER ID AND SYSDATE
739: l_date := sysdate;
740: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
741: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
742:
743: -----Debug Messages--------------------
744: FND_FILE.put_line(fnd_file.log, ' ------------------Resource Contact Merge-----------------');
737:
738: --GET USER ID AND SYSDATE
739: l_date := sysdate;
740: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
741: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
742:
743: -----Debug Messages--------------------
744: FND_FILE.put_line(fnd_file.log, ' ------------------Resource Contact Merge-----------------');
745: FND_FILE.put_line(fnd_file.log, ' Begin JTF_RS_PARTY_MERGE_PUB.resource_party_cont_merge(+) ');
1211: -----End Debug Messages----------------
1212:
1213: --GET USER ID AND SYSDATE
1214: l_date := sysdate;
1215: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
1216: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
1217:
1218: if (p_entity_name <> 'JTF_RS_RESOURCE_EXTNS')
1219: or (p_parent_entity_name <> 'HZ_PARTY_SITES')
1212:
1213: --GET USER ID AND SYSDATE
1214: l_date := sysdate;
1215: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
1216: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
1217:
1218: if (p_entity_name <> 'JTF_RS_RESOURCE_EXTNS')
1219: or (p_parent_entity_name <> 'HZ_PARTY_SITES')
1220: then