63: BEGIN
64: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
65:
66: IF l_DEBUG in ('Y', 'C') THEN
67: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bic');
68: END IF;
69: -- Initialize message list if p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean(p_init_msg_list) THEN
71: FND_MSG_PUB.initialize;
132: bank_count number;
133: BEGIN
134:
135: IF l_DEBUG in ('Y', 'C') THEN
136: cep_standard.debug('>>CE_VALIDATE_BANKINFO.compare_bank_and_branch_num');
137: END IF;
138:
139: -- Bug 6856840: Added IF clause to handle cases where Bank ID is the Bank Number --
140: IF BANK_ID_IS_NUM = TRUE
142: -- Bank ID is the bank number. No need to fetch from the table --
143: IF ((nvl(Xi_BANK_ID,Xi_BRANCH_NUM) = Xi_BRANCH_NUM))
144: THEN
145: IF l_DEBUG in ('Y', 'C') THEN
146: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' || ' passed_check');
147: END IF;
148: ELSE
149: IF l_DEBUG in ('Y', 'C') THEN
150: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' ||
146: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' || ' passed_check');
147: END IF;
148: ELSE
149: IF l_DEBUG in ('Y', 'C') THEN
150: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' ||
151: 'Bank number and branch number does not match'||
152: 'CE_BANK_BRANCH_NUM_NOT_MATCHED');
153: END IF;
154: fnd_message.set_name('CE', 'CE_BANK_BRANCH_NUM_NOT_MATCHED');
190: BANK_NUM := upper(replace(BANK_NUM,' ',''));
191: BANK_NUM := upper(replace(BANK_NUM,'-',''));
192:
193: IF l_DEBUG in ('Y', 'C') THEN
194: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' || 'BANK_NUM : ' ||BANK_NUM);
195: END IF;
196:
197: IF ((nvl(BANK_NUM,Xi_branch_num) <> Xi_branch_num))
198: THEN
196:
197: IF ((nvl(BANK_NUM,Xi_branch_num) <> Xi_branch_num))
198: THEN
199: IF l_DEBUG in ('Y', 'C') THEN
200: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' ||
201: 'Bank number and branch number does not match'||
202: 'CE_BANK_BRANCH_NUM_NOT_MATCHED');
203: END IF;
204: fnd_message.set_name('CE', 'CE_BANK_BRANCH_NUM_NOT_MATCHED');
207: END IF;
208: ELSIF (bank_count > 1)
209: THEN
210: IF l_DEBUG in ('Y', 'C') THEN
211: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' ||
212: 'EXCEPTION: More than one bank match ');
213: END IF;
214: fnd_message.set_name('CE', 'CE_MANY_BANKS');
215: fnd_msg_pub.add;
216:
217: ELSIF (bank_count = 0)
218: THEN
219: IF l_DEBUG in ('Y', 'C') THEN
220: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' || ' CE_BANK_DOES_NOT_EXISTS');
221: END IF;
222: fnd_message.set_name ('CE', 'CE_BANK_DOES_NOT_EXISTS');
223: fnd_msg_pub.add;
224:
223: fnd_msg_pub.add;
224:
225: ELSE
226: IF l_DEBUG in ('Y', 'C') THEN
227: cep_standard.debug('COMPARE_BANK_AND_BRANCH_NUM: ' || ' passed_check');
228: END IF;
229: END IF;
230:
231: IF l_DEBUG in ('Y', 'C') THEN
228: END IF;
229: END IF;
230:
231: IF l_DEBUG in ('Y', 'C') THEN
232: cep_standard.debug('<
234: END IF; /* end of check for BANK_ID_IS_NUM*/
235:
236: EXCEPTION
235:
236: EXCEPTION
237: WHEN OTHERS THEN
238: IF l_DEBUG in ('Y', 'C') THEN
239: cep_standard.debug('CE_VALIDATE_BANKINFO.COMPARE_BANK_AND_BRANCH_NUM ' );
240: END IF;
241:
242: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
243: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.compare_bank_and_branch_num');
270:
271: procedure pass_check is
272: begin
273: IF l_DEBUG in ('Y', 'C') THEN
274: cep_standard.debug('COMPARE_ACCOUNT_NUM_AND_CD: ' || 'CD match');
275: END IF;
276: end pass_check;
277:
278: /**************************/
279:
280:
281: BEGIN
282: IF l_DEBUG in ('Y', 'C') THEN
283: cep_standard.debug('>>CE_VALIDATE_BANKINFO.COMPARE_ACCOUNT_NUM_AND_CD');
284: END IF;
285:
286: cd_position := (length(Xi_account_num) - Xi_CD_pos_from_right);
287: acct_cd := substr(Xi_account_num, cd_position, Xi_CD_length);
286: cd_position := (length(Xi_account_num) - Xi_CD_pos_from_right);
287: acct_cd := substr(Xi_account_num, cd_position, Xi_CD_length);
288:
289: IF l_DEBUG in ('Y', 'C') THEN
290: cep_standard.debug('COMPARE_ACCOUNT_NUM_AND_CD: ' || 'cd_position : '||cd_position ||
291: 'acct_cd : '||acct_cd || 'Xi_CD : '||Xi_CD );
292: END IF;
293:
294:
293:
294:
295: IF ( acct_cd <> Xi_CD) then
296: IF l_DEBUG in ('Y', 'C') THEN
297: cep_standard.debug('COMPARE_ACCOUNT_NUM_AND_CD: ' || 'CD does not match'||
298: 'CE_ACCT_NUM_AND_CD_NOT_MATCHED');
299: END IF;
300: fnd_message.set_name('CE', 'CE_ACCT_NUM_AND_CD_NOT_MATCHED');
301: fnd_msg_pub.add;
306: END IF;
307:
308:
309: IF l_DEBUG in ('Y', 'C') THEN
310: cep_standard.debug('<
312:
313: END COMPARE_ACCOUNT_NUM_AND_CD;
314:
338: l_taxid VARCHAR2(30);
339:
340: BEGIN
341: IF l_DEBUG in ('Y', 'C') THEN
342: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VAL_UNIQUE_TAX_PAYER_ID');
343: END IF;
344:
345: OPEN CHECK_UNIQUE_TAXID_BK;
346: FETCH CHECK_UNIQUE_TAXID_BK INTO l_taxid;
349: THEN
350: CLOSE CHECK_UNIQUE_TAXID_BK;
351: RETURN('TRUE');
352: IF l_DEBUG in ('Y', 'C') THEN
353: cep_standard.debug('CE_VAL_UNIQUE_TAX_PAYER_ID true');
354: END IF;
355: ELSE
356: CLOSE CHECK_UNIQUE_TAXID_BK;
357: RETURN('FALSE');
355: ELSE
356: CLOSE CHECK_UNIQUE_TAXID_BK;
357: RETURN('FALSE');
358: IF l_DEBUG in ('Y', 'C') THEN
359: cep_standard.debug('CE_VAL_UNIQUE_TAX_PAYER_ID false');
360: END IF;
361: END IF;
362:
363: IF l_DEBUG in ('Y', 'C') THEN
360: END IF;
361: END IF;
362:
363: IF l_DEBUG in ('Y', 'C') THEN
364: cep_standard.debug('<
366: END CE_VAL_UNIQUE_TAX_PAYER_ID;
367:
368: /* --------------------------------------------------------------------
436: l_entity_name VARCHAR2(80);
437:
438: BEGIN
439: IF l_DEBUG in ('Y', 'C') THEN
440: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_check_cross_module_tax_id'||
441: 'ce_check_cross_module_tax_id - p_taxpayer_id ' || p_taxpayer_id );
442: END IF;
443:
444: -- Checking cross module Banks/Customers
446: OPEN CHECK_CROSS_AR;
447: FETCH CHECK_CROSS_AR INTO l_entity_name, l_taxid;
448:
449: IF l_DEBUG in ('Y', 'C') THEN
450: cep_standard.debug('ce_check_cross_module_tax_id - l_entity_name ' ||l_entity_name ||
451: 'l_taxid ' ||l_taxid );
452: END IF;
453:
454: IF CHECK_CROSS_AR%NOTFOUND THEN
477:
478: END IF;
479:
480: IF l_DEBUG in ('Y', 'C') THEN
481: cep_standard.debug('ce_check_cross_module_tax_id - p_return_ar ' || p_return_ar );
482: END IF;
483:
484: CLOSE CHECK_CROSS_AR;
485:
552: CLOSE CHECK_CROSS_AP;
553: p_return_bk:='NA';
554:
555: IF l_DEBUG in ('Y', 'C') THEN
556: cep_standard.debug('<
558:
559: END ce_check_cross_module_tax_id;
560: /* --------------------------------------------------------------------
579: l_mod_value NUMBER(2);
580: BEGIN
581:
582: IF l_DEBUG in ('Y', 'C') THEN
583: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_TAX_ID_CHECK_ALGORITHM'|| '----------' ||
584: 'CE_VALIDATE_BANKINFO.CE_TAX_ID_CHECK_ALGORITHM ' ||p_COUNTRY );
585: END IF;
586:
587: -- Check the Taxpayer ID Valdiation digit for Colombia
605: (TO_NUMBER(SUBSTR(l_var1,2,1))) *67 +
606: (TO_NUMBER(SUBSTR(l_var1,1,1))) *71),11));
607:
608: IF l_DEBUG in ('Y', 'C') THEN
609: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_tax_id_check_algorithm - l_mod_value: '|| l_mod_value);
610: END IF;
611:
612: IF (l_mod_value IN (1,0)) THEN
613: l_val_digit:=l_mod_value;
615: l_val_digit:=11-l_mod_value;
616: END IF;
617:
618: IF l_DEBUG in ('Y', 'C') THEN
619: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_tax_id_check_algorithm - l_val_digit: '|| l_val_digit|| '----------' ||
620: 'CE_VALIDATE_BANKINFO.ce_tax_id_check_algorithm - p_tax_id_cd : '|| p_tax_id_cd );
621: END IF;
622:
623: IF l_val_digit<> p_tax_id_cd THEN
621: END IF;
622:
623: IF l_val_digit<> p_tax_id_cd THEN
624: IF l_DEBUG in ('Y', 'C') THEN
625: cep_standard.debug('failed ce_tax_id_check_algorithm' );
626: END IF;
627: RETURN('FALSE');
628:
629: ELSE
627: RETURN('FALSE');
628:
629: ELSE
630: IF l_DEBUG in ('Y', 'C') THEN
631: cep_standard.debug('passed ce_tax_id_check_algorithm' );
632: END IF;
633: RETURN('TRUE');
634: END IF;
635:
634: END IF;
635:
636: END IF;
637: IF l_DEBUG in ('Y', 'C') THEN
638: cep_standard.debug('<
640:
641: END ce_tax_id_check_algorithm;
642:
659: temp_name number;
660:
661: BEGIN
662: IF l_DEBUG in ('Y', 'C') THEN
663: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME');
664: END IF;
665:
666: -- unique combination -> bank_id, branch_name, country --confirmed sql 6/25/02
667:
708: and BranchParty.PARTY_ID <> nvl(Xi_BRANCH_ID, -1);
709:
710:
711: IF l_DEBUG in ('Y', 'C') THEN
712: cep_standard.debug('CE_UNIQUE_BRANCH_NAME - temp_name: ' ||temp_name);
713: END IF;
714:
715: IF (nvl(temp_name,0) > 0) then
716: IF l_DEBUG in ('Y', 'C') THEN
713: END IF;
714:
715: IF (nvl(temp_name,0) > 0) then
716: IF l_DEBUG in ('Y', 'C') THEN
717: cep_standard.debug('CE_UNIQUE_BRANCH_NAME: ' || 'CE_BANK_BRANCH_NAME_EXISTS');
718: END IF;
719: fnd_message.set_name('CE', 'CE_BANK_BRANCH_NAME_EXISTS');
720: fnd_msg_pub.add;
721: END IF;
720: fnd_msg_pub.add;
721: END IF;
722:
723: IF l_DEBUG in ('Y', 'C') THEN
724: cep_standard.debug('<
726: END CE_UNIQUE_BRANCH_NAME;
727:
728: /* --------------------------------------------------------------------
742:
743: temp_number number;
744: BEGIN
745: IF l_DEBUG in ('Y', 'C') THEN
746: cep_standard.debug('CE_UNIQUE_BRANCH_NAME: ' || '>>CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NUMBER');
747: END IF;
748:
749: -- unique combination -> bank_id, branch_number, country --confirmed sql 6/25/02
750:
791: and BranchParty.PARTY_ID <> nvl(Xi_BRANCH_ID, -1);
792:
793:
794: IF l_DEBUG in ('Y', 'C') THEN
795: cep_standard.debug('CE_UNIQUE_BRANCH_NAME: ' || 'CE_UNIQUE_BRANCH_NUMBER - temp_number: ' ||temp_number);
796: END IF;
797:
798: IF (nvl(temp_number,0) > 0) then
799: IF l_DEBUG in ('Y', 'C') THEN
796: END IF;
797:
798: IF (nvl(temp_number,0) > 0) then
799: IF l_DEBUG in ('Y', 'C') THEN
800: cep_standard.debug('CE_UNIQUE_BRANCH_NAME: ' || 'CE_BANK_BRANCH_NUMBER_EXISTS');
801: END IF;
802: fnd_message.set_name('CE', 'CE_BANK_BRANCH_NUMBER_EXISTS');
803: fnd_msg_pub.add;
804: END IF;
804: END IF;
805:
806:
807: IF l_DEBUG in ('Y', 'C') THEN
808: cep_standard.debug('CE_UNIQUE_BRANCH_NAME: ' || '<
810: END CE_UNIQUE_BRANCH_NUMBER;
811:
812: /* --------------------------------------------------------------------
827:
828: temp_name_alt number;
829: BEGIN
830: IF l_DEBUG in ('Y', 'C') THEN
831: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME_ALT');
832: END IF;
833:
834: -- unique combination -> bank_id, branch_name_alt, country bug 2363959 --confirmed sql 6/25/02
835:
875: and BranchParty.country = Xi_COUNTRY_NAME
876: and BranchParty.PARTY_ID <> nvl(Xi_BRANCH_ID, -1);
877:
878: IF l_DEBUG in ('Y', 'C') THEN
879: cep_standard.debug('CE_UNIQUE_BRANCH_NAME_ALT - temp_name_alt: ' ||temp_name_alt);
880: END IF;
881:
882: IF (nvl(temp_name_alt,0) > 0) then
883: IF l_DEBUG in ('Y', 'C') THEN
880: END IF;
881:
882: IF (nvl(temp_name_alt,0) > 0) then
883: IF l_DEBUG in ('Y', 'C') THEN
884: cep_standard.debug('CE_UNIQUE_BRANCH_NAME: ' || 'CE_BANK_BRANCH_NAME_ALT_EXISTS');
885: END IF;
886: fnd_message.set_name('CE', 'CE_BANK_BRANCH_NAME_ALT_EXISTS');
887: fnd_msg_pub.add;
888: END IF;
888: END IF;
889:
890:
891: IF l_DEBUG in ('Y', 'C') THEN
892: cep_standard.debug('<
894: END CE_UNIQUE_BRANCH_NAME_ALT;
895:
896:
916:
917:
918: BEGIN
919: IF l_DEBUG in ('Y', 'C') THEN
920: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_UNIQUE_ACCOUNT_NAME'||
921: 'Xi_ACCOUNT_NAME ' ||Xi_ACCOUNT_NAME ||
922: ', Xi_BRANCH_ID ' ||Xi_BRANCH_ID );
923: END IF;
924:
944:
945: END IF;*/
946:
947: IF l_DEBUG in ('Y', 'C') THEN
948: cep_standard.debug('CE_UNIQUE_ACCOUNT_NAME: ' || 'temp_name: '||temp_name);
949: END IF;
950:
951: IF (nvl(temp_name,0) > 0) then
952: fnd_message.set_name('CE', 'CE_BANK_ACCOUNT_NAME_EXISTS');
951: IF (nvl(temp_name,0) > 0) then
952: fnd_message.set_name('CE', 'CE_BANK_ACCOUNT_NAME_EXISTS');
953: fnd_msg_pub.add;
954: IF l_DEBUG in ('Y', 'C') THEN
955: cep_standard.debug('CE_UNIQUE_ACCOUNT_NAME: ' || 'CE_BANK_ACCOUNT_NAME_EXISTS');
956: END IF;
957: END IF;
958:
959:
957: END IF;
958:
959:
960: IF l_DEBUG in ('Y', 'C') THEN
961: cep_standard.debug('<
963:
964: END CE_UNIQUE_ACCOUNT_NAME;
965:
997: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
998: --l_DEBUG := 'Y';
999:
1000: IF l_DEBUG in ('Y', 'C') THEN
1001: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd');
1002: END IF;
1003: -- initialize API return status to success.
1004: x_return_status := fnd_api.g_ret_sts_success;
1005:
1007:
1008: --X_VALUE_OUT := X_CD;
1009:
1010: IF l_DEBUG in ('Y', 'C') THEN
1011: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_cd - COUNTRY_NAME: '|| COUNTRY_NAME||
1012: --'CE_VALIDATE_BANKINFO.ce_validate_cd - X_VALUE_OUT: '|| X_VALUE_OUT|| '----------' ||
1013: 'CE_VALIDATE_BANKINFO.ce_validate_cd - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
1014: END IF;
1015:
1036:
1037: END IF;
1038:
1039: IF l_DEBUG in ('Y', 'C') THEN
1040: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_cd - X_PASS_MAND_CHECK: '|| X_PASS_MAND_CHECK);
1041: END IF;
1042:
1043: If X_CD is Not Null then -- Bug 6632733 Perform all the validations only if check digit is entered
1044:
1136: x_return_status := fnd_api.g_ret_sts_error;
1137: END IF;
1138:
1139: IF l_DEBUG in ('Y', 'C') THEN
1140: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_cd - P_COUNT: '|| x_msg_count||
1141: --' P_DATA: '|| x_msg_data||
1142: --'X_VALUE_OUT: '|| X_VALUE_OUT||
1143: '<
1144: END IF;
1145: EXCEPTION
1146: WHEN OTHERS THEN
1147: IF l_DEBUG in ('Y', 'C') THEN
1148: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_cd ' ||X_COUNTRY_NAME );
1149: END IF;
1150:
1151: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
1152: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.cd_validate_cd');
1194: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
1195: --l_DEBUG := 'Y';
1196:
1197: IF l_DEBUG in ('Y', 'C') THEN
1198: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch');
1199: END IF;
1200:
1201: -- initialize API return status to success.
1202: x_return_status := fnd_api.g_ret_sts_success;
1205:
1206: X_VALUE_OUT := X_BRANCH_NUMBER;
1207:
1208: IF l_DEBUG in ('Y', 'C') THEN
1209: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_branch - COUNTRY_NAME: '|| COUNTRY_NAME||
1210: ', X_VALUE_OUT: '|| X_VALUE_OUT);
1211: END IF;
1212:
1213: -- Initialize message list if p_init_msg_list is set to TRUE.
1215: FND_MSG_PUB.initialize;
1216: END IF;
1217:
1218: IF l_DEBUG in ('Y', 'C') THEN
1219: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_branch - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
1220: END IF;
1221:
1222: /* We must validate the Bank Branch Number */
1223:
1227: X_PASS_MAND_CHECK := 'P';
1228: END IF;
1229:
1230: IF l_DEBUG in ('Y', 'C') THEN
1231: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_branch - X_PASS_MAND_CHECK: '|| X_PASS_MAND_CHECK);
1232: END IF;
1233:
1234: IF (COUNTRY_NAME = 'AT')
1235: THEN
1264:
1265: ELSIF (COUNTRY_NAME = 'DE')
1266: then
1267: IF l_DEBUG in ('Y', 'C') THEN
1268: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_DE' );
1269: END IF;
1270: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_DE(X_BRANCH_NUMBER,
1271: X_BANK_ID);
1272:
1348:
1349: /** UNIQUE VALIDATION CHECK for branch **/
1350:
1351: IF l_DEBUG in ('Y', 'C') THEN
1352: cep_standard.debug('UNIQUE VALIDATION CHECK for branch' );
1353: END IF;
1354:
1355: -- bug 4730717,
1356: -- 11/30/05 unique validation for US and Germany bank branches should not be removed
1356: -- 11/30/05 unique validation for US and Germany bank branches should not be removed
1357: /*
1358: IF (COUNTRY_NAME = 'DE') THEN
1359: IF l_DEBUG in ('Y', 'C') THEN
1360: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_DE' );
1361: END IF;
1362:
1363: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_DE(X_BRANCH_NUMBER,
1364: X_BRANCH_NAME,
1366: X_BRANCH_ID);
1367:
1368: ELSIF (COUNTRY_NAME = 'US') THEN
1369: IF l_DEBUG in ('Y', 'C') THEN
1370: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_US' );
1371: END IF;
1372:
1373: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_US(X_BRANCH_NUMBER,
1374: X_BRANCH_NAME,
1376: X_BRANCH_ID);
1377: */
1378: IF (COUNTRY_NAME = 'JP') THEN
1379: IF l_DEBUG in ('Y', 'C') THEN
1380: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_JP' );
1381: END IF;
1382:
1383: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_JP(X_COUNTRY_NAME,
1384: X_BRANCH_NUMBER,
1387: X_BANK_ID,
1388: X_BRANCH_ID);
1389: ELSE
1390: IF l_DEBUG in ('Y', 'C') THEN
1391: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH' );
1392: END IF;
1393: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH(X_COUNTRY_NAME,
1394: X_BRANCH_NUMBER,
1395: X_BRANCH_NAME,
1400: END IF;
1401: /** end country unique check for branch **/
1402:
1403: IF l_DEBUG in ('Y', 'C') THEN
1404: cep_standard.debug('UNIQUE VALIDATION CHECK for branch end' );
1405: END IF;
1406:
1407: FND_MSG_PUB.Count_And_Get(
1408: p_encoded => FND_API.G_FALSE,
1413: x_return_status := fnd_api.g_ret_sts_error;
1414: END IF;
1415:
1416: IF l_DEBUG in ('Y', 'C') THEN
1417: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_branch - P_COUNT: '|| x_msg_count||
1418: --'P_DATA: '|| x_msg_data||
1419: ' X_VALUE_OUT: '|| X_VALUE_OUT||
1420: '<
1421: END IF;
1422: EXCEPTION
1423: WHEN OTHERS THEN
1424: IF l_DEBUG in ('Y', 'C') THEN
1425: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_branch ' ||X_COUNTRY_NAME );
1426: END IF;
1427:
1428: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
1429: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.cd_validate_branch');
1464: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
1465: --l_DEBUG := 'Y';
1466:
1467: IF l_DEBUG in ('Y', 'C') THEN
1468: cep_standard.debug('>>CE_VALIDATE_BANKINFO.upd_branch_unique');
1469: END IF;
1470:
1471: -- initialize API return status to success.
1472: x_return_status := fnd_api.g_ret_sts_success;
1475:
1476: X_VALUE_OUT := X_BRANCH_NUMBER;
1477:
1478: IF l_DEBUG in ('Y', 'C') THEN
1479: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_branch_unique - COUNTRY_NAME: '|| COUNTRY_NAME||
1480: ', X_VALUE_OUT: '|| X_VALUE_OUT);
1481: END IF;
1482:
1483: -- Initialize message list if p_init_msg_list is set to TRUE.
1487:
1488: /** UNIQUE VALIDATION CHECK for branch **/
1489:
1490: IF l_DEBUG in ('Y', 'C') THEN
1491: cep_standard.debug('UNIQUE VALIDATION CHECK for branch' );
1492: END IF;
1493:
1494: -- bug 4730717,
1495: -- 11/30/05 unique validation for US and Germany bank branches should not be removed
1495: -- 11/30/05 unique validation for US and Germany bank branches should not be removed
1496: /*
1497: IF (COUNTRY_NAME = 'DE') THEN
1498: IF l_DEBUG in ('Y', 'C') THEN
1499: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_DE' );
1500: END IF;
1501:
1502: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_DE(X_BRANCH_NUMBER,
1503: X_BRANCH_NAME,
1505: X_BRANCH_ID);
1506:
1507: ELSIF (COUNTRY_NAME = 'US') THEN
1508: IF l_DEBUG in ('Y', 'C') THEN
1509: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_US' );
1510: END IF;
1511:
1512: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_US(X_BRANCH_NUMBER,
1513: X_BRANCH_NAME,
1516:
1517: */
1518: IF (COUNTRY_NAME = 'JP') THEN
1519: IF l_DEBUG in ('Y', 'C') THEN
1520: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_JP' );
1521: END IF;
1522:
1523: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_JP(X_COUNTRY_NAME,
1524: X_BRANCH_NUMBER,
1527: X_BANK_ID,
1528: X_BRANCH_ID);
1529: ELSE
1530: IF l_DEBUG in ('Y', 'C') THEN
1531: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH' );
1532: END IF;
1533: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH(X_COUNTRY_NAME,
1534: X_BRANCH_NUMBER,
1535: X_BRANCH_NAME,
1550: x_return_status := fnd_api.g_ret_sts_error;
1551: END IF;
1552:
1553: IF l_DEBUG in ('Y', 'C') THEN
1554: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_branch_unique - P_COUNT: '|| x_msg_count||
1555: --'P_DATA: '|| x_msg_data||
1556: ' X_VALUE_OUT: '|| X_VALUE_OUT||
1557: '<
1558: END IF;
1559: EXCEPTION
1560: WHEN OTHERS THEN
1561: IF l_DEBUG in ('Y', 'C') THEN
1562: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_branch_unique ' ||X_COUNTRY_NAME );
1563: END IF;
1564:
1565: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
1566: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.upd_branch_unique');
1602: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
1603: --l_DEBUG := 'Y';
1604:
1605: IF l_DEBUG in ('Y', 'C') THEN
1606: cep_standard.debug('>>CE_VALIDATE_BANKINFO.upd_branch_validate');
1607: END IF;
1608:
1609: -- initialize API return status to success.
1610: x_return_status := fnd_api.g_ret_sts_success;
1613:
1614: X_VALUE_OUT := X_BRANCH_NUMBER;
1615:
1616: IF l_DEBUG in ('Y', 'C') THEN
1617: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_branch - COUNTRY_NAME: '|| COUNTRY_NAME||
1618: ', X_VALUE_OUT: '|| X_VALUE_OUT);
1619: END IF;
1620:
1621: -- Initialize message list if p_init_msg_list is set to TRUE.
1631: X_PASS_MAND_CHECK := 'P';
1632: END IF;
1633:
1634: IF l_DEBUG in ('Y', 'C') THEN
1635: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_branch - X_PASS_MAND_CHECK: '|| X_PASS_MAND_CHECK);
1636: END IF;
1637:
1638: IF (COUNTRY_NAME = 'AT')
1639: THEN
1668:
1669: ELSIF (COUNTRY_NAME = 'DE')
1670: then
1671: IF l_DEBUG in ('Y', 'C') THEN
1672: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_DE' );
1673: END IF;
1674: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_DE(X_BRANCH_NUMBER,
1675: X_BANK_ID);
1676:
1758: x_return_status := fnd_api.g_ret_sts_error;
1759: END IF;
1760:
1761: IF l_DEBUG in ('Y', 'C') THEN
1762: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_branch_validate - P_COUNT: '|| x_msg_count||
1763: --'P_DATA: '|| x_msg_data||
1764: ' X_VALUE_OUT: '|| X_VALUE_OUT||
1765: '<
1766: END IF;
1767: EXCEPTION
1768: WHEN OTHERS THEN
1769: IF l_DEBUG in ('Y', 'C') THEN
1770: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_branch_validate ' ||X_COUNTRY_NAME );
1771: END IF;
1772:
1773: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
1774: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.upd_branch_validate');
1788: l_bank_account_num varchar2(30);
1789:
1790: BEGIN
1791: IF l_DEBUG in ('Y', 'C') THEN
1792: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_BE');
1793: END IF;
1794:
1795: account_value:= ce_remove_formats(X_ACCOUNT_NUMBER);
1796:
1803: ||substr(l_bank_account_num,5,7)
1804: ||substr(l_bank_account_num,13,2));
1805:
1806: IF l_DEBUG in ('Y', 'C') THEN
1807: cep_standard.debug('account_value ' ||account_value);
1808: END IF;
1809: END IF;
1810:
1811: X_ELECTRONIC_ACCT_NUM := account_value;
1810:
1811: X_ELECTRONIC_ACCT_NUM := account_value;
1812:
1813: IF l_DEBUG in ('Y', 'C') THEN
1814: cep_standard.debug('X_ELECTRONIC_ACCT_NUM ' ||X_ELECTRONIC_ACCT_NUM ||
1815: '<
1817: END CE_FORMAT_ELECTRONIC_NUM_BE;
1818:
1831: acct_length number;
1832:
1833: BEGIN
1834: IF l_DEBUG in ('Y', 'C') THEN
1835: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_FI');
1836: END IF;
1837: /*
1838: --bank_value := ce_remove_formats(X_BANK_NUMBER);
1839: --branch_value := ce_remove_formats(X_BRANCH_NUMBER);
1867:
1868: X_ELECTRONIC_ACCT_NUM := account_value;
1869:
1870: IF l_DEBUG in ('Y', 'C') THEN
1871: cep_standard.debug('X_ELECTRONIC_ACCT_NUM ' ||X_ELECTRONIC_ACCT_NUM ||
1872: ', <
1874: END CE_FORMAT_ELECTRONIC_NUM_FI;
1875:
1882: AS
1883: account_value varchar2(100);
1884: BEGIN
1885: IF l_DEBUG in ('Y', 'C') THEN
1886: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_NL');
1887: END IF;
1888: select rpad(
1889: decode(
1890: upper(substr(X_ACCOUNT_NUMBER, 1, 1)),
1900:
1901: X_ELECTRONIC_ACCT_NUM := account_value;
1902:
1903: IF l_DEBUG in ('Y', 'C') THEN
1904: cep_standard.debug('X_ELECTRONIC_ACCT_NUM ' ||X_ELECTRONIC_ACCT_NUM ||
1905: ', <
1907: END CE_FORMAT_ELECTRONIC_NUM_NL;
1908:
1917: account_value varchar2(30);
1918:
1919: BEGIN
1920: IF l_DEBUG in ('Y', 'C') THEN
1921: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_NO');
1922: END IF;
1923:
1924: account_value:= lpad(replace(replace(NVL(X_ACCOUNT_NUMBER,''),'.',''),' ',''),11,0);
1925: X_ELECTRONIC_ACCT_NUM := account_value;
1924: account_value:= lpad(replace(replace(NVL(X_ACCOUNT_NUMBER,''),'.',''),' ',''),11,0);
1925: X_ELECTRONIC_ACCT_NUM := account_value;
1926:
1927: IF l_DEBUG in ('Y', 'C') THEN
1928: cep_standard.debug('X_ELECTRONIC_ACCT_NUM ' ||X_ELECTRONIC_ACCT_NUM ||
1929: '<
1931:
1932: END CE_FORMAT_ELECTRONIC_NUM_NO;
1941: account_value varchar2(30);
1942:
1943: BEGIN
1944: IF l_DEBUG in ('Y', 'C') THEN
1945: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_SE');
1946: END IF;
1947:
1948: account_value:= ce_remove_formats(X_ACCOUNT_NUMBER);
1949: X_ELECTRONIC_ACCT_NUM := account_value;
1948: account_value:= ce_remove_formats(X_ACCOUNT_NUMBER);
1949: X_ELECTRONIC_ACCT_NUM := account_value;
1950:
1951: IF l_DEBUG in ('Y', 'C') THEN
1952: cep_standard.debug('X_ELECTRONIC_ACCT_NUM ' ||X_ELECTRONIC_ACCT_NUM ||
1953: '<
1955: END CE_FORMAT_ELECTRONIC_NUM_SE;
1956:
1986: --l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
1987: --l_DEBUG := 'Y';
1988:
1989: IF l_DEBUG in ('Y', 'C') THEN
1990: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM');
1991: END IF;
1992: -- initialize API return status to success.
1993: x_return_status := fnd_api.g_ret_sts_success;
1994:
1995: COUNTRY_NAME := X_COUNTRY_NAME;
1996: X_ELECTRONIC_ACCT_NUM := X_ACCOUNT_NUMBER;
1997:
1998: IF l_DEBUG in ('Y', 'C') THEN
1999: cep_standard.debug('COUNTRY_NAME: '|| COUNTRY_NAME||
2000: ', X_ELECTRONIC_ACCT_NUM: '|| X_ELECTRONIC_ACCT_NUM);
2001: END IF;
2002:
2003: -- Initialize message list if p_init_msg_list is set to TRUE.
2005: FND_MSG_PUB.initialize;
2006: END IF;
2007:
2008: IF l_DEBUG in ('Y', 'C') THEN
2009: cep_standard.debug('P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
2010: END IF;
2011:
2012: IF (COUNTRY_NAME = 'BE') then
2013: CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_BE(
2053: x_return_status := fnd_api.g_ret_sts_error;
2054: END IF;
2055:
2056: IF l_DEBUG in ('Y', 'C') THEN
2057: cep_standard.debug('P_COUNT: '|| x_msg_count||
2058: ', <
2060: EXCEPTION
2061: WHEN OTHERS THEN
2060: EXCEPTION
2061: WHEN OTHERS THEN
2062:
2063: IF l_DEBUG in ('Y', 'C') THEN
2064: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM ' ||X_COUNTRY_NAME );
2065: END IF;
2066: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
2067: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM');
2068: fnd_msg_pub.add;
2114: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
2115: --l_DEBUG := 'Y';
2116:
2117: IF l_DEBUG in ('Y', 'C') THEN
2118: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account');
2119: END IF;
2120: -- initialize API return status to success.
2121: x_return_status := fnd_api.g_ret_sts_success;
2122:
2124: X_VALUE_OUT := X_ACCOUNT_NUMBER;
2125: X_ELECTRONIC_ACCT_NUM := X_ACCOUNT_NUMBER;
2126:
2127: IF l_DEBUG in ('Y', 'C') THEN
2128: cep_standard.debug('COUNTRY_NAME: '|| COUNTRY_NAME||
2129: ', X_VALUE_OUT: '|| X_VALUE_OUT);
2130: END IF;
2131:
2132: -- Initialize message list if p_init_msg_list is set to TRUE.
2134: FND_MSG_PUB.initialize;
2135: END IF;
2136:
2137: IF l_DEBUG in ('Y', 'C') THEN
2138: cep_standard.debug('P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
2139: END IF;
2140:
2141: /* We must validate the Bank Account Number */
2142:
2146: X_PASS_MAND_CHECK := 'P';
2147: END IF;
2148:
2149: IF l_DEBUG in ('Y', 'C') THEN
2150: cep_standard.debug('X_PASS_MAND_CHECK: '|| X_PASS_MAND_CHECK);
2151: END IF;
2152:
2153: IF (COUNTRY_NAME = 'AT')
2154: then
2238:
2239: ELSIF (COUNTRY_NAME = 'IT')
2240: then
2241: IF l_DEBUG in ('Y', 'C') THEN
2242: cep_standard.debug('X_ACCOUNT_NUMBER : '|| X_ACCOUNT_NUMBER||
2243: ', X_VALUE_OUT : '|| X_VALUE_OUT);
2244: END IF;
2245:
2246: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IT(X_ACCOUNT_NUMBER,
2305:
2306: /** UNIQUE VALIDATION CHECK for account **/
2307:
2308: IF l_DEBUG in ('Y', 'C') THEN
2309: cep_standard.debug('UNIQUE_VALIDATION CHECK for account');
2310: END IF;
2311:
2312: IF (COUNTRY_NAME = 'JP') THEN
2313: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT_JP(X_ACCOUNT_NUMBER,
2325: X_BRANCH_ID,
2326: X_ACCOUNT_ID);
2327: ELSE
2328: IF l_DEBUG in ('Y', 'C') THEN
2329: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT' );
2330: END IF;
2331: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT(
2332: X_ACCOUNT_NUMBER,
2333: X_CURRENCY_CODE,
2337:
2338: END IF;
2339:
2340: IF l_DEBUG in ('Y', 'C') THEN
2341: cep_standard.debug(' UNIQUE_VALIDATION CHECK for account end ');
2342: END IF;
2343:
2344: -- ER 3973203
2345: -- Format Electronic Bank Account Num (CE_BANK_ACCOUNTS.BANK_ACCOUNT_NUM_ELECTRONIC)
2350: NEW_ACCOUNT_NUM := X_ACCOUNT_NUMBER;
2351:
2352: END IF;
2353: IF l_DEBUG in ('Y', 'C') THEN
2354: cep_standard.debug('CE_VALIDATE_ACCOUNT: NEW_ACCOUNT_NUM: '|| NEW_ACCOUNT_NUM);
2355: END IF;
2356:
2357: CE_FORMAT_ELECTRONIC_NUM(X_COUNTRY_NAME ,
2358: X_BANK_NUMBER ,
2368: x_msg_data ,
2369: x_return_status );
2370:
2371: IF l_DEBUG in ('Y', 'C') THEN
2372: cep_standard.debug('CE_VALIDATE_ACCOUNT: X_ELECTRONIC_ACCT_NUM: '|| X_ELECTRONIC_ACCT_NUM);
2373: END IF;
2374:
2375:
2376: FND_MSG_PUB.Count_And_Get(
2382: x_return_status := fnd_api.g_ret_sts_error;
2383: END IF;
2384:
2385: IF l_DEBUG in ('Y', 'C') THEN
2386: cep_standard.debug('CE_VALIDATE_ACCOUNT: P_COUNT: '|| x_msg_count||
2387: --'ce_validate_account - P_DATA: '|| x_msg_data||
2388: ', X_VALUE_OUT: '|| X_VALUE_OUT||
2389: ', <
2391: EXCEPTION
2392: WHEN OTHERS THEN
2393:
2394: IF l_DEBUG in ('Y', 'C') THEN
2395: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_account ' ||X_COUNTRY_NAME );
2396: END IF;
2397: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
2398: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.ce_validate_account');
2399: fnd_msg_pub.add;
2437: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
2438: --l_DEBUG := 'Y';
2439:
2440: IF l_DEBUG in ('Y', 'C') THEN
2441: cep_standard.debug('>>CE_VALIDATE_BANKINFO.upd_account_unique');
2442: END IF;
2443: -- initialize API return status to success.
2444: x_return_status := fnd_api.g_ret_sts_success;
2445:
2446: COUNTRY_NAME := X_COUNTRY_NAME;
2447: X_VALUE_OUT := X_ACCOUNT_NUMBER;
2448:
2449: IF l_DEBUG in ('Y', 'C') THEN
2450: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_unique - COUNTRY_NAME: '|| COUNTRY_NAME||
2451: ', X_VALUE_OUT: '|| X_VALUE_OUT);
2452: END IF;
2453:
2454: -- Initialize message list if p_init_msg_list is set to TRUE.
2456: FND_MSG_PUB.initialize;
2457: END IF;
2458:
2459: IF l_DEBUG in ('Y', 'C') THEN
2460: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_unique - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
2461: END IF;
2462:
2463: /** UNIQUE VALIDATION CHECK for account **/
2464:
2462:
2463: /** UNIQUE VALIDATION CHECK for account **/
2464:
2465: IF l_DEBUG in ('Y', 'C') THEN
2466: cep_standard.debug('UNIQUE_VALIDATION CHECK for account');
2467: END IF;
2468:
2469: IF (COUNTRY_NAME = 'JP') THEN
2470: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT_JP(X_ACCOUNT_NUMBER,
2482: X_BRANCH_ID,
2483: X_ACCOUNT_ID);
2484: ELSE
2485: IF l_DEBUG in ('Y', 'C') THEN
2486: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT' );
2487: END IF;
2488: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT(
2489: X_ACCOUNT_NUMBER,
2490: X_CURRENCY_CODE,
2494:
2495: END IF;
2496:
2497: IF l_DEBUG in ('Y', 'C') THEN
2498: cep_standard.debug(' UNIQUE_VALIDATION CHECK for account end ');
2499: END IF;
2500:
2501: FND_MSG_PUB.Count_And_Get(
2502: p_encoded => FND_API.G_FALSE,
2507: x_return_status := fnd_api.g_ret_sts_error;
2508: END IF;
2509:
2510: IF l_DEBUG in ('Y', 'C') THEN
2511: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_unique - P_COUNT: '|| x_msg_count||
2512: --'CE_VALIDATE_BANKINFO.upd_account_unique - P_DATA: '|| x_msg_data||
2513: ', X_VALUE_OUT: '|| X_VALUE_OUT||
2514: '<
2516: EXCEPTION
2517: WHEN OTHERS THEN
2518:
2519: IF l_DEBUG in ('Y', 'C') THEN
2520: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_unique ' ||X_COUNTRY_NAME );
2521: END IF;
2522: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
2523: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.upd_account_unique');
2524: fnd_msg_pub.add;
2567: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
2568: --l_DEBUG := 'Y';
2569:
2570: IF l_DEBUG in ('Y', 'C') THEN
2571: cep_standard.debug('>>CE_VALIDATE_BANKINFO.upd_account_validate');
2572: END IF;
2573: -- initialize API return status to success.
2574: x_return_status := fnd_api.g_ret_sts_success;
2575:
2577: X_VALUE_OUT := X_ACCOUNT_NUMBER;
2578: X_ELECTRONIC_ACCT_NUM := X_ACCOUNT_NUMBER;
2579:
2580: IF l_DEBUG in ('Y', 'C') THEN
2581: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_validate - COUNTRY_NAME: '|| COUNTRY_NAME||
2582: ', X_VALUE_OUT: '|| X_VALUE_OUT);
2583: END IF;
2584:
2585: -- Initialize message list if p_init_msg_list is set to TRUE.
2587: FND_MSG_PUB.initialize;
2588: --END IF;
2589:
2590: IF l_DEBUG in ('Y', 'C') THEN
2591: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_validate - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
2592: END IF;
2593:
2594: /* We must validate the Bank Account Number */
2595:
2685:
2686: ELSIF (COUNTRY_NAME = 'IT')
2687: then
2688: IF l_DEBUG in ('Y', 'C') THEN
2689: cep_standard.debug('X_ACCOUNT_NUMBER : '|| X_ACCOUNT_NUMBER||
2690: ', X_VALUE_OUT : '|| X_VALUE_OUT);
2691: END IF;
2692:
2693: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IT(X_ACCOUNT_NUMBER,
2787: x_return_status := fnd_api.g_ret_sts_error;
2788: END IF;
2789:
2790: IF l_DEBUG in ('Y', 'C') THEN
2791: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_validate - P_COUNT: '|| x_msg_count||
2792: --'CE_VALIDATE_BANKINFO.upd_account_validate - P_DATA: '|| x_msg_data||
2793: ', X_VALUE_OUT: '|| X_VALUE_OUT||
2794: '<
2796: EXCEPTION
2797: WHEN OTHERS THEN
2798:
2799: IF l_DEBUG in ('Y', 'C') THEN
2800: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_account_validate ' ||X_COUNTRY_NAME );
2801: END IF;
2802: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
2803: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.upd_account_validate');
2804: fnd_msg_pub.add;
2840: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
2841: --l_DEBUG := 'Y';
2842:
2843: IF l_DEBUG in ('Y', 'C') THEN
2844: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank');
2845: END IF;
2846: -- initialize API return status to success.
2847: x_return_status := fnd_api.g_ret_sts_success;
2848:
2849: COUNTRY_NAME := X_COUNTRY_NAME;
2850: X_VALUE_OUT := X_BANK_NUMBER;
2851:
2852: IF l_DEBUG in ('Y', 'C') THEN
2853: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_bank - COUNTRY_NAME: '|| COUNTRY_NAME||
2854: ', X_VALUE_OUT: '|| X_VALUE_OUT);
2855: END IF;
2856:
2857:
2860: FND_MSG_PUB.initialize;
2861: END IF;
2862:
2863: IF l_DEBUG in ('Y', 'C') THEN
2864: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_bank - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
2865: END IF;
2866:
2867: /* We must validate the Bank Number */
2868:
2872: X_PASS_MAND_CHECK := 'P';
2873: END IF;
2874:
2875: IF l_DEBUG in ('Y', 'C') THEN
2876: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_bank - X_PASS_MAND_CHECK: '|| X_PASS_MAND_CHECK);
2877: END IF;
2878:
2879: IF (COUNTRY_NAME = 'ES')
2880: then
2976:
2977: /** UNIQUE VALIDATION CHECK for bank **/
2978:
2979: IF l_DEBUG in ('Y', 'C') THEN
2980: cep_standard.debug('UNIQUE VALIDATION CHECK for bank' );
2981: END IF;
2982:
2983: IF (COUNTRY_NAME = 'JP') THEN
2984: IF l_DEBUG in ('Y', 'C') THEN
2981: END IF;
2982:
2983: IF (COUNTRY_NAME = 'JP') THEN
2984: IF l_DEBUG in ('Y', 'C') THEN
2985: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BANK_JP' );
2986: END IF;
2987:
2988: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BANK_JP(X_COUNTRY_NAME,
2989: X_BANK_NUMBER ,
2993:
2994: END IF; /** country unique check for bank **/
2995:
2996: IF l_DEBUG in ('Y', 'C') THEN
2997: cep_standard.debug('CE_VALIDATE_CD: ' || 'UNIQUE VALIDATION CHECK for bank end' );
2998: END IF;
2999:
3000: FND_MSG_PUB.Count_And_Get(
3001: p_encoded => FND_API.G_FALSE,
3006: x_return_status := fnd_api.g_ret_sts_error;
3007: END IF;
3008:
3009: IF l_DEBUG in ('Y', 'C') THEN
3010: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_bank - P_COUNT: '|| x_msg_count||
3011: --'CE_VALIDATE_BANKINFO.ce_validate_bank - P_DATA: '|| x_msg_data||
3012: ', X_VALUE_OUT: '|| X_VALUE_OUT||
3013: '<
3014: END IF;
3015: EXCEPTION
3016: WHEN OTHERS THEN
3017: IF l_DEBUG in ('Y', 'C') THEN
3018: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_bank ' ||X_COUNTRY_NAME );
3019: END IF;
3020:
3021: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
3022: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.cd_validate_bank');
3056: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
3057: --l_DEBUG := 'Y';
3058:
3059: IF l_DEBUG in ('Y', 'C') THEN
3060: cep_standard.debug('>>CE_VALIDATE_BANKINFO.upd_bank_unique');
3061: END IF;
3062: -- initialize API return status to success.
3063: x_return_status := fnd_api.g_ret_sts_success;
3064:
3065: COUNTRY_NAME := X_COUNTRY_NAME;
3066: X_VALUE_OUT := X_BANK_NUMBER;
3067:
3068: IF l_DEBUG in ('Y', 'C') THEN
3069: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_bank - COUNTRY_NAME: '|| COUNTRY_NAME||
3070: ', X_VALUE_OUT: '|| X_VALUE_OUT);
3071: END IF;
3072:
3073:
3076: FND_MSG_PUB.initialize;
3077: END IF;
3078:
3079: IF l_DEBUG in ('Y', 'C') THEN
3080: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_bank - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
3081: END IF;
3082:
3083: /** UNIQUE VALIDATION CHECK for bank **/
3084:
3082:
3083: /** UNIQUE VALIDATION CHECK for bank **/
3084:
3085: IF l_DEBUG in ('Y', 'C') THEN
3086: cep_standard.debug('UNIQUE VALIDATION CHECK for bank' );
3087: END IF;
3088:
3089: IF (COUNTRY_NAME = 'JP') THEN
3090: IF l_DEBUG in ('Y', 'C') THEN
3087: END IF;
3088:
3089: IF (COUNTRY_NAME = 'JP') THEN
3090: IF l_DEBUG in ('Y', 'C') THEN
3091: cep_standard.debug('call CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BANK_JP' );
3092: END IF;
3093:
3094: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BANK_JP(X_COUNTRY_NAME,
3095: X_BANK_NUMBER ,
3099:
3100: END IF; /** country unique check for bank **/
3101:
3102: IF l_DEBUG in ('Y', 'C') THEN
3103: cep_standard.debug('CE_VALIDATE_CD: ' || 'UNIQUE VALIDATION CHECK for bank end' );
3104: END IF;
3105:
3106: FND_MSG_PUB.Count_And_Get(
3107: p_encoded => FND_API.G_FALSE,
3112: x_return_status := fnd_api.g_ret_sts_error;
3113: END IF;
3114:
3115: IF l_DEBUG in ('Y', 'C') THEN
3116: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_bank_unique - P_COUNT: '|| x_msg_count||
3117: --'CE_VALIDATE_BANKINFO.upd_bank_unique - P_DATA: '|| x_msg_data||
3118: ', X_VALUE_OUT: '|| X_VALUE_OUT||
3119: '<
3120: END IF;
3121: EXCEPTION
3122: WHEN OTHERS THEN
3123: IF l_DEBUG in ('Y', 'C') THEN
3124: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_bank_unique ' ||X_COUNTRY_NAME );
3125: END IF;
3126:
3127: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
3128: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.upd_bank_unique');
3163: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
3164: --l_DEBUG := 'Y';
3165:
3166: IF l_DEBUG in ('Y', 'C') THEN
3167: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank');
3168: END IF;
3169: -- initialize API return status to success.
3170: x_return_status := fnd_api.g_ret_sts_success;
3171:
3172: COUNTRY_NAME := X_COUNTRY_NAME;
3173: X_VALUE_OUT := X_BANK_NUMBER;
3174:
3175: IF l_DEBUG in ('Y', 'C') THEN
3176: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_bank_validate - COUNTRY_NAME: '|| COUNTRY_NAME||
3177: ', X_VALUE_OUT: '|| X_VALUE_OUT);
3178: END IF;
3179:
3180:
3183: FND_MSG_PUB.initialize;
3184: END IF;
3185:
3186: IF l_DEBUG in ('Y', 'C') THEN
3187: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_bank_validate - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
3188: END IF;
3189:
3190: /* We must validate the Bank Number */
3191:
3300: x_return_status := fnd_api.g_ret_sts_error;
3301: END IF;
3302:
3303: IF l_DEBUG in ('Y', 'C') THEN
3304: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_bank_validate - P_COUNT: '|| x_msg_count||
3305: --'CE_VALIDATE_BANKINFO.upd_bank_validate - P_DATA: '|| x_msg_data||
3306: ', X_VALUE_OUT: '|| X_VALUE_OUT||
3307: '<
3308: END IF;
3309: EXCEPTION
3310: WHEN OTHERS THEN
3311: IF l_DEBUG in ('Y', 'C') THEN
3312: cep_standard.debug('CE_VALIDATE_BANKINFO.upd_bank_validate' ||X_COUNTRY_NAME );
3313: END IF;
3314:
3315: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
3316: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.upd_bank_validate');
3337: Xi_Country IN VARCHAR2
3338: ) AS
3339: BEGIN
3340: IF l_DEBUG in ('Y', 'C') THEN
3341: cep_standard.debug('CE_VALIDATE_'||xi_field
3342: ||'_'||xi_country||' : passed_check');
3343: END IF;
3344: END CE_PASSED_CHECK;
3345:
3368: mesg_name VARCHAR2(100) DEFAULT NULL;
3369: length_val VARCHAR2(100) DEFAULT NULL;
3370: BEGIN
3371: IF l_DEBUG in ('Y', 'C') THEN
3372: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FAILED_CHECK');
3373: END IF;
3374:
3375: -- Setting the field name as per call --
3376: IF p_Field = 'ACCOUNT_NUM' THEN field_token := 'CE_TOKEN_ACCOUNT_NUM';
3421: -- populate the message queue
3422: FND_MSG_PUB.add;
3423:
3424: IF l_DEBUG in ('Y', 'C') THEN
3425: cep_standard.debug('<
3427: END CE_FAILED_CHECK;
3428:
3429: /* --------------------------------------------------------------------
3448: mesg_name VARCHAR2(30);
3449:
3450: BEGIN
3451: IF l_DEBUG in ('Y', 'C') THEN
3452: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_FAILED_MANDATORY');
3453: END IF;
3454:
3455: IF p_Field = 'BANK_NUM' THEN mesg_name := 'CE_ENTER_BANK_NUM';
3456: ELSIF p_Field = 'BRANCH_NUM' THEN mesg_name := 'CE_ENTER_BRANCH_NUM';
3464: FND_MESSAGE.set_name('CE', mesg_name);
3465: FND_MSG_PUB.add;
3466:
3467: IF l_DEBUG in ('Y', 'C') THEN
3468: cep_standard.debug('<
3470: END CE_FAILED_MANDATORY;
3471:
3472: /* --------------------------------------------------------------------
3504: br_value VARCHAR2(30);
3505:
3506: BEGIN
3507: IF l_DEBUG in ('Y', 'C') THEN
3508: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_pt');
3509: END IF;
3510:
3511: CD_VALUE := upper(replace(Xi_CD,' ',''));
3512: bk_value := upper(replace(replace(Xi_X_BANK_NUMBER,' ',''),'-',''));
3553: ce_failed_check('CHECK_DIGIT','LENGTH','2');
3554: END IF; /* end of length check */
3555:
3556: IF l_DEBUG in ('Y', 'C') THEN
3557: cep_standard.debug('<
3559: END CE_VALIDATE_CD_PT;
3560:
3561:
3579: br_value VARCHAR2(30);
3580:
3581: BEGIN
3582: IF l_DEBUG in ('Y', 'C') THEN
3583: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_es');
3584: END IF;
3585:
3586: CD_VALUE := upper(Xi_CD);
3587: bk_value := upper(replace(replace(Xi_X_BANK_NUMBER,' ',''),'-',''));
3636: ce_failed_check('CHECK_DIGIT','NUMERIC');
3637: END IF; /* end of numeric check */
3638:
3639: IF l_DEBUG in ('Y', 'C') THEN
3640: cep_standard.debug('<
3642: END CE_VALIDATE_CD_ES;
3643:
3644: /* ---------------------------------------------------------------------
3663:
3664:
3665: BEGIN
3666: IF l_DEBUG in ('Y', 'C') THEN
3667: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_fr');
3668: END IF;
3669:
3670: CD_VALUE := upper(Xi_CD);
3671: bk_value := replace(replace(upper(Xi_X_BANK_NUMBER),' ',''),'-','');
3695: ce_failed_check('CHECK_DIGIT','LENGTH','2');
3696: END IF; /* end of length check */
3697:
3698: IF l_DEBUG in ('Y', 'C') THEN
3699: cep_standard.debug('<
3701:
3702: END CE_VALIDATE_CD_FR;
3703:
3714: ac_value VARCHAR2(50);
3715:
3716: BEGIN
3717: IF l_DEBUG in ('Y', 'C') THEN
3718: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_DE');
3719: END IF;
3720:
3721: cd_value := upper(Xi_CD);
3722:
3740: END IF; /* end of length check */
3741: END IF;
3742:
3743: IF l_DEBUG in ('Y', 'C') THEN
3744: cep_standard.debug('<
3746: END CE_VALIDATE_CD_DE;
3747:
3748:
3762: cd_value VARCHAR2(20);
3763:
3764: BEGIN
3765: IF l_DEBUG in ('Y', 'C') THEN
3766: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_gr');
3767: END IF;
3768:
3769: CD_VALUE := upper(Xi_CD);
3770: IF length(CD_VALUE) = 1
3780: ce_failed_check('CHECK_DIGIT','LENGTH','1');
3781: END IF; /* end of length check */
3782:
3783: IF l_DEBUG in ('Y', 'C') THEN
3784: cep_standard.debug('<
3786: END CE_VALIDATE_CD_GR;
3787:
3788: /* ---------------------------------------------------------------------
3799: ac_value VARCHAR2(50);
3800:
3801: BEGIN
3802: IF l_DEBUG in ('Y', 'C') THEN
3803: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_is');
3804: END IF;
3805:
3806: CD_VALUE := upper(replace(Xi_CD,' ',''));
3807: ac_value := upper(replace(Xi_X_ACCOUNT_NUMBER,' ',''));
3820: ce_failed_check('CHECK_DIGIT','LENGTH','1');
3821: END IF; /* end of length check */
3822:
3823: IF l_DEBUG in ('Y', 'C') THEN
3824: cep_standard.debug('<
3826: END CE_VALIDATE_CD_IS;
3827:
3828: /* ---------------------------------------------------------------------
3958: /****************/
3959: BEGIN
3960:
3961: IF l_DEBUG in ('Y', 'C') THEN
3962: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_it'|| '----------' ||
3963: 'CE_VALIDATE_CD: ' || 'Xi_X_ACCOUNT_NUMBER: '||Xi_X_ACCOUNT_NUMBER);
3964: END IF;
3965:
3966: CD_VALUE := upper(replace(Xi_CD,' ',''));
4007: ce_failed_check('CHECK_DIGIT','LENGTH','1');
4008: END IF; /* end of length check */
4009:
4010: IF l_DEBUG in ('Y', 'C') THEN
4011: cep_standard.debug('<
4013: END CE_VALIDATE_CD_IT;
4014:
4015: /* ---------------------------------------------------------------------
4026: check_digit VARCHAR2(2);
4027:
4028: BEGIN
4029: IF l_DEBUG in ('Y', 'C') THEN
4030: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_lu');
4031: END IF;
4032:
4033: ACCOUNT_VALUE := lpad(Xi_X_ACCOUNT_NUMBER,12,0);
4034: CHECK_DIGIT := Xi_CD;
4046: ce_failed_check('CHECK_DIGIT','LENGTH','2');
4047: END IF; /* end of length check */
4048:
4049: IF l_DEBUG in ('Y', 'C') THEN
4050: cep_standard.debug('<
4052: END CE_VALIDATE_CD_LU;
4053:
4054: /* ---------------------------------------------------------------------
4063: cd_value varchar2(20);
4064:
4065: BEGIN
4066: IF l_DEBUG in ('Y', 'C') THEN
4067: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_cd_se');
4068: END IF;
4069:
4070: CD_VALUE := upper(Xi_CD);
4071:
4083: ce_failed_check('CHECK_DIGIT','LENGTH','1');
4084: END IF; /* end of length check */
4085:
4086: IF l_DEBUG in ('Y', 'C') THEN
4087: cep_standard.debug('<
4089: END CE_VALIDATE_CD_SE;
4090:
4091: /* --------------------------------------------------------------------
4119: numeric_result VARCHAR2(40);
4120:
4121: BEGIN
4122: IF l_DEBUG in ('Y', 'C') THEN
4123: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_at');
4124: END IF;
4125:
4126: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER);
4127: Xo_VALUE_OUT := BRANCH_VALUE;
4149: END IF; /* end of length check */
4150: END IF; /* end of mandatory check */
4151:
4152: IF l_DEBUG in ('Y', 'C') THEN
4153: cep_standard.debug('<
4155: END CE_VALIDATE_BRANCH_AT;
4156:
4157: /* ---------------------------------------------------------------------
4165: numeric_result VARCHAR2(40);
4166:
4167: BEGIN
4168: IF l_DEBUG in ('Y', 'C') THEN
4169: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_pt');
4170: END IF;
4171:
4172: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER);
4173:
4192: END IF; /* end of length check */
4193: END IF; /* end of mandatory check */
4194:
4195: IF l_DEBUG in ('Y', 'C') THEN
4196: cep_standard.debug('<
4198: END CE_VALIDATE_BRANCH_PT;
4199:
4200: /* ---------------------------------------------------------------------
4210: numeric_result VARCHAR2(40);
4211:
4212: BEGIN
4213: IF l_DEBUG in ('Y', 'C') THEN
4214: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_fr');
4215: END IF;
4216:
4217: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
4218: Xo_VALUE_OUT := BRANCH_VALUE;
4240: END IF; /* end of length check */
4241: END IF; /* end of mandatory check */
4242:
4243: IF l_DEBUG in ('Y', 'C') THEN
4244: cep_standard.debug('<
4246: END CE_VALIDATE_BRANCH_FR;
4247:
4248: /* ---------------------------------------------------------------------
4258: NUMERIC_RESULT varchar2(40);
4259:
4260: BEGIN
4261: IF l_DEBUG in ('Y', 'C') THEN
4262: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_es');
4263: END IF;
4264:
4265: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
4266: BRANCH_VALUE := replace(replace(BRANCH_VALUE,' ',''),'-','');
4288: END IF; /* end of length check */
4289: END IF; /* end of mandatory check */
4290:
4291: IF l_DEBUG in ('Y', 'C') THEN
4292: cep_standard.debug('<
4294: END CE_VALIDATE_BRANCH_ES;
4295:
4296: /* ---------------------------------------------------------------------
4306: numeric_result VARCHAR2(40);
4307:
4308: BEGIN
4309: IF l_DEBUG in ('Y', 'C') THEN
4310: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_br');
4311: END IF;
4312:
4313: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
4314: Xo_VALUE_OUT := BRANCH_VALUE;
4337: END IF; /* end of length check*/
4338: END IF; /* end of mandatory check */
4339:
4340: IF l_DEBUG in ('Y', 'C') THEN
4341: cep_standard.debug('<
4343: END CE_VALIDATE_BRANCH_BR;
4344:
4345: /* ---------------------------------------------------------------------
4354: numeric_result VARCHAR2(40);
4355:
4356: BEGIN
4357: IF l_DEBUG in ('Y', 'C') THEN
4358: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_de');
4359: END IF;
4360:
4361: -- remove spaces and hyphens --
4362: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4379: END IF; /* end of length check */
4380: END IF;
4381:
4382: IF l_DEBUG in ('Y', 'C') THEN
4383: cep_standard.debug('<
4385: END CE_VALIDATE_BRANCH_DE;
4386:
4387: /* ---------------------------------------------------------------------
4395: numeric_result VARCHAR2(40);
4396:
4397: BEGIN
4398: IF l_DEBUG in ('Y', 'C') THEN
4399: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_gr');
4400: END IF;
4401:
4402: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4403: BRANCH_VALUE := replace(BRANCH_VALUE,'-','');
4418: END IF; /* end of length check */
4419: END IF; /* end of null check */
4420:
4421: IF l_DEBUG in ('Y', 'C') THEN
4422: cep_standard.debug('<
4424: END CE_VALIDATE_BRANCH_GR;
4425:
4426: /* ---------------------------------------------------------------------
4436: numeric_result VARCHAR2(40);
4437:
4438: BEGIN
4439: IF l_DEBUG in ('Y', 'C') THEN
4440: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_is');
4441: END IF;
4442:
4443: -- remove spaces and hyphens --
4444: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4465: ce_passed_check('BRANCH','IS');
4466: END IF; /* end of null check */
4467:
4468: IF l_DEBUG in ('Y', 'C') THEN
4469: cep_standard.debug('<
4471: END CE_VALIDATE_BRANCH_IS;
4472:
4473:
4483: numeric_result VARCHAR2(40);
4484:
4485: BEGIN
4486: IF l_DEBUG in ('Y', 'C') THEN
4487: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_ie');
4488: END IF;
4489:
4490: -- remove spaces and hyphens --
4491: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4511: ce_passed_check('BRANCH','IE');
4512: END IF; /* end of null check */
4513:
4514: IF l_DEBUG in ('Y', 'C') THEN
4515: cep_standard.debug('<
4517: END CE_VALIDATE_BRANCH_IE;
4518:
4519: /* ---------------------------------------------------------------------
4528: numeric_result VARCHAR2(40);
4529:
4530: BEGIN
4531: IF l_DEBUG in ('Y', 'C') THEN
4532: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_it');
4533: END IF;
4534:
4535: -- remove spaces and hyphens --
4536: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4555: END IF; /* end of length check */
4556: END IF; /* end of mandatory check */
4557:
4558: IF l_DEBUG in ('Y', 'C') THEN
4559: cep_standard.debug('<
4561: END CE_VALIDATE_BRANCH_IT;
4562:
4563: /* ---------------------------------------------------------------------
4571: numeric_result VARCHAR2(40);
4572:
4573: BEGIN
4574: IF l_DEBUG in ('Y', 'C') THEN
4575: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_lu');
4576: END IF;
4577:
4578: -- remove hyphens and spaces --
4579: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4599: ce_passed_check('BRANCH','LU');
4600: END IF; /* end of null check */
4601:
4602: IF l_DEBUG in ('Y', 'C') THEN
4603: cep_standard.debug('<
4605: END CE_VALIDATE_BRANCH_LU;
4606:
4607: /* ---------------------------------------------------------------------
4617: cal_cd1 NUMBER;
4618:
4619: BEGIN
4620: IF l_DEBUG in ('Y', 'C') THEN
4621: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_pl');
4622: END IF;
4623:
4624: -- remove spaces and hyphens --
4625: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4646: ce_passed_check('BRANCH','PL');
4647: END IF; /* end of null check */
4648:
4649: IF l_DEBUG in ('Y', 'C') THEN
4650: cep_standard.debug('<
4652: END CE_VALIDATE_BRANCH_PL;
4653:
4654: /* ---------------------------------------------------------------------
4663: numeric_result VARCHAR2(40);
4664:
4665: BEGIN
4666: IF l_DEBUG in ('Y', 'C') THEN
4667: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_se');
4668: END IF;
4669:
4670: -- remove hyphens and spaces --
4671: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4695: ce_passed_check('BRANCH','SE');
4696: END IF; /* end of null check */
4697:
4698: IF l_DEBUG in ('Y', 'C') THEN
4699: cep_standard.debug('<
4701: END CE_VALIDATE_BRANCH_SE;
4702:
4703:
4713: numeric_result VARCHAR2(40);
4714:
4715: BEGIN
4716: IF l_DEBUG in ('Y', 'C') THEN
4717: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_ch');
4718: END IF;
4719:
4720: -- remove spaces and hyphens --
4721: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4749: ce_passed_check('BRANCH','CH');
4750: END IF; /* end of null check */
4751:
4752: IF l_DEBUG in ('Y', 'C') THEN
4753: cep_standard.debug('<
4755: END CE_VALIDATE_BRANCH_CH;
4756:
4757: /* ---------------------------------------------------------------------
4766: numeric_result VARCHAR2(40);
4767:
4768: BEGIN
4769: IF l_DEBUG in ('Y', 'C') THEN
4770: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_gb');
4771: END IF;
4772:
4773: -- remove spaces and hyphens --
4774: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4793: ce_passed_check('BRANCH','GB');
4794: END IF; /* end of null check */
4795:
4796: IF l_DEBUG in ('Y', 'C') THEN
4797: cep_standard.debug('<
4799: END CE_VALIDATE_BRANCH_GB;
4800:
4801: /* ---------------------------------------------------------------------
4816: numeric_result VARCHAR2(40);
4817:
4818: BEGIN
4819: IF l_DEBUG in ('Y', 'C') THEN
4820: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_us');
4821: END IF;
4822:
4823: -- remove spaces and hyphens --
4824: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4875: ce_passed_check('BRANCH','US');
4876: END IF; /* end of null check */
4877:
4878: IF l_DEBUG in ('Y', 'C') THEN
4879: cep_standard.debug('<
4881: END CE_VALIDATE_BRANCH_US;
4882:
4883: /* ---------------------------------------------------------------------
4896: numeric_result varchar2(40);
4897:
4898: BEGIN
4899: IF l_DEBUG in ('Y', 'C') THEN
4900: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_au');
4901: END IF;
4902:
4903: -- remove spaces and hyphens --
4904: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4943:
4944: END IF; /* end of mandatory check */
4945:
4946: IF l_DEBUG in ('Y', 'C') THEN
4947: cep_standard.debug('<
4949: END CE_VALIDATE_BRANCH_AU;
4950:
4951: /* ---------------------------------------------------------------------
4960: numeric_result VARCHAR2(40);
4961:
4962: BEGIN
4963: IF l_DEBUG in ('Y', 'C') THEN
4964: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_il');
4965: END IF;
4966:
4967: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4968: BRANCH_VALUE := replace(BRANCH_VALUE,'-','');
4987: END IF; /* end of length check */
4988: END IF; /* end of mandatory check */
4989:
4990: IF l_DEBUG in ('Y', 'C') THEN
4991: cep_standard.debug('<
4993: END CE_VALIDATE_BRANCH_IL;
4994:
4995: /* ---------------------------------------------------------------------
5004: numeric_result VARCHAR2(40);
5005:
5006: BEGIN
5007: IF l_DEBUG in ('Y', 'C') THEN
5008: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_nz');
5009: END IF;
5010:
5011: -- remove hyphens and spaces --
5012: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
5032: END IF; /* end of length check */
5033: END IF; /* end of mandatory check */
5034:
5035: IF l_DEBUG in ('Y', 'C') THEN
5036: cep_standard.debug('<
5038: END CE_VALIDATE_BRANCH_NZ;
5039:
5040: /* ---------------------------------------------------------------------
5050: numeric_result VARCHAR2(40);
5051:
5052: BEGIN
5053: IF l_DEBUG in ('Y', 'C') THEN
5054: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_jp');
5055: END IF;
5056:
5057: -- remove spaces and hyphens --
5058: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
5084: ce_failed_mandatory('BRANCH_NAME_ALT');
5085: END IF;
5086:
5087: IF l_DEBUG in ('Y', 'C') THEN
5088: cep_standard.debug('<
5090: END CE_VALIDATE_BRANCH_JP;
5091:
5092: /* --------------------------------------------------------------------
5119: numeric_result VARCHAR2(30);
5120:
5121: BEGIN
5122: IF l_DEBUG in ('Y', 'C') THEN
5123: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_at');
5124: END IF;
5125:
5126: -- remove spaces --
5127: account_value := upper(Xi_ACCOUNT_NUMBER );
5142: END IF; /* end of numeric check */
5143: END IF; /* end of length check */
5144:
5145: IF l_DEBUG in ('Y', 'C') THEN
5146: cep_standard.debug('<
5148: END CE_VALIDATE_ACCOUNT_AT;
5149:
5150: /* ---------------------------------------------------------------------
5160: numeric_result VARCHAR2(40);
5161:
5162: BEGIN
5163: IF l_DEBUG in ('Y', 'C') THEN
5164: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_pt');
5165: END IF;
5166:
5167: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5168: ACCOUNT_VALUE := replace(replace(ACCOUNT_VALUE,' ',''),'-','');
5182: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','11');
5183: END IF; /* end of length check */
5184:
5185: IF l_DEBUG in ('Y', 'C') THEN
5186: cep_standard.debug('<
5188: END CE_VALIDATE_ACCOUNT_PT;
5189:
5190: /* ---------------------------------------------------------------------
5204: conced VARCHAR2(30);
5205:
5206: BEGIN
5207: IF l_DEBUG in ('Y', 'C') THEN
5208: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_be');
5209: END IF;
5210:
5211: -- remove spaces --
5212: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
5255: ce_failed_check('ACCOUNT_NUM','LENGTH','12');
5256: END IF; /* end of length check */
5257:
5258: IF l_DEBUG in ('Y', 'C') THEN
5259: cep_standard.debug('<
5261: END CE_VALIDATE_ACCOUNT_BE;
5262:
5263:
5273: numeric_result varchar2(30);
5274:
5275: BEGIN
5276: IF l_DEBUG in ('Y', 'C') THEN
5277: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_dk');
5278: END IF;
5279:
5280: account_value := upper(Xi_ACCOUNT_NUMBER );
5281: account_value := replace(replace(account_value,' ',''),'-','');
5294: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','10');
5295: END IF; /* end of length check */
5296:
5297: IF l_DEBUG in ('Y', 'C') THEN
5298: cep_standard.debug('<
5300: END CE_VALIDATE_ACCOUNT_DK;
5301:
5302: /* ---------------------------------------------------------------------
5312: CHK_CHARS varchar2(30);
5313:
5314: BEGIN
5315: IF l_DEBUG in ('Y', 'C') THEN
5316: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_fr');
5317: END IF;
5318:
5319: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5320: Xo_VALUE_OUT := ACCOUNT_VALUE;
5328: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','11');
5329: END IF; /* end of length check */
5330:
5331: IF l_DEBUG in ('Y', 'C') THEN
5332: cep_standard.debug('<
5334: END CE_VALIDATE_ACCOUNT_FR;
5335:
5336:
5369: /* MAIN SECTION */
5370: /**************************/
5371: BEGIN
5372: IF l_DEBUG in ('Y', 'C') THEN
5373: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_nl');
5374: END IF;
5375:
5376: multiplied_number := 0;
5377: multiplied_sum := 0;
5432:
5433: END IF; /* end of 'Postgiro' check */
5434:
5435: IF l_DEBUG in ('Y', 'C') THEN
5436: cep_standard.debug('<
5438: END CE_VALIDATE_ACCOUNT_NL;
5439:
5440: /* ---------------------------------------------------------------------
5450: numeric_result VARCHAR2(40);
5451:
5452: BEGIN
5453: IF l_DEBUG in ('Y', 'C') THEN
5454: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_es');
5455: END IF;
5456:
5457: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5458: Xo_VALUE_OUT := ACCOUNT_VALUE;
5473: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','10');
5474: END IF; /* end of length check */
5475:
5476: IF l_DEBUG in ('Y', 'C') THEN
5477: cep_standard.debug('<
5479: END CE_VALIDATE_ACCOUNT_ES;
5480:
5481: /* ---------------------------------------------------------------------
5493: check_digit VARCHAR2(20);
5494:
5495: BEGIN
5496: IF l_DEBUG in ('Y', 'C') THEN
5497: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_no');
5498: END IF;
5499:
5500: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5501: ACCOUNT_VALUE := replace(replace(account_value,' ',''),'-','');
5547: ce_failed_check('ACCOUNT_NUM','LENGTH','11');
5548: END IF; /* end of length check */
5549:
5550: IF l_DEBUG in ('Y', 'C') THEN
5551: cep_standard.debug('<
5553: END CE_VALIDATE_ACCOUNT_NO;
5554:
5555: /* ---------------------------------------------------------------------
5566: numeric_result VARCHAR2(40);
5567:
5568: BEGIN
5569: IF l_DEBUG in ('Y', 'C') THEN
5570: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_fi');
5571: END IF;
5572:
5573: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5574: ACCOUNT_VALUE := replace(replace(ACCOUNT_VALUE,'-',''),' ','');
5651: END IF;
5652: END IF;
5653:
5654: IF l_DEBUG in ('Y', 'C') THEN
5655: cep_standard.debug('<
5657: END CE_VALIDATE_ACCOUNT_FI;
5658:
5659: /* ---------------------------------------------------------------------
5668: numeric_result VARCHAR2(40);
5669:
5670: BEGIN
5671: IF l_DEBUG in ('Y', 'C') THEN
5672: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_DE');
5673: END IF;
5674:
5675: account_value := upper(Xi_ACCOUNT_NUMBER );
5676: Xo_VALUE_OUT := account_value;
5690: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','10');
5691: END IF; /* end of length check */
5692:
5693: IF l_DEBUG in ('Y', 'C') THEN
5694: cep_standard.debug('<
5696: END CE_VALIDATE_ACCOUNT_DE;
5697:
5698: /* ---------------------------------------------------------------------
5707: numeric_result VARCHAR2(40);
5708:
5709: BEGIN
5710: IF l_DEBUG in ('Y', 'C') THEN
5711: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_GR');
5712: END IF;
5713:
5714: -- remove spaces and hyphens --
5715: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
5732: END IF; /* end numeric check */
5733: END IF; /* end of length check */
5734:
5735: IF l_DEBUG in ('Y', 'C') THEN
5736: cep_standard.debug('<
5738: END CE_VALIDATE_ACCOUNT_GR;
5739:
5740: /* ---------------------------------------------------------------------
5753: numeric_result VARCHAR2(40);
5754:
5755: BEGIN
5756: IF l_DEBUG in ('Y', 'C') THEN
5757: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_is');
5758: END IF;
5759:
5760: -- remove spaces and hyphens --
5761: ac_value := upper(Xi_ACCOUNT_NUMBER );
5803: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','18');
5804: END IF; /* end of length check */
5805:
5806: IF l_DEBUG in ('Y', 'C') THEN
5807: cep_standard.debug('<
5809: END CE_VALIDATE_ACCOUNT_IS;
5810:
5811: /* ---------------------------------------------------------------------
5819: numeric_result VARCHAR2(40);
5820:
5821: BEGIN
5822: IF l_DEBUG in ('Y', 'C') THEN
5823: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_ie');
5824: END IF;
5825:
5826: -- remove spaces and hyphens --
5827: account_value := upper(Xi_ACCOUNT_NUMBER );
5841: ce_failed_check('ACCOUNT_NUM','LENGTH','8');
5842: END IF; /* end of length check */
5843:
5844: IF l_DEBUG in ('Y', 'C') THEN
5845: cep_standard.debug('<
5847: END CE_VALIDATE_ACCOUNT_IE;
5848:
5849: /* ---------------------------------------------------------------------
5857: account_value VARCHAR2(50);
5858:
5859: BEGIN
5860: IF l_DEBUG in ('Y', 'C') THEN
5861: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_it');
5862: END IF;
5863:
5864: -- remove hyphens and spaces --
5865: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
5873: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','12');
5874: END IF; /* end of length check */
5875:
5876: IF l_DEBUG in ('Y', 'C') THEN
5877: cep_standard.debug('<
5879: END CE_VALIDATE_ACCOUNT_IT;
5880:
5881: /* ---------------------------------------------------------------------
5888: numeric_result varchar2(40);
5889:
5890: BEGIN
5891: IF l_DEBUG in ('Y', 'C') THEN
5892: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_lu');
5893: END IF;
5894:
5895: -- remove spaces and hyphens --
5896: account_value := upper(Xi_ACCOUNT_NUMBER );
5906: ce_failed_check('ACCOUNT_NUM','LENGTH','13');
5907: END IF; /* end of length check */
5908:
5909: IF l_DEBUG in ('Y', 'C') THEN
5910: cep_standard.debug('<
5912: END CE_VALIDATE_ACCOUNT_LU;
5913:
5914: /* ---------------------------------------------------------------------
5921: numeric_result VARCHAR2(40);
5922:
5923: BEGIN
5924: IF l_DEBUG in ('Y', 'C') THEN
5925: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_pl');
5926: END IF;
5927:
5928: -- remove spaces and hyphens --
5929: account_value := upper(Xi_ACCOUNT_NUMBER );
5937: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','26');
5938: END IF; /* end of length check */
5939:
5940: IF l_DEBUG in ('Y', 'C') THEN
5941: cep_standard.debug('<
5943: END CE_VALIDATE_ACCOUNT_PL;
5944:
5945: /* ---------------------------------------------------------------------
5952: numeric_result VARCHAR2(40);
5953:
5954: BEGIN
5955: IF l_DEBUG in ('Y', 'C') THEN
5956: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_se');
5957: END IF;
5958:
5959: -- remove spaces and hyphens --
5960: account_value := upper(replace(Xi_ACCOUNT_NUMBER ,' ',''));
5973: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','11');
5974: END IF; /* end of length check */
5975:
5976: IF l_DEBUG in ('Y', 'C') THEN
5977: cep_standard.debug('<
5979: END CE_VALIDATE_ACCOUNT_SE;
5980:
5981: /* ---------------------------------------------------------------------
5989: account_value VARCHAR2(30);
5990:
5991: BEGIN
5992: IF l_DEBUG in ('Y', 'C') THEN
5993: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_ch');
5994: END IF;
5995:
5996: -- remove spaces and hyphens --
5997: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
6006: ce_failed_mandatory('ACCOUNT_TYPE');
6007: END if;
6008:
6009: IF l_DEBUG in ('Y', 'C') THEN
6010: cep_standard.debug('<
6012: END CE_VALIDATE_ACCOUNT_CH;
6013:
6014: /* ---------------------------------------------------------------------
6023: numeric_result VARCHAR2(40);
6024:
6025: BEGIN
6026: IF l_DEBUG in ('Y', 'C') THEN
6027: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_gb');
6028: END IF;
6029:
6030: Xo_VALUE_OUT := account_value;
6031: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
6047: ce_failed_check('ACCOUNT_NUM','LENGTH_MAX','8');
6048: END IF; /* end of length check */
6049:
6050: IF l_DEBUG in ('Y', 'C') THEN
6051: cep_standard.debug('<
6053: END CE_VALIDATE_ACCOUNT_GB;
6054:
6055: /* ---------------------------------------------------------------------
6064: numeric_result VARCHAR2(40);
6065:
6066: BEGIN
6067: IF l_DEBUG in ('Y', 'C') THEN
6068: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_br');
6069: END IF;
6070:
6071: -- remove spaces and hyphens from company code --
6072: account_ref := upper(replace(Xi_SECONDARY_ACCOUNT_REFERENCE,' ',''));
6088: END IF; /* end of length check */
6089: END IF; /* end of not null check */
6090:
6091: IF l_DEBUG in ('Y', 'C') THEN
6092: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_br');
6093: END IF;
6094: END CE_VALIDATE_ACCOUNT_BR;
6095:
6096: /* ---------------------------------------------------------------------
6105: numeric_result VARCHAR2(40);
6106:
6107: BEGIN
6108: IF l_DEBUG in ('Y', 'C') THEN
6109: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_au');
6110: END IF;
6111:
6112: -- remove spaces and hyphens
6113: account_value := upper(Xi_ACCOUNT_NUMBER );
6137: END IF; /* end of currency check */
6138: END IF; /* end of length check */
6139:
6140: IF l_DEBUG in ('Y', 'C') THEN
6141: cep_standard.debug('<
6143: END CE_VALIDATE_ACCOUNT_AU;
6144:
6145: /* ---------------------------------------------------------------------
6153: numeric_result VARCHAR2(40);
6154:
6155: BEGIN
6156: IF l_DEBUG in ('Y', 'C') THEN
6157: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_il');
6158: END IF;
6159:
6160: account_value := upper(Xi_ACCOUNT_NUMBER );
6161: account_value := replace(account_value,' ','');
6174: ce_failed_check('ACCOUNT_NUM','LENGTH','9');
6175: END IF; /* end of length check */
6176:
6177: IF l_DEBUG in ('Y', 'C') THEN
6178: cep_standard.debug('<
6180: END CE_VALIDATE_ACCOUNT_IL;
6181:
6182: /* ---------------------------------------------------------------------
6192: numeric_result VARCHAR2(40);
6193:
6194: BEGIN
6195: IF l_DEBUG in ('Y', 'C') THEN
6196: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_nz');
6197: END IF;
6198:
6199: -- check account number
6200: account_value := upper(Xi_ACCOUNT_NUMBER );
6240: ce_failed_mandatory('ACCOUNT_SUFFIX');
6241: END IF; /* end of mandatory check */
6242:
6243: IF l_DEBUG in ('Y', 'C') THEN
6244: cep_standard.debug('<
6246: END CE_VALIDATE_ACCOUNT_NZ;
6247:
6248: /* ---------------------------------------------------------------------
6254: ) AS
6255:
6256: BEGIN
6257: IF l_DEBUG in ('Y', 'C') THEN
6258: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_jp');
6259: END IF;
6260:
6261: /* Account number is required */
6262: IF (Xi_ACCOUNT_NUMBER is null) THEN
6268: END if;
6269:
6270:
6271: IF l_DEBUG in ('Y', 'C') THEN
6272: cep_standard.debug('<
6274: END CE_VALIDATE_ACCOUNT_JP;
6275:
6276: /* --------------------------------------------------------------------
6304: numeric_result VARCHAR2(40);
6305:
6306: BEGIN
6307: IF l_DEBUG in ('Y', 'C') THEN
6308: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_es');
6309: END IF;
6310:
6311: -- remove spaces and hyphens --
6312: BANK_VALUE := upper(Xi_BANK_NUMBER);
6337: END IF; /* end of length check */
6338: END IF; /* end of mandatory check */
6339:
6340: IF l_DEBUG in ('Y', 'C') THEN
6341: cep_standard.debug('<
6343: END CE_VALIDATE_BANK_ES;
6344:
6345: /* ---------------------------------------------------------------------
6354: numeric_result varchar2(40);
6355:
6356: BEGIN
6357: IF l_DEBUG in ('Y', 'C') THEN
6358: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_fr');
6359: END IF;
6360:
6361: -- remove spaces and hyphens --
6362: BANK_VALUE := upper(Xi_BANK_NUMBER );
6390: END IF; /* end of length check */
6391: END IF; /* end of mandatory check */
6392:
6393: IF l_DEBUG in ('Y', 'C') THEN
6394: cep_standard.debug('<
6396:
6397: END CE_VALIDATE_BANK_FR;
6398:
6408: numeric_result VARCHAR2(40);
6409:
6410: BEGIN
6411: IF l_DEBUG in ('Y', 'C') THEN
6412: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_pt');
6413: END IF;
6414:
6415: -- remove spaces --
6416: BANK_VALUE := replace(replace(Xi_BANK_NUMBER,' ',''),'-','');
6439:
6440: END IF; /* end of mandatory check */
6441:
6442: IF l_DEBUG in ('Y', 'C') THEN
6443: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_pt');
6444: END IF;
6445: END CE_VALIDATE_BANK_PT;
6446:
6447: /* ---------------------------------------------------------------------
6457: numeric_result VARCHAR2(40);
6458:
6459: BEGIN
6460: IF l_DEBUG in ('Y', 'C') THEN
6461: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_br');
6462: END IF;
6463:
6464: BANK_VALUE := upper(Xi_BANK_NUMBER );
6465: BANK_VALUE := replace(replace(BANK_VALUE,' ',''),'-','');
6490: END IF; /* end of length check */
6491: END IF; /* end of mandatory check */
6492:
6493: IF l_DEBUG in ('Y', 'C') THEN
6494: cep_standard.debug('<
6496: END CE_VALIDATE_BANK_BR;
6497:
6498: /* ---------------------------------------------------------------------
6505: numeric_result varchar2(40);
6506:
6507: BEGIN
6508: IF l_DEBUG in ('Y', 'C') THEN
6509: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_de');
6510: END IF;
6511:
6512: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6513: BANK_NUM := replace(BANK_NUM,'-','');
6529: END IF; /* end of length check */
6530: END IF;
6531:
6532: IF l_DEBUG in ('Y', 'C') THEN
6533: cep_standard.debug('<
6535: END CE_VALIDATE_BANK_DE;
6536:
6537: /* ---------------------------------------------------------------------
6545: numeric_result varchar2(40);
6546:
6547: BEGIN
6548: IF l_DEBUG in ('Y', 'C') THEN
6549: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_gr');
6550: END IF;
6551:
6552: -- remove spaces and hyphens before validating --
6553: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
6570: END IF; /* end of length check */
6571: END IF;
6572:
6573: IF l_DEBUG in ('Y', 'C') THEN
6574: cep_standard.debug('<
6576: END CE_VALIDATE_BANK_GR;
6577:
6578: /* ---------------------------------------------------------------------
6587: numeric_result varchar2(40);
6588:
6589: BEGIN
6590: IF l_DEBUG in ('Y', 'C') THEN
6591: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_is');
6592: END IF;
6593:
6594: -- remove spaces and hyphens --
6595: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6612: END IF; /* end of length check */
6613: END IF;
6614:
6615: IF l_DEBUG in ('Y', 'C') THEN
6616: cep_standard.debug('<
6618: END CE_VALIDATE_BANK_IS;
6619:
6620: /* ---------------------------------------------------------------------
6628: numeric_result VARCHAR2(40);
6629:
6630: BEGIN
6631: IF l_DEBUG in ('Y', 'C') THEN
6632: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_ie');
6633: END IF;
6634:
6635: -- remove spaces and hyphens
6636: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6656:
6657: END IF;
6658:
6659: IF l_DEBUG in ('Y', 'C') THEN
6660: cep_standard.debug('<
6662: END CE_VALIDATE_BANK_IE;
6663:
6664: /* ---------------------------------------------------------------------
6673: numeric_result VARCHAR2(40);
6674:
6675: BEGIN
6676: IF l_DEBUG in ('Y', 'C') THEN
6677: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_it');
6678: END IF;
6679:
6680: -- remove spaces and hyphens --
6681: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
6705:
6706: END IF; /* end of mandatory check */
6707:
6708: IF l_DEBUG in ('Y', 'C') THEN
6709: cep_standard.debug('<
6711: END CE_VALIDATE_BANK_IT;
6712:
6713: /* ---------------------------------------------------------------------
6721: numeric_result VARCHAR2(40);
6722:
6723: BEGIN
6724: IF l_DEBUG in ('Y', 'C') THEN
6725: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_lu');
6726: END IF;
6727:
6728: -- remove spaces and hyphens --
6729: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6750:
6751: END IF;
6752:
6753: IF l_DEBUG in ('Y', 'C') THEN
6754: cep_standard.debug('<
6756: END CE_VALIDATE_BANK_LU;
6757:
6758: /* ---------------------------------------------------------------------
6767: cal_cd1 NUMBER;
6768:
6769: BEGIN
6770: IF l_DEBUG in ('Y', 'C') THEN
6771: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_pl');
6772: END IF;
6773:
6774: -- remove spaces and hyphens --
6775: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6796:
6797: END IF;
6798:
6799: IF l_DEBUG in ('Y', 'C') THEN
6800: cep_standard.debug('<
6802: END CE_VALIDATE_BANK_PL;
6803:
6804: /* ---------------------------------------------------------------------
6812: numeric_result VARCHAR2(40);
6813:
6814: BEGIN
6815: IF l_DEBUG in ('Y', 'C') THEN
6816: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_se');
6817: END IF;
6818:
6819: -- remove spaces and hyphens --
6820: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6841: END IF; /* end of length check */
6842: END IF;
6843:
6844: IF l_DEBUG in ('Y', 'C') THEN
6845: cep_standard.debug('<
6847: END CE_VALIDATE_BANK_SE;
6848:
6849: /* ---------------------------------------------------------------------
6857: numeric_result VARCHAR2(40);
6858:
6859: BEGIN
6860: IF l_DEBUG in ('Y', 'C') THEN
6861: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_ch');
6862: END IF;
6863:
6864: -- remove spaces and hyphens --
6865: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6886: END IF; /* end of length check */
6887: END IF;
6888:
6889: IF l_DEBUG in ('Y', 'C') THEN
6890: cep_standard.debug('<
6892: END CE_VALIDATE_BANK_CH;
6893:
6894: /* ---------------------------------------------------------------------
6902: numeric_result VARCHAR2(40);
6903:
6904: BEGIN
6905: IF l_DEBUG in ('Y', 'C') THEN
6906: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_gb');
6907: END IF;
6908:
6909: -- remove spaces and hyphens --
6910: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6928: END IF; /* end of length check */
6929: END IF;
6930:
6931: IF l_DEBUG in ('Y', 'C') THEN
6932: cep_standard.debug('<
6934: END CE_VALIDATE_BANK_GB;
6935:
6936: /* ---------------------------------------------------------------------
6954: l_bank VARCHAR(10);
6955:
6956: BEGIN
6957: IF l_DEBUG in ('Y', 'C') THEN
6958: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO');
6959: END IF;
6960:
6961: -- the last digit of tax payer id is the check digits
6962: TAX_ID1 := upper(replace(Xi_TAX_PAYER_ID,' ',''));
6987: );
6988:
6989: IF l_DEBUG in ('Y', 'C')
6990: THEN
6991: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO - l_cust : '|| l_cust
6992: || '----------' ||
6993: 'CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO - l_supp : '|| l_supp || '----------' ||
6994: 'CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO - l_comp : '|| l_comp || '----------' ||
6995: 'CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO - l_bank : '|| l_bank );
7032: ce_failed_mandatory('TAX_PAYER_ID');
7033: END IF; /* end of mandatory check */
7034:
7035: IF l_DEBUG in ('Y', 'C') THEN
7036: cep_standard.debug('<
7038: END CE_VALIDATE_BANK_CO;
7039:
7040: /* ---------------------------------------------------------------------
7047: numeric_result varchar2(40);
7048:
7049: BEGIN
7050: IF l_DEBUG in ('Y', 'C') THEN
7051: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_au');
7052: END IF;
7053:
7054: -- Remove blanks and hyphens before validation --
7055: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7078: ce_passed_check('BANK','AU');
7079: END IF;
7080:
7081: IF l_DEBUG in ('Y', 'C') THEN
7082: cep_standard.debug('<
7084: END CE_VALIDATE_BANK_AU;
7085:
7086: /* ---------------------------------------------------------------------
7095: numeric_result VARCHAR2(40);
7096:
7097: BEGIN
7098: IF l_DEBUG in ('Y', 'C') THEN
7099: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_il');
7100: END IF;
7101:
7102: -- remove spaces and hyphens --
7103: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
7128:
7129: END IF; /* end of mandatory check */
7130:
7131: IF l_DEBUG in ('Y', 'C') THEN
7132: cep_standard.debug('<
7134: END CE_VALIDATE_BANK_IL;
7135:
7136: /* ---------------------------------------------------------------------
7145: numeric_result VARCHAR2(40);
7146:
7147: BEGIN
7148: IF l_DEBUG in ('Y', 'C') THEN
7149: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_nz');
7150: END IF;
7151:
7152: -- remove spaces and hyphens --
7153: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
7177:
7178: END IF; /* end of mandatory check */
7179:
7180: IF l_DEBUG in ('Y', 'C') THEN
7181: cep_standard.debug('<
7183: END CE_VALIDATE_BANK_NZ;
7184:
7185: /* ---------------------------------------------------------------------
7195: numeric_result VARCHAR2(40);
7196:
7197: BEGIN
7198: IF l_DEBUG in ('Y', 'C') THEN
7199: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_jp');
7200: END IF;
7201:
7202: -- remove spaces and hyphens --
7203: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
7233: ce_failed_mandatory('BANK_NAME_ALT');
7234: END IF;
7235:
7236: IF l_DEBUG in ('Y', 'C') THEN
7237: cep_standard.debug('<
7239: END CE_VALIDATE_BANK_JP;
7240:
7241:
7265:
7266: BEGIN
7267:
7268: IF l_DEBUG in ('Y', 'C') THEN
7269: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT');
7270: END IF;
7271:
7272: -- unique combination -> bank_branch_id, bank account number, currency code --confirmed sql
7273: -- due to upgrade changes, the unique combination was changed to:
7297:
7298: END IF;*/
7299:
7300: IF l_DEBUG in ('Y', 'C') THEN
7301: cep_standard.debug('CE_VALIDATE_UNIQUE_ACCOUNT: ' || 'temp_number: '||temp_number);
7302: END IF;
7303:
7304: IF (nvl(temp_number,0) > 0) then
7305: fnd_message.set_name('CE', 'CE_BANK_ACCOUNT_NUM_EXISTS');
7304: IF (nvl(temp_number,0) > 0) then
7305: fnd_message.set_name('CE', 'CE_BANK_ACCOUNT_NUM_EXISTS');
7306: fnd_msg_pub.add;
7307: IF l_DEBUG in ('Y', 'C') THEN
7308: cep_standard.debug('CE_VALIDATE_UNIQUE_ACCOUNT: ' || 'CE_BANK_ACCOUNT_NUM_EXISTS');
7309: END IF;
7310: END IF;
7311:
7312: -- unique combination -> bank_branch_id, bank account name
7313:
7314: CE_VALIDATE_BANKINFO.CE_UNIQUE_ACCOUNT_NAME(Xi_ACCOUNT_NAME, Xi_BRANCH_ID, Xi_ACCOUNT_ID);
7315:
7316: IF l_DEBUG in ('Y', 'C') THEN
7317: cep_standard.debug('<
7319:
7320: END CE_VALIDATE_UNIQUE_ACCOUNT;
7321:
7332: temp_name number;
7333:
7334: BEGIN
7335: IF l_DEBUG in ('Y', 'C') THEN
7336: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT_JP');
7337: END IF;
7338:
7339: -- unique combination -> bank_branch_id, bank account number, currency code, account type --confirmed sql
7340:
7364: and ba.bank_branch_id = Xi_BRANCH_ID;
7365:
7366: END IF;*/
7367: IF l_DEBUG in ('Y', 'C') THEN
7368: cep_standard.debug('CE_VALIDATE_UNIQUE_ACCOUNT: ' || 'temp_number: '||temp_number);
7369: END IF;
7370:
7371: IF (nvl(temp_number,0) > 0) then
7372: fnd_message.set_name('CE', 'CE_BANK_ACCOUNT_NUM_EXISTS');
7371: IF (nvl(temp_number,0) > 0) then
7372: fnd_message.set_name('CE', 'CE_BANK_ACCOUNT_NUM_EXISTS');
7373: fnd_msg_pub.add;
7374: IF l_DEBUG in ('Y', 'C') THEN
7375: cep_standard.debug('CE_VALIDATE_UNIQUE_ACCOUNT: ' || 'CE_BANK_ACCOUNT_NUM_EXISTS');
7376: END IF;
7377: END IF;
7378:
7379:
7381:
7382: CE_VALIDATE_BANKINFO.CE_UNIQUE_ACCOUNT_NAME(Xi_ACCOUNT_NAME, Xi_BRANCH_ID, Xi_ACCOUNT_ID);
7383:
7384: IF l_DEBUG in ('Y', 'C') THEN
7385: cep_standard.debug('<
7387:
7388: END CE_VALIDATE_UNIQUE_ACCOUNT_JP;
7389:
7400: temp_name number;
7401:
7402: BEGIN
7403: IF l_DEBUG in ('Y', 'C') THEN
7404: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT_NZ');
7405: END IF;
7406:
7407: -- unique combination -> bank_branch_id, bank account number, currency code, account suffix --confirmed sql
7408:
7415: and ba.bank_branch_id = Xi_BRANCH_ID
7416: and ba.bank_account_id <> nvl(Xi_ACCOUNT_ID,-1);
7417:
7418: IF l_DEBUG in ('Y', 'C') THEN
7419: cep_standard.debug('CE_VALIDATE_UNIQUE_ACCOUNT: ' || 'temp_number: ' || temp_number);
7420: END IF;
7421:
7422: IF (nvl(temp_number,0) > 0) then
7423: IF l_DEBUG in ('Y', 'C') THEN
7420: END IF;
7421:
7422: IF (nvl(temp_number,0) > 0) then
7423: IF l_DEBUG in ('Y', 'C') THEN
7424: cep_standard.debug('CE_VALIDATE_UNIQUE_ACCOUNT: ' || 'CE_BANK_ACCOUNT_NUM_EXISTS');
7425: END IF;
7426: fnd_message.set_name('CE', 'CE_BANK_ACCOUNT_NUM_EXISTS');
7427: fnd_msg_pub.add;
7428: END IF;
7433: CE_VALIDATE_BANKINFO.CE_UNIQUE_ACCOUNT_NAME(Xi_ACCOUNT_NAME, Xi_BRANCH_ID, Xi_ACCOUNT_ID);
7434:
7435:
7436: IF l_DEBUG in ('Y', 'C') THEN
7437: cep_standard.debug('<
7439:
7440:
7441: END CE_VALIDATE_UNIQUE_ACCOUNT_NZ;
7461: AS
7462:
7463: BEGIN
7464: IF l_DEBUG in ('Y', 'C') THEN
7465: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH');
7466: END IF;
7467:
7468: -- unique combination -> bank_id, branch_name, country
7469:
7473:
7474: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NUMBER(Xi_COUNTRY_NAME,Xi_BRANCH_NUMBER,Xi_BANK_ID,Xi_BRANCH_ID);
7475:
7476: IF l_DEBUG in ('Y', 'C') THEN
7477: cep_standard.debug('<
7479:
7480: END CE_VALIDATE_UNIQUE_BRANCH;
7481:
7491:
7492:
7493: BEGIN
7494: IF l_DEBUG in ('Y', 'C') THEN
7495: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_JP');
7496: END IF;
7497:
7498: -- unique combination -> bank_id, branch_name, country
7499:
7507:
7508: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME_ALT(Xi_COUNTRY_NAME,Xi_BRANCH_NAME_ALT,Xi_BANK_ID,Xi_BRANCH_ID);
7509:
7510: IF l_DEBUG in ('Y', 'C') THEN
7511: cep_standard.debug('<
7513:
7514: END CE_VALIDATE_UNIQUE_BRANCH_JP;
7515:
7522: AS
7523:
7524: BEGIN
7525: IF l_DEBUG in ('Y', 'C') THEN
7526: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_DE remove unique requirement');
7527: END IF;
7528:
7529:
7530: END CE_VALIDATE_UNIQUE_BRANCH_DE;
7538: AS
7539:
7540: BEGIN
7541: IF l_DEBUG in ('Y', 'C') THEN
7542: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BRANCH_US remove unique requirement');
7543: END IF;
7544:
7545:
7546: END CE_VALIDATE_UNIQUE_BRANCH_US;
7570: temp_name_alt number;
7571:
7572: BEGIN
7573: IF l_DEBUG in ('Y', 'C') THEN
7574: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_BANK_JP');
7575: END IF;
7576:
7577: -- unique combination -> bank_name_alt, country bug 2363959 --confirmed sql 6/28/02
7578:
7595: And nvl(HzCodeAssignmentBankEO.status, 'A') = 'A'
7596: And HzPartyBankEO.PARTY_ID = nvl(Xi_BANK_ID, -1);
7597:
7598: IF l_DEBUG in ('Y', 'C') THEN
7599: cep_standard.debug('CE_VALIDATE_UNIQUE_BANK_JP - temp_name_alt: ' ||temp_name_alt);
7600: END IF;
7601:
7602: IF (nvl(temp_name_alt,0) > 0) then
7603: IF l_DEBUG in ('Y', 'C') THEN
7600: END IF;
7601:
7602: IF (nvl(temp_name_alt,0) > 0) then
7603: IF l_DEBUG in ('Y', 'C') THEN
7604: cep_standard.debug('CE_VALIDATE_UNIQUE_BANK_JP: ' || 'CE_BANK_NAME_ALT_EXISTS');
7605: END IF;
7606: fnd_message.set_name('CE', 'CE_BANK_NAME_ALT_EXISTS');
7607: fnd_msg_pub.add;
7608: END IF;
7607: fnd_msg_pub.add;
7608: END IF;
7609:
7610: IF l_DEBUG in ('Y', 'C') THEN
7611: cep_standard.debug('<
7613:
7614: END CE_VALIDATE_UNIQUE_BANK_JP;
7615:
7635: begin
7636: fnd_message.set_name ('CE', 'CE_ENTER_EFT_NUMBER');
7637: fnd_msg_pub.add;
7638: IF l_DEBUG in ('Y', 'C') THEN
7639: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: ' || 'CE_ENTER_EFT_NUMBER');
7640: END IF;
7641: end fail_mandatory;
7642:
7643: procedure fail_check is
7644: begin
7645: fnd_message.set_name ('CE', 'CE_INVALID_EFT_NUMBER');
7646: fnd_msg_pub.add;
7647: IF l_DEBUG in ('Y', 'C') THEN
7648: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: ' || 'CE_INVALID_EFT_NUMBER');
7649: END IF;
7650: end fail_check;
7651:
7652: procedure pass_check is
7652: procedure pass_check is
7653: begin
7654:
7655: IF l_DEBUG in ('Y', 'C') THEN
7656: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: ' || 'pass_check');
7657: END IF;
7658: end pass_check;
7659:
7660:
7661: BEGIN
7662: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
7663: --l_DEBUG := 'Y';
7664: IF l_DEBUG in ('Y', 'C') THEN
7665: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_EFT_NUM');
7666: END IF;
7667:
7668: -- initialize API return status to success.
7669: x_return_status := fnd_api.g_ret_sts_success;
7670:
7671: COUNTRY_NAME := X_COUNTRY_NAME;
7672:
7673: IF l_DEBUG in ('Y', 'C') THEN
7674: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM - COUNTRY_NAME: '|| COUNTRY_NAME);
7675: END IF;
7676:
7677: -- Initialize message list if p_init_msg_list is set to TRUE.
7678: IF FND_API.to_Boolean(p_init_msg_list) THEN
7679: FND_MSG_PUB.initialize;
7680: END IF;
7681:
7682: IF l_DEBUG in ('Y', 'C') THEN
7683: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
7684: END IF;
7685:
7686:
7687: EFT_NUM_VALUE := upper(replace(X_EFT_NUMBER,' ',''));
7726: x_return_status := fnd_api.g_ret_sts_error;
7727: END IF;
7728:
7729: IF l_DEBUG in ('Y', 'C') THEN
7730: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_misc_eft_num - P_COUNT: '|| x_msg_count||
7731: --'P_DATA: '|| x_msg_data||
7732: --' X_VALUE_OUT: '|| X_VALUE_OUT||
7733: '<
7735:
7736: EXCEPTION
7737: WHEN OTHERS THEN
7738: IF l_DEBUG in ('Y', 'C') THEN
7739: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_EFT_NUM ' ||X_COUNTRY_NAME );
7740: END IF;
7741:
7742: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
7743: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.cd_validate_misc_eft_num');
7763: begin
7764: fnd_message.set_name ('CE', 'CE_ENTER_ACCOUNT_HOLDER_ALT');
7765: fnd_msg_pub.add;
7766: IF l_DEBUG in ('Y', 'C') THEN
7767: cep_standard.debug('CE_VALIDATE_MISC_ACCT_HLDR_ALT: ' || 'CE_ENTER_ACCOUNT_HOLDER_ALT');
7768: END IF;
7769: end fail_mandatory;
7770:
7771: procedure pass_check is
7771: procedure pass_check is
7772: begin
7773:
7774: IF l_DEBUG in ('Y', 'C') THEN
7775: cep_standard.debug('pass_check');
7776: END IF;
7777: end pass_check;
7778:
7779: BEGIN
7780: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
7781: --l_DEBUG := 'Y';
7782:
7783: IF l_DEBUG in ('Y', 'C') THEN
7784: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_ACCT_HLDR_ALT');
7785: END IF;
7786:
7787: -- initialize API return status to success.
7788: x_return_status := fnd_api.g_ret_sts_success;
7789:
7790: COUNTRY_NAME := X_COUNTRY_NAME;
7791:
7792: IF l_DEBUG in ('Y', 'C') THEN
7793: cep_standard.debug('CE_VALIDATE_MISC_ACCT_HLDR_ALT - COUNTRY_NAME: '|| COUNTRY_NAME);
7794: END IF;
7795:
7796: -- Initialize message list if p_init_msg_list is set to TRUE.
7797: IF FND_API.to_Boolean(p_init_msg_list) THEN
7798: FND_MSG_PUB.initialize;
7799: END IF;
7800:
7801: IF l_DEBUG in ('Y', 'C') THEN
7802: cep_standard.debug('CE_VALIDATE_MISC_ACCT_HLDR_ALT: P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
7803: END IF;
7804:
7805:
7806: ACCOUNT_HOLDER_ALT := X_ACCOUNT_HOLDER_ALT;
7827: x_return_status := fnd_api.g_ret_sts_error;
7828: END IF;
7829:
7830: IF l_DEBUG in ('Y', 'C') THEN
7831: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_misc_acct_hldr_alt - P_COUNT: '|| x_msg_count||
7832: --'P_DATA: '|| x_msg_data||
7833: --' X_VALUE_OUT: '|| X_VALUE_OUT||
7834: '<
7836:
7837: EXCEPTION
7838: WHEN OTHERS THEN
7839: IF l_DEBUG in ('Y', 'C') THEN
7840: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_ACCT_HLDR_ALT ' ||X_COUNTRY_NAME );
7841: END IF;
7842:
7843: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
7844: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.cd_validate_misc_acct_hldr_alt');
7860: numeric_result varchar2(100);
7861:
7862: BEGIN
7863: IF l_DEBUG in ('Y', 'C') THEN
7864: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IS_FORMAT');
7865: END IF;
7866:
7867: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
7868: BRANCH_NUM := replace(BRANCH_NUM,'-','');
7884: END IF; /* end of length check */
7885: END IF; /* end of null check */
7886:
7887: IF l_DEBUG in ('Y', 'C') THEN
7888: cep_standard.debug('<
7890: END CE_VALIDATE_BRANCH_IS_FORMAT;
7891:
7892: /* --------------------------------------------------------------------
7919: begin
7920: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
7921: fnd_msg_pub.add;
7922: IF l_DEBUG in ('Y', 'C') THEN
7923: cep_standard.debug('GET_BRANCH_NUM_FORMAT: ' || 'CE_ENTER_BRANCH_NUM');
7924: END IF;
7925: end fail_mandatory;
7926:
7927: BEGIN
7928: l_DEBUG := NVL(FND_PROFILE.value('CE_DEBUG'), 'N');
7929: --l_DEBUG := 'Y';
7930:
7931: IF l_DEBUG in ('Y', 'C') THEN
7932: cep_standard.debug('>>CE_VALIDATE_BANKINFO.GET_BRANCH_NUM_FORMAT');
7933: END IF;
7934:
7935: -- initialize API return status to success.
7936: x_return_status := fnd_api.g_ret_sts_success;
7939:
7940: X_VALUE_OUT := X_BRANCH_NUMBER;
7941:
7942: IF l_DEBUG in ('Y', 'C') THEN
7943: cep_standard.debug('CE_VALIDATE_BANKINFO.GET_BRANCH_NUM_FORMAT - COUNTRY_NAME: '|| COUNTRY_NAME||
7944: ', X_VALUE_OUT: '|| X_VALUE_OUT);
7945: END IF;
7946:
7947: -- Initialize message list if p_init_msg_list is set to TRUE.
7949: FND_MSG_PUB.initialize;
7950: END IF;
7951:
7952: IF l_DEBUG in ('Y', 'C') THEN
7953: cep_standard.debug('CE_VALIDATE_BANKINFO.GET_BRANCH_NUM_FORMAT - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
7954: END IF;
7955:
7956: /* We must validate the Bank Branch Number */
7957:
7961: X_PASS_MAND_CHECK := 'P';
7962: END IF;
7963:
7964: IF l_DEBUG in ('Y', 'C') THEN
7965: cep_standard.debug('CE_VALIDATE_BANKINFO.GET_BRANCH_NUM_FORMAT - X_PASS_MAND_CHECK: '|| X_PASS_MAND_CHECK);
7966: END IF;
7967: IF (X_PASS_MAND_CHECK = 'P') THEN
7968: IF (COUNTRY_NAME = 'AT')
7969: THEN
8015: x_return_status := fnd_api.g_ret_sts_error;
8016: END IF;
8017:
8018: IF l_DEBUG in ('Y', 'C') THEN
8019: cep_standard.debug('P_COUNT: '|| x_msg_count||
8020: --'P_DATA: '|| x_msg_data||
8021: ' X_VALUE_OUT: '|| X_VALUE_OUT);
8022: cep_standard.debug('<
8018: IF l_DEBUG in ('Y', 'C') THEN
8019: cep_standard.debug('P_COUNT: '|| x_msg_count||
8020: --'P_DATA: '|| x_msg_data||
8021: ' X_VALUE_OUT: '|| X_VALUE_OUT);
8022: cep_standard.debug('<
8024:
8025: EXCEPTION
8026: WHEN OTHERS THEN
8024:
8025: EXCEPTION
8026: WHEN OTHERS THEN
8027: IF l_DEBUG in ('Y', 'C') THEN
8028: cep_standard.debug('CE_VALIDATE_BANKINFO.GET_BRANCH_NUM_FORMAT ' ||X_COUNTRY_NAME );
8029: END IF;
8030:
8031: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
8032: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.GET_BRANCH_NUM_FORMAT');
8057: Xo_VALUE_OUT OUT NOCOPY varchar2
8058: ) AS
8059: BEGIN
8060: IF l_DEBUG in ('Y', 'C') THEN
8061: cep_standard.debug('<
8063:
8064: -- setting global variable to map Bank ID as Bank Number instead
8065: -- of party ID
8127: -- resetting the variable
8128: BANK_ID_IS_NUM := FALSE;
8129:
8130: IF l_DEBUG in ('Y', 'C') THEN
8131: cep_standard.debug('<
8133: END CE_VALIDATE_BRANCH_BANK;
8134:
8135: END CE_VALIDATE_BANKINFO;