1: PACKAGE BODY IGW_PARTY_MERGE_PUB as
2: --$Header: igwtcapb.pls 115.5 2002/11/14 18:48:43 vmedikon noship $
3:
4: PROCEDURE person_degrees_party_merge(
5: p_entity_name IN VARCHAR2,
54: if(to_party_cur%found) then
55:
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:
145: if(to_party_cur%found) then
146:
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:
235: if(to_party_cur%found) then
236:
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:
326: if(to_party_cur%found) then
327:
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:
345: and party_id = from_party_rec.person_party_id;
346: exception
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;
359: and party_id = from_party_rec.person_party_id;
360: exception
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;
373: and party_id = from_party_rec.person_party_id;
374: exception
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;
387: and party_id = from_party_rec.person_party_id;
388: exception
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;
473: if(to_party_cur%found) then
474:
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:
565: if(to_party_cur%found) then
566:
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:
657: if(to_party_cur%found) then
658:
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: