1: PACKAGE BODY ARP_EXT_BANK_PKG AS
2: /* $Header: AREXTBAB.pls 120.6.12010000.2 2008/08/27 12:58:08 tthangav ship $ */
3: /*-------------------------------------+
4: | WHO column values from FND_GLOBAL |
5: +-------------------------------------*/
24: len_credit_card_num number := 0;
25: l_cc_num_char character_tab_typ;
26: BEGIN
27: IF PG_DEBUG in ('Y', 'C') THEN
28: arp_standard.debug('arp_ext_bank_pkg.strip_white_spaces()+');
29: END IF;
30:
31: SELECT lengthb(p_credit_card_num)
32: INTO len_credit_card_num
46: END IF;
47: END LOOP;
48:
49: IF PG_DEBUG in ('Y', 'C') THEN
50: arp_standard.debug('arp_ext_bank_pkg.strip_white_spaces()-');
51: END IF;
52: EXCEPTION
53: when OTHERS then
54: raise;
67: l_msg_data VARCHAR2(2000);
68: l_branch_number ce_bank_branches_v.branch_number%TYPE ;
69: l_value_out varchar2(100);
70: BEGIN
71: arp_standard.debug('arp_ext_bank_pkg.Branch_Num_Format(+)');
72: arp_standard.debug('branch number '||p_branch_number);
73: CE_VALIDATE_BANKINFO.GET_BRANCH_NUM_FORMAT
74: (X_COUNTRY_NAME => p_country_code,
75: X_BRANCH_NUMBER => p_branch_number,
94: END LOOP;
95: ELSE
96: arp_standard.debug('Branch Number from BRANCH NUM FORMAT API : ' || p_value_out);
97: END IF;
98: arp_standard.debug('arp_ext_bank_pkg.Branch_Num_Format(-)');
99: EXCEPTION
100: WHEN OTHERS THEN
101: arp_standard.debug('exception in arp_ext_bank_pkg.Branch_Num_Format');
102: RAISE;
97: END IF;
98: arp_standard.debug('arp_ext_bank_pkg.Branch_Num_Format(-)');
99: EXCEPTION
100: WHEN OTHERS THEN
101: arp_standard.debug('exception in arp_ext_bank_pkg.Branch_Num_Format');
102: RAISE;
103: END Branch_Num_Format;
104: -- end bug5594142
105:
170: l_msg_data VARCHAR2(2000);
171:
172: BEGIN
173:
174: arp_standard.debug('arp_ext_bank_pkg.insert_ext_bank_branch(+)');
175:
176: fnd_profile.get(
177: name => 'HZ_GENERATE_PARTY_NUMBER',
178: val => l_profile_value);
279: END IF;
280:
281: x_branch_party_id := l_branch_party_id;
282:
283: arp_standard.debug('arp_ext_bank_pkg.insert_ext_bank_branch(-)');
284:
285: EXCEPTION
286: WHEN OTHERS THEN
287: arp_standard.debug('exception in arp_ext_bank_pkg.insert_ext_bank_branch');
283: arp_standard.debug('arp_ext_bank_pkg.insert_ext_bank_branch(-)');
284:
285: EXCEPTION
286: WHEN OTHERS THEN
287: arp_standard.debug('exception in arp_ext_bank_pkg.insert_ext_bank_branch');
288: RAISE;
289:
290: END insert_ext_bank_branch;
291:
342: l_msg_count NUMBER;
343: l_msg_data VARCHAR2(2000);
344:
345: BEGIN
346: arp_standard.debug('arp_ext_bank_pkg.insert_bank_account(+)');
347:
348: /* Bug 6799655 : Get the party_id from cust_account_id supplied */
349: SELECT party_id INTO l_party_id
350: FROM hz_cust_accounts
393: arp_standard.debug('Bank Account ID : ' || l_bank_account_id);
394: END IF;
395:
396: x_bank_account_id:= l_bank_account_id;
397: arp_standard.debug('arp_ext_bank_pkg.insert_bank_account(-)');
398: EXCEPTION
399: WHEN NO_DATA_FOUND THEN
400: arp_standard.debug('Customer_id is invalid');
401: RAISE;
399: WHEN NO_DATA_FOUND THEN
400: arp_standard.debug('Customer_id is invalid');
401: RAISE;
402: WHEN OTHERS THEN
403: arp_standard.debug('exception in arp_ext_bank_pkg.insert_bank_account');
404: RAISE;
405: END insert_bank_account;
406:
407:
457: l_msg_count NUMBER;
458: l_msg_data VARCHAR2(2000);
459:
460: BEGIN
461: arp_standard.debug('arp_ext_bank_pkg.check_bank_account(+)');
462:
463:
464: iby_ext_bankacct_pub.check_ext_acct_exist(
465: -- IN parameters
503:
504: x_bank_account_id:= l_bank_account_id;
505: x_start_date := l_start_date;
506: x_end_date := l_end_date;
507: arp_standard.debug('arp_ext_bank_pkg.check_bank_account(-)');
508: EXCEPTION
509: WHEN OTHERS THEN
510: arp_standard.debug('exception in arp_ext_bank_pkg.check_bank_account');
511: RAISE;
506: x_end_date := l_end_date;
507: arp_standard.debug('arp_ext_bank_pkg.check_bank_account(-)');
508: EXCEPTION
509: WHEN OTHERS THEN
510: arp_standard.debug('exception in arp_ext_bank_pkg.check_bank_account');
511: RAISE;
512: END check_bank_account;
513:
514: /*===========================================================================+
569: l_party_id NUMBER;
570: l_count NUMBER;
571:
572: BEGIN
573: arp_standard.debug('arp_ext_bank_pkg.create_bank_branch_acc(+)');
574: /*-----------------------------------------------------+
575: | Remove non-digit characters from the routing number |
576: +-----------------------------------------------------*/
577: strip_white_spaces(p_routing_number,l_routing_number);
724: END IF;
725: END IF;
726: -- Bug 7346354 - End
727: arp_standard.debug('l_assign_id '||l_assign_id);
728: arp_standard.debug('arp_ext_bank_pkg.create_bank_branch_acc(-)');
729: EXCEPTION
730: WHEN OTHERS THEN
731: arp_standard.debug('exception in arp_ext_bank_pkg.create_bank_branch_acc');
732: RAISE;
727: arp_standard.debug('l_assign_id '||l_assign_id);
728: arp_standard.debug('arp_ext_bank_pkg.create_bank_branch_acc(-)');
729: EXCEPTION
730: WHEN OTHERS THEN
731: arp_standard.debug('exception in arp_ext_bank_pkg.create_bank_branch_acc');
732: RAISE;
733: END create_bank_branch_acc;
734:
735: -- Bug 7346354 - Start
777: l_assign_id NUMBER;
778: l_branch_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
779:
780: BEGIN
781: arp_standard.debug('arp_ext_bank_pkg.insert_acct_instr_assignment(+)');
782: l_payer_context_rec.Payment_Function := 'CUSTOMER_PAYMENT';
783: l_payer_context_rec.Party_Id := p_party_id;
784: l_payer_context_rec.Cust_Account_Id := p_customer_id;
785:
819: ELSE
820: arp_standard.debug('Instrument Assign Id : ' || l_assign_id);
821: END IF;
822: x_instr_assign_id := l_assign_id;
823: arp_standard.debug('arp_ext_bank_pkg.insert_acct_instr_assignment(-)');
824: EXCEPTION
825: WHEN OTHERS THEN
826: arp_standard.debug('exception in arp_ext_bank_pkg.insert_acct_instr_assignment');
827: RAISE;
822: x_instr_assign_id := l_assign_id;
823: arp_standard.debug('arp_ext_bank_pkg.insert_acct_instr_assignment(-)');
824: EXCEPTION
825: WHEN OTHERS THEN
826: arp_standard.debug('exception in arp_ext_bank_pkg.insert_acct_instr_assignment');
827: RAISE;
828: END insert_acct_instr_assignment;
829: -- Bug 7346354 - End
830:
1092: pg_program_id := fnd_global.conc_program_id;
1093: pg_request_id := fnd_global.conc_request_id;
1094: pg_sob_id := arp_global.set_of_books_id;
1095:
1096: END ARP_EXT_BANK_PKG;