35:
36: BEGIN
37:
38: g_mesg := 'Enter';
39: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
40:
41: g_mesg := 'p_entity_name' || p_entity_name;
42: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
43: g_mesg := 'p_from_id' || p_from_id;
38: g_mesg := 'Enter';
39: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
40:
41: g_mesg := 'p_entity_name' || p_entity_name;
42: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
43: g_mesg := 'p_from_id' || p_from_id;
44: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
45: g_mesg := 'p_to_id' || p_to_id;
46: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
40:
41: g_mesg := 'p_entity_name' || p_entity_name;
42: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
43: g_mesg := 'p_from_id' || p_from_id;
44: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
45: g_mesg := 'p_to_id' || p_to_id;
46: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
47: g_mesg := 'p_from_fk_id' || p_from_fk_id;
48: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
42: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
43: g_mesg := 'p_from_id' || p_from_id;
44: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
45: g_mesg := 'p_to_id' || p_to_id;
46: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
47: g_mesg := 'p_from_fk_id' || p_from_fk_id;
48: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
49: g_mesg := 'p_to_fk_id' || p_to_fk_id;
50: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
44: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
45: g_mesg := 'p_to_id' || p_to_id;
46: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
47: g_mesg := 'p_from_fk_id' || p_from_fk_id;
48: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
49: g_mesg := 'p_to_fk_id' || p_to_fk_id;
50: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
51: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
52: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
46: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
47: g_mesg := 'p_from_fk_id' || p_from_fk_id;
48: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
49: g_mesg := 'p_to_fk_id' || p_to_fk_id;
50: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
51: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
52: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
53: g_mesg := 'p_batch_id' || p_batch_id;
54: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
48: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
49: g_mesg := 'p_to_fk_id' || p_to_fk_id;
50: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
51: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
52: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
53: g_mesg := 'p_batch_id' || p_batch_id;
54: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
55:
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
50: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
51: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
52: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
53: g_mesg := 'p_batch_id' || p_batch_id;
54: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
55:
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
57:
58: IF c_dupeba%ISOPEN THEN CLOSE c_dupeba; END IF;
75: (l_merge_reason <> 'DUPLICATE_RELN_PARTY') AND
76: (l_merge_reason <> 'De-duplication Merge') )
77: THEN
78: g_mesg := 'cannot unify non-duplicate bank account owners';
79: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
80:
81: fnd_message.set_name('IBY','IBY_PARTY_UNIFY_BA_VETO');
82: fnd_msg_pub.ADD;
83: x_return_status := fnd_api.g_ret_sts_error;
88: FETCH c_dupeba INTO l_dup_id;
89: CLOSE c_dupeba;
90:
91: g_mesg := 'duplicate account owner:='|| l_dup_id;
92: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
93:
94: UPDATE iby_account_owners
95: SET account_owner_party_id = DECODE(l_dup_id, NULL,p_to_fk_id, account_owner_party_id),
96: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
106: END IF;
107:
108: END IF;
109: g_mesg := 'Exit';
110: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
111:
112: EXCEPTION
113: WHEN OTHERS THEN
114:
112: EXCEPTION
113: WHEN OTHERS THEN
114:
115: g_mesg := 'Unexpected error:=' || SQLERRM;
116: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
117:
118: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
119: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
120: FND_MSG_PUB.ADD;
158:
159: BEGIN
160:
161: g_mesg := 'Enter';
162: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
163:
164: g_mesg := 'p_entity_name' || p_entity_name;
165: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
166: g_mesg := 'p_from_id' || p_from_id;
161: g_mesg := 'Enter';
162: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
163:
164: g_mesg := 'p_entity_name' || p_entity_name;
165: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
166: g_mesg := 'p_from_id' || p_from_id;
167: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
168: g_mesg := 'p_to_id' || p_to_id;
169: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
163:
164: g_mesg := 'p_entity_name' || p_entity_name;
165: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
166: g_mesg := 'p_from_id' || p_from_id;
167: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
168: g_mesg := 'p_to_id' || p_to_id;
169: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
170: g_mesg := 'p_from_fk_id' || p_from_fk_id;
171: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
165: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
166: g_mesg := 'p_from_id' || p_from_id;
167: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
168: g_mesg := 'p_to_id' || p_to_id;
169: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
170: g_mesg := 'p_from_fk_id' || p_from_fk_id;
171: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
172: g_mesg := 'p_to_fk_id' || p_to_fk_id;
173: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
167: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
168: g_mesg := 'p_to_id' || p_to_id;
169: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
170: g_mesg := 'p_from_fk_id' || p_from_fk_id;
171: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
172: g_mesg := 'p_to_fk_id' || p_to_fk_id;
173: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
174: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
175: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
169: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
170: g_mesg := 'p_from_fk_id' || p_from_fk_id;
171: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
172: g_mesg := 'p_to_fk_id' || p_to_fk_id;
173: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
174: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
175: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
176: g_mesg := 'p_batch_id' || p_batch_id;
177: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
171: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
172: g_mesg := 'p_to_fk_id' || p_to_fk_id;
173: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
174: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
175: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
176: g_mesg := 'p_batch_id' || p_batch_id;
177: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
178:
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
173: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
174: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
175: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
176: g_mesg := 'p_batch_id' || p_batch_id;
177: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
178:
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
180:
181: IF (c_dupecc%ISOPEN) THEN CLOSE c_dupecc; END IF;
198: (l_merge_reason <> 'DUPLICATE_RELN_PARTY') AND
199: (l_merge_reason <> 'De-duplication Merge') )
200: THEN
201: g_mesg :='cannot unify non-duplicate credit cards';
202: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
203:
204: fnd_message.set_name('IBY','IBY_PARTY_UNIFY_CC_VETO');
205: fnd_msg_pub.ADD;
206: x_return_status := fnd_api.g_ret_sts_error;
212: FETCH c_dupecc INTO l_dup_id;
213: CLOSE c_dupecc;
214:
215: g_mesg :='duplicate card:='|| l_dup_id;
216: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
217:
218: UPDATE iby_creditcard
219: SET card_owner_id = DECODE(l_dup_id, NULL,p_to_fk_id, card_owner_id),
220: active_flag = DECODE(l_dup_id, NULL,active_flag, 'N'),
247:
248: END IF;
249:
250: g_mesg :='Exit';
251: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
252:
253: EXCEPTION
254: WHEN OTHERS THEN
255:
253: EXCEPTION
254: WHEN OTHERS THEN
255:
256: g_mesg :='Unexpected error:=' || SQLERRM;
257: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
258:
259: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
260: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
261: FND_MSG_PUB.ADD;
301:
302: BEGIN
303:
304: g_mesg := 'Enter';
305: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
306:
307: g_mesg := 'p_entity_name' || p_entity_name;
308: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
309: g_mesg := 'p_from_id' || p_from_id;
304: g_mesg := 'Enter';
305: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
306:
307: g_mesg := 'p_entity_name' || p_entity_name;
308: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
309: g_mesg := 'p_from_id' || p_from_id;
310: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
311: g_mesg := 'p_to_id' || p_to_id;
312: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
306:
307: g_mesg := 'p_entity_name' || p_entity_name;
308: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
309: g_mesg := 'p_from_id' || p_from_id;
310: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
311: g_mesg := 'p_to_id' || p_to_id;
312: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
313: g_mesg := 'p_from_fk_id' || p_from_fk_id;
314: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
308: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
309: g_mesg := 'p_from_id' || p_from_id;
310: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
311: g_mesg := 'p_to_id' || p_to_id;
312: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
313: g_mesg := 'p_from_fk_id' || p_from_fk_id;
314: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
315: g_mesg := 'p_to_fk_id' || p_to_fk_id;
316: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
310: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
311: g_mesg := 'p_to_id' || p_to_id;
312: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
313: g_mesg := 'p_from_fk_id' || p_from_fk_id;
314: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
315: g_mesg := 'p_to_fk_id' || p_to_fk_id;
316: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
317: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
318: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
312: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
313: g_mesg := 'p_from_fk_id' || p_from_fk_id;
314: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
315: g_mesg := 'p_to_fk_id' || p_to_fk_id;
316: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
317: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
318: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
319: g_mesg := 'p_batch_id' || p_batch_id;
320: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
314: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
315: g_mesg := 'p_to_fk_id' || p_to_fk_id;
316: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
317: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
318: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
319: g_mesg := 'p_batch_id' || p_batch_id;
320: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
321:
322: x_return_status := FND_API.G_RET_STS_SUCCESS;
316: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
317: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
318: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
319: g_mesg := 'p_batch_id' || p_batch_id;
320: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
321:
322: x_return_status := FND_API.G_RET_STS_SUCCESS;
323:
324: IF (c_dupepayer%ISOPEN) THEN CLOSE c_dupepayer; END IF;
334: FETCH c_dupepayer INTO l_dup_id;
335: CLOSE c_dupepayer;
336:
337: g_mesg := 'duplicate payer:='|| l_dup_id;
338: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
339:
340: IF (l_dup_id IS NULL) THEN
341: UPDATE iby_external_payers_all
342: SET party_id = p_to_fk_id,
350: END IF;
351: END IF;
352:
353: g_mesg := 'Exit';
354: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
355:
356: EXCEPTION
357: WHEN OTHERS THEN
358:
356: EXCEPTION
357: WHEN OTHERS THEN
358:
359: g_mesg := 'Unexpected error:=' || SQLERRM;
360: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
361:
362: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
363: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
364: FND_MSG_PUB.ADD;
420:
421: BEGIN
422:
423: g_mesg := 'Enter';
424: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
425:
426: g_mesg := 'p_entity_name' || p_entity_name;
427: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
428: g_mesg := 'p_from_id' || p_from_id;
423: g_mesg := 'Enter';
424: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
425:
426: g_mesg := 'p_entity_name' || p_entity_name;
427: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
428: g_mesg := 'p_from_id' || p_from_id;
429: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
430: g_mesg := 'p_to_id' || p_to_id;
431: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
425:
426: g_mesg := 'p_entity_name' || p_entity_name;
427: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
428: g_mesg := 'p_from_id' || p_from_id;
429: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
430: g_mesg := 'p_to_id' || p_to_id;
431: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
432: g_mesg := 'p_from_fk_id' || p_from_fk_id;
433: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
427: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
428: g_mesg := 'p_from_id' || p_from_id;
429: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
430: g_mesg := 'p_to_id' || p_to_id;
431: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
432: g_mesg := 'p_from_fk_id' || p_from_fk_id;
433: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
434: g_mesg := 'p_to_fk_id' || p_to_fk_id;
435: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
429: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
430: g_mesg := 'p_to_id' || p_to_id;
431: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
432: g_mesg := 'p_from_fk_id' || p_from_fk_id;
433: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
434: g_mesg := 'p_to_fk_id' || p_to_fk_id;
435: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
436: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
437: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
431: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
432: g_mesg := 'p_from_fk_id' || p_from_fk_id;
433: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
434: g_mesg := 'p_to_fk_id' || p_to_fk_id;
435: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
436: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
437: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
438: g_mesg := 'p_batch_id' || p_batch_id;
439: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
433: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
434: g_mesg := 'p_to_fk_id' || p_to_fk_id;
435: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
436: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
437: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
438: g_mesg := 'p_batch_id' || p_batch_id;
439: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
440:
441: x_return_status := FND_API.G_RET_STS_SUCCESS;
435: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
436: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
437: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
438: g_mesg := 'p_batch_id' || p_batch_id;
439: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
440:
441: x_return_status := FND_API.G_RET_STS_SUCCESS;
442:
443: IF (c_dupinstr%ISOPEN) THEN CLOSE c_dupinstr; END IF;
454: FETCH c_dupinstr INTO l_dup_id;
455: CLOSE c_dupinstr;
456:
457: g_mesg := 'duplicate instr use:='|| l_dup_id;
458: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
459:
460: UPDATE iby_pmt_instr_uses_all
461: SET instrument_id = DECODE(l_dup_id, NULL,p_to_fk_id, instrument_id),
462: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
485: FETCH c_dupeparty INTO l_dup_id;
486: CLOSE c_dupeparty;
487:
488: g_mesg := 'duplicate instr use:='|| l_dup_id;
489: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
490:
491: UPDATE iby_pmt_instr_uses_all
492: SET ext_pmt_party_id = DECODE(l_dup_id, NULL,p_to_fk_id, ext_pmt_party_id),
493: end_date = DECODE(l_dup_id, NULL,end_date, SYSDATE),
504:
505: END IF;
506:
507: g_mesg := 'Exit';
508: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
509:
510: EXCEPTION
511: WHEN OTHERS THEN
512: g_mesg := 'Unexpected error:=' || SQLERRM;
509:
510: EXCEPTION
511: WHEN OTHERS THEN
512: g_mesg := 'Unexpected error:=' || SQLERRM;
513: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
514:
515: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
516: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
517: FND_MSG_PUB.ADD;
555:
556: BEGIN
557:
558: g_mesg := 'Enter';
559: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
560:
561: g_mesg := 'p_entity_name' || p_entity_name;
562: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
563: g_mesg := 'p_from_id' || p_from_id;
558: g_mesg := 'Enter';
559: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
560:
561: g_mesg := 'p_entity_name' || p_entity_name;
562: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
563: g_mesg := 'p_from_id' || p_from_id;
564: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
565: g_mesg := 'p_to_id' || p_to_id;
566: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
560:
561: g_mesg := 'p_entity_name' || p_entity_name;
562: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
563: g_mesg := 'p_from_id' || p_from_id;
564: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
565: g_mesg := 'p_to_id' || p_to_id;
566: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
567: g_mesg := 'p_from_fk_id' || p_from_fk_id;
568: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
562: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
563: g_mesg := 'p_from_id' || p_from_id;
564: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
565: g_mesg := 'p_to_id' || p_to_id;
566: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
567: g_mesg := 'p_from_fk_id' || p_from_fk_id;
568: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
569: g_mesg := 'p_to_fk_id' || p_to_fk_id;
570: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
564: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
565: g_mesg := 'p_to_id' || p_to_id;
566: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
567: g_mesg := 'p_from_fk_id' || p_from_fk_id;
568: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
569: g_mesg := 'p_to_fk_id' || p_to_fk_id;
570: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
571: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
572: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
566: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
567: g_mesg := 'p_from_fk_id' || p_from_fk_id;
568: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
569: g_mesg := 'p_to_fk_id' || p_to_fk_id;
570: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
571: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
572: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
573: g_mesg := 'p_batch_id' || p_batch_id;
574: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
568: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
569: g_mesg := 'p_to_fk_id' || p_to_fk_id;
570: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
571: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
572: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
573: g_mesg := 'p_batch_id' || p_batch_id;
574: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
575:
576: x_return_status := FND_API.G_RET_STS_SUCCESS;
570: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
571: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
572: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
573: g_mesg := 'p_batch_id' || p_batch_id;
574: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
575:
576: x_return_status := FND_API.G_RET_STS_SUCCESS;
577:
578: IF (p_from_fk_id = p_to_fk_id) THEN
587: FETCH c_dupemth INTO l_dup_id;
588: CLOSE c_dupemth;
589:
590: g_mesg := 'duplicate pmt method:='|| l_dup_id;
591: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
592:
593: UPDATE iby_ext_party_pmt_mthds
594: SET ext_pmt_party_id = DECODE(l_dup_id, NULL,p_to_fk_id, ext_pmt_party_id),
595: inactive_date = DECODE(l_dup_id, NULL,inactive_date, SYSDATE),
605: END IF;
606: END IF;
607:
608: g_mesg := 'Exit';
609: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
610:
611: EXCEPTION
612: WHEN OTHERS THEN
613: g_mesg := 'Unexpected error:=' || SQLERRM;
610:
611: EXCEPTION
612: WHEN OTHERS THEN
613: g_mesg := 'Unexpected error:=' || SQLERRM;
614: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
615:
616: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
617: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
618: FND_MSG_PUB.ADD;
636: g_mesg VARCHAR2(1000) := '';
637:
638: BEGIN
639: g_mesg := 'Enter';
640: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
641:
642: g_mesg := 'p_entity_name' || p_entity_name;
643: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
644: g_mesg := 'p_from_id' || p_from_id;
639: g_mesg := 'Enter';
640: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
641:
642: g_mesg := 'p_entity_name' || p_entity_name;
643: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
644: g_mesg := 'p_from_id' || p_from_id;
645: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
646: g_mesg := 'p_to_id' || p_to_id;
647: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
641:
642: g_mesg := 'p_entity_name' || p_entity_name;
643: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
644: g_mesg := 'p_from_id' || p_from_id;
645: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
646: g_mesg := 'p_to_id' || p_to_id;
647: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
648: g_mesg := 'p_from_fk_id' || p_from_fk_id;
649: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
643: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
644: g_mesg := 'p_from_id' || p_from_id;
645: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
646: g_mesg := 'p_to_id' || p_to_id;
647: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
648: g_mesg := 'p_from_fk_id' || p_from_fk_id;
649: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
650: g_mesg := 'p_to_fk_id' || p_to_fk_id;
651: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
645: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
646: g_mesg := 'p_to_id' || p_to_id;
647: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
648: g_mesg := 'p_from_fk_id' || p_from_fk_id;
649: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
650: g_mesg := 'p_to_fk_id' || p_to_fk_id;
651: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
652: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
653: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
647: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
648: g_mesg := 'p_from_fk_id' || p_from_fk_id;
649: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
650: g_mesg := 'p_to_fk_id' || p_to_fk_id;
651: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
652: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
653: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
654: g_mesg := 'p_batch_id' || p_batch_id;
655: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
649: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
650: g_mesg := 'p_to_fk_id' || p_to_fk_id;
651: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
652: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
653: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
654: g_mesg := 'p_batch_id' || p_batch_id;
655: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
656:
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
651: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
652: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
653: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
654: g_mesg := 'p_batch_id' || p_batch_id;
655: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
656:
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658:
659: -- extension is a transactional entity,it is never merged
684:
685: END IF;
686:
687: g_mesg := 'Exit';
688: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
689:
690: EXCEPTION
691: WHEN OTHERS THEN
692: g_mesg := 'Unexpected error:=' || SQLERRM;
689:
690: EXCEPTION
691: WHEN OTHERS THEN
692: g_mesg := 'Unexpected error:=' || SQLERRM;
693: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
694:
695: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
696: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
697: FND_MSG_PUB.ADD;
715: g_mesg VARCHAR2(1000) := '';
716:
717: BEGIN
718: g_mesg := 'Enter';
719: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
720:
721: g_mesg := 'p_entity_name' || p_entity_name;
722: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
723: g_mesg := 'p_from_id' || p_from_id;
718: g_mesg := 'Enter';
719: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
720:
721: g_mesg := 'p_entity_name' || p_entity_name;
722: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
723: g_mesg := 'p_from_id' || p_from_id;
724: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
725: g_mesg := 'p_to_id' || p_to_id;
726: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
720:
721: g_mesg := 'p_entity_name' || p_entity_name;
722: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
723: g_mesg := 'p_from_id' || p_from_id;
724: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
725: g_mesg := 'p_to_id' || p_to_id;
726: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
727: g_mesg := 'p_from_fk_id' || p_from_fk_id;
728: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
722: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
723: g_mesg := 'p_from_id' || p_from_id;
724: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
725: g_mesg := 'p_to_id' || p_to_id;
726: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
727: g_mesg := 'p_from_fk_id' || p_from_fk_id;
728: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
729: g_mesg := 'p_to_fk_id' || p_to_fk_id;
730: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
724: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
725: g_mesg := 'p_to_id' || p_to_id;
726: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
727: g_mesg := 'p_from_fk_id' || p_from_fk_id;
728: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
729: g_mesg := 'p_to_fk_id' || p_to_fk_id;
730: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
731: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
732: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
726: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
727: g_mesg := 'p_from_fk_id' || p_from_fk_id;
728: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
729: g_mesg := 'p_to_fk_id' || p_to_fk_id;
730: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
731: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
732: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
733: g_mesg := 'p_batch_id' || p_batch_id;
734: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
728: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
729: g_mesg := 'p_to_fk_id' || p_to_fk_id;
730: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
731: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
732: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
733: g_mesg := 'p_batch_id' || p_batch_id;
734: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
735:
736: x_return_status := FND_API.G_RET_STS_SUCCESS;
730: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
731: g_mesg := 'p_parent_entity_name' || p_parent_entity_name;
732: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
733: g_mesg := 'p_batch_id' || p_batch_id;
734: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
735:
736: x_return_status := FND_API.G_RET_STS_SUCCESS;
737:
738: -- summaries is a transactional entity,it is never merged
773:
774: END IF;
775:
776: g_mesg := 'Exit';
777: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
778:
779: EXCEPTION
780: WHEN OTHERS THEN
781: g_mesg := 'Unexpected error:=' || SQLERRM;
778:
779: EXCEPTION
780: WHEN OTHERS THEN
781: g_mesg := 'Unexpected error:=' || SQLERRM;
782: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
783:
784: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
785: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
786: FND_MSG_PUB.ADD;