37: AND NVL(mto.org_id,-99) = NVL(mfrom.org_id,-99);
38:
39: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.external_payer_merge';
40: BEGIN
41: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43:
44: IF (c_dupepayer%ISOPEN) THEN CLOSE c_dupepayer; END IF;
45:
53: OPEN c_dupepayer(p_from_id,p_to_fk_id);
54: FETCH c_dupepayer INTO l_dup_id;
55: CLOSE c_dupepayer;
56:
57: iby_debug_pub.add('duplicate payer:='|| l_dup_id,
58: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
59:
60: IF (l_dup_id IS NULL) THEN
61: UPDATE iby_external_payers_all
54: FETCH c_dupepayer INTO l_dup_id;
55: CLOSE c_dupepayer;
56:
57: iby_debug_pub.add('duplicate payer:='|| l_dup_id,
58: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
59:
60: IF (l_dup_id IS NULL) THEN
61: UPDATE iby_external_payers_all
62: SET party_id = p_to_fk_id,
69: p_to_id := l_dup_id;
70: END IF;
71: END IF;
72:
73: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
74:
75: EXCEPTION
76: WHEN OTHERS THEN
77: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
73: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
74:
75: EXCEPTION
76: WHEN OTHERS THEN
77: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
78: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
79:
80: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
81: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
74:
75: EXCEPTION
76: WHEN OTHERS THEN
77: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
78: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
79:
80: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
81: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
82: FND_MSG_PUB.ADD;
143: AND NVL(mto.org_id,-99) = NVL(mfrom.org_id,-99);
144:
145: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.external_payee_merge';
146: BEGIN
147: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
148: x_return_status := FND_API.G_RET_STS_SUCCESS;
149:
150: IF (c_dupeparty%ISOPEN) THEN CLOSE c_dupeparty; END IF;
151:
161: OPEN c_dupeparty(p_from_id,p_to_fk_id);
162: FETCH c_dupeparty INTO l_dup_id;
163: CLOSE c_dupeparty;
164:
165: iby_debug_pub.add('duplicate payee:='|| l_dup_id,
166: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
167:
168: UPDATE iby_external_payees_all
169: SET payee_party_id = DECODE(l_dup_id, NULL,p_to_fk_id, payee_party_id),
162: FETCH c_dupeparty INTO l_dup_id;
163: CLOSE c_dupeparty;
164:
165: iby_debug_pub.add('duplicate payee:='|| l_dup_id,
166: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
167:
168: UPDATE iby_external_payees_all
169: SET payee_party_id = DECODE(l_dup_id, NULL,p_to_fk_id, payee_party_id),
170: inactive_date = DECODE(l_dup_id, NULL,inactive_date, SYSDATE),
183: OPEN c_dupesite(p_from_id,p_to_fk_id);
184: FETCH c_dupesite INTO l_dup_id, l_new_party_id;
185: CLOSE c_dupesite;
186:
187: iby_debug_pub.add('duplicate payee:='|| l_dup_id,
188: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
189:
190: UPDATE iby_external_payees_all
191: SET party_site_id = DECODE(l_dup_id, NULL,p_to_fk_id, party_site_id),
184: FETCH c_dupesite INTO l_dup_id, l_new_party_id;
185: CLOSE c_dupesite;
186:
187: iby_debug_pub.add('duplicate payee:='|| l_dup_id,
188: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
189:
190: UPDATE iby_external_payees_all
191: SET party_site_id = DECODE(l_dup_id, NULL,p_to_fk_id, party_site_id),
192: --
206: p_to_id := l_dup_id;
207: END IF;
208: END IF;
209:
210: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
211:
212: EXCEPTION
213: WHEN OTHERS THEN
214: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
210: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
211:
212: EXCEPTION
213: WHEN OTHERS THEN
214: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
215: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
216:
217: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
218: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
211:
212: EXCEPTION
213: WHEN OTHERS THEN
214: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
215: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
216:
217: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
218: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
219: FND_MSG_PUB.ADD;
251: l_dup_id iby_creditcard.instrid%TYPE := NULL;
252:
253: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.credit_card_merge';
254: BEGIN
255: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
256: x_return_status := FND_API.G_RET_STS_SUCCESS;
257:
258: IF (c_dupecc%ISOPEN) THEN CLOSE c_dupecc; END IF;
259:
256: x_return_status := FND_API.G_RET_STS_SUCCESS;
257:
258: IF (c_dupecc%ISOPEN) THEN CLOSE c_dupecc; END IF;
259:
260: iby_debug_pub.add('batch id:='|| p_batch_id,
261: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
262:
263: SELECT merge_reason_code
264: INTO l_merge_reason
257:
258: IF (c_dupecc%ISOPEN) THEN CLOSE c_dupecc; END IF;
259:
260: iby_debug_pub.add('batch id:='|| p_batch_id,
261: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
262:
263: SELECT merge_reason_code
264: INTO l_merge_reason
265: FROM hz_merge_batch
273:
274: IF (p_parent_entity_name = 'HZ_PARTIES') THEN
275:
276: IF (l_merge_reason <> 'DUPLICATE') THEN
277: iby_debug_pub.add('cannot unify non-duplicate credit cards',
278: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
279:
280: fnd_message.set_name('IBY','IBY_PARTY_UNIFY_CC_VETO');
281: fnd_msg_pub.ADD;
274: IF (p_parent_entity_name = 'HZ_PARTIES') THEN
275:
276: IF (l_merge_reason <> 'DUPLICATE') THEN
277: iby_debug_pub.add('cannot unify non-duplicate credit cards',
278: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
279:
280: fnd_message.set_name('IBY','IBY_PARTY_UNIFY_CC_VETO');
281: fnd_msg_pub.ADD;
282: x_return_status := fnd_api.g_ret_sts_error;
286: OPEN c_dupecc(p_from_id,p_to_fk_id);
287: FETCH c_dupecc INTO l_dup_id;
288: CLOSE c_dupecc;
289:
290: iby_debug_pub.add('duplicate card:='|| l_dup_id,
291: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
292:
293: UPDATE iby_creditcard
294: SET card_owner_id = DECODE(l_dup_id, NULL,p_to_fk_id, card_owner_id),
287: FETCH c_dupecc INTO l_dup_id;
288: CLOSE c_dupecc;
289:
290: iby_debug_pub.add('duplicate card:='|| l_dup_id,
291: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
292:
293: UPDATE iby_creditcard
294: SET card_owner_id = DECODE(l_dup_id, NULL,p_to_fk_id, card_owner_id),
295: active_flag = DECODE(l_dup_id, NULL,active_flag, 'N'),
321: p_to_id := p_from_id;
322:
323: END IF;
324:
325: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
326:
327: EXCEPTION
328: WHEN OTHERS THEN
329: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
325: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
326:
327: EXCEPTION
328: WHEN OTHERS THEN
329: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
330: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
331:
332: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
333: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
326:
327: EXCEPTION
328: WHEN OTHERS THEN
329: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
330: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
331:
332: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
333: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
334: FND_MSG_PUB.ADD;
385: AND mto.instrument_id = mfrom.instrument_id;
386:
387: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.pmt_instrument_use_merge';
388: BEGIN
389: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
390: x_return_status := FND_API.G_RET_STS_SUCCESS;
391:
392: IF (c_dupinstr%ISOPEN) THEN CLOSE c_dupinstr; END IF;
393:
401: OPEN c_dupinstr(p_from_id,p_to_fk_id,'CREDITCARD');
402: FETCH c_dupinstr INTO l_dup_id;
403: CLOSE c_dupinstr;
404:
405: iby_debug_pub.add('duplicate instr use:='|| l_dup_id,
406: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
407:
408: UPDATE iby_pmt_instr_uses_all
409: SET instrument_id = DECODE(l_dup_id, NULL,p_to_id, instrument_id),
402: FETCH c_dupinstr INTO l_dup_id;
403: CLOSE c_dupinstr;
404:
405: iby_debug_pub.add('duplicate instr use:='|| l_dup_id,
406: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
407:
408: UPDATE iby_pmt_instr_uses_all
409: SET instrument_id = DECODE(l_dup_id, NULL,p_to_id, instrument_id),
410: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
437: OPEN c_dupinstr(p_from_id,p_to_fk_id,l_flow_type);
438: FETCH c_dupinstr INTO l_dup_id;
439: CLOSE c_dupinstr;
440:
441: iby_debug_pub.add('duplicate instr use:='|| l_dup_id,
442: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
443:
444: UPDATE iby_pmt_instr_uses_all
445: SET ext_pmt_party_id = DECODE(l_dup_id, NULL,p_to_id, ext_pmt_party_id),
438: FETCH c_dupinstr INTO l_dup_id;
439: CLOSE c_dupinstr;
440:
441: iby_debug_pub.add('duplicate instr use:='|| l_dup_id,
442: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
443:
444: UPDATE iby_pmt_instr_uses_all
445: SET ext_pmt_party_id = DECODE(l_dup_id, NULL,p_to_id, ext_pmt_party_id),
446: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
455: p_to_id := l_dup_id;
456: END IF;
457: END IF;
458:
459: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
460: EXCEPTION
461: WHEN OTHERS THEN
462: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
463: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
458:
459: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
460: EXCEPTION
461: WHEN OTHERS THEN
462: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
463: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
464:
465: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
466: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
459: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
460: EXCEPTION
461: WHEN OTHERS THEN
462: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
463: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
464:
465: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
466: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
467: FND_MSG_PUB.ADD;
498:
499:
500: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.bank_acct_owner_merge';
501: BEGIN
502: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
503: x_return_status := FND_API.G_RET_STS_SUCCESS;
504:
505: IF c_dupeba%ISOPEN THEN CLOSE c_dupeba; END IF;
506:
514: FROM hz_merge_batch
515: WHERE batch_id = p_batch_id;
516:
517: IF (l_merge_reason <> 'DUPLICATE') THEN
518: iby_debug_pub.add('cannot unify non-duplicate bank account owners',
519: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
520:
521: fnd_message.set_name('IBY','IBY_PARTY_UNIFY_BA_VETO');
522: fnd_msg_pub.ADD;
515: WHERE batch_id = p_batch_id;
516:
517: IF (l_merge_reason <> 'DUPLICATE') THEN
518: iby_debug_pub.add('cannot unify non-duplicate bank account owners',
519: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
520:
521: fnd_message.set_name('IBY','IBY_PARTY_UNIFY_BA_VETO');
522: fnd_msg_pub.ADD;
523: x_return_status := fnd_api.g_ret_sts_error;
526: OPEN c_dupeba(p_from_id,p_to_fk_id);
527: FETCH c_dupeba INTO l_dup_id;
528: CLOSE c_dupeba;
529:
530: iby_debug_pub.add('duplicate account owner:='|| l_dup_id,
531: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
532:
533: UPDATE iby_account_owners
534: SET account_owner_party_id = DECODE(l_dup_id, NULL,p_to_id, account_owner_party_id),
527: FETCH c_dupeba INTO l_dup_id;
528: CLOSE c_dupeba;
529:
530: iby_debug_pub.add('duplicate account owner:='|| l_dup_id,
531: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
532:
533: UPDATE iby_account_owners
534: SET account_owner_party_id = DECODE(l_dup_id, NULL,p_to_id, account_owner_party_id),
535: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
543: ELSE
544: p_to_id := l_dup_id;
545: END IF;
546:
547: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
548: EXCEPTION
549: WHEN OTHERS THEN
550: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
551: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
546:
547: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
548: EXCEPTION
549: WHEN OTHERS THEN
550: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
551: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
552:
553: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
554: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
547: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
548: EXCEPTION
549: WHEN OTHERS THEN
550: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
551: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
552:
553: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
554: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
555: FND_MSG_PUB.ADD;
588: --AND (NVL(mto.inactive_date,SYSDATE+10) > SYSDATE);
589:
590: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.party_pmt_methods_merge';
591: BEGIN
592: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
594:
595: IF (p_from_fk_id = p_to_fk_id) THEN
596: p_to_id := p_from_id;
606: OPEN c_dupemth(p_from_id,p_to_fk_id,l_flow_type);
607: FETCH c_dupemth INTO l_dup_id;
608: CLOSE c_dupemth;
609:
610: iby_debug_pub.add('duplicate pmt method:='|| l_dup_id,
611: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
612:
613: UPDATE iby_ext_party_pmt_mthds
614: SET ext_pmt_party_id = DECODE(l_dup_id, NULL,p_to_id, ext_pmt_party_id),
607: FETCH c_dupemth INTO l_dup_id;
608: CLOSE c_dupemth;
609:
610: iby_debug_pub.add('duplicate pmt method:='|| l_dup_id,
611: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
612:
613: UPDATE iby_ext_party_pmt_mthds
614: SET ext_pmt_party_id = DECODE(l_dup_id, NULL,p_to_id, ext_pmt_party_id),
615: inactive_date = DECODE(l_dup_id, NULL,inactive_date, SYSDATE),
623: ELSE
624: p_to_id := l_dup_id;
625: END IF;
626:
627: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
628: EXCEPTION
629: WHEN OTHERS THEN
630: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
631: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
626:
627: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
628: EXCEPTION
629: WHEN OTHERS THEN
630: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
631: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
632:
633: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
634: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
627: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
628: EXCEPTION
629: WHEN OTHERS THEN
630: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
631: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
632:
633: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
634: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
635: FND_MSG_PUB.ADD;
649: )
650: IS
651: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.fc_tx_extensions_merge';
652: BEGIN
653: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
654: x_return_status := FND_API.G_RET_STS_SUCCESS;
655:
656: -- transactional entities never merged
657: p_to_id := p_from_id;
680: WHERE (trxn_extension_id = p_from_id);
681:
682: END IF;
683:
684: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
685: EXCEPTION
686: WHEN OTHERS THEN
687: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
688: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
683:
684: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
685: EXCEPTION
686: WHEN OTHERS THEN
687: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
688: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
689:
690: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
691: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
684: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
685: EXCEPTION
686: WHEN OTHERS THEN
687: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
688: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
689:
690: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
691: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
692: FND_MSG_PUB.ADD;
706: )
707: IS
708: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.txn_summ_all_merge';
709: BEGIN
710: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
711: x_return_status := FND_API.G_RET_STS_SUCCESS;
712:
713: -- transactional entities never merged
714: p_to_id := p_from_id;
747: AND (instrtype = 'CREDITCARD');
748:
749: END IF;
750:
751: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
752: EXCEPTION
753: WHEN OTHERS THEN
754: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
755: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
750:
751: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
752: EXCEPTION
753: WHEN OTHERS THEN
754: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
755: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
756:
757: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
758: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
751: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
752: EXCEPTION
753: WHEN OTHERS THEN
754: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
755: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
756:
757: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
758: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
759: FND_MSG_PUB.ADD;
773: )
774: IS
775: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.doc_payable_all_merge';
776: BEGIN
777: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
778: x_return_status := FND_API.G_RET_STS_SUCCESS;
779:
780: -- transactional entities never merged
781: p_to_id := p_from_id;
827: WHERE (document_payable_id = p_from_id);
828:
829: END IF;
830:
831: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
832: EXCEPTION
833: WHEN OTHERS THEN
834: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
835: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
830:
831: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
832: EXCEPTION
833: WHEN OTHERS THEN
834: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
835: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
836:
837: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
838: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
831: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
832: EXCEPTION
833: WHEN OTHERS THEN
834: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
835: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
836:
837: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
838: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
839: FND_MSG_PUB.ADD;
853: )
854: IS
855: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.payments_all_merge';
856: BEGIN
857: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
858: x_return_status := FND_API.G_RET_STS_SUCCESS;
859:
860: -- transactional entities never merged
861: p_to_id := p_from_id;
915: WHERE (payment_id = p_from_id);
916:
917: END IF;
918:
919: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
920: EXCEPTION
921: WHEN OTHERS THEN
922: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
923: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
918:
919: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
920: EXCEPTION
921: WHEN OTHERS THEN
922: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
923: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
924:
925: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
926: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
919: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
920: EXCEPTION
921: WHEN OTHERS THEN
922: iby_debug_pub.add('Unexpected error:=' || SQLERRM,
923: iby_debug_pub.G_LEVEL_UNEXPECTED,l_dbg_mod);
924:
925: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
926: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
927: FND_MSG_PUB.ADD;