34:
35: BEGIN
36: savepoint party_merge_sp;
37:
38: x_return_status := fnd_api.g_ret_sts_success;
39:
40: if (p_entity_name <> 'IGW_PERSON_DEGREES')
41: or (p_parent_entity_name <> 'HZ_PARTIES') then
42: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
42: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
43: fnd_message.set_token('P_ENTITY',p_entity_name);
44: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
45: FND_MSG_PUB.add;
46: RAISE fnd_api.g_exc_error;
47: end if;
48:
49: open from_party_cur(p_from_id); -- p_from_id is the value of person_degree_id
50: fetch from_party_cur into from_party_rec;
56: --reject merge because the person is already used
57: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
58: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
59: FND_MSG_PUB.add;
60: x_return_status := fnd_api.g_ret_sts_error;
61: RAISE fnd_api.g_exc_error;
62:
63: else
64: --update from record with new party id
57: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
58: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
59: FND_MSG_PUB.add;
60: x_return_status := fnd_api.g_ret_sts_error;
61: RAISE fnd_api.g_exc_error;
62:
63: else
64: --update from record with new party id
65: update igw_person_degrees
72: END IF; -- end of car_cur found check
73: close from_party_cur;
74:
75: EXCEPTION
76: WHEN fnd_api.g_exc_unexpected_error
77: THEN
78: x_return_status := fnd_api.g_ret_sts_unexp_error;
79: ROLLBACK TO PARTY_MERGE_SP;
80: WHEN fnd_api.g_exc_error
74:
75: EXCEPTION
76: WHEN fnd_api.g_exc_unexpected_error
77: THEN
78: x_return_status := fnd_api.g_ret_sts_unexp_error;
79: ROLLBACK TO PARTY_MERGE_SP;
80: WHEN fnd_api.g_exc_error
81: THEN
82: ROLLBACK TO PARTY_MERGE_SP;
76: WHEN fnd_api.g_exc_unexpected_error
77: THEN
78: x_return_status := fnd_api.g_ret_sts_unexp_error;
79: ROLLBACK TO PARTY_MERGE_SP;
80: WHEN fnd_api.g_exc_error
81: THEN
82: ROLLBACK TO PARTY_MERGE_SP;
83: x_return_status := fnd_api.g_ret_sts_error;
84: WHEN OTHERS
79: ROLLBACK TO PARTY_MERGE_SP;
80: WHEN fnd_api.g_exc_error
81: THEN
82: ROLLBACK TO PARTY_MERGE_SP;
83: x_return_status := fnd_api.g_ret_sts_error;
84: WHEN OTHERS
85: THEN
86: ROLLBACK TO PARTY_MERGE_SP;
87: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
86: ROLLBACK TO PARTY_MERGE_SP;
87: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
88: p_procedure_name => l_api_name,
89: p_error_text => SUBSTRB(SQLERRM,1,240));
90: x_return_status := fnd_api.g_ret_sts_unexp_error;
91:
92:
93: END person_degrees_party_merge;
94: ---------------------------------------------------------------
125:
126: BEGIN
127: savepoint party_merge_sp;
128:
129: x_return_status := fnd_api.g_ret_sts_success;
130:
131: if (p_entity_name <> 'IGW_PERSON_BIOSKETCH')
132: or (p_parent_entity_name <> 'HZ_PARTIES') then
133: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
133: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
134: fnd_message.set_token('P_ENTITY',p_entity_name);
135: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
136: FND_MSG_PUB.add;
137: RAISE fnd_api.g_exc_error;
138: end if;
139:
140: open from_party_cur(p_from_id);
141: fetch from_party_cur into from_party_rec;
147: -- reject merge because the person is already used
148: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
149: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
150: FND_MSG_PUB.add;
151: x_return_status := fnd_api.g_ret_sts_error;
152: RAISE fnd_api.g_exc_error;
153:
154: else
155: --update from record with new party id
148: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
149: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
150: FND_MSG_PUB.add;
151: x_return_status := fnd_api.g_ret_sts_error;
152: RAISE fnd_api.g_exc_error;
153:
154: else
155: --update from record with new party id
156: update igw_person_biosketch
163: END IF; -- end of car_cur found check
164: close from_party_cur;
165:
166: EXCEPTION
167: WHEN fnd_api.g_exc_unexpected_error
168: THEN
169: x_return_status := fnd_api.g_ret_sts_unexp_error;
170: ROLLBACK TO PARTY_MERGE_SP;
171: WHEN fnd_api.g_exc_error
165:
166: EXCEPTION
167: WHEN fnd_api.g_exc_unexpected_error
168: THEN
169: x_return_status := fnd_api.g_ret_sts_unexp_error;
170: ROLLBACK TO PARTY_MERGE_SP;
171: WHEN fnd_api.g_exc_error
172: THEN
173: ROLLBACK TO PARTY_MERGE_SP;
167: WHEN fnd_api.g_exc_unexpected_error
168: THEN
169: x_return_status := fnd_api.g_ret_sts_unexp_error;
170: ROLLBACK TO PARTY_MERGE_SP;
171: WHEN fnd_api.g_exc_error
172: THEN
173: ROLLBACK TO PARTY_MERGE_SP;
174: x_return_status := fnd_api.g_ret_sts_error;
175: WHEN OTHERS
170: ROLLBACK TO PARTY_MERGE_SP;
171: WHEN fnd_api.g_exc_error
172: THEN
173: ROLLBACK TO PARTY_MERGE_SP;
174: x_return_status := fnd_api.g_ret_sts_error;
175: WHEN OTHERS
176: THEN
177: ROLLBACK TO PARTY_MERGE_SP;
178: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
177: ROLLBACK TO PARTY_MERGE_SP;
178: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
179: p_procedure_name => l_api_name,
180: p_error_text => SUBSTRB(SQLERRM,1,240));
181: x_return_status := fnd_api.g_ret_sts_unexp_error;
182: END person_biosketch_party_merge;
183:
184: ----------------------------------------------------------
185:
215:
216: BEGIN
217: savepoint party_merge_sp;
218:
219: x_return_status := fnd_api.g_ret_sts_success;
220:
221: if (p_entity_name <> 'IGW_PROP_LOCATIONS')
222: or (p_parent_entity_name <> 'HZ_PARTIES') then
223: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
223: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
224: fnd_message.set_token('P_ENTITY',p_entity_name);
225: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
226: FND_MSG_PUB.add;
227: RAISE fnd_api.g_exc_error;
228: end if;
229:
230: open from_party_cur(p_from_id);
231: fetch from_party_cur into from_party_rec;
237: -- reject merge because the person is already used
238: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
239: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
240: FND_MSG_PUB.add;
241: x_return_status := fnd_api.g_ret_sts_error;
242: RAISE fnd_api.g_exc_error;
243:
244: else
245: --update from record with new party id
238: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
239: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
240: FND_MSG_PUB.add;
241: x_return_status := fnd_api.g_ret_sts_error;
242: RAISE fnd_api.g_exc_error;
243:
244: else
245: --update from record with new party id
246: update igw_prop_locations
253: END IF; -- end of car_cur found check
254: close from_party_cur;
255:
256: EXCEPTION
257: WHEN fnd_api.g_exc_unexpected_error
258: THEN
259: x_return_status := fnd_api.g_ret_sts_unexp_error;
260: ROLLBACK TO PARTY_MERGE_SP;
261: WHEN fnd_api.g_exc_error
255:
256: EXCEPTION
257: WHEN fnd_api.g_exc_unexpected_error
258: THEN
259: x_return_status := fnd_api.g_ret_sts_unexp_error;
260: ROLLBACK TO PARTY_MERGE_SP;
261: WHEN fnd_api.g_exc_error
262: THEN
263: ROLLBACK TO PARTY_MERGE_SP;
257: WHEN fnd_api.g_exc_unexpected_error
258: THEN
259: x_return_status := fnd_api.g_ret_sts_unexp_error;
260: ROLLBACK TO PARTY_MERGE_SP;
261: WHEN fnd_api.g_exc_error
262: THEN
263: ROLLBACK TO PARTY_MERGE_SP;
264: x_return_status := fnd_api.g_ret_sts_error;
265: WHEN OTHERS
260: ROLLBACK TO PARTY_MERGE_SP;
261: WHEN fnd_api.g_exc_error
262: THEN
263: ROLLBACK TO PARTY_MERGE_SP;
264: x_return_status := fnd_api.g_ret_sts_error;
265: WHEN OTHERS
266: THEN
267: ROLLBACK TO PARTY_MERGE_SP;
268: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
267: ROLLBACK TO PARTY_MERGE_SP;
268: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
269: p_procedure_name => l_api_name,
270: p_error_text => SUBSTRB(SQLERRM,1,240));
271: x_return_status := fnd_api.g_ret_sts_unexp_error;
272: END prop_location_party_merge;
273:
274: --------------------------------------------------------------------
275:
306: l_api_name varchar2(30) := 'PROP_PERSON_PARTY_MERGE';
307:
308: BEGIN
309: savepoint party_merge_sp;
310: x_return_status := fnd_api.g_ret_sts_success;
311:
312: if (p_entity_name <> 'IGW_PROP_PERSONS_TCA_V')
313: or (p_parent_entity_name <> 'HZ_PARTIES') then
314: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
314: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
315: fnd_message.set_token('P_ENTITY',p_entity_name);
316: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
317: FND_MSG_PUB.add;
318: RAISE fnd_api.g_exc_error;
319: end if;
320:
321: open from_party_cur(p_from_id);
322: fetch from_party_cur into from_party_rec;
328: -- reject merge because the person is already used
329: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
330: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
331: FND_MSG_PUB.add;
332: x_return_status := fnd_api.g_ret_sts_error;
333: RAISE fnd_api.g_exc_error;
334:
335: else
336: --update from record with new party id
329: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
330: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
331: FND_MSG_PUB.add;
332: x_return_status := fnd_api.g_ret_sts_error;
333: RAISE fnd_api.g_exc_error;
334:
335: else
336: --update from record with new party id
337: update igw_prop_persons
347: when dup_val_on_index then
348: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
349: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - ASSURANCES');
350: FND_MSG_PUB.add;
351: x_return_status := fnd_api.g_ret_sts_error;
352: RAISE fnd_api.g_exc_error;
353: end;
354:
355: begin
348: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
349: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - ASSURANCES');
350: FND_MSG_PUB.add;
351: x_return_status := fnd_api.g_ret_sts_error;
352: RAISE fnd_api.g_exc_error;
353: end;
354:
355: begin
356: update igw_prop_person_support
361: when dup_val_on_index then
362: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
363: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - OTHER SUPPORT');
364: FND_MSG_PUB.add;
365: x_return_status := fnd_api.g_ret_sts_error;
366: RAISE fnd_api.g_exc_error;
367: end;
368:
369: begin
362: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
363: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - OTHER SUPPORT');
364: FND_MSG_PUB.add;
365: x_return_status := fnd_api.g_ret_sts_error;
366: RAISE fnd_api.g_exc_error;
367: end;
368:
369: begin
370: update igw_budget_persons
375: when dup_val_on_index then
376: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
377: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - BUDGET PERSONS');
378: FND_MSG_PUB.add;
379: x_return_status := fnd_api.g_ret_sts_error;
380: RAISE fnd_api.g_exc_error;
381: end;
382:
383: begin
376: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
377: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - BUDGET PERSONS');
378: FND_MSG_PUB.add;
379: x_return_status := fnd_api.g_ret_sts_error;
380: RAISE fnd_api.g_exc_error;
381: end;
382:
383: begin
384: update igw_budget_personnel_details
389: when dup_val_on_index then
390: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
391: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - BUDGET PERSONNEL DETAILS');
392: FND_MSG_PUB.add;
393: x_return_status := fnd_api.g_ret_sts_error;
394: RAISE fnd_api.g_exc_error;
395: end;
396:
397: x_to_id := p_from_id;
390: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
391: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name||' - BUDGET PERSONNEL DETAILS');
392: FND_MSG_PUB.add;
393: x_return_status := fnd_api.g_ret_sts_error;
394: RAISE fnd_api.g_exc_error;
395: end;
396:
397: x_to_id := p_from_id;
398: end if;
398: end if;
399: close to_party_cur;
400: END IF; -- end of car_cur found check
401: EXCEPTION
402: WHEN fnd_api.g_exc_unexpected_error
403: THEN
404: x_return_status := fnd_api.g_ret_sts_unexp_error;
405: ROLLBACK TO PARTY_MERGE_SP;
406: WHEN fnd_api.g_exc_error
400: END IF; -- end of car_cur found check
401: EXCEPTION
402: WHEN fnd_api.g_exc_unexpected_error
403: THEN
404: x_return_status := fnd_api.g_ret_sts_unexp_error;
405: ROLLBACK TO PARTY_MERGE_SP;
406: WHEN fnd_api.g_exc_error
407: THEN
408: ROLLBACK TO PARTY_MERGE_SP;
402: WHEN fnd_api.g_exc_unexpected_error
403: THEN
404: x_return_status := fnd_api.g_ret_sts_unexp_error;
405: ROLLBACK TO PARTY_MERGE_SP;
406: WHEN fnd_api.g_exc_error
407: THEN
408: ROLLBACK TO PARTY_MERGE_SP;
409: x_return_status := fnd_api.g_ret_sts_error;
410: WHEN OTHERS
405: ROLLBACK TO PARTY_MERGE_SP;
406: WHEN fnd_api.g_exc_error
407: THEN
408: ROLLBACK TO PARTY_MERGE_SP;
409: x_return_status := fnd_api.g_ret_sts_error;
410: WHEN OTHERS
411: THEN
412: ROLLBACK TO PARTY_MERGE_SP;
413: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
412: ROLLBACK TO PARTY_MERGE_SP;
413: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
414: p_procedure_name => l_api_name,
415: p_error_text => SUBSTRB(SQLERRM,1,240));
416: x_return_status := fnd_api.g_ret_sts_unexp_error;
417: END prop_person_party_merge;
418:
419: -------------------------------------------------------------------------------------
420: PROCEDURE prop_org_party_merge(
451:
452: BEGIN
453: savepoint party_merge_sp;
454:
455: x_return_status := fnd_api.g_ret_sts_success;
456:
457: if (p_entity_name <> 'IGW_PROP_PERSONS_TCA_V')
458: or (p_parent_entity_name <> 'HZ_PARTIES') then
459: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
459: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
460: fnd_message.set_token('P_ENTITY',p_entity_name);
461: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
462: FND_MSG_PUB.add;
463: RAISE fnd_api.g_exc_error;
464: end if;
465:
466: --Repeat the same for org party
467: open from_party_cur(p_from_id);
475: -- reject merge because the person is already used
476: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
477: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
478: FND_MSG_PUB.add;
479: x_return_status := fnd_api.g_ret_sts_error;
480: RAISE fnd_api.g_exc_error;
481:
482: else */
483: --update from record with new party id
476: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
477: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
478: FND_MSG_PUB.add;
479: x_return_status := fnd_api.g_ret_sts_error;
480: RAISE fnd_api.g_exc_error;
481:
482: else */
483: --update from record with new party id
484: update igw_prop_persons
491: END IF; -- end of car_cur found check
492: close from_party_cur;
493:
494: EXCEPTION
495: WHEN fnd_api.g_exc_unexpected_error
496: THEN
497: x_return_status := fnd_api.g_ret_sts_unexp_error;
498: ROLLBACK TO PARTY_MERGE_SP;
499: WHEN fnd_api.g_exc_error
493:
494: EXCEPTION
495: WHEN fnd_api.g_exc_unexpected_error
496: THEN
497: x_return_status := fnd_api.g_ret_sts_unexp_error;
498: ROLLBACK TO PARTY_MERGE_SP;
499: WHEN fnd_api.g_exc_error
500: THEN
501: ROLLBACK TO PARTY_MERGE_SP;
495: WHEN fnd_api.g_exc_unexpected_error
496: THEN
497: x_return_status := fnd_api.g_ret_sts_unexp_error;
498: ROLLBACK TO PARTY_MERGE_SP;
499: WHEN fnd_api.g_exc_error
500: THEN
501: ROLLBACK TO PARTY_MERGE_SP;
502: x_return_status := fnd_api.g_ret_sts_error;
503: WHEN OTHERS
498: ROLLBACK TO PARTY_MERGE_SP;
499: WHEN fnd_api.g_exc_error
500: THEN
501: ROLLBACK TO PARTY_MERGE_SP;
502: x_return_status := fnd_api.g_ret_sts_error;
503: WHEN OTHERS
504: THEN
505: ROLLBACK TO PARTY_MERGE_SP;
506: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
505: ROLLBACK TO PARTY_MERGE_SP;
506: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
507: p_procedure_name => l_api_name,
508: p_error_text => SUBSTRB(SQLERRM,1,240));
509: x_return_status := fnd_api.g_ret_sts_unexp_error;
510: END prop_org_party_merge;
511:
512:
513:
543:
544: BEGIN
545: savepoint party_merge_sp;
546:
547: x_return_status := fnd_api.g_ret_sts_success;
548:
549: if (p_entity_name <> 'IGW_PROP_PERSON_SUPPORT')
550: or (p_parent_entity_name <> 'HZ_PARTIES') then
551: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
551: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
552: fnd_message.set_token('P_ENTITY',p_entity_name);
553: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
554: FND_MSG_PUB.add;
555: RAISE fnd_api.g_exc_error;
556: end if;
557:
558: --Repeat the same for org party
559: open from_party_cur(p_from_id);
567: -- reject merge because the person is already used
568: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
569: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
570: FND_MSG_PUB.add;
571: x_return_status := fnd_api.g_ret_sts_error;
572: RAISE fnd_api.g_exc_error;
573:
574: else */
575: --update from record with new party id
568: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
569: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
570: FND_MSG_PUB.add;
571: x_return_status := fnd_api.g_ret_sts_error;
572: RAISE fnd_api.g_exc_error;
573:
574: else */
575: --update from record with new party id
576: update igw_prop_person_support
584: END IF; -- end of car_cur found check
585: close from_party_cur;
586:
587: EXCEPTION
588: WHEN fnd_api.g_exc_unexpected_error
589: THEN
590: x_return_status := fnd_api.g_ret_sts_unexp_error;
591: ROLLBACK TO PARTY_MERGE_SP;
592: WHEN fnd_api.g_exc_error
586:
587: EXCEPTION
588: WHEN fnd_api.g_exc_unexpected_error
589: THEN
590: x_return_status := fnd_api.g_ret_sts_unexp_error;
591: ROLLBACK TO PARTY_MERGE_SP;
592: WHEN fnd_api.g_exc_error
593: THEN
594: ROLLBACK TO PARTY_MERGE_SP;
588: WHEN fnd_api.g_exc_unexpected_error
589: THEN
590: x_return_status := fnd_api.g_ret_sts_unexp_error;
591: ROLLBACK TO PARTY_MERGE_SP;
592: WHEN fnd_api.g_exc_error
593: THEN
594: ROLLBACK TO PARTY_MERGE_SP;
595: x_return_status := fnd_api.g_ret_sts_error;
596: WHEN OTHERS
591: ROLLBACK TO PARTY_MERGE_SP;
592: WHEN fnd_api.g_exc_error
593: THEN
594: ROLLBACK TO PARTY_MERGE_SP;
595: x_return_status := fnd_api.g_ret_sts_error;
596: WHEN OTHERS
597: THEN
598: ROLLBACK TO PARTY_MERGE_SP;
599: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
598: ROLLBACK TO PARTY_MERGE_SP;
599: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
600: p_procedure_name => l_api_name,
601: p_error_text => SUBSTRB(SQLERRM,1,240));
602: x_return_status := fnd_api.g_ret_sts_unexp_error;
603: END other_support_location_merge;
604:
605:
606: PROCEDURE other_support_pi_party_merge (
635:
636: BEGIN
637: savepoint party_merge_sp;
638:
639: x_return_status := fnd_api.g_ret_sts_success;
640:
641: if (p_entity_name <> 'IGW_PROP_PERSON_SUPPORT')
642: or (p_parent_entity_name <> 'HZ_PARTIES') then
643: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
643: fnd_message.set_name ('IGW', 'IGW_MRG_ENTITY_NAME_ERR');
644: fnd_message.set_token('P_ENTITY',p_entity_name);
645: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
646: FND_MSG_PUB.add;
647: RAISE fnd_api.g_exc_error;
648: end if;
649:
650: --Repeat the same for org party
651: open from_party_cur(p_from_id);
659: -- reject merge because the person is already used
660: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
661: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
662: FND_MSG_PUB.add;
663: x_return_status := fnd_api.g_ret_sts_error;
664: RAISE fnd_api.g_exc_error;
665:
666: else */
667: --update from record with new party id
660: fnd_message.set_name ('IGW', 'IGW_MRG_REJECT_MERGE');
661: fnd_message.set_token('API','IGW_PARTY_MERGE_PUB.'||l_api_name);
662: FND_MSG_PUB.add;
663: x_return_status := fnd_api.g_ret_sts_error;
664: RAISE fnd_api.g_exc_error;
665:
666: else */
667: --update from record with new party id
668: update igw_prop_person_support
676: END IF; -- end of car_cur found check
677: close from_party_cur;
678:
679: EXCEPTION
680: WHEN fnd_api.g_exc_unexpected_error
681: THEN
682: x_return_status := fnd_api.g_ret_sts_unexp_error;
683: ROLLBACK TO PARTY_MERGE_SP;
684: WHEN fnd_api.g_exc_error
678:
679: EXCEPTION
680: WHEN fnd_api.g_exc_unexpected_error
681: THEN
682: x_return_status := fnd_api.g_ret_sts_unexp_error;
683: ROLLBACK TO PARTY_MERGE_SP;
684: WHEN fnd_api.g_exc_error
685: THEN
686: ROLLBACK TO PARTY_MERGE_SP;
680: WHEN fnd_api.g_exc_unexpected_error
681: THEN
682: x_return_status := fnd_api.g_ret_sts_unexp_error;
683: ROLLBACK TO PARTY_MERGE_SP;
684: WHEN fnd_api.g_exc_error
685: THEN
686: ROLLBACK TO PARTY_MERGE_SP;
687: x_return_status := fnd_api.g_ret_sts_error;
688: WHEN OTHERS
683: ROLLBACK TO PARTY_MERGE_SP;
684: WHEN fnd_api.g_exc_error
685: THEN
686: ROLLBACK TO PARTY_MERGE_SP;
687: x_return_status := fnd_api.g_ret_sts_error;
688: WHEN OTHERS
689: THEN
690: ROLLBACK TO PARTY_MERGE_SP;
691: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
690: ROLLBACK TO PARTY_MERGE_SP;
691: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
692: p_procedure_name => l_api_name,
693: p_error_text => SUBSTRB(SQLERRM,1,240));
694: x_return_status := fnd_api.g_ret_sts_unexp_error;
695: END other_support_pi_party_merge;
696:
697:
698: