[Home] [Help]
28: and NVL(TRUNC(effective_end_date), SYSDATE+1);
29: l_country VARCHAR2(60);
30: BEGIN
31: -- initialize API return status to success.
32: x_return_status := fnd_api.g_ret_sts_success;
33:
34: OPEN c_country;
35: FETCH c_country INTO l_country;
36: IF c_country%NOTFOUND THEN
35: FETCH c_country INTO l_country;
36: IF c_country%NOTFOUND THEN
37: fnd_message.set_name('CE', 'CE_API_NO_BANK');
38: fnd_msg_pub.add;
39: x_return_status := fnd_api.g_ret_sts_error;
40: END IF;
41: CLOSE c_country;
42:
43: RETURN NVL(l_country, 'NULL');
98: and NVL(TRUNC(hz_bankorg.effective_end_date), SYSDATE+1)
99: AND hz_branch.party_id = p_branch_id;
100: BEGIN
101: -- initialize API return status to success.
102: x_return_status := fnd_api.g_ret_sts_success;
103:
104: OPEN c_bank;
105: FETCH c_bank INTO x_bank_id, x_country_code, x_bank_name, x_bank_number;
106: IF c_bank%NOTFOUND THEN
105: FETCH c_bank INTO x_bank_id, x_country_code, x_bank_name, x_bank_number;
106: IF c_bank%NOTFOUND THEN
107: fnd_message.set_name('CE', 'CE_API_NO_BANK');
108: fnd_msg_pub.add;
109: x_return_status := fnd_api.g_ret_sts_error;
110: END IF;
111: CLOSE c_bank;
112:
113: END find_bank_info;
124: | |
125: | ARGUMENTS |
126: | IN: |
127: | p_init_msg_list Initialize message stack if it is set to |
128: | FND_API.G_TRUE. Default is fnd_api.g_false
129: | p_country_code Country code of the bank. |
130: | p_bank_name Bank name. |
131: | p_bank_number Bank number. |
132: | p_alternate_bank_name Alternate bank name. |
137: | IN/OUT: |
138: | OUT: |
139: | x_bank_id Party ID for the bank. |
140: | x_return_status Return status after the call. The status can |
141: | be FND_API.G_RET_STS_SUCCESS (success), |
142: | fnd_api.g_ret_sts_error (error), |
143: | fnd_api.g_ret_sts_unexp_error (unexpected |
144: | error). |
145: | x_msg_count Number of messages in message stack. |
138: | OUT: |
139: | x_bank_id Party ID for the bank. |
140: | x_return_status Return status after the call. The status can |
141: | be FND_API.G_RET_STS_SUCCESS (success), |
142: | fnd_api.g_ret_sts_error (error), |
143: | fnd_api.g_ret_sts_unexp_error (unexpected |
144: | error). |
145: | x_msg_count Number of messages in message stack. |
146: | x_msg_data Message text if x_msg_count is 1. |
139: | x_bank_id Party ID for the bank. |
140: | x_return_status Return status after the call. The status can |
141: | be FND_API.G_RET_STS_SUCCESS (success), |
142: | fnd_api.g_ret_sts_error (error), |
143: | fnd_api.g_ret_sts_unexp_error (unexpected |
144: | error). |
145: | x_msg_count Number of messages in message stack. |
146: | x_msg_data Message text if x_msg_count is 1. |
147: | MODIFICATION HISTORY |
147: | MODIFICATION HISTORY |
148: | 25-AUG-2004 Xin Wang Created. |
149: +=======================================================================*/
150: PROCEDURE create_bank (
151: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
152: p_country_code IN VARCHAR2,
153: p_bank_name IN VARCHAR2,
154: p_bank_number IN VARCHAR2 DEFAULT NULL,
155: p_alternate_bank_name IN VARCHAR2 DEFAULT NULL,
202: cep_standard.debug('>>CE_EXT_BANK_ACCT_PUB.create_bank.');
203: END IF;
204:
205: -- initialize message list
206: IF fnd_api.to_boolean(p_init_msg_list) THEN
207: fnd_msg_pub.initialize;
208: END IF;
209:
210: -- initialize API return status to success.
207: fnd_msg_pub.initialize;
208: END IF;
209:
210: -- initialize API return status to success.
211: x_return_status := fnd_api.g_ret_sts_success;
212:
213: -- first check all required params
214: IF (p_country_code IS NULL or
215: p_bank_name IS NULL) THEN
214: IF (p_country_code IS NULL or
215: p_bank_name IS NULL) THEN
216: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
217: fnd_msg_pub.add;
218: x_return_status := fnd_api.g_ret_sts_error;
219: RAISE fnd_api.g_exc_error;
220: END IF;
221:
222: -- country specific validation API call here
215: p_bank_name IS NULL) THEN
216: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
217: fnd_msg_pub.add;
218: x_return_status := fnd_api.g_ret_sts_error;
219: RAISE fnd_api.g_exc_error;
220: END IF;
221:
222: -- country specific validation API call here
223: ce_validate_bankinfo.ce_validate_bank(p_country_code,
225: p_bank_name,
226: p_alternate_bank_name,
227: p_tax_payer_id,
228: null, -- bank_id
229: FND_API.G_FALSE, -- do not re-initialize msg stack
230: x_msg_count,
231: x_msg_data,
232: l_bank_number, -- reformated bank number
233: x_return_status);
232: l_bank_number, -- reformated bank number
233: x_return_status);
234:
235: -- raise an exception if country specific validations fail
236: IF x_return_status <> fnd_api.g_ret_sts_success THEN
237: RAISE fnd_api.g_exc_error;
238: END IF;
239:
240: l_party_rec.attribute_category := p_attribute_category;
233: x_return_status);
234:
235: -- raise an exception if country specific validations fail
236: IF x_return_status <> fnd_api.g_ret_sts_success THEN
237: RAISE fnd_api.g_exc_error;
238: END IF;
239:
240: l_party_rec.attribute_category := p_attribute_category;
241: l_party_rec.attribute1 := p_attribute1;
281: if (l_gen_party_num = 'N') then
282: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER', 'Y');
283: end if;
284:
285: hz_bank_pub.create_bank(fnd_api.g_false, l_bank_rec, x_bank_id, l_party_number,
286: l_profile_id, l_code_assignment_id,
287: x_return_status, x_msg_count, x_msg_data);
288:
289: if (l_gen_party_num = 'N') then
290: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER', 'N');
291: end if;
292:
293: -- raise an exception if error creating bank
294: IF x_return_status <> fnd_api.g_ret_sts_success THEN
295: RAISE fnd_api.g_exc_error;
296: END IF;
297:
298: -- get message count and if count is 1, get message info.
291: end if;
292:
293: -- raise an exception if error creating bank
294: IF x_return_status <> fnd_api.g_ret_sts_success THEN
295: RAISE fnd_api.g_exc_error;
296: END IF;
297:
298: -- get message count and if count is 1, get message info.
299: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
295: RAISE fnd_api.g_exc_error;
296: END IF;
297:
298: -- get message count and if count is 1, get message info.
299: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
300: p_count => x_msg_count,
301: p_data => x_msg_data);
302:
303: IF l_DEBUG in ('Y', 'C') THEN
304: cep_standard.debug('<
306:
307: EXCEPTION
308: WHEN fnd_api.g_exc_error THEN
309: ROLLBACK TO create_bank;
310: x_return_status := fnd_api.g_ret_sts_error;
311: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
312: p_count => x_msg_count,
306:
307: EXCEPTION
308: WHEN fnd_api.g_exc_error THEN
309: ROLLBACK TO create_bank;
310: x_return_status := fnd_api.g_ret_sts_error;
311: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
312: p_count => x_msg_count,
313: p_data => x_msg_data);
314:
307: EXCEPTION
308: WHEN fnd_api.g_exc_error THEN
309: ROLLBACK TO create_bank;
310: x_return_status := fnd_api.g_ret_sts_error;
311: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
312: p_count => x_msg_count,
313: p_data => x_msg_data);
314:
315: IF l_DEBUG in ('Y', 'C') THEN
315: IF l_DEBUG in ('Y', 'C') THEN
316: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
317: END IF;
318:
319: WHEN fnd_api.g_exc_unexpected_error THEN
320: ROLLBACK TO create_bank;
321: x_return_status := fnd_api.g_ret_sts_unexp_error;
322: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
323: p_count => x_msg_count,
317: END IF;
318:
319: WHEN fnd_api.g_exc_unexpected_error THEN
320: ROLLBACK TO create_bank;
321: x_return_status := fnd_api.g_ret_sts_unexp_error;
322: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
323: p_count => x_msg_count,
324: p_data => x_msg_data);
325:
318:
319: WHEN fnd_api.g_exc_unexpected_error THEN
320: ROLLBACK TO create_bank;
321: x_return_status := fnd_api.g_ret_sts_unexp_error;
322: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
323: p_count => x_msg_count,
324: p_data => x_msg_data);
325:
326: IF l_DEBUG in ('Y', 'C') THEN
328: END IF;
329:
330: WHEN OTHERS THEN
331: ROLLBACK TO create_bank;
332: x_return_status := fnd_api.g_ret_sts_unexp_error;
333: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
334: fnd_message.set_token('ERROR',SQLERRM);
335: fnd_msg_pub.add;
336: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
332: x_return_status := fnd_api.g_ret_sts_unexp_error;
333: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
334: fnd_message.set_token('ERROR',SQLERRM);
335: fnd_msg_pub.add;
336: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
337: p_count => x_msg_count,
338: p_data => x_msg_data);
339:
340: IF l_DEBUG in ('Y', 'C') THEN
355: | |
356: | ARGUMENTS |
357: | IN: |
358: | p_init_msg_list Initialize message stack if it is set to |
359: | FND_API.G_TRUE. Default is fnd_api.g_false
360: | p_bank_id Party ID of the bank to be updated. |
361: | p_bank_name Bank name. |
362: | p_bank_number Bank number. |
363: | p_alternate_bank_name Alternate bank name. |
368: | IN/OUT: |
369: | p_object_version_number Current object version number for the bank|
370: | OUT: |
371: | x_return_status Return status after the call. The status can |
372: | be FND_API.G_RET_STS_SUCCESS (success), |
373: | fnd_api.g_ret_sts_error (error), |
374: | fnd_api.g_ret_sts_unexp_error (unexpected |
375: | error). |
376: | x_msg_count Number of messages in message stack. |
369: | p_object_version_number Current object version number for the bank|
370: | OUT: |
371: | x_return_status Return status after the call. The status can |
372: | be FND_API.G_RET_STS_SUCCESS (success), |
373: | fnd_api.g_ret_sts_error (error), |
374: | fnd_api.g_ret_sts_unexp_error (unexpected |
375: | error). |
376: | x_msg_count Number of messages in message stack. |
377: | x_msg_data Message text if x_msg_count is 1. |
370: | OUT: |
371: | x_return_status Return status after the call. The status can |
372: | be FND_API.G_RET_STS_SUCCESS (success), |
373: | fnd_api.g_ret_sts_error (error), |
374: | fnd_api.g_ret_sts_unexp_error (unexpected |
375: | error). |
376: | x_msg_count Number of messages in message stack. |
377: | x_msg_data Message text if x_msg_count is 1. |
378: | MODIFICATION HISTORY |
378: | MODIFICATION HISTORY |
379: | 25-AUG-2004 Xin Wang Created. |
380: +=======================================================================*/
381: PROCEDURE update_bank (
382: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
383: p_bank_id IN NUMBER,
384: p_bank_name IN VARCHAR2,
385: p_bank_number IN VARCHAR2 DEFAULT NULL,
386: p_alternate_bank_name IN VARCHAR2 DEFAULT NULL,
432: cep_standard.debug('>>CE_EXT_BANK_ACCT_PUB.update_bank.');
433: END IF;
434:
435: -- initialize message list
436: IF fnd_api.to_boolean(p_init_msg_list) THEN
437: fnd_msg_pub.initialize;
438: END IF;
439:
440: -- initialize API return status to success.
437: fnd_msg_pub.initialize;
438: END IF;
439:
440: -- initialize API return status to success.
441: x_return_status := fnd_api.g_ret_sts_success;
442:
443: -- first check all required params
444: IF (p_bank_id IS NULL or
445: p_bank_name IS NULL) THEN
444: IF (p_bank_id IS NULL or
445: p_bank_name IS NULL) THEN
446: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
447: fnd_msg_pub.add;
448: x_return_status := fnd_api.g_ret_sts_error;
449: RAISE fnd_api.g_exc_error;
450: END IF;
451:
452: l_country_code := get_country(p_bank_id, x_return_status);
445: p_bank_name IS NULL) THEN
446: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
447: fnd_msg_pub.add;
448: x_return_status := fnd_api.g_ret_sts_error;
449: RAISE fnd_api.g_exc_error;
450: END IF;
451:
452: l_country_code := get_country(p_bank_id, x_return_status);
453:
451:
452: l_country_code := get_country(p_bank_id, x_return_status);
453:
454: -- raise an exception if bank is not found
455: IF x_return_status <> fnd_api.g_ret_sts_success THEN
456: RAISE fnd_api.g_exc_error;
457: END IF;
458:
459: -- country specific validation API call here
452: l_country_code := get_country(p_bank_id, x_return_status);
453:
454: -- raise an exception if bank is not found
455: IF x_return_status <> fnd_api.g_ret_sts_success THEN
456: RAISE fnd_api.g_exc_error;
457: END IF;
458:
459: -- country specific validation API call here
460: ce_validate_bankinfo.ce_validate_bank(l_country_code,
462: p_bank_name,
463: p_alternate_bank_name,
464: p_tax_payer_id,
465: p_bank_id, -- bank_id
466: FND_API.G_FALSE, -- do not re-initialize msg stack
467: x_msg_count,
468: x_msg_data,
469: l_bank_number, -- reformated bank number
470: x_return_status);
469: l_bank_number, -- reformated bank number
470: x_return_status);
471:
472: -- raise an exception if country specific validations fail
473: IF x_return_status <> fnd_api.g_ret_sts_success THEN
474: RAISE fnd_api.g_exc_error;
475: END IF;
476:
477: l_party_rec.party_id := p_bank_id;
470: x_return_status);
471:
472: -- raise an exception if country specific validations fail
473: IF x_return_status <> fnd_api.g_ret_sts_success THEN
474: RAISE fnd_api.g_exc_error;
475: END IF;
476:
477: l_party_rec.party_id := p_bank_id;
478: l_party_rec.attribute_category := p_attribute_category;
521: AND owner_table_name = 'HZ_PARTIES'
522: AND owner_table_id = p_bank_id
523: AND status = 'A';
524:
525: hz_bank_pub.update_bank(fnd_api.g_false, l_bank_rec,
526: p_object_version_number, l_ca_object_version_number,
527: l_profile_id, x_return_status, x_msg_count, x_msg_data);
528:
529: -- raise an exception if error updating a bank
526: p_object_version_number, l_ca_object_version_number,
527: l_profile_id, x_return_status, x_msg_count, x_msg_data);
528:
529: -- raise an exception if error updating a bank
530: IF x_return_status <> fnd_api.g_ret_sts_success THEN
531: RAISE fnd_api.g_exc_error;
532: END IF;
533:
534: -- get message count and if count is 1, get message info.
527: l_profile_id, x_return_status, x_msg_count, x_msg_data);
528:
529: -- raise an exception if error updating a bank
530: IF x_return_status <> fnd_api.g_ret_sts_success THEN
531: RAISE fnd_api.g_exc_error;
532: END IF;
533:
534: -- get message count and if count is 1, get message info.
535: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
531: RAISE fnd_api.g_exc_error;
532: END IF;
533:
534: -- get message count and if count is 1, get message info.
535: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
536: p_count => x_msg_count,
537: p_data => x_msg_data);
538:
539: IF l_DEBUG in ('Y', 'C') THEN
540: cep_standard.debug('<
542:
543: EXCEPTION
544: WHEN fnd_api.g_exc_error THEN
545: ROLLBACK TO update_bank;
546: x_return_status := fnd_api.g_ret_sts_error;
547: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
548: p_count => x_msg_count,
542:
543: EXCEPTION
544: WHEN fnd_api.g_exc_error THEN
545: ROLLBACK TO update_bank;
546: x_return_status := fnd_api.g_ret_sts_error;
547: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
548: p_count => x_msg_count,
549: p_data => x_msg_data);
550:
543: EXCEPTION
544: WHEN fnd_api.g_exc_error THEN
545: ROLLBACK TO update_bank;
546: x_return_status := fnd_api.g_ret_sts_error;
547: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
548: p_count => x_msg_count,
549: p_data => x_msg_data);
550:
551: IF l_DEBUG in ('Y', 'C') THEN
551: IF l_DEBUG in ('Y', 'C') THEN
552: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
553: END IF;
554:
555: WHEN fnd_api.g_exc_unexpected_error THEN
556: ROLLBACK TO update_bank;
557: x_return_status := fnd_api.g_ret_sts_unexp_error;
558: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
559: p_count => x_msg_count,
553: END IF;
554:
555: WHEN fnd_api.g_exc_unexpected_error THEN
556: ROLLBACK TO update_bank;
557: x_return_status := fnd_api.g_ret_sts_unexp_error;
558: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
559: p_count => x_msg_count,
560: p_data => x_msg_data);
561:
554:
555: WHEN fnd_api.g_exc_unexpected_error THEN
556: ROLLBACK TO update_bank;
557: x_return_status := fnd_api.g_ret_sts_unexp_error;
558: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
559: p_count => x_msg_count,
560: p_data => x_msg_data);
561:
562: IF l_DEBUG in ('Y', 'C') THEN
564: END IF;
565:
566: WHEN OTHERS THEN
567: ROLLBACK TO update_bank;
568: x_return_status := fnd_api.g_ret_sts_unexp_error;
569: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
570: fnd_message.set_token('ERROR',SQLERRM);
571: fnd_msg_pub.add;
572: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
568: x_return_status := fnd_api.g_ret_sts_unexp_error;
569: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
570: fnd_message.set_token('ERROR',SQLERRM);
571: fnd_msg_pub.add;
572: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
573: p_count => x_msg_count,
574: p_data => x_msg_data);
575:
576: IF l_DEBUG in ('Y', 'C') THEN
591: | |
592: | ARGUMENTS |
593: | IN: |
594: | p_init_msg_list Initialize message stack if it is set to |
595: | FND_API.G_TRUE. Default is fnd_api.g_false
596: | p_bank_id Party ID of the bank to be updated. |
597: | p_end_date End date of the bank. |
598: | IN/OUT: |
599: | p_object_version_number Current object version number for the code|
599: | p_object_version_number Current object version number for the code|
600: | assignment for the bank institution type. |
601: | OUT: |
602: | x_return_status Return status after the call. The status can |
603: | be FND_API.G_RET_STS_SUCCESS (success), |
604: | fnd_api.g_ret_sts_error (error), |
605: | fnd_api.g_ret_sts_unexp_error (unexpected |
606: | error). |
607: | x_msg_count Number of messages in message stack. |
600: | assignment for the bank institution type. |
601: | OUT: |
602: | x_return_status Return status after the call. The status can |
603: | be FND_API.G_RET_STS_SUCCESS (success), |
604: | fnd_api.g_ret_sts_error (error), |
605: | fnd_api.g_ret_sts_unexp_error (unexpected |
606: | error). |
607: | x_msg_count Number of messages in message stack. |
608: | x_msg_data Message text if x_msg_count is 1. |
601: | OUT: |
602: | x_return_status Return status after the call. The status can |
603: | be FND_API.G_RET_STS_SUCCESS (success), |
604: | fnd_api.g_ret_sts_error (error), |
605: | fnd_api.g_ret_sts_unexp_error (unexpected |
606: | error). |
607: | x_msg_count Number of messages in message stack. |
608: | x_msg_data Message text if x_msg_count is 1. |
609: | MODIFICATION HISTORY |
609: | MODIFICATION HISTORY |
610: | 25-AUG-2004 Xin Wang Created. |
611: +=======================================================================*/
612: PROCEDURE set_bank_end_date (
613: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
614: p_bank_id IN NUMBER,
615: p_end_date IN DATE,
616: p_object_version_number IN OUT NOCOPY NUMBER,
617: x_return_status OUT NOCOPY VARCHAR2,
662: cep_standard.debug('>>CE_EXT_BANK_ACCT_PUB.set_bank_end_date.');
663: END IF;
664:
665: -- initialize message list
666: IF fnd_api.to_boolean(p_init_msg_list) THEN
667: fnd_msg_pub.initialize;
668: END IF;
669:
670: -- initialize API return status to success.
667: fnd_msg_pub.initialize;
668: END IF;
669:
670: -- initialize API return status to success.
671: x_return_status := fnd_api.g_ret_sts_success;
672:
673: -- first check all required params
674: IF (p_bank_id = null or
675: p_object_version_number = null) THEN
674: IF (p_bank_id = null or
675: p_object_version_number = null) THEN
676: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
677: fnd_msg_pub.add;
678: x_return_status := fnd_api.g_ret_sts_error;
679: RAISE fnd_api.g_exc_error;
680: END IF;
681:
682: -- if new end date is earlier than its old end date,
675: p_object_version_number = null) THEN
676: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
677: fnd_msg_pub.add;
678: x_return_status := fnd_api.g_ret_sts_error;
679: RAISE fnd_api.g_exc_error;
680: END IF;
681:
682: -- if new end date is earlier than its old end date,
683: -- and is earlier than its children's end date
686: FETCH c_bank INTO l_bank_end;
687: IF c_bank%NOTFOUND THEN
688: fnd_message.set_name('CE', 'CE_API_NO_BANK');
689: fnd_msg_pub.add;
690: x_return_status := fnd_api.g_ret_sts_error;
691: CLOSE c_bank;
692: RAISE fnd_api.g_exc_error;
693: END IF;
694: CLOSE c_bank;
688: fnd_message.set_name('CE', 'CE_API_NO_BANK');
689: fnd_msg_pub.add;
690: x_return_status := fnd_api.g_ret_sts_error;
691: CLOSE c_bank;
692: RAISE fnd_api.g_exc_error;
693: END IF;
694: CLOSE c_bank;
695:
696: IF p_end_date IS NOT NULL AND p_end_date < NVL(l_bank_end, p_end_date+1) THEN
699: FETCH c_branch INTO l_branch_end, l_branch_ovn;
700: IF c_branch%NOTFOUND THEN
701: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
702: fnd_msg_pub.add;
703: x_return_status := fnd_api.g_ret_sts_error;
704: CLOSE c_branch;
705: RAISE fnd_api.g_exc_error;
706: END IF;
707: CLOSE c_branch;
701: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
702: fnd_msg_pub.add;
703: x_return_status := fnd_api.g_ret_sts_error;
704: CLOSE c_branch;
705: RAISE fnd_api.g_exc_error;
706: END IF;
707: CLOSE c_branch;
708:
709: IF p_end_date < NVL(l_branch_end, p_end_date+1) THEN
706: END IF;
707: CLOSE c_branch;
708:
709: IF p_end_date < NVL(l_branch_end, p_end_date+1) THEN
710: set_bank_branch_end_date (fnd_api.g_false,
711: branch_id_rec.subject_id,
712: p_end_date,
713: l_branch_ovn,
714: x_return_status,
713: l_branch_ovn,
714: x_return_status,
715: x_msg_count,
716: x_msg_data);
717: IF x_return_status <> fnd_api.g_ret_sts_success THEN
718: RAISE fnd_api.g_exc_error;
719: END IF;
720: END IF;
721: END LOOP;
714: x_return_status,
715: x_msg_count,
716: x_msg_data);
717: IF x_return_status <> fnd_api.g_ret_sts_success THEN
718: RAISE fnd_api.g_exc_error;
719: END IF;
720: END IF;
721: END LOOP;
722: END IF;
731: FETCH c_bank_ovn INTO l_bank_ovn;
732: IF c_bank_ovn%NOTFOUND THEN
733: fnd_message.set_name('CE', 'CE_API_NO_BANK');
734: fnd_msg_pub.add;
735: x_return_status := fnd_api.g_ret_sts_error;
736: CLOSE c_bank_ovn;
737: RAISE fnd_api.g_exc_error;
738: END IF;
739: CLOSE c_bank_ovn;
733: fnd_message.set_name('CE', 'CE_API_NO_BANK');
734: fnd_msg_pub.add;
735: x_return_status := fnd_api.g_ret_sts_error;
736: CLOSE c_bank_ovn;
737: RAISE fnd_api.g_exc_error;
738: END IF;
739: CLOSE c_bank_ovn;
740:
741: hz_bank_pub.update_bank(fnd_api.g_false, l_bank_rec,
737: RAISE fnd_api.g_exc_error;
738: END IF;
739: CLOSE c_bank_ovn;
740:
741: hz_bank_pub.update_bank(fnd_api.g_false, l_bank_rec,
742: l_bank_ovn, p_object_version_number,
743: l_profile_id, x_return_status, x_msg_count, x_msg_data);
744:
745: IF x_return_status <> fnd_api.g_ret_sts_success THEN
741: hz_bank_pub.update_bank(fnd_api.g_false, l_bank_rec,
742: l_bank_ovn, p_object_version_number,
743: l_profile_id, x_return_status, x_msg_count, x_msg_data);
744:
745: IF x_return_status <> fnd_api.g_ret_sts_success THEN
746: RAISE fnd_api.g_exc_error;
747: END IF;
748:
749: -- get message count and if count is 1, get message info.
742: l_bank_ovn, p_object_version_number,
743: l_profile_id, x_return_status, x_msg_count, x_msg_data);
744:
745: IF x_return_status <> fnd_api.g_ret_sts_success THEN
746: RAISE fnd_api.g_exc_error;
747: END IF;
748:
749: -- get message count and if count is 1, get message info.
750: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
746: RAISE fnd_api.g_exc_error;
747: END IF;
748:
749: -- get message count and if count is 1, get message info.
750: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
751: p_count => x_msg_count,
752: p_data => x_msg_data);
753:
754: IF l_DEBUG in ('Y', 'C') THEN
755: cep_standard.debug('<
757:
758: EXCEPTION
759: WHEN fnd_api.g_exc_error THEN
760: ROLLBACK TO set_bank_end_date;
761: x_return_status := fnd_api.g_ret_sts_error;
762: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
763: p_count => x_msg_count,
757:
758: EXCEPTION
759: WHEN fnd_api.g_exc_error THEN
760: ROLLBACK TO set_bank_end_date;
761: x_return_status := fnd_api.g_ret_sts_error;
762: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
763: p_count => x_msg_count,
764: p_data => x_msg_data);
765:
758: EXCEPTION
759: WHEN fnd_api.g_exc_error THEN
760: ROLLBACK TO set_bank_end_date;
761: x_return_status := fnd_api.g_ret_sts_error;
762: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
763: p_count => x_msg_count,
764: p_data => x_msg_data);
765:
766: IF l_DEBUG in ('Y', 'C') THEN
766: IF l_DEBUG in ('Y', 'C') THEN
767: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
768: END IF;
769:
770: WHEN fnd_api.g_exc_unexpected_error THEN
771: ROLLBACK TO set_bank_end_date;
772: x_return_status := fnd_api.g_ret_sts_unexp_error;
773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
774: p_count => x_msg_count,
768: END IF;
769:
770: WHEN fnd_api.g_exc_unexpected_error THEN
771: ROLLBACK TO set_bank_end_date;
772: x_return_status := fnd_api.g_ret_sts_unexp_error;
773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
774: p_count => x_msg_count,
775: p_data => x_msg_data);
776:
769:
770: WHEN fnd_api.g_exc_unexpected_error THEN
771: ROLLBACK TO set_bank_end_date;
772: x_return_status := fnd_api.g_ret_sts_unexp_error;
773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
774: p_count => x_msg_count,
775: p_data => x_msg_data);
776:
777: IF l_DEBUG in ('Y', 'C') THEN
779: END IF;
780:
781: WHEN OTHERS THEN
782: ROLLBACK TO set_bank_end_date;
783: x_return_status := fnd_api.g_ret_sts_unexp_error;
784: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
785: fnd_message.set_token('ERROR',SQLERRM);
786: fnd_msg_pub.add;
787: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
783: x_return_status := fnd_api.g_ret_sts_unexp_error;
784: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
785: fnd_message.set_token('ERROR',SQLERRM);
786: fnd_msg_pub.add;
787: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
788: p_count => x_msg_count,
789: p_data => x_msg_data);
790:
791: IF l_DEBUG in ('Y', 'C') THEN
903: | |
904: | ARGUMENTS |
905: | IN: |
906: | p_init_msg_list Initialize message stack if it is set to |
907: | FND_API.G_TRUE. Default is fnd_api.g_false
908: | p_bank_id Party ID of the bank that the branch |
909: | belongs. |
910: | p_branch_name Bank branch name. |
911: | p_branch_number Bank branch number. |
918: | IN/OUT: |
919: | OUT: |
920: | x_branch_id Party ID for the bank branch. |
921: | x_return_status Return status after the call. The status can |
922: | be FND_API.G_RET_STS_SUCCESS (success), |
923: | fnd_api.g_ret_sts_error (error), |
924: | fnd_api.g_ret_sts_unexp_error (unexpected |
925: | error). |
926: | x_msg_count Number of messages in message stack. |
919: | OUT: |
920: | x_branch_id Party ID for the bank branch. |
921: | x_return_status Return status after the call. The status can |
922: | be FND_API.G_RET_STS_SUCCESS (success), |
923: | fnd_api.g_ret_sts_error (error), |
924: | fnd_api.g_ret_sts_unexp_error (unexpected |
925: | error). |
926: | x_msg_count Number of messages in message stack. |
927: | x_msg_data Message text if x_msg_count is 1. |
920: | x_branch_id Party ID for the bank branch. |
921: | x_return_status Return status after the call. The status can |
922: | be FND_API.G_RET_STS_SUCCESS (success), |
923: | fnd_api.g_ret_sts_error (error), |
924: | fnd_api.g_ret_sts_unexp_error (unexpected |
925: | error). |
926: | x_msg_count Number of messages in message stack. |
927: | x_msg_data Message text if x_msg_count is 1. |
928: | MODIFICATION HISTORY |
928: | MODIFICATION HISTORY |
929: | 25-AUG-2004 Xin Wang Created. |
930: +=======================================================================*/
931: PROCEDURE create_bank_branch (
932: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
933: p_bank_id IN NUMBER,
934: p_branch_name IN VARCHAR2,
935: p_branch_number IN VARCHAR2 DEFAULT NULL,
936: p_branch_type IN VARCHAR2 DEFAULT NULL,
1004: cep_standard.debug('>>CE_EXT_BANK_ACCT_PUB.create_bank_branch.');
1005: END IF;
1006:
1007: -- initialize message list
1008: IF fnd_api.to_boolean(p_init_msg_list) THEN
1009: fnd_msg_pub.initialize;
1010: END IF;
1011:
1012: -- initialize API return status to success.
1009: fnd_msg_pub.initialize;
1010: END IF;
1011:
1012: -- initialize API return status to success.
1013: x_return_status := fnd_api.g_ret_sts_success;
1014:
1015: -- first check all required params
1016: IF (p_bank_id IS NULL or
1017: p_branch_name IS NULL) THEN
1016: IF (p_bank_id IS NULL or
1017: p_branch_name IS NULL) THEN
1018: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1019: fnd_msg_pub.add;
1020: x_return_status := fnd_api.g_ret_sts_error;
1021: RAISE fnd_api.g_exc_error;
1022: END IF;
1023:
1024: l_country := get_country(p_bank_id, x_return_status);
1017: p_branch_name IS NULL) THEN
1018: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1019: fnd_msg_pub.add;
1020: x_return_status := fnd_api.g_ret_sts_error;
1021: RAISE fnd_api.g_exc_error;
1022: END IF;
1023:
1024: l_country := get_country(p_bank_id, x_return_status);
1025:
1023:
1024: l_country := get_country(p_bank_id, x_return_status);
1025:
1026: -- raise an exception if bank is not found
1027: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1028: RAISE fnd_api.g_exc_error;
1029: END IF;
1030:
1031: OPEN c_bank;
1024: l_country := get_country(p_bank_id, x_return_status);
1025:
1026: -- raise an exception if bank is not found
1027: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1028: RAISE fnd_api.g_exc_error;
1029: END IF;
1030:
1031: OPEN c_bank;
1032: FETCH c_bank INTO l_bank_name, l_bank_number;
1032: FETCH c_bank INTO l_bank_name, l_bank_number;
1033: IF c_bank%NOTFOUND THEN
1034: fnd_message.set_name('CE', 'CE_API_NO_BANK');
1035: fnd_msg_pub.add;
1036: x_return_status := fnd_api.g_ret_sts_error;
1037: RAISE fnd_api.g_exc_error;
1038: END IF;
1039: CLOSE c_bank;
1040:
1033: IF c_bank%NOTFOUND THEN
1034: fnd_message.set_name('CE', 'CE_API_NO_BANK');
1035: fnd_msg_pub.add;
1036: x_return_status := fnd_api.g_ret_sts_error;
1037: RAISE fnd_api.g_exc_error;
1038: END IF;
1039: CLOSE c_bank;
1040:
1041: -- country specific validation API call here
1046: p_branch_name,
1047: p_alternate_branch_name,
1048: p_bank_id,
1049: null, -- branch_id
1050: FND_API.G_FALSE, -- do not re-initialize msg stack
1051: x_msg_count,
1052: x_msg_data,
1053: l_branch_number, -- reformatted branch number
1054: x_return_status);
1053: l_branch_number, -- reformatted branch number
1054: x_return_status);
1055:
1056: -- raise an exception if country specific validations fail
1057: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1058: RAISE fnd_api.g_exc_error;
1059: END IF;
1060:
1061: l_party_rec.attribute_category := p_attribute_category;
1054: x_return_status);
1055:
1056: -- raise an exception if country specific validations fail
1057: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1058: RAISE fnd_api.g_exc_error;
1059: END IF;
1060:
1061: l_party_rec.attribute_category := p_attribute_category;
1062: l_party_rec.attribute1 := p_attribute1;
1101: if (l_gen_party_num = 'N') then
1102: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER', 'Y');
1103: end if;
1104:
1105: hz_bank_pub.create_bank_branch(fnd_api.g_false, l_branch_rec, p_bank_id,
1106: x_branch_id, l_party_number,
1107: l_profile_id, l_rel_id,
1108: l_rel_party_id, l_rel_party_number,
1109: l_bch_code_assignment_id, l_typ_code_assignment_id,
1114: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER', 'N');
1115: end if;
1116:
1117: -- raise an exception if the branch creation is unsuccessful
1118: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1119: RAISE fnd_api.g_exc_error;
1120: END IF;
1121:
1122: IF p_bic IS NOT NULL OR p_eft_number IS NOT NULL THEN
1115: end if;
1116:
1117: -- raise an exception if the branch creation is unsuccessful
1118: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1119: RAISE fnd_api.g_exc_error;
1120: END IF;
1121:
1122: IF p_bic IS NOT NULL OR p_eft_number IS NOT NULL THEN
1123: l_contact_point_rec.contact_point_type := 'EFT';
1128: l_eft_rec.eft_swift_code := p_bic;
1129: l_eft_rec.eft_user_number := p_eft_number;
1130:
1131: hz_contact_point_v2pub.create_eft_contact_point
1132: (fnd_api.g_false, l_contact_point_rec, l_eft_rec,
1133: l_contact_point_id,
1134: x_return_status, x_msg_count, x_msg_data);
1135:
1136: -- raise an exception if the branch creation is unsuccessful
1133: l_contact_point_id,
1134: x_return_status, x_msg_count, x_msg_data);
1135:
1136: -- raise an exception if the branch creation is unsuccessful
1137: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1138: RAISE fnd_api.g_exc_error;
1139: END IF;
1140: END IF;
1141:
1134: x_return_status, x_msg_count, x_msg_data);
1135:
1136: -- raise an exception if the branch creation is unsuccessful
1137: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1138: RAISE fnd_api.g_exc_error;
1139: END IF;
1140: END IF;
1141:
1142: -- get message count and if count is 1, get message info.
1139: END IF;
1140: END IF;
1141:
1142: -- get message count and if count is 1, get message info.
1143: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1144: p_count => x_msg_count,
1145: p_data => x_msg_data);
1146:
1147: IF l_DEBUG in ('Y', 'C') THEN
1148: cep_standard.debug('<
1150:
1151: EXCEPTION
1152: WHEN fnd_api.g_exc_error THEN
1153: ROLLBACK TO create_bank_branch;
1154: x_return_status := fnd_api.g_ret_sts_error;
1155: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1156: p_count => x_msg_count,
1150:
1151: EXCEPTION
1152: WHEN fnd_api.g_exc_error THEN
1153: ROLLBACK TO create_bank_branch;
1154: x_return_status := fnd_api.g_ret_sts_error;
1155: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1156: p_count => x_msg_count,
1157: p_data => x_msg_data);
1158:
1151: EXCEPTION
1152: WHEN fnd_api.g_exc_error THEN
1153: ROLLBACK TO create_bank_branch;
1154: x_return_status := fnd_api.g_ret_sts_error;
1155: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1156: p_count => x_msg_count,
1157: p_data => x_msg_data);
1158:
1159: IF l_DEBUG in ('Y', 'C') THEN
1159: IF l_DEBUG in ('Y', 'C') THEN
1160: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
1161: END IF;
1162:
1163: WHEN fnd_api.g_exc_unexpected_error THEN
1164: ROLLBACK TO create_bank_branch;
1165: x_return_status := fnd_api.g_ret_sts_unexp_error;
1166: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1167: p_count => x_msg_count,
1161: END IF;
1162:
1163: WHEN fnd_api.g_exc_unexpected_error THEN
1164: ROLLBACK TO create_bank_branch;
1165: x_return_status := fnd_api.g_ret_sts_unexp_error;
1166: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1167: p_count => x_msg_count,
1168: p_data => x_msg_data);
1169:
1162:
1163: WHEN fnd_api.g_exc_unexpected_error THEN
1164: ROLLBACK TO create_bank_branch;
1165: x_return_status := fnd_api.g_ret_sts_unexp_error;
1166: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1167: p_count => x_msg_count,
1168: p_data => x_msg_data);
1169:
1170: IF l_DEBUG in ('Y', 'C') THEN
1172: END IF;
1173:
1174: WHEN OTHERS THEN
1175: ROLLBACK TO create_bank_branch;
1176: x_return_status := fnd_api.g_ret_sts_unexp_error;
1177: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
1178: fnd_message.set_token('ERROR',SQLERRM);
1179: fnd_msg_pub.add;
1180: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1176: x_return_status := fnd_api.g_ret_sts_unexp_error;
1177: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
1178: fnd_message.set_token('ERROR',SQLERRM);
1179: fnd_msg_pub.add;
1180: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1181: p_count => x_msg_count,
1182: p_data => x_msg_data);
1183:
1184: IF l_DEBUG in ('Y', 'C') THEN
1199: | |
1200: | ARGUMENTS |
1201: | IN: |
1202: | p_init_msg_list Initialize message stack if it is set to |
1203: | FND_API.G_TRUE. Default is fnd_api.g_false
1204: | p_branch_id Party ID of the branch to be updated. |
1205: | p_branch_name Bank branch name. |
1206: | p_branch_number Bank branch number. |
1207: | p_branch_type Bank branch type. |
1218: | p_rfc_object_version_number Current object version number for |
1219: | RFC code assignment. |
1220: | OUT: |
1221: | x_return_status Return status after the call. The status can |
1222: | be FND_API.G_RET_STS_SUCCESS (success), |
1223: | fnd_api.g_ret_sts_error (error), |
1224: | fnd_api.g_ret_sts_unexp_error (unexpected |
1225: | error). |
1226: | x_msg_count Number of messages in message stack. |
1219: | RFC code assignment. |
1220: | OUT: |
1221: | x_return_status Return status after the call. The status can |
1222: | be FND_API.G_RET_STS_SUCCESS (success), |
1223: | fnd_api.g_ret_sts_error (error), |
1224: | fnd_api.g_ret_sts_unexp_error (unexpected |
1225: | error). |
1226: | x_msg_count Number of messages in message stack. |
1227: | x_msg_data Message text if x_msg_count is 1. |
1220: | OUT: |
1221: | x_return_status Return status after the call. The status can |
1222: | be FND_API.G_RET_STS_SUCCESS (success), |
1223: | fnd_api.g_ret_sts_error (error), |
1224: | fnd_api.g_ret_sts_unexp_error (unexpected |
1225: | error). |
1226: | x_msg_count Number of messages in message stack. |
1227: | x_msg_data Message text if x_msg_count is 1. |
1228: | MODIFICATION HISTORY |
1228: | MODIFICATION HISTORY |
1229: | 25-AUG-2004 Xin Wang Created. |
1230: +=======================================================================*/
1231: PROCEDURE update_bank_branch (
1232: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
1233: p_branch_id IN NUMBER,
1234: p_branch_name IN VARCHAR2,
1235: p_branch_number IN VARCHAR2 DEFAULT NULL,
1236: p_branch_type IN VARCHAR2,
1302: cep_standard.debug('>>CE_EXT_BANK_ACCT_PUB.update_bank_branch.');
1303: END IF;
1304:
1305: -- initialize message list
1306: IF fnd_api.to_boolean(p_init_msg_list) THEN
1307: fnd_msg_pub.initialize;
1308: END IF;
1309:
1310: -- initialize API return status to success.
1307: fnd_msg_pub.initialize;
1308: END IF;
1309:
1310: -- initialize API return status to success.
1311: x_return_status := fnd_api.g_ret_sts_success;
1312:
1313: -- first check all required params
1314: IF (p_branch_id IS NULL or
1315: p_branch_name IS NULL ) THEN
1314: IF (p_branch_id IS NULL or
1315: p_branch_name IS NULL ) THEN
1316: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1317: fnd_msg_pub.add;
1318: x_return_status := fnd_api.g_ret_sts_error;
1319: RAISE fnd_api.g_exc_error;
1320: END IF;
1321:
1322: find_bank_info(p_branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
1315: p_branch_name IS NULL ) THEN
1316: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1317: fnd_msg_pub.add;
1318: x_return_status := fnd_api.g_ret_sts_error;
1319: RAISE fnd_api.g_exc_error;
1320: END IF;
1321:
1322: find_bank_info(p_branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
1323:
1321:
1322: find_bank_info(p_branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
1323:
1324: -- raise an exception if bank is not found
1325: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1326: RAISE fnd_api.g_exc_error;
1327: END IF;
1328:
1329: -- country specific validation API call here
1322: find_bank_info(p_branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
1323:
1324: -- raise an exception if bank is not found
1325: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1326: RAISE fnd_api.g_exc_error;
1327: END IF;
1328:
1329: -- country specific validation API call here
1330: ce_validate_bankinfo.ce_validate_branch(l_country,
1334: p_branch_name,
1335: p_alternate_branch_name,
1336: l_bank_id,
1337: p_branch_id,
1338: FND_API.G_FALSE, -- do not re-initialize msg stack
1339: x_msg_count,
1340: x_msg_data,
1341: l_branch_number, -- reformatted branch number
1342: x_return_status);
1341: l_branch_number, -- reformatted branch number
1342: x_return_status);
1343:
1344: -- raise an exception if country specific validations fail
1345: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1346: RAISE fnd_api.g_exc_error;
1347: END IF;
1348:
1349: l_party_rec.party_id := p_branch_id;
1342: x_return_status);
1343:
1344: -- raise an exception if country specific validations fail
1345: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1346: RAISE fnd_api.g_exc_error;
1347: END IF;
1348:
1349: l_party_rec.party_id := p_branch_id;
1350: l_party_rec.attribute_category := p_attribute_category;
1383: l_branch_rec.branch_type := p_branch_type;
1384: l_branch_rec.rfc_code := p_rfc_identifier;
1385: l_branch_rec.organization_rec := l_org_rec;
1386:
1387: hz_bank_pub.update_bank_branch(fnd_api.g_false, l_branch_rec, null,
1388: l_rel_id,
1389: p_bch_object_version_number, p_typ_object_version_number,
1390: p_rfc_object_version_number,
1391: l_profile_id, l_rel_party_id, l_rel_party_number,
1391: l_profile_id, l_rel_party_id, l_rel_party_number,
1392: x_return_status, x_msg_count, x_msg_data);
1393:
1394: -- raise an exception if the branch creation is unsuccessful
1395: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1396: RAISE fnd_api.g_exc_error;
1397: END IF;
1398:
1399: -- see whether this branch already have eft contact points
1392: x_return_status, x_msg_count, x_msg_data);
1393:
1394: -- raise an exception if the branch creation is unsuccessful
1395: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1396: RAISE fnd_api.g_exc_error;
1397: END IF;
1398:
1399: -- see whether this branch already have eft contact points
1400: OPEN c_eft;
1410: l_eft_rec.eft_swift_code := p_bic;
1411: l_eft_rec.eft_user_number := p_eft_number;
1412:
1413: hz_contact_point_v2pub.create_eft_contact_point
1414: (fnd_api.g_false, l_contact_point_rec, l_eft_rec,
1415: l_contact_point_id,
1416: x_return_status, x_msg_count, x_msg_data);
1417: END IF;
1418: ELSE -- already have, update
1421: l_eft_rec.eft_swift_code := p_bic;
1422: l_eft_rec.eft_user_number := p_eft_number;
1423:
1424: hz_contact_point_v2pub.update_eft_contact_point
1425: (fnd_api.g_false, l_contact_point_rec, l_eft_rec,
1426: p_eft_object_version_number,
1427: x_return_status, x_msg_count, x_msg_data);
1428: END IF;
1429:
1427: x_return_status, x_msg_count, x_msg_data);
1428: END IF;
1429:
1430: -- raise an exception if the eft contact point creation/update is unsuccessful
1431: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1432: RAISE fnd_api.g_exc_error;
1433: END IF;
1434:
1435: -- get message count and if count is 1, get message info.
1428: END IF;
1429:
1430: -- raise an exception if the eft contact point creation/update is unsuccessful
1431: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1432: RAISE fnd_api.g_exc_error;
1433: END IF;
1434:
1435: -- get message count and if count is 1, get message info.
1436: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1432: RAISE fnd_api.g_exc_error;
1433: END IF;
1434:
1435: -- get message count and if count is 1, get message info.
1436: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1437: p_count => x_msg_count,
1438: p_data => x_msg_data);
1439:
1440: IF l_DEBUG in ('Y', 'C') THEN
1441: cep_standard.debug('<
1443:
1444: EXCEPTION
1445: WHEN fnd_api.g_exc_error THEN
1446: ROLLBACK TO update_bank_branch;
1447: x_return_status := fnd_api.g_ret_sts_error;
1448: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1449: p_count => x_msg_count,
1443:
1444: EXCEPTION
1445: WHEN fnd_api.g_exc_error THEN
1446: ROLLBACK TO update_bank_branch;
1447: x_return_status := fnd_api.g_ret_sts_error;
1448: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1451:
1444: EXCEPTION
1445: WHEN fnd_api.g_exc_error THEN
1446: ROLLBACK TO update_bank_branch;
1447: x_return_status := fnd_api.g_ret_sts_error;
1448: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1451:
1452: IF l_DEBUG in ('Y', 'C') THEN
1452: IF l_DEBUG in ('Y', 'C') THEN
1453: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
1454: END IF;
1455:
1456: WHEN fnd_api.g_exc_unexpected_error THEN
1457: ROLLBACK TO update_bank_branch;
1458: x_return_status := fnd_api.g_ret_sts_unexp_error;
1459: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1460: p_count => x_msg_count,
1454: END IF;
1455:
1456: WHEN fnd_api.g_exc_unexpected_error THEN
1457: ROLLBACK TO update_bank_branch;
1458: x_return_status := fnd_api.g_ret_sts_unexp_error;
1459: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1460: p_count => x_msg_count,
1461: p_data => x_msg_data);
1462:
1455:
1456: WHEN fnd_api.g_exc_unexpected_error THEN
1457: ROLLBACK TO update_bank_branch;
1458: x_return_status := fnd_api.g_ret_sts_unexp_error;
1459: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1460: p_count => x_msg_count,
1461: p_data => x_msg_data);
1462:
1463: IF l_DEBUG in ('Y', 'C') THEN
1465: END IF;
1466:
1467: WHEN OTHERS THEN
1468: ROLLBACK TO update_bank_branch;
1469: x_return_status := fnd_api.g_ret_sts_unexp_error;
1470: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
1471: fnd_message.set_token('ERROR',SQLERRM);
1472: fnd_msg_pub.add;
1473: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1469: x_return_status := fnd_api.g_ret_sts_unexp_error;
1470: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
1471: fnd_message.set_token('ERROR',SQLERRM);
1472: fnd_msg_pub.add;
1473: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1474: p_count => x_msg_count,
1475: p_data => x_msg_data);
1476:
1477: IF l_DEBUG in ('Y', 'C') THEN
1492: | |
1493: | ARGUMENTS |
1494: | IN: |
1495: | p_init_msg_list Initialize message stack if it is set to |
1496: | FND_API.G_TRUE. Default is fnd_api.g_false
1497: | p_branch_id Party ID of the branch to be inactivated.|
1498: | p_end_date Inactive date of the bank branch. |
1499: | IN/OUT: |
1500: | p_object_version_number Current object version number for the |
1501: | code assignment of the bank institution|
1502: | type for the bank branch. |
1503: | OUT: |
1504: | x_return_status Return status after the call. The status can |
1505: | be FND_API.G_RET_STS_SUCCESS (success), |
1506: | fnd_api.g_ret_sts_error (error), |
1507: | fnd_api.g_ret_sts_unexp_error (unexpected |
1508: | error). |
1509: | x_msg_count Number of messages in message stack. |
1502: | type for the bank branch. |
1503: | OUT: |
1504: | x_return_status Return status after the call. The status can |
1505: | be FND_API.G_RET_STS_SUCCESS (success), |
1506: | fnd_api.g_ret_sts_error (error), |
1507: | fnd_api.g_ret_sts_unexp_error (unexpected |
1508: | error). |
1509: | x_msg_count Number of messages in message stack. |
1510: | x_msg_data Message text if x_msg_count is 1. |
1503: | OUT: |
1504: | x_return_status Return status after the call. The status can |
1505: | be FND_API.G_RET_STS_SUCCESS (success), |
1506: | fnd_api.g_ret_sts_error (error), |
1507: | fnd_api.g_ret_sts_unexp_error (unexpected |
1508: | error). |
1509: | x_msg_count Number of messages in message stack. |
1510: | x_msg_data Message text if x_msg_count is 1. |
1511: | MODIFICATION HISTORY |
1511: | MODIFICATION HISTORY |
1512: | 25-AUG-2004 Xin Wang Created. |
1513: +=======================================================================*/
1514: PROCEDURE set_bank_branch_end_date (
1515: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
1516: p_branch_id IN NUMBER,
1517: p_end_date IN DATE,
1518: p_object_version_number IN OUT NOCOPY NUMBER,
1519: x_return_status OUT NOCOPY VARCHAR2,
1581: cep_standard.debug('>>CE_EXT_BANK_ACCT_PUB.set_bank_branch_end_date.');
1582: END IF;
1583:
1584: -- initialize message list
1585: IF fnd_api.to_boolean(p_init_msg_list) THEN
1586: fnd_msg_pub.initialize;
1587: END IF;
1588:
1589: -- initialize API return status to success.
1586: fnd_msg_pub.initialize;
1587: END IF;
1588:
1589: -- initialize API return status to success.
1590: x_return_status := fnd_api.g_ret_sts_success;
1591:
1592: -- first check all required params
1593: IF (p_branch_id = null or
1594: p_object_version_number = null) THEN
1593: IF (p_branch_id = null or
1594: p_object_version_number = null) THEN
1595: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1596: fnd_msg_pub.add;
1597: x_return_status := fnd_api.g_ret_sts_error;
1598: RAISE fnd_api.g_exc_error;
1599: END IF;
1600:
1601: -- if the new end date is later than the old branch end date
1594: p_object_version_number = null) THEN
1595: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1596: fnd_msg_pub.add;
1597: x_return_status := fnd_api.g_ret_sts_error;
1598: RAISE fnd_api.g_exc_error;
1599: END IF;
1600:
1601: -- if the new end date is later than the old branch end date
1602: -- and is later than its bank's end date,
1608: FETCH c_branch_end INTO l_branch_end;
1609: IF c_branch_end%NOTFOUND THEN
1610: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
1611: fnd_msg_pub.add;
1612: x_return_status := fnd_api.g_ret_sts_error;
1613: RAISE fnd_api.g_exc_error;
1614: END IF;
1615: CLOSE c_branch_end;
1616:
1609: IF c_branch_end%NOTFOUND THEN
1610: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
1611: fnd_msg_pub.add;
1612: x_return_status := fnd_api.g_ret_sts_error;
1613: RAISE fnd_api.g_exc_error;
1614: END IF;
1615: CLOSE c_branch_end;
1616:
1617: -- find bank_id of this branch's bank
1619: FETCH c_bank_id INTO l_bank_id;
1620: IF c_bank_id%NOTFOUND THEN
1621: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
1622: fnd_msg_pub.add;
1623: x_return_status := fnd_api.g_ret_sts_error;
1624: RAISE fnd_api.g_exc_error;
1625: END IF;
1626: CLOSE c_bank_id;
1627:
1620: IF c_bank_id%NOTFOUND THEN
1621: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
1622: fnd_msg_pub.add;
1623: x_return_status := fnd_api.g_ret_sts_error;
1624: RAISE fnd_api.g_exc_error;
1625: END IF;
1626: CLOSE c_bank_id;
1627:
1628: -- bank's end date
1630: FETCH c_bank INTO l_bank_end, l_bank_ovn;
1631: IF c_bank%NOTFOUND THEN
1632: fnd_message.set_name('CE', 'CE_API_NO_BANK');
1633: fnd_msg_pub.add;
1634: x_return_status := fnd_api.g_ret_sts_error;
1635: RAISE fnd_api.g_exc_error;
1636: END IF;
1637: CLOSE c_bank;
1638:
1631: IF c_bank%NOTFOUND THEN
1632: fnd_message.set_name('CE', 'CE_API_NO_BANK');
1633: fnd_msg_pub.add;
1634: x_return_status := fnd_api.g_ret_sts_error;
1635: RAISE fnd_api.g_exc_error;
1636: END IF;
1637: CLOSE c_bank;
1638:
1639: IF (p_end_date IS NOT NULL
1639: IF (p_end_date IS NOT NULL
1640: AND p_end_date > NVL(l_bank_end, p_end_date))
1641: OR (p_end_date IS NULL
1642: AND l_bank_end IS NOT NULL) THEN
1643: set_bank_end_date (fnd_api.g_false,
1644: l_bank_id,
1645: p_end_date,
1646: l_bank_ovn,
1647: x_return_status,
1647: x_return_status,
1648: x_msg_count,
1649: x_msg_data);
1650:
1651: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1652: RAISE fnd_api.g_exc_error;
1653: END IF;
1654: END IF;
1655:
1648: x_msg_count,
1649: x_msg_data);
1650:
1651: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1652: RAISE fnd_api.g_exc_error;
1653: END IF;
1654: END IF;
1655:
1656: -- if the new end date is earlier than the old branch end date
1661: IF p_end_date IS NOT NULL AND p_end_date < NVL(acct_rec.end_date, p_end_date + 1) THEN
1662: l_account_ovn := acct_rec.object_version_number;
1663: iby_ext_bankacct_pub.set_ext_bank_acct_dates (
1664: 1.0,
1665: fnd_api.g_false,
1666: acct_rec.bank_account_id,
1667: acct_rec.start_date,
1668: p_end_date,
1669: l_account_ovn,
1670: x_return_status,
1671: x_msg_count,
1672: x_msg_data,
1673: l_response);
1674: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1675: RAISE fnd_api.g_exc_error;
1676: END IF;
1677: END IF;
1678: END LOOP;
1671: x_msg_count,
1672: x_msg_data,
1673: l_response);
1674: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1675: RAISE fnd_api.g_exc_error;
1676: END IF;
1677: END IF;
1678: END LOOP;
1679:
1687: FETCH c_branch_party_ovn INTO l_branch_party_ovn;
1688: IF c_branch_party_ovn%NOTFOUND THEN
1689: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
1690: fnd_msg_pub.add;
1691: x_return_status := fnd_api.g_ret_sts_error;
1692: CLOSE c_branch_party_ovn;
1693: RAISE fnd_api.g_exc_error;
1694: END IF;
1695: CLOSE c_branch_party_ovn;
1689: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
1690: fnd_msg_pub.add;
1691: x_return_status := fnd_api.g_ret_sts_error;
1692: CLOSE c_branch_party_ovn;
1693: RAISE fnd_api.g_exc_error;
1694: END IF;
1695: CLOSE c_branch_party_ovn;
1696:
1697: OPEN c_rfc_ovn;
1700: l_rfc_ovn := null;
1701: END IF;
1702: CLOSE c_rfc_ovn;
1703:
1704: hz_bank_pub.update_bank_branch(fnd_api.g_false, l_branch_rec, null,
1705: l_rel_id,
1706: l_branch_party_ovn, p_object_version_number,
1707: l_rfc_ovn,
1708: l_profile_id, l_rel_party_id, l_rel_party_number,
1707: l_rfc_ovn,
1708: l_profile_id, l_rel_party_id, l_rel_party_number,
1709: x_return_status, x_msg_count, x_msg_data);
1710:
1711: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1712: RAISE fnd_api.g_exc_error;
1713: END IF;
1714:
1715: -- get message count and if count is 1, get message info.
1708: l_profile_id, l_rel_party_id, l_rel_party_number,
1709: x_return_status, x_msg_count, x_msg_data);
1710:
1711: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1712: RAISE fnd_api.g_exc_error;
1713: END IF;
1714:
1715: -- get message count and if count is 1, get message info.
1716: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1712: RAISE fnd_api.g_exc_error;
1713: END IF;
1714:
1715: -- get message count and if count is 1, get message info.
1716: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1717: p_count => x_msg_count,
1718: p_data => x_msg_data);
1719:
1720: IF l_DEBUG in ('Y', 'C') THEN
1721: cep_standard.debug('<
1723:
1724: EXCEPTION
1725: WHEN fnd_api.g_exc_error THEN
1726: ROLLBACK TO set_bank_branch_end_date;
1727: x_return_status := fnd_api.g_ret_sts_error;
1728: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1729: p_count => x_msg_count,
1723:
1724: EXCEPTION
1725: WHEN fnd_api.g_exc_error THEN
1726: ROLLBACK TO set_bank_branch_end_date;
1727: x_return_status := fnd_api.g_ret_sts_error;
1728: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1729: p_count => x_msg_count,
1730: p_data => x_msg_data);
1731:
1724: EXCEPTION
1725: WHEN fnd_api.g_exc_error THEN
1726: ROLLBACK TO set_bank_branch_end_date;
1727: x_return_status := fnd_api.g_ret_sts_error;
1728: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1729: p_count => x_msg_count,
1730: p_data => x_msg_data);
1731:
1732: IF l_DEBUG in ('Y', 'C') THEN
1732: IF l_DEBUG in ('Y', 'C') THEN
1733: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
1734: END IF;
1735:
1736: WHEN fnd_api.g_exc_unexpected_error THEN
1737: ROLLBACK TO set_bank_branch_end_date;
1738: x_return_status := fnd_api.g_ret_sts_unexp_error;
1739: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1740: p_count => x_msg_count,
1734: END IF;
1735:
1736: WHEN fnd_api.g_exc_unexpected_error THEN
1737: ROLLBACK TO set_bank_branch_end_date;
1738: x_return_status := fnd_api.g_ret_sts_unexp_error;
1739: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1740: p_count => x_msg_count,
1741: p_data => x_msg_data);
1742:
1735:
1736: WHEN fnd_api.g_exc_unexpected_error THEN
1737: ROLLBACK TO set_bank_branch_end_date;
1738: x_return_status := fnd_api.g_ret_sts_unexp_error;
1739: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1740: p_count => x_msg_count,
1741: p_data => x_msg_data);
1742:
1743: IF l_DEBUG in ('Y', 'C') THEN
1745: END IF;
1746:
1747: WHEN OTHERS THEN
1748: ROLLBACK TO set_bank_branch_end_date;
1749: x_return_status := fnd_api.g_ret_sts_unexp_error;
1750: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
1751: fnd_message.set_token('ERROR',SQLERRM);
1752: fnd_msg_pub.add;
1753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1749: x_return_status := fnd_api.g_ret_sts_unexp_error;
1750: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
1751: fnd_message.set_token('ERROR',SQLERRM);
1752: fnd_msg_pub.add;
1753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1754: p_count => x_msg_count,
1755: p_data => x_msg_data);
1756:
1757: IF l_DEBUG in ('Y', 'C') THEN
1882: | |
1883: | ARGUMENTS |
1884: | IN: |
1885: | p_init_msg_list Initialize message stack if it is set to |
1886: | FND_API.G_TRUE. Default is fnd_api.g_false |
1887: | p_acct_rec Bank account record. |
1888: | IN/OUT: |
1889: | OUT: |
1890: | x_acct_id Bank account ID. |
1888: | IN/OUT: |
1889: | OUT: |
1890: | x_acct_id Bank account ID. |
1891: | x_return_status Return status after the call. The status can |
1892: | be FND_API.G_RET_STS_SUCCESS (success), |
1893: | fnd_api.g_ret_sts_error (error), |
1894: | fnd_api.g_ret_sts_unexp_error (unexpected |
1895: | error). |
1896: | x_msg_count Number of messages in message stack. |
1889: | OUT: |
1890: | x_acct_id Bank account ID. |
1891: | x_return_status Return status after the call. The status can |
1892: | be FND_API.G_RET_STS_SUCCESS (success), |
1893: | fnd_api.g_ret_sts_error (error), |
1894: | fnd_api.g_ret_sts_unexp_error (unexpected |
1895: | error). |
1896: | x_msg_count Number of messages in message stack. |
1897: | x_msg_data Message text if x_msg_count is 1. |
1890: | x_acct_id Bank account ID. |
1891: | x_return_status Return status after the call. The status can |
1892: | be FND_API.G_RET_STS_SUCCESS (success), |
1893: | fnd_api.g_ret_sts_error (error), |
1894: | fnd_api.g_ret_sts_unexp_error (unexpected |
1895: | error). |
1896: | x_msg_count Number of messages in message stack. |
1897: | x_msg_data Message text if x_msg_count is 1. |
1898: | MODIFICATION HISTORY |
1898: | MODIFICATION HISTORY |
1899: | 25-AUG-2004 Xin Wang Created. |
1900: +=======================================================================*/
1901: PROCEDURE create_bank_acct (
1902: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
1903: p_acct_rec IN BankAcct_rec_type,
1904: x_acct_id OUT NOCOPY NUMBER,
1905: x_return_status OUT NOCOPY VARCHAR2,
1906: x_msg_count OUT NOCOPY NUMBER,
1945: cep_standard.debug('>>CE_BANK_PUB.create_bank_acct.');
1946: END IF;
1947:
1948: -- initialize message list
1949: IF fnd_api.to_boolean(p_init_msg_list) THEN
1950: fnd_msg_pub.initialize;
1951: END IF;
1952:
1953: -- initialize API return status to success.
1950: fnd_msg_pub.initialize;
1951: END IF;
1952:
1953: -- initialize API return status to success.
1954: x_return_status := fnd_api.g_ret_sts_success;
1955:
1956: -- first check all required params
1957: IF (p_acct_rec.branch_id = null or
1958: p_acct_rec.bank_account_name = null or
1960: p_acct_rec.account_owner_org_id = null or
1961: p_acct_rec.account_classification = null ) THEN
1962: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1963: fnd_msg_pub.add;
1964: x_return_status := fnd_api.g_ret_sts_error;
1965: RAISE fnd_api.g_exc_error;
1966: END IF;
1967:
1968: -- validate currency
1961: p_acct_rec.account_classification = null ) THEN
1962: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
1963: fnd_msg_pub.add;
1964: x_return_status := fnd_api.g_ret_sts_error;
1965: RAISE fnd_api.g_exc_error;
1966: END IF;
1967:
1968: -- validate currency
1969: IF p_acct_rec.currency IS NOT NULL THEN
1969: IF p_acct_rec.currency IS NOT NULL THEN
1970: CE_BANK_AND_ACCOUNT_VALIDATION.validate_currency(p_acct_rec.currency, x_return_status);
1971:
1972: -- raise an exception if the validation is unsuccessful
1973: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1974: RAISE fnd_api.g_exc_error;
1975: END IF;
1976: END IF;
1977:
1970: CE_BANK_AND_ACCOUNT_VALIDATION.validate_currency(p_acct_rec.currency, x_return_status);
1971:
1972: -- raise an exception if the validation is unsuccessful
1973: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1974: RAISE fnd_api.g_exc_error;
1975: END IF;
1976: END IF;
1977:
1978: -- validate account name
1979: CE_BANK_AND_ACCOUNT_VALIDATION.validate_account_name(p_acct_rec.branch_id, p_acct_rec.bank_account_name,
1980: null, x_return_status);
1981:
1982: -- raise an exception if the validation is unsuccessful
1983: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1984: RAISE fnd_api.g_exc_error;
1985: END IF;
1986:
1987:
1980: null, x_return_status);
1981:
1982: -- raise an exception if the validation is unsuccessful
1983: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1984: RAISE fnd_api.g_exc_error;
1985: END IF;
1986:
1987:
1988: -- validate iban
1989: IF p_acct_rec.iban IS NOT NULL THEN
1990: CE_BANK_AND_ACCOUNT_VALIDATION.validate_IBAN(p_acct_rec.iban, l_iban, x_return_status);
1991:
1992: -- raise an exception if the validation is unsuccessful
1993: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1994: RAISE fnd_api.g_exc_error;
1995: END IF;
1996: END IF;
1997:
1990: CE_BANK_AND_ACCOUNT_VALIDATION.validate_IBAN(p_acct_rec.iban, l_iban, x_return_status);
1991:
1992: -- raise an exception if the validation is unsuccessful
1993: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1994: RAISE fnd_api.g_exc_error;
1995: END IF;
1996: END IF;
1997:
1998: -- validate agency_location_code
1997:
1998: -- validate agency_location_code
1999: IF p_acct_rec.agency_location_code IS NOT NULL THEN
2000: CE_BANK_AND_ACCOUNT_VALIDATION.validate_alc(p_acct_rec.agency_location_code,
2001: FND_API.G_FALSE,
2002: x_msg_count,
2003: x_msg_data,
2004: l_alc,
2005: x_return_status);
2004: l_alc,
2005: x_return_status);
2006:
2007: -- raise an exception if the validation is unsuccessful
2008: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2009: RAISE fnd_api.g_exc_error;
2010: END IF;
2011: END IF;
2012:
2005: x_return_status);
2006:
2007: -- raise an exception if the validation is unsuccessful
2008: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2009: RAISE fnd_api.g_exc_error;
2010: END IF;
2011: END IF;
2012:
2013: -- find bank info
2014: IF p_acct_rec.branch_id IS NOT NULL THEN
2015: find_bank_info(p_acct_rec.branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
2016:
2017: -- raise an exception if bank is not found
2018: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2019: RAISE fnd_api.g_exc_error;
2020: END IF;
2021:
2022: -- find branch number
2015: find_bank_info(p_acct_rec.branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
2016:
2017: -- raise an exception if bank is not found
2018: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2019: RAISE fnd_api.g_exc_error;
2020: END IF;
2021:
2022: -- find branch number
2023: OPEN c_branch;
2024: FETCH c_branch INTO l_branch_number;
2025: IF c_branch%NOTFOUND THEN
2026: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
2027: fnd_msg_pub.add;
2028: x_return_status := fnd_api.g_ret_sts_error;
2029: RAISE fnd_api.g_exc_error;
2030: END IF;
2031: CLOSE c_branch;
2032: END IF;
2025: IF c_branch%NOTFOUND THEN
2026: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
2027: fnd_msg_pub.add;
2028: x_return_status := fnd_api.g_ret_sts_error;
2029: RAISE fnd_api.g_exc_error;
2030: END IF;
2031: CLOSE c_branch;
2032: END IF;
2033:
2038: p_acct_rec.check_digits,
2039: l_bank_number,
2040: l_branch_number,
2041: p_acct_rec.bank_account_num,
2042: FND_API.G_FALSE,
2043: x_msg_count,
2044: x_msg_data,
2045: x_return_status,
2046: 'INTERNAL');
2056: p_acct_rec.acct_type,
2057: p_acct_rec.acct_suffix,
2058: p_acct_rec.secondary_account_reference,
2059: p_acct_rec.bank_account_name,
2060: FND_API.G_FALSE,
2061: x_msg_count,
2062: x_msg_data,
2063: l_account_number,
2064: x_return_status,
2067: X_ELECTRONIC_ACCT_NUM
2068: );
2069:
2070: -- raise an exception if the validation fails
2071: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2072: RAISE fnd_api.g_exc_error;
2073: END IF;
2074: ELSE -- set the account number for subsidiary accounts
2075: l_account_number := p_acct_rec.bank_account_num;
2068: );
2069:
2070: -- raise an exception if the validation fails
2071: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2072: RAISE fnd_api.g_exc_error;
2073: END IF;
2074: ELSE -- set the account number for subsidiary accounts
2075: l_account_number := p_acct_rec.bank_account_num;
2076: END IF; -- subsidiary accounts
2260: End If;
2261: CLOSE c_acct_rowid;
2262:
2263: -- get message count and if count is 1, get message info.
2264: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2265: p_count => x_msg_count,
2266: p_data => x_msg_data);
2267:
2268: IF l_DEBUG in ('Y', 'C') THEN
2269: cep_standard.debug('<
2271:
2272: EXCEPTION
2273: WHEN fnd_api.g_exc_error THEN
2274: ROLLBACK TO create_bank_acct;
2275: x_return_status := fnd_api.g_ret_sts_error;
2276: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2277: p_count => x_msg_count,
2271:
2272: EXCEPTION
2273: WHEN fnd_api.g_exc_error THEN
2274: ROLLBACK TO create_bank_acct;
2275: x_return_status := fnd_api.g_ret_sts_error;
2276: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2277: p_count => x_msg_count,
2278: p_data => x_msg_data);
2279:
2272: EXCEPTION
2273: WHEN fnd_api.g_exc_error THEN
2274: ROLLBACK TO create_bank_acct;
2275: x_return_status := fnd_api.g_ret_sts_error;
2276: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2277: p_count => x_msg_count,
2278: p_data => x_msg_data);
2279:
2280: IF l_DEBUG in ('Y', 'C') THEN
2280: IF l_DEBUG in ('Y', 'C') THEN
2281: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
2282: END IF;
2283:
2284: WHEN fnd_api.g_exc_unexpected_error THEN
2285: ROLLBACK TO create_bank_acct;
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2288: p_count => x_msg_count,
2282: END IF;
2283:
2284: WHEN fnd_api.g_exc_unexpected_error THEN
2285: ROLLBACK TO create_bank_acct;
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2288: p_count => x_msg_count,
2289: p_data => x_msg_data);
2290:
2283:
2284: WHEN fnd_api.g_exc_unexpected_error THEN
2285: ROLLBACK TO create_bank_acct;
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2288: p_count => x_msg_count,
2289: p_data => x_msg_data);
2290:
2291: IF l_DEBUG in ('Y', 'C') THEN
2293: END IF;
2294:
2295: WHEN OTHERS THEN
2296: ROLLBACK TO create_bank_acct;
2297: x_return_status := fnd_api.g_ret_sts_unexp_error;
2298: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
2299: fnd_message.set_token('ERROR',SQLERRM);
2300: fnd_msg_pub.add;
2301: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2297: x_return_status := fnd_api.g_ret_sts_unexp_error;
2298: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
2299: fnd_message.set_token('ERROR',SQLERRM);
2300: fnd_msg_pub.add;
2301: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2302: p_count => x_msg_count,
2303: p_data => x_msg_data);
2304:
2305: IF l_DEBUG in ('Y', 'C') THEN
2319: | |
2320: | ARGUMENTS |
2321: | IN: |
2322: | p_init_msg_list Initialize message stack if it is set to |
2323: | FND_API.G_TRUE. Default is fnd_api.g_false
2324: | p_acct_rec External bank account record. |
2325: | IN/OUT: |
2326: | p_object_version_number Current object version number for the |
2327: | bank account. |
2326: | p_object_version_number Current object version number for the |
2327: | bank account. |
2328: | OUT: |
2329: | x_return_status Return status after the call. The status can |
2330: | be FND_API.G_RET_STS_SUCCESS (success), |
2331: | fnd_api.g_ret_sts_error (error), |
2332: | fnd_api.g_ret_sts_unexp_error (unexpected |
2333: | error). |
2334: | x_msg_count Number of messages in message stack. |
2327: | bank account. |
2328: | OUT: |
2329: | x_return_status Return status after the call. The status can |
2330: | be FND_API.G_RET_STS_SUCCESS (success), |
2331: | fnd_api.g_ret_sts_error (error), |
2332: | fnd_api.g_ret_sts_unexp_error (unexpected |
2333: | error). |
2334: | x_msg_count Number of messages in message stack. |
2335: | x_msg_data Message text if x_msg_count is 1. |
2328: | OUT: |
2329: | x_return_status Return status after the call. The status can |
2330: | be FND_API.G_RET_STS_SUCCESS (success), |
2331: | fnd_api.g_ret_sts_error (error), |
2332: | fnd_api.g_ret_sts_unexp_error (unexpected |
2333: | error). |
2334: | x_msg_count Number of messages in message stack. |
2335: | x_msg_data Message text if x_msg_count is 1. |
2336: | MODIFICATION HISTORY |
2336: | MODIFICATION HISTORY |
2337: | 25-AUG-2004 Xin Wang Created. |
2338: +=======================================================================*/
2339: PROCEDURE update_bank_acct (
2340: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
2341: p_acct_rec IN BankAcct_rec_type,
2342: p_object_version_number IN OUT NOCOPY NUMBER,
2343: x_return_status OUT NOCOPY VARCHAR2,
2344: x_msg_count OUT NOCOPY NUMBER,
2379: cep_standard.debug('>>CE_BANK_PUB.update_bank_acct.');
2380: END IF;
2381:
2382: -- initialize message list
2383: IF fnd_api.to_boolean(p_init_msg_list) THEN
2384: fnd_msg_pub.initialize;
2385: END IF;
2386:
2387: -- initialize API return status to success.
2384: fnd_msg_pub.initialize;
2385: END IF;
2386:
2387: -- initialize API return status to success.
2388: x_return_status := fnd_api.g_ret_sts_success;
2389:
2390: -- first check all required params
2391: IF (p_acct_rec.bank_account_id = null or
2392: p_acct_rec.bank_account_name = null or
2394: p_acct_rec.account_classification = null or
2395: p_object_version_number = null) THEN
2396: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
2397: fnd_msg_pub.add;
2398: x_return_status := fnd_api.g_ret_sts_error;
2399: RAISE fnd_api.g_exc_error;
2400: END IF;
2401:
2402: -- validate currency
2395: p_object_version_number = null) THEN
2396: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
2397: fnd_msg_pub.add;
2398: x_return_status := fnd_api.g_ret_sts_error;
2399: RAISE fnd_api.g_exc_error;
2400: END IF;
2401:
2402: -- validate currency
2403: IF p_acct_rec.currency IS NOT NULL THEN
2403: IF p_acct_rec.currency IS NOT NULL THEN
2404: CE_BANK_AND_ACCOUNT_VALIDATION.validate_currency(p_acct_rec.currency, x_return_status);
2405:
2406: -- raise an exception if the validation is unsuccessful
2407: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2408: RAISE fnd_api.g_exc_error;
2409: END IF;
2410: END IF;
2411:
2404: CE_BANK_AND_ACCOUNT_VALIDATION.validate_currency(p_acct_rec.currency, x_return_status);
2405:
2406: -- raise an exception if the validation is unsuccessful
2407: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2408: RAISE fnd_api.g_exc_error;
2409: END IF;
2410: END IF;
2411:
2412: -- validate account name
2414: FETCH c_branch_id INTO l_branch_id;
2415: IF c_branch_id%NOTFOUND THEN
2416: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT');
2417: fnd_msg_pub.add;
2418: x_return_status := fnd_api.g_ret_sts_error;
2419: CLOSE c_branch_id;
2420: RAISE fnd_api.g_exc_error;
2421: END IF;
2422: CLOSE c_branch_id;
2416: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT');
2417: fnd_msg_pub.add;
2418: x_return_status := fnd_api.g_ret_sts_error;
2419: CLOSE c_branch_id;
2420: RAISE fnd_api.g_exc_error;
2421: END IF;
2422: CLOSE c_branch_id;
2423:
2424: CE_BANK_AND_ACCOUNT_VALIDATION.validate_account_name(l_branch_id, p_acct_rec.bank_account_name,
2424: CE_BANK_AND_ACCOUNT_VALIDATION.validate_account_name(l_branch_id, p_acct_rec.bank_account_name,
2425: p_acct_rec.bank_account_id, x_return_status);
2426:
2427: -- raise an exception if the validation is unsuccessful
2428: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2429: RAISE fnd_api.g_exc_error;
2430: END IF;
2431:
2432: -- validate iban
2425: p_acct_rec.bank_account_id, x_return_status);
2426:
2427: -- raise an exception if the validation is unsuccessful
2428: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2429: RAISE fnd_api.g_exc_error;
2430: END IF;
2431:
2432: -- validate iban
2433: IF p_acct_rec.iban IS NOT NULL THEN
2433: IF p_acct_rec.iban IS NOT NULL THEN
2434: CE_BANK_AND_ACCOUNT_VALIDATION.validate_IBAN(p_acct_rec.iban, l_iban, x_return_status);
2435:
2436: -- raise an exception if the validation is unsuccessful
2437: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2438: RAISE fnd_api.g_exc_error;
2439: END IF;
2440: END IF;
2441:
2434: CE_BANK_AND_ACCOUNT_VALIDATION.validate_IBAN(p_acct_rec.iban, l_iban, x_return_status);
2435:
2436: -- raise an exception if the validation is unsuccessful
2437: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2438: RAISE fnd_api.g_exc_error;
2439: END IF;
2440: END IF;
2441:
2442: -- validate agency_location_code
2441:
2442: -- validate agency_location_code
2443: IF p_acct_rec.agency_location_code IS NOT NULL THEN
2444: CE_BANK_AND_ACCOUNT_VALIDATION.validate_alc(p_acct_rec.agency_location_code,
2445: FND_API.G_FALSE,
2446: x_msg_count,
2447: x_msg_data,
2448: l_alc,
2449: x_return_status);
2448: l_alc,
2449: x_return_status);
2450:
2451: -- raise an exception if the validation is unsuccessful
2452: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2453: RAISE fnd_api.g_exc_error;
2454: END IF;
2455: END IF;
2456:
2449: x_return_status);
2450:
2451: -- raise an exception if the validation is unsuccessful
2452: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2453: RAISE fnd_api.g_exc_error;
2454: END IF;
2455: END IF;
2456:
2457: -- find bank info
2457: -- find bank info
2458: IF l_branch_id IS NOT NULL THEN
2459: find_bank_info(l_branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
2460: -- raise an exception if bank is not found
2461: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2462: RAISE fnd_api.g_exc_error;
2463: END IF;
2464:
2465: -- find branch number
2458: IF l_branch_id IS NOT NULL THEN
2459: find_bank_info(l_branch_id, x_return_status, l_bank_id, l_country, l_bank_name, l_bank_number);
2460: -- raise an exception if bank is not found
2461: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2462: RAISE fnd_api.g_exc_error;
2463: END IF;
2464:
2465: -- find branch number
2466: OPEN c_branch_num(l_branch_id);
2467: FETCH c_branch_num INTO l_branch_number;
2468: IF c_branch_num%NOTFOUND THEN
2469: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
2470: fnd_msg_pub.add;
2471: x_return_status := fnd_api.g_ret_sts_error;
2472: CLOSE c_branch_num;
2473: RAISE fnd_api.g_exc_error;
2474: END IF;
2475: CLOSE c_branch_num;
2469: fnd_message.set_name('CE', 'CE_API_NO_BRANCH');
2470: fnd_msg_pub.add;
2471: x_return_status := fnd_api.g_ret_sts_error;
2472: CLOSE c_branch_num;
2473: RAISE fnd_api.g_exc_error;
2474: END IF;
2475: CLOSE c_branch_num;
2476: END IF;
2477:
2482: p_acct_rec.check_digits,
2483: l_bank_number,
2484: l_branch_number,
2485: p_acct_rec.bank_account_num,
2486: FND_API.G_FALSE,
2487: x_msg_count,
2488: x_msg_data,
2489: x_return_status,
2490: 'INTERNAL');
2500: p_acct_rec.acct_type,
2501: p_acct_rec.acct_suffix,
2502: p_acct_rec.secondary_account_reference,
2503: p_acct_rec.bank_account_name,
2504: FND_API.G_FALSE,
2505: x_msg_count,
2506: x_msg_data,
2507: l_account_number,
2508: x_return_status,
2510: p_acct_rec.check_digits,
2511: X_ELECTRONIC_ACCT_NUM);
2512:
2513: -- raise an exception if the validation fails
2514: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2515: RAISE fnd_api.g_exc_error;
2516: END IF;
2517: ELSE -- set the account number for subsidiary accounts
2518: l_account_number := p_acct_rec.bank_account_num;
2511: X_ELECTRONIC_ACCT_NUM);
2512:
2513: -- raise an exception if the validation fails
2514: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2515: RAISE fnd_api.g_exc_error;
2516: END IF;
2517: ELSE -- set the account number for subsidiary accounts
2518: l_account_number := p_acct_rec.bank_account_num;
2519: END IF; -- subsidiary account
2523: FETCH c_ovn INTO l_old_ovn;
2524: IF c_ovn%NOTFOUND THEN
2525: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT');
2526: fnd_msg_pub.add;
2527: x_return_status := fnd_api.g_ret_sts_error;
2528: CLOSE c_ovn;
2529: RAISE fnd_api.g_exc_error;
2530: END IF;
2531: CLOSE c_ovn;
2525: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT');
2526: fnd_msg_pub.add;
2527: x_return_status := fnd_api.g_ret_sts_error;
2528: CLOSE c_ovn;
2529: RAISE fnd_api.g_exc_error;
2530: END IF;
2531: CLOSE c_ovn;
2532:
2533: IF l_old_ovn > p_object_version_number THEN
2533: IF l_old_ovn > p_object_version_number THEN
2534: fnd_message.set_name('CE', 'CE_API_RECORD_CHANGED');
2535: fnd_message.set_token('TABLE', 'CE_BANK_ACCOUNTS');
2536: fnd_msg_pub.add;
2537: x_return_status := fnd_api.g_ret_sts_error;
2538: RAISE fnd_api.g_exc_error;
2539: END IF;
2540:
2541: -- update
2534: fnd_message.set_name('CE', 'CE_API_RECORD_CHANGED');
2535: fnd_message.set_token('TABLE', 'CE_BANK_ACCOUNTS');
2536: fnd_msg_pub.add;
2537: x_return_status := fnd_api.g_ret_sts_error;
2538: RAISE fnd_api.g_exc_error;
2539: END IF;
2540:
2541: -- update
2542: update ce_bank_accounts
2620: WHERE bank_account_id = p_acct_rec.bank_account_id;
2621: IF (SQL%NOTFOUND) THEN
2622: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT');
2623: fnd_msg_pub.add;
2624: x_return_status := fnd_api.g_ret_sts_error;
2625: RAISE fnd_api.g_exc_error;
2626: END IF;
2627: p_object_version_number := l_old_ovn + 1;
2628:
2621: IF (SQL%NOTFOUND) THEN
2622: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT');
2623: fnd_msg_pub.add;
2624: x_return_status := fnd_api.g_ret_sts_error;
2625: RAISE fnd_api.g_exc_error;
2626: END IF;
2627: p_object_version_number := l_old_ovn + 1;
2628:
2629: -- get message count and if count is 1, get message info.
2626: END IF;
2627: p_object_version_number := l_old_ovn + 1;
2628:
2629: -- get message count and if count is 1, get message info.
2630: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2631: p_count => x_msg_count,
2632: p_data => x_msg_data);
2633:
2634: IF l_DEBUG in ('Y', 'C') THEN
2635: cep_standard.debug('<
2637:
2638: EXCEPTION
2639: WHEN fnd_api.g_exc_error THEN
2640: ROLLBACK TO update_bank_acct;
2641: x_return_status := fnd_api.g_ret_sts_error;
2642: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2643: p_count => x_msg_count,
2637:
2638: EXCEPTION
2639: WHEN fnd_api.g_exc_error THEN
2640: ROLLBACK TO update_bank_acct;
2641: x_return_status := fnd_api.g_ret_sts_error;
2642: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2643: p_count => x_msg_count,
2644: p_data => x_msg_data);
2645:
2638: EXCEPTION
2639: WHEN fnd_api.g_exc_error THEN
2640: ROLLBACK TO update_bank_acct;
2641: x_return_status := fnd_api.g_ret_sts_error;
2642: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2643: p_count => x_msg_count,
2644: p_data => x_msg_data);
2645:
2646: IF l_DEBUG in ('Y', 'C') THEN
2646: IF l_DEBUG in ('Y', 'C') THEN
2647: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
2648: END IF;
2649:
2650: WHEN fnd_api.g_exc_unexpected_error THEN
2651: ROLLBACK TO update_bank_acct;
2652: x_return_status := fnd_api.g_ret_sts_unexp_error;
2653: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2654: p_count => x_msg_count,
2648: END IF;
2649:
2650: WHEN fnd_api.g_exc_unexpected_error THEN
2651: ROLLBACK TO update_bank_acct;
2652: x_return_status := fnd_api.g_ret_sts_unexp_error;
2653: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2654: p_count => x_msg_count,
2655: p_data => x_msg_data);
2656:
2649:
2650: WHEN fnd_api.g_exc_unexpected_error THEN
2651: ROLLBACK TO update_bank_acct;
2652: x_return_status := fnd_api.g_ret_sts_unexp_error;
2653: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2654: p_count => x_msg_count,
2655: p_data => x_msg_data);
2656:
2657: IF l_DEBUG in ('Y', 'C') THEN
2659: END IF;
2660:
2661: WHEN OTHERS THEN
2662: ROLLBACK TO udpate_bank_acct;
2663: x_return_status := fnd_api.g_ret_sts_unexp_error;
2664: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
2665: fnd_message.set_token('ERROR',SQLERRM);
2666: fnd_msg_pub.add;
2667: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2663: x_return_status := fnd_api.g_ret_sts_unexp_error;
2664: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
2665: fnd_message.set_token('ERROR',SQLERRM);
2666: fnd_msg_pub.add;
2667: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2668: p_count => x_msg_count,
2669: p_data => x_msg_data);
2670:
2671: IF l_DEBUG in ('Y', 'C') THEN
2676:
2677:
2678:
2679: PROCEDURE create_bank_acct_use (
2680: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
2681: p_acct_use_rec IN BankAcct_use_rec_type,
2682: x_acct_use_id OUT NOCOPY NUMBER,
2683: x_return_status OUT NOCOPY VARCHAR2,
2684: x_msg_count OUT NOCOPY NUMBER,
2706: cep_standard.debug('>>CE_BANK_PUB.create_bank_acct_use.');
2707: END IF;
2708:
2709: -- initialize message list
2710: IF fnd_api.to_boolean(p_init_msg_list) THEN
2711: fnd_msg_pub.initialize;
2712: END IF;
2713:
2714: -- initialize API return status to success.
2711: fnd_msg_pub.initialize;
2712: END IF;
2713:
2714: -- initialize API return status to success.
2715: x_return_status := fnd_api.g_ret_sts_success;
2716:
2717: -- first check all required params
2718: IF (p_acct_use_rec.bank_account_id = null or
2719: P_acct_use_rec.org_type = null or
2720: (p_acct_use_rec.legal_entity_id = null and
2721: p_acct_use_rec.org_id = null) ) THEN
2722: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
2723: fnd_msg_pub.add;
2724: x_return_status := fnd_api.g_ret_sts_error;
2725: RAISE fnd_api.g_exc_error;
2726: END IF;
2727:
2728: -- GL Cash Account is required if the account use is Payables or Receivables
2721: p_acct_use_rec.org_id = null) ) THEN
2722: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
2723: fnd_msg_pub.add;
2724: x_return_status := fnd_api.g_ret_sts_error;
2725: RAISE fnd_api.g_exc_error;
2726: END IF;
2727:
2728: -- GL Cash Account is required if the account use is Payables or Receivables
2729: IF ((p_acct_use_rec.ap_use_enable_flag = 'Y' or
2730: p_acct_use_rec.ar_use_enable_flag = 'Y') and
2731: p_acct_use_rec.asset_code_combination_id = null) THEN
2732: fnd_message.set_name('CE', 'CE_API_CASH_CCID_REQUIRED');
2733: fnd_msg_pub.add;
2734: x_return_status := fnd_api.g_ret_sts_error;
2735: RAISE fnd_api.g_exc_error;
2736: END IF;
2737:
2738: -- validate account use
2731: p_acct_use_rec.asset_code_combination_id = null) THEN
2732: fnd_message.set_name('CE', 'CE_API_CASH_CCID_REQUIRED');
2733: fnd_msg_pub.add;
2734: x_return_status := fnd_api.g_ret_sts_error;
2735: RAISE fnd_api.g_exc_error;
2736: END IF;
2737:
2738: -- validate account use
2739: CE_BANK_AND_ACCOUNT_VALIDATION.validate_account_use
2743: p_acct_use_rec.xtr_use_enable_flag,
2744: x_return_status);
2745:
2746: -- raise an exception if the validation is unsuccessful
2747: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2748: RAISE fnd_api.g_exc_error;
2749: END IF;
2750:
2751: -- validate the combination of bank_account_id and org_id/legal_entity_id is unique
2744: x_return_status);
2745:
2746: -- raise an exception if the validation is unsuccessful
2747: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2748: RAISE fnd_api.g_exc_error;
2749: END IF;
2750:
2751: -- validate the combination of bank_account_id and org_id/legal_entity_id is unique
2752: IF p_acct_use_rec.org_type = 'LE' THEN
2760: p_acct_use_rec.bank_account_id,
2761: null,
2762: x_return_status);
2763: -- raise an exception if the validation is unsuccessful
2764: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2765: RAISE fnd_api.g_exc_error;
2766: END IF;
2767:
2768: -- validate the org type matches with the account use
2761: null,
2762: x_return_status);
2763: -- raise an exception if the validation is unsuccessful
2764: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2765: RAISE fnd_api.g_exc_error;
2766: END IF;
2767:
2768: -- validate the org type matches with the account use
2769: CE_BANK_AND_ACCOUNT_VALIDATION.validate_account_access_org
2774: p_acct_use_rec.org_type,
2775: l_org_le_id,
2776: x_return_status);
2777: -- raise an exception if the validation is unsuccessful
2778: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2779: RAISE fnd_api.g_exc_error;
2780: END IF;
2781:
2782: -- validate default settlement
2775: l_org_le_id,
2776: x_return_status);
2777: -- raise an exception if the validation is unsuccessful
2778: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2779: RAISE fnd_api.g_exc_error;
2780: END IF;
2781:
2782: -- validate default settlement
2783: CE_BANK_AND_ACCOUNT_VALIDATION.validate_def_settlement
2785: null,
2786: l_org_le_id,
2787: p_acct_use_rec.xtr_default_settlement_flag,
2788: p_acct_use_rec.ap_default_settlement_flag,
2789: FND_API.G_FALSE,
2790: x_msg_count,
2791: x_msg_data,
2792: x_return_status);
2793: -- raise an exception if the validation is unsuccessful
2790: x_msg_count,
2791: x_msg_data,
2792: x_return_status);
2793: -- raise an exception if the validation is unsuccessful
2794: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2795: RAISE fnd_api.g_exc_error;
2796: END IF;
2797:
2798: -- insert data into ce_bank_accounts table
2791: x_msg_data,
2792: x_return_status);
2793: -- raise an exception if the validation is unsuccessful
2794: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2795: RAISE fnd_api.g_exc_error;
2796: END IF;
2797:
2798: -- insert data into ce_bank_accounts table
2799: OPEN c_acct_use_id;
2974: End If;
2975: CLOSE c_gl_ccid_rowid;
2976:
2977: -- get message count and if count is 1, get message info.
2978: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2979: p_count => x_msg_count,
2980: p_data => x_msg_data);
2981:
2982: IF l_DEBUG in ('Y', 'C') THEN
2983: cep_standard.debug('<
2985:
2986: EXCEPTION
2987: WHEN fnd_api.g_exc_error THEN
2988: ROLLBACK TO create_bank_acct_use;
2989: x_return_status := fnd_api.g_ret_sts_error;
2990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2991: p_count => x_msg_count,
2985:
2986: EXCEPTION
2987: WHEN fnd_api.g_exc_error THEN
2988: ROLLBACK TO create_bank_acct_use;
2989: x_return_status := fnd_api.g_ret_sts_error;
2990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2991: p_count => x_msg_count,
2992: p_data => x_msg_data);
2993:
2986: EXCEPTION
2987: WHEN fnd_api.g_exc_error THEN
2988: ROLLBACK TO create_bank_acct_use;
2989: x_return_status := fnd_api.g_ret_sts_error;
2990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2991: p_count => x_msg_count,
2992: p_data => x_msg_data);
2993:
2994: IF l_DEBUG in ('Y', 'C') THEN
2994: IF l_DEBUG in ('Y', 'C') THEN
2995: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
2996: END IF;
2997:
2998: WHEN fnd_api.g_exc_unexpected_error THEN
2999: ROLLBACK TO create_bank_acct_use;
3000: x_return_status := fnd_api.g_ret_sts_unexp_error;
3001: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3002: p_count => x_msg_count,
2996: END IF;
2997:
2998: WHEN fnd_api.g_exc_unexpected_error THEN
2999: ROLLBACK TO create_bank_acct_use;
3000: x_return_status := fnd_api.g_ret_sts_unexp_error;
3001: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3002: p_count => x_msg_count,
3003: p_data => x_msg_data);
3004:
2997:
2998: WHEN fnd_api.g_exc_unexpected_error THEN
2999: ROLLBACK TO create_bank_acct_use;
3000: x_return_status := fnd_api.g_ret_sts_unexp_error;
3001: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3002: p_count => x_msg_count,
3003: p_data => x_msg_data);
3004:
3005: IF l_DEBUG in ('Y', 'C') THEN
3007: END IF;
3008:
3009: WHEN OTHERS THEN
3010: ROLLBACK TO create_bank_acct_use;
3011: x_return_status := fnd_api.g_ret_sts_unexp_error;
3012: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
3013: fnd_message.set_token('ERROR',SQLERRM);
3014: fnd_msg_pub.add;
3015: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3011: x_return_status := fnd_api.g_ret_sts_unexp_error;
3012: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
3013: fnd_message.set_token('ERROR',SQLERRM);
3014: fnd_msg_pub.add;
3015: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3016: p_count => x_msg_count,
3017: p_data => x_msg_data);
3018:
3019: IF l_DEBUG in ('Y', 'C') THEN
3024: END create_bank_acct_use;
3025:
3026:
3027: PROCEDURE update_bank_acct_use (
3028: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
3029: p_acct_use_rec IN BankAcct_use_rec_type,
3030: p_use_ovn IN OUT NOCOPY NUMBER,
3031: p_ccid_ovn IN OUT NOCOPY NUMBER,
3032: x_return_status OUT NOCOPY VARCHAR2,
3064: cep_standard.debug('>>CE_BANK_PUB.update_bank_acct_use.');
3065: END IF;
3066:
3067: -- initialize message list
3068: IF fnd_api.to_boolean(p_init_msg_list) THEN
3069: fnd_msg_pub.initialize;
3070: END IF;
3071:
3072: -- initialize API return status to success.
3069: fnd_msg_pub.initialize;
3070: END IF;
3071:
3072: -- initialize API return status to success.
3073: x_return_status := fnd_api.g_ret_sts_success;
3074:
3075: -- bank_account_id and org_id/legal_entity_id cannot be updated
3076: -- find them using the bank_acct_use_id
3077: OPEN c_acct_org;
3078: FETCH c_acct_org INTO l_acct_id, l_org_id, l_le_id;
3079: IF c_acct_org%NOTFOUND THEN
3080: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT_USE');
3081: fnd_msg_pub.add;
3082: x_return_status := fnd_api.g_ret_sts_error;
3083: CLOSE c_acct_org;
3084: RAISE fnd_api.g_exc_error;
3085: END IF;
3086: CLOSE c_acct_org;
3080: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT_USE');
3081: fnd_msg_pub.add;
3082: x_return_status := fnd_api.g_ret_sts_error;
3083: CLOSE c_acct_org;
3084: RAISE fnd_api.g_exc_error;
3085: END IF;
3086: CLOSE c_acct_org;
3087:
3088: IF l_org_id is not null THEN
3098: p_use_ovn = null or
3099: p_ccid_ovn = null) THEN
3100: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
3101: fnd_msg_pub.add;
3102: x_return_status := fnd_api.g_ret_sts_error;
3103: RAISE fnd_api.g_exc_error;
3104: END IF;
3105:
3106: -- GL Cash Account is required if the account use is Payables or Receivables
3099: p_ccid_ovn = null) THEN
3100: fnd_message.set_name('CE', 'CE_API_REQUIRED_PARAM');
3101: fnd_msg_pub.add;
3102: x_return_status := fnd_api.g_ret_sts_error;
3103: RAISE fnd_api.g_exc_error;
3104: END IF;
3105:
3106: -- GL Cash Account is required if the account use is Payables or Receivables
3107: IF ((p_acct_use_rec.ap_use_enable_flag = 'Y' or
3108: p_acct_use_rec.ar_use_enable_flag = 'Y') and
3109: p_acct_use_rec.asset_code_combination_id = null) THEN
3110: fnd_message.set_name('CE', 'CE_API_CASH_CCID_REQUIRED');
3111: fnd_msg_pub.add;
3112: x_return_status := fnd_api.g_ret_sts_error;
3113: RAISE fnd_api.g_exc_error;
3114: END IF;
3115:
3116: -- validate account use
3109: p_acct_use_rec.asset_code_combination_id = null) THEN
3110: fnd_message.set_name('CE', 'CE_API_CASH_CCID_REQUIRED');
3111: fnd_msg_pub.add;
3112: x_return_status := fnd_api.g_ret_sts_error;
3113: RAISE fnd_api.g_exc_error;
3114: END IF;
3115:
3116: -- validate account use
3117: CE_BANK_AND_ACCOUNT_VALIDATION.validate_account_use
3121: p_acct_use_rec.xtr_use_enable_flag,
3122: x_return_status);
3123:
3124: -- raise an exception if the validation is unsuccessful
3125: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3126: RAISE fnd_api.g_exc_error;
3127: END IF;
3128:
3129: -- validate the org type matches with the account use
3122: x_return_status);
3123:
3124: -- raise an exception if the validation is unsuccessful
3125: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3126: RAISE fnd_api.g_exc_error;
3127: END IF;
3128:
3129: -- validate the org type matches with the account use
3130: CE_BANK_AND_ACCOUNT_VALIDATION.validate_account_access_org
3135: l_org_type,
3136: l_org_le_id,
3137: x_return_status);
3138: -- raise an exception if the validation is unsuccessful
3139: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3140: RAISE fnd_api.g_exc_error;
3141: END IF;
3142:
3143: -- validate default settlement
3136: l_org_le_id,
3137: x_return_status);
3138: -- raise an exception if the validation is unsuccessful
3139: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3140: RAISE fnd_api.g_exc_error;
3141: END IF;
3142:
3143: -- validate default settlement
3144: CE_BANK_AND_ACCOUNT_VALIDATION.validate_def_settlement
3146: p_acct_use_rec.bank_acct_use_id,
3147: l_org_le_id,
3148: p_acct_use_rec.xtr_default_settlement_flag,
3149: p_acct_use_rec.ap_default_settlement_flag,
3150: FND_API.G_FALSE,
3151: x_msg_count,
3152: x_msg_data,
3153: x_return_status);
3154: -- raise an exception if the validation is unsuccessful
3151: x_msg_count,
3152: x_msg_data,
3153: x_return_status);
3154: -- raise an exception if the validation is unsuccessful
3155: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3156: RAISE fnd_api.g_exc_error;
3157: END IF;
3158:
3159: -- check object version number to make sure the record has not been updated
3152: x_msg_data,
3153: x_return_status);
3154: -- raise an exception if the validation is unsuccessful
3155: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3156: RAISE fnd_api.g_exc_error;
3157: END IF;
3158:
3159: -- check object version number to make sure the record has not been updated
3160: OPEN c_use_ovn;
3161: FETCH c_use_ovn INTO l_old_use_ovn;
3162: IF c_use_ovn%NOTFOUND THEN
3163: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT_USE');
3164: fnd_msg_pub.add;
3165: x_return_status := fnd_api.g_ret_sts_error;
3166: CLOSE c_use_ovn;
3167: RAISE fnd_api.g_exc_error;
3168: END IF;
3169: CLOSE c_use_ovn;
3163: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT_USE');
3164: fnd_msg_pub.add;
3165: x_return_status := fnd_api.g_ret_sts_error;
3166: CLOSE c_use_ovn;
3167: RAISE fnd_api.g_exc_error;
3168: END IF;
3169: CLOSE c_use_ovn;
3170:
3171: IF l_old_use_ovn > p_use_ovn THEN
3171: IF l_old_use_ovn > p_use_ovn THEN
3172: fnd_message.set_name('CE', 'CE_API_RECORD_CHANGED');
3173: fnd_message.set_token('TABLE', 'CE_BANK_ACCT_USES_ALL');
3174: fnd_msg_pub.add;
3175: x_return_status := fnd_api.g_ret_sts_error;
3176: RAISE fnd_api.g_exc_error;
3177: END IF;
3178:
3179: -- check object version number to make sure the record has not been updated
3172: fnd_message.set_name('CE', 'CE_API_RECORD_CHANGED');
3173: fnd_message.set_token('TABLE', 'CE_BANK_ACCT_USES_ALL');
3174: fnd_msg_pub.add;
3175: x_return_status := fnd_api.g_ret_sts_error;
3176: RAISE fnd_api.g_exc_error;
3177: END IF;
3178:
3179: -- check object version number to make sure the record has not been updated
3180: OPEN c_ccid_ovn;
3184: IF l_old_ccid_ovn is not null AND l_old_ccid_ovn > p_ccid_ovn THEN
3185: fnd_message.set_name('CE', 'CE_API_RECORD_CHANGED');
3186: fnd_message.set_token('TABLE', 'CE_GL_ACCOUNTS_CCID');
3187: fnd_msg_pub.add;
3188: x_return_status := fnd_api.g_ret_sts_error;
3189: RAISE fnd_api.g_exc_error;
3190: END IF;
3191:
3192: -- update
3185: fnd_message.set_name('CE', 'CE_API_RECORD_CHANGED');
3186: fnd_message.set_token('TABLE', 'CE_GL_ACCOUNTS_CCID');
3187: fnd_msg_pub.add;
3188: x_return_status := fnd_api.g_ret_sts_error;
3189: RAISE fnd_api.g_exc_error;
3190: END IF;
3191:
3192: -- update
3193: update ce_bank_acct_uses_all
3233: WHERE bank_acct_use_id = p_acct_use_rec.bank_acct_use_id;
3234: IF (SQL%NOTFOUND) THEN
3235: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT_USE');
3236: fnd_msg_pub.add;
3237: x_return_status := fnd_api.g_ret_sts_error;
3238: RAISE fnd_api.g_exc_error;
3239: END IF;
3240: p_use_ovn := l_old_use_ovn + 1;
3241:
3234: IF (SQL%NOTFOUND) THEN
3235: fnd_message.set_name('CE', 'CE_API_NO_ACCOUNT_USE');
3236: fnd_msg_pub.add;
3237: x_return_status := fnd_api.g_ret_sts_error;
3238: RAISE fnd_api.g_exc_error;
3239: END IF;
3240: p_use_ovn := l_old_use_ovn + 1;
3241:
3242: -- update ccid table
3273: p_ccid_ovn := l_old_ccid_ovn + 1;
3274: END IF;
3275:
3276: -- get message count and if count is 1, get message info.
3277: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3278: p_count => x_msg_count,
3279: p_data => x_msg_data);
3280:
3281: IF l_DEBUG in ('Y', 'C') THEN
3282: cep_standard.debug('<
3284:
3285: EXCEPTION
3286: WHEN fnd_api.g_exc_error THEN
3287: ROLLBACK TO update_bank_acct_use;
3288: x_return_status := fnd_api.g_ret_sts_error;
3289: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3290: p_count => x_msg_count,
3284:
3285: EXCEPTION
3286: WHEN fnd_api.g_exc_error THEN
3287: ROLLBACK TO update_bank_acct_use;
3288: x_return_status := fnd_api.g_ret_sts_error;
3289: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3290: p_count => x_msg_count,
3291: p_data => x_msg_data);
3292:
3285: EXCEPTION
3286: WHEN fnd_api.g_exc_error THEN
3287: ROLLBACK TO update_bank_acct_use;
3288: x_return_status := fnd_api.g_ret_sts_error;
3289: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3290: p_count => x_msg_count,
3291: p_data => x_msg_data);
3292:
3293: IF l_DEBUG in ('Y', 'C') THEN
3293: IF l_DEBUG in ('Y', 'C') THEN
3294: cep_standard.debug_msg_stack(x_msg_count, x_msg_data);
3295: END IF;
3296:
3297: WHEN fnd_api.g_exc_unexpected_error THEN
3298: ROLLBACK TO update_bank_acct_use;
3299: x_return_status := fnd_api.g_ret_sts_unexp_error;
3300: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3301: p_count => x_msg_count,
3295: END IF;
3296:
3297: WHEN fnd_api.g_exc_unexpected_error THEN
3298: ROLLBACK TO update_bank_acct_use;
3299: x_return_status := fnd_api.g_ret_sts_unexp_error;
3300: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303:
3296:
3297: WHEN fnd_api.g_exc_unexpected_error THEN
3298: ROLLBACK TO update_bank_acct_use;
3299: x_return_status := fnd_api.g_ret_sts_unexp_error;
3300: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303:
3304: IF l_DEBUG in ('Y', 'C') THEN
3306: END IF;
3307:
3308: WHEN OTHERS THEN
3309: ROLLBACK TO udpate_bank_acct_use;
3310: x_return_status := fnd_api.g_ret_sts_unexp_error;
3311: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
3312: fnd_message.set_token('ERROR',SQLERRM);
3313: fnd_msg_pub.add;
3314: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3310: x_return_status := fnd_api.g_ret_sts_unexp_error;
3311: fnd_message.set_name('CE', 'CE_API_OTHERS_EXCEP');
3312: fnd_message.set_token('ERROR',SQLERRM);
3313: fnd_msg_pub.add;
3314: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3315: p_count => x_msg_count,
3316: p_data => x_msg_data);
3317:
3318: IF l_DEBUG in ('Y', 'C') THEN