[Home] [Help]
1: package body CE_VALIDATE_BANKINFO as
2: /* $Header: cevlbnkb.pls 120.34.12010000.5 2008/11/21 10:50:22 vnetan ship $ */
3:
4:
5: -- bug 3855002
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
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');
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');
244: fnd_msg_pub.add;
245: RAISE;
246:
247: END COMPARE_BANK_AND_BRANCH_NUM;
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);
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;
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
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
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
588:
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
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
624: IF l_DEBUG in ('Y', 'C') THEN
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:
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:
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:
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:
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:
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:
1016: -- Initialize message list if p_init_msg_list is set to TRUE.
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:
1016: -- Initialize message list if p_init_msg_list is set to TRUE.
1017: IF FND_API.to_Boolean(p_init_msg_list) THEN
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:
1043: If X_CD is Not Null then -- Bug 6632733 Perform all the validations only if check digit is entered
1044:
1045: IF (COUNTRY_NAME = 'FR') then
1046:
1047: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_FR(X_CD,
1048: X_PASS_MAND_CHECK,
1049: X_BANK_NUMBER,
1050: X_BRANCH_NUMBER,
1051: translate(X_ACCOUNT_NUMBER,
1053: '123456789123456789234567890') );
1054:
1055: ELSIF (COUNTRY_NAME = 'ES') then
1056:
1057: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_ES(X_CD,
1058: X_PASS_MAND_CHECK,
1059: X_BANK_NUMBER,
1060: X_BRANCH_NUMBER,
1061: translate(X_ACCOUNT_NUMBER,
1063: '123456789123456789234567890') );
1064:
1065: ELSIF (COUNTRY_NAME = 'PT') then
1066:
1067: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_PT(X_CD,
1068: X_PASS_MAND_CHECK,
1069: X_BANK_NUMBER,
1070: X_BRANCH_NUMBER,
1071: translate(X_ACCOUNT_NUMBER,
1075: -- added 5/14/02
1076:
1077: ELSIF (COUNTRY_NAME = 'DE') then
1078:
1079: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_DE(X_CD,
1080: X_ACCOUNT_NUMBER);
1081:
1082: ELSIF (COUNTRY_NAME = 'GR') then
1083:
1080: X_ACCOUNT_NUMBER);
1081:
1082: ELSIF (COUNTRY_NAME = 'GR') then
1083:
1084: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_GR(X_CD,
1085: X_PASS_MAND_CHECK,
1086: X_BANK_NUMBER,
1087: X_BRANCH_NUMBER,
1088: translate(X_ACCOUNT_NUMBER,
1090: '123456789123456789234567890') );
1091:
1092: ELSIF (COUNTRY_NAME = 'IS') then
1093:
1094: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_IS(X_CD,
1095: translate(X_ACCOUNT_NUMBER,
1096: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ ',
1097: '123456789123456789234567890') );
1098:
1097: '123456789123456789234567890') );
1098:
1099: ELSIF (COUNTRY_NAME = 'IT') then
1100:
1101: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_IT(X_CD,
1102: X_PASS_MAND_CHECK,
1103: X_BANK_NUMBER,
1104: X_BRANCH_NUMBER,
1105: -- Bug 6836343: Removed translate command as the substitution is done in
1110: X_ACCOUNT_NUMBER);
1111:
1112: ELSIF (COUNTRY_NAME = 'LU') then
1113:
1114: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_LU(X_CD,
1115: X_BANK_NUMBER,
1116: X_BRANCH_NUMBER,
1117: X_ACCOUNT_NUMBER);
1118: -- X_VALUE_OUT);
1118: -- X_VALUE_OUT);
1119:
1120: ELSIF (COUNTRY_NAME = 'SE') then
1121:
1122: CE_VALIDATE_BANKINFO.CE_VALIDATE_CD_SE(X_CD,
1123: X_ACCOUNT_NUMBER);
1124:
1125:
1126: END IF;
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: '<
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: '<
1145: EXCEPTION
1146: WHEN OTHERS THEN
1147: IF l_DEBUG in ('Y', 'C') THEN
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');
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');
1153: fnd_msg_pub.add;
1154: RAISE;
1155:
1156:
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
1232: END IF;
1233:
1234: IF (COUNTRY_NAME = 'AT')
1235: THEN
1236: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_AT(X_BRANCH_NUMBER,
1237: X_PASS_MAND_CHECK,
1238: X_VALUE_OUT);
1239:
1240: ELSIF (COUNTRY_NAME = 'ES')
1238: X_VALUE_OUT);
1239:
1240: ELSIF (COUNTRY_NAME = 'ES')
1241: then
1242: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_ES(X_BRANCH_NUMBER,
1243: X_PASS_MAND_CHECK,
1244: X_VALUE_OUT);
1245:
1246: ELSIF (COUNTRY_NAME = 'FR')
1244: X_VALUE_OUT);
1245:
1246: ELSIF (COUNTRY_NAME = 'FR')
1247: then
1248: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_FR(X_BRANCH_NUMBER,
1249: X_PASS_MAND_CHECK,
1250: X_VALUE_OUT);
1251:
1252: ELSIF (COUNTRY_NAME = 'PT')
1250: X_VALUE_OUT);
1251:
1252: ELSIF (COUNTRY_NAME = 'PT')
1253: then
1254: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_PT(X_BRANCH_NUMBER,
1255: X_PASS_MAND_CHECK);
1256:
1257: ELSIF (COUNTRY_NAME = 'BR')
1258: then
1255: X_PASS_MAND_CHECK);
1256:
1257: ELSIF (COUNTRY_NAME = 'BR')
1258: then
1259: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_BR(X_BRANCH_NUMBER,
1260: X_PASS_MAND_CHECK,
1261: X_VALUE_OUT);
1262:
1263: -- added 5/14/02
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:
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:
1273: ELSIF (COUNTRY_NAME = 'GR')
1274: then
1271: X_BANK_ID);
1272:
1273: ELSIF (COUNTRY_NAME = 'GR')
1274: then
1275: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_GR(X_BRANCH_NUMBER);
1276:
1277: ELSIF (COUNTRY_NAME = 'IS')
1278: then
1279: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IS(X_BRANCH_NUMBER,
1275: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_GR(X_BRANCH_NUMBER);
1276:
1277: ELSIF (COUNTRY_NAME = 'IS')
1278: then
1279: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IS(X_BRANCH_NUMBER,
1280: X_BANK_ID,
1281: X_VALUE_OUT);
1282:
1283: ELSIF (COUNTRY_NAME = 'IE')
1281: X_VALUE_OUT);
1282:
1283: ELSIF (COUNTRY_NAME = 'IE')
1284: then
1285: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IE(X_BRANCH_NUMBER,
1286: X_BANK_ID);
1287:
1288: ELSIF (COUNTRY_NAME = 'IT')
1289: then
1286: X_BANK_ID);
1287:
1288: ELSIF (COUNTRY_NAME = 'IT')
1289: then
1290: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IT(X_BRANCH_NUMBER,
1291: X_PASS_MAND_CHECK);
1292:
1293: ELSIF (COUNTRY_NAME = 'LU')
1294: then
1291: X_PASS_MAND_CHECK);
1292:
1293: ELSIF (COUNTRY_NAME = 'LU')
1294: then
1295: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_LU(X_BRANCH_NUMBER,
1296: X_BANK_ID);
1297:
1298: ELSIF (COUNTRY_NAME = 'PL')
1299: then
1296: X_BANK_ID);
1297:
1298: ELSIF (COUNTRY_NAME = 'PL')
1299: then
1300: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_PL(X_BRANCH_NUMBER,
1301: X_BANK_ID);
1302:
1303: ELSIF (COUNTRY_NAME = 'SE')
1304: then
1301: X_BANK_ID);
1302:
1303: ELSIF (COUNTRY_NAME = 'SE')
1304: then
1305: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_SE(X_BRANCH_NUMBER,
1306: X_BANK_ID);
1307:
1308: ELSIF (COUNTRY_NAME = 'CH')
1309: then
1306: X_BANK_ID);
1307:
1308: ELSIF (COUNTRY_NAME = 'CH')
1309: then
1310: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_CH(X_BRANCH_NUMBER,
1311: X_BANK_ID);
1312:
1313: ELSIF (COUNTRY_NAME = 'GB')
1314: then
1311: X_BANK_ID);
1312:
1313: ELSIF (COUNTRY_NAME = 'GB')
1314: then
1315: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_GB(X_BRANCH_NUMBER,
1316: X_BANK_ID);
1317:
1318: ELSIF (COUNTRY_NAME = 'US')
1319: then
1316: X_BANK_ID);
1317:
1318: ELSIF (COUNTRY_NAME = 'US')
1319: then
1320: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_US(X_BRANCH_NUMBER,
1321: X_PASS_MAND_CHECK,
1322: X_VALUE_OUT);
1323:
1324: -- added 10/19/04
1324: -- added 10/19/04
1325:
1326: ELSIF (COUNTRY_NAME = 'AU')
1327: then
1328: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_AU(X_BRANCH_NUMBER,
1329: X_BANK_ID,
1330: X_PASS_MAND_CHECK);
1331: ELSIF (COUNTRY_NAME = 'IL')
1332: then
1329: X_BANK_ID,
1330: X_PASS_MAND_CHECK);
1331: ELSIF (COUNTRY_NAME = 'IL')
1332: then
1333: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IL(X_BRANCH_NUMBER,
1334: X_PASS_MAND_CHECK);
1335: ELSIF (COUNTRY_NAME = 'NZ')
1336: then
1337: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_NZ(X_BRANCH_NUMBER,
1333: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IL(X_BRANCH_NUMBER,
1334: X_PASS_MAND_CHECK);
1335: ELSIF (COUNTRY_NAME = 'NZ')
1336: then
1337: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_NZ(X_BRANCH_NUMBER,
1338: X_PASS_MAND_CHECK);
1339:
1340: ELSIF (COUNTRY_NAME = 'JP')
1341: then
1338: X_PASS_MAND_CHECK);
1339:
1340: ELSIF (COUNTRY_NAME = 'JP')
1341: then
1342: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_JP(X_BRANCH_NUMBER,
1343: X_BRANCH_NAME_ALT,
1344: X_PASS_MAND_CHECK);
1345:
1346: END IF;
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,
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,
1365: X_BANK_ID,
1366: X_BRANCH_ID);
1367:
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,
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,
1375: X_BANK_ID,
1376: X_BRANCH_ID);
1377: */
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,
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,
1385: X_BRANCH_NAME,
1386: X_BRANCH_NAME_ALT,
1387: X_BANK_ID,
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,
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,
1396: X_BANK_ID,
1397: X_BRANCH_ID);
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: '<
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: '<
1422: EXCEPTION
1423: WHEN OTHERS THEN
1424: IF l_DEBUG in ('Y', 'C') THEN
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');
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');
1430: fnd_msg_pub.add;
1431: RAISE;
1432:
1433: END CE_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.
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,
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,
1504: X_BANK_ID,
1505: X_BRANCH_ID);
1506:
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,
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,
1514: X_BANK_ID,
1515: X_BRANCH_ID);
1516:
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,
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,
1525: X_BRANCH_NAME,
1526: X_BRANCH_NAME_ALT,
1527: X_BANK_ID,
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,
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,
1536: X_BANK_ID,
1537: X_BRANCH_ID);
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: '<
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: '<
1559: EXCEPTION
1560: WHEN OTHERS THEN
1561: IF l_DEBUG in ('Y', 'C') THEN
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');
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');
1567: fnd_msg_pub.add;
1568: RAISE;
1569: END UPD_BRANCH_UNIQUE;
1570:
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
1636: END IF;
1637:
1638: IF (COUNTRY_NAME = 'AT')
1639: THEN
1640: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_AT(X_BRANCH_NUMBER,
1641: X_PASS_MAND_CHECK,
1642: X_VALUE_OUT);
1643:
1644: ELSIF (COUNTRY_NAME = 'ES')
1642: X_VALUE_OUT);
1643:
1644: ELSIF (COUNTRY_NAME = 'ES')
1645: then
1646: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_ES(X_BRANCH_NUMBER,
1647: X_PASS_MAND_CHECK,
1648: X_VALUE_OUT);
1649:
1650: ELSIF (COUNTRY_NAME = 'FR')
1648: X_VALUE_OUT);
1649:
1650: ELSIF (COUNTRY_NAME = 'FR')
1651: then
1652: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_FR(X_BRANCH_NUMBER,
1653: X_PASS_MAND_CHECK,
1654: X_VALUE_OUT);
1655:
1656: ELSIF (COUNTRY_NAME = 'PT')
1654: X_VALUE_OUT);
1655:
1656: ELSIF (COUNTRY_NAME = 'PT')
1657: then
1658: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_PT(X_BRANCH_NUMBER,
1659: X_PASS_MAND_CHECK);
1660:
1661: ELSIF (COUNTRY_NAME = 'BR')
1662: then
1659: X_PASS_MAND_CHECK);
1660:
1661: ELSIF (COUNTRY_NAME = 'BR')
1662: then
1663: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_BR(X_BRANCH_NUMBER,
1664: X_PASS_MAND_CHECK,
1665: X_VALUE_OUT);
1666:
1667: -- added 5/14/02
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:
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:
1677: ELSIF (COUNTRY_NAME = 'GR')
1678: then
1675: X_BANK_ID);
1676:
1677: ELSIF (COUNTRY_NAME = 'GR')
1678: then
1679: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_GR(X_BRANCH_NUMBER);
1680:
1681: ELSIF (COUNTRY_NAME = 'IS')
1682: then
1683: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IS(X_BRANCH_NUMBER,
1679: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_GR(X_BRANCH_NUMBER);
1680:
1681: ELSIF (COUNTRY_NAME = 'IS')
1682: then
1683: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IS(X_BRANCH_NUMBER,
1684: X_BANK_ID,
1685: X_VALUE_OUT);
1686:
1687: ELSIF (COUNTRY_NAME = 'IE')
1685: X_VALUE_OUT);
1686:
1687: ELSIF (COUNTRY_NAME = 'IE')
1688: then
1689: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IE(X_BRANCH_NUMBER,
1690: X_BANK_ID);
1691:
1692: ELSIF (COUNTRY_NAME = 'IT')
1693: then
1690: X_BANK_ID);
1691:
1692: ELSIF (COUNTRY_NAME = 'IT')
1693: then
1694: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IT(X_BRANCH_NUMBER,
1695: X_PASS_MAND_CHECK);
1696:
1697: ELSIF (COUNTRY_NAME = 'LU')
1698: then
1695: X_PASS_MAND_CHECK);
1696:
1697: ELSIF (COUNTRY_NAME = 'LU')
1698: then
1699: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_LU(X_BRANCH_NUMBER,
1700: X_BANK_ID);
1701:
1702: ELSIF (COUNTRY_NAME = 'PL')
1703: then
1700: X_BANK_ID);
1701:
1702: ELSIF (COUNTRY_NAME = 'PL')
1703: then
1704: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_PL(X_BRANCH_NUMBER,
1705: X_BANK_ID);
1706:
1707: ELSIF (COUNTRY_NAME = 'SE')
1708: then
1705: X_BANK_ID);
1706:
1707: ELSIF (COUNTRY_NAME = 'SE')
1708: then
1709: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_SE(X_BRANCH_NUMBER,
1710: X_BANK_ID);
1711:
1712: ELSIF (COUNTRY_NAME = 'CH')
1713: then
1710: X_BANK_ID);
1711:
1712: ELSIF (COUNTRY_NAME = 'CH')
1713: then
1714: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_CH(X_BRANCH_NUMBER,
1715: X_BANK_ID);
1716:
1717: ELSIF (COUNTRY_NAME = 'GB')
1718: then
1715: X_BANK_ID);
1716:
1717: ELSIF (COUNTRY_NAME = 'GB')
1718: then
1719: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_GB(X_BRANCH_NUMBER,
1720: X_BANK_ID);
1721:
1722: ELSIF (COUNTRY_NAME = 'US')
1723: then
1720: X_BANK_ID);
1721:
1722: ELSIF (COUNTRY_NAME = 'US')
1723: then
1724: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_US(X_BRANCH_NUMBER,
1725: X_PASS_MAND_CHECK,
1726: X_VALUE_OUT);
1727:
1728: -- added 10/19/04
1728: -- added 10/19/04
1729:
1730: ELSIF (COUNTRY_NAME = 'AU')
1731: then
1732: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_AU(X_BRANCH_NUMBER,
1733: X_BANK_ID,
1734: X_PASS_MAND_CHECK);
1735: ELSIF (COUNTRY_NAME = 'IL')
1736: then
1733: X_BANK_ID,
1734: X_PASS_MAND_CHECK);
1735: ELSIF (COUNTRY_NAME = 'IL')
1736: then
1737: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IL(X_BRANCH_NUMBER,
1738: X_PASS_MAND_CHECK);
1739: ELSIF (COUNTRY_NAME = 'NZ')
1740: then
1741: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_NZ(X_BRANCH_NUMBER,
1737: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IL(X_BRANCH_NUMBER,
1738: X_PASS_MAND_CHECK);
1739: ELSIF (COUNTRY_NAME = 'NZ')
1740: then
1741: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_NZ(X_BRANCH_NUMBER,
1742: X_PASS_MAND_CHECK);
1743:
1744: ELSIF (COUNTRY_NAME = 'JP')
1745: then
1742: X_PASS_MAND_CHECK);
1743:
1744: ELSIF (COUNTRY_NAME = 'JP')
1745: then
1746: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_JP(X_BRANCH_NUMBER,
1747: X_BRANCH_NAME_ALT,
1748: X_PASS_MAND_CHECK);
1749:
1750: END IF;
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: '<
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: '<
1767: EXCEPTION
1768: WHEN OTHERS THEN
1769: IF l_DEBUG in ('Y', 'C') THEN
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');
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');
1775: fnd_msg_pub.add;
1776: RAISE;
1777: END UPD_BRANCH_VALIDATE;
1778:
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:
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:
1819: /* ----------------------------------------------------------------------- */
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);
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:
1876: /* ----------------------------------------------------------------------- */
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)),
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:
1909: /* ----------------------------------------------------------------------- */
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;
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;
1933:
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;
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:
1957: /* --------------------------------------------------------------------
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:
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(
2014: X_ACCOUNT_NUMBER ,
2015: X_ACCOUNT_CLASSIFICATION,
2016: X_ELECTRONIC_ACCT_NUM
2017: );
2016: X_ELECTRONIC_ACCT_NUM
2017: );
2018:
2019: ELSIF (COUNTRY_NAME = 'FI') then
2020: CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_FI(
2021: X_ACCOUNT_NUMBER ,
2022: X_ACCOUNT_CLASSIFICATION,
2023: X_ELECTRONIC_ACCT_NUM
2024: );
2023: X_ELECTRONIC_ACCT_NUM
2024: );
2025:
2026: ELSIF (COUNTRY_NAME = 'NL') then
2027: CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_NL(
2028: X_ACCOUNT_NUMBER ,
2029: X_ACCOUNT_CLASSIFICATION,
2030: X_ELECTRONIC_ACCT_NUM
2031: );
2030: X_ELECTRONIC_ACCT_NUM
2031: );
2032:
2033: ELSIF (COUNTRY_NAME = 'N0') then
2034: CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_NO(
2035: X_ACCOUNT_NUMBER ,
2036: X_ACCOUNT_CLASSIFICATION,
2037: X_ELECTRONIC_ACCT_NUM
2038: );
2036: X_ACCOUNT_CLASSIFICATION,
2037: X_ELECTRONIC_ACCT_NUM
2038: );
2039: ELSIF (COUNTRY_NAME = 'SE') then
2040: CE_VALIDATE_BANKINFO.CE_FORMAT_ELECTRONIC_NUM_SE(
2041: X_ACCOUNT_NUMBER ,
2042: X_ACCOUNT_CLASSIFICATION,
2043: X_ELECTRONIC_ACCT_NUM
2044: );
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
2062:
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;
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;
2069: RAISE;
2070:
2071: END CE_FORMAT_ELECTRONIC_NUM;
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:
2151: END IF;
2152:
2153: IF (COUNTRY_NAME = 'AT')
2154: then
2155: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_AT(X_ACCOUNT_NUMBER,
2156: X_PASS_MAND_CHECK,
2157: X_VALUE_OUT);
2158:
2159: ELSIF (COUNTRY_NAME = 'DK')
2157: X_VALUE_OUT);
2158:
2159: ELSIF (COUNTRY_NAME = 'DK')
2160: then
2161: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_DK(X_ACCOUNT_NUMBER,
2162: X_PASS_MAND_CHECK,
2163: X_VALUE_OUT);
2164:
2165: ELSIF (COUNTRY_NAME = 'NO')
2163: X_VALUE_OUT);
2164:
2165: ELSIF (COUNTRY_NAME = 'NO')
2166: then
2167: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NO(X_ACCOUNT_NUMBER,
2168: X_PASS_MAND_CHECK);
2169:
2170: ELSIF (COUNTRY_NAME = 'ES')
2171: then
2169:
2170: ELSIF (COUNTRY_NAME = 'ES')
2171: then
2172:
2173: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_ES(X_ACCOUNT_NUMBER,
2174: X_PASS_MAND_CHECK,
2175: X_VALUE_OUT);
2176:
2177:
2177:
2178: ELSIF (COUNTRY_NAME = 'NL')
2179: then
2180:
2181: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NL(X_ACCOUNT_NUMBER,
2182: X_PASS_MAND_CHECK);
2183:
2184: ELSIF (COUNTRY_NAME = 'FR')
2185: then
2183:
2184: ELSIF (COUNTRY_NAME = 'FR')
2185: then
2186:
2187: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_FR(X_ACCOUNT_NUMBER,
2188: X_PASS_MAND_CHECK,
2189: X_VALUE_OUT);
2190:
2191:
2191:
2192: ELSIF (COUNTRY_NAME = 'BE')
2193: then
2194:
2195: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_BE(X_ACCOUNT_NUMBER,
2196: X_PASS_MAND_CHECK);
2197:
2198:
2199: ELSIF (COUNTRY_NAME = 'PT')
2198:
2199: ELSIF (COUNTRY_NAME = 'PT')
2200: then
2201:
2202: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_PT(X_ACCOUNT_NUMBER,
2203: X_PASS_MAND_CHECK,
2204: X_VALUE_OUT);
2205:
2206: ELSIF (COUNTRY_NAME = 'FI')
2206: ELSIF (COUNTRY_NAME = 'FI')
2207: AND (X_BRANCH_NUMBER='LMP')
2208: then
2209:
2210: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_FI(X_ACCOUNT_NUMBER,
2211: X_PASS_MAND_CHECK);
2212:
2213: -- added 5/14/02
2214:
2214:
2215: ELSIF (COUNTRY_NAME = 'DE')
2216: then
2217:
2218: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_DE(X_ACCOUNT_NUMBER,
2219: X_VALUE_OUT );
2220:
2221: ELSIF (COUNTRY_NAME = 'GR')
2222: then
2220:
2221: ELSIF (COUNTRY_NAME = 'GR')
2222: then
2223:
2224: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_GR(X_ACCOUNT_NUMBER,
2225: X_VALUE_OUT);
2226:
2227: ELSIF (COUNTRY_NAME = 'IS')
2228: then
2226:
2227: ELSIF (COUNTRY_NAME = 'IS')
2228: then
2229:
2230: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IS(X_ACCOUNT_NUMBER,
2231: X_VALUE_OUT );
2232:
2233:
2234: ELSIF (COUNTRY_NAME = 'IE')
2233:
2234: ELSIF (COUNTRY_NAME = 'IE')
2235: then
2236:
2237: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IE(X_ACCOUNT_NUMBER);
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,
2247: X_VALUE_OUT);
2248:
2249: ELSIF (COUNTRY_NAME = 'LU')
2250: then
2248:
2249: ELSIF (COUNTRY_NAME = 'LU')
2250: then
2251:
2252: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_LU(X_ACCOUNT_NUMBER);
2253:
2254:
2255: ELSIF (COUNTRY_NAME = 'PL')
2256: then
2254:
2255: ELSIF (COUNTRY_NAME = 'PL')
2256: then
2257:
2258: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_PL(X_ACCOUNT_NUMBER);
2259:
2260:
2261: ELSIF (COUNTRY_NAME = 'SE')
2262: then
2260:
2261: ELSIF (COUNTRY_NAME = 'SE')
2262: then
2263:
2264: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_SE(X_ACCOUNT_NUMBER);
2265:
2266:
2267: ELSIF (COUNTRY_NAME = 'CH')
2268: then
2266:
2267: ELSIF (COUNTRY_NAME = 'CH')
2268: then
2269:
2270: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_CH(X_ACCOUNT_NUMBER,
2271: X_ACCOUNT_TYPE );
2272:
2273: ELSIF (COUNTRY_NAME = 'GB')
2274: then
2272:
2273: ELSIF (COUNTRY_NAME = 'GB')
2274: then
2275:
2276: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_GB(X_ACCOUNT_NUMBER,
2277: X_VALUE_OUT);
2278:
2279: ELSIF (COUNTRY_NAME = 'BR')
2280: then
2278:
2279: ELSIF (COUNTRY_NAME = 'BR')
2280: then
2281:
2282: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_BR(X_ACCOUNT_NUMBER,
2283: X_SECONDARY_ACCOUNT_REFERENCE);
2284:
2285: -- added 10/19/04
2286: ELSIF (COUNTRY_NAME = 'AU')
2285: -- added 10/19/04
2286: ELSIF (COUNTRY_NAME = 'AU')
2287: then
2288:
2289: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_AU(X_ACCOUNT_NUMBER,X_CURRENCY_CODE);
2290:
2291: ELSIF (COUNTRY_NAME = 'IL')
2292: then
2293:
2290:
2291: ELSIF (COUNTRY_NAME = 'IL')
2292: then
2293:
2294: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IL(X_ACCOUNT_NUMBER);
2295: ELSIF (COUNTRY_NAME = 'NZ')
2296: then
2297:
2298: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NZ(X_ACCOUNT_NUMBER,
2294: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IL(X_ACCOUNT_NUMBER);
2295: ELSIF (COUNTRY_NAME = 'NZ')
2296: then
2297:
2298: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NZ(X_ACCOUNT_NUMBER,
2299: X_ACCOUNT_SUFFIX);
2300: ELSIF (COUNTRY_NAME = 'JP')
2301: then
2302: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_JP(X_ACCOUNT_NUMBER,
2298: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NZ(X_ACCOUNT_NUMBER,
2299: X_ACCOUNT_SUFFIX);
2300: ELSIF (COUNTRY_NAME = 'JP')
2301: then
2302: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_JP(X_ACCOUNT_NUMBER,
2303: X_ACCOUNT_TYPE );
2304: END IF; /** country account check **/
2305:
2306: /** UNIQUE VALIDATION CHECK for account **/
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,
2314: X_CURRENCY_CODE,
2315: X_ACCOUNT_TYPE,
2316: X_ACCOUNT_NAME,
2317: X_BRANCH_ID,
2317: X_BRANCH_ID,
2318: X_ACCOUNT_ID);
2319:
2320: ELSIF (COUNTRY_NAME = 'NZ') THEN
2321: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT_NZ(X_ACCOUNT_NUMBER,
2322: X_CURRENCY_CODE,
2323: X_ACCOUNT_SUFFIX,
2324: X_ACCOUNT_NAME,
2325: X_BRANCH_ID,
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,
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,
2334: X_ACCOUNT_NAME,
2335: X_BRANCH_ID,
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:
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;
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;
2400: RAISE;
2401:
2402: END CE_VALIDATE_ACCOUNT;
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:
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,
2471: X_CURRENCY_CODE,
2472: X_ACCOUNT_TYPE,
2473: X_ACCOUNT_NAME,
2474: X_BRANCH_ID,
2474: X_BRANCH_ID,
2475: X_ACCOUNT_ID);
2476:
2477: ELSIF (COUNTRY_NAME = 'NZ') THEN
2478: CE_VALIDATE_BANKINFO.CE_VALIDATE_UNIQUE_ACCOUNT_NZ(X_ACCOUNT_NUMBER,
2479: X_CURRENCY_CODE,
2480: X_ACCOUNT_SUFFIX,
2481: X_ACCOUNT_NAME,
2482: X_BRANCH_ID,
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,
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,
2491: X_ACCOUNT_NAME,
2492: X_BRANCH_ID,
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: '<
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
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:
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;
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;
2525: RAISE;
2526:
2527: END UPD_ACCOUNT_UNIQUE;
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:
2600: END IF;
2601:
2602: IF (COUNTRY_NAME = 'AT')
2603: then
2604: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_AT(X_ACCOUNT_NUMBER,
2605: X_PASS_MAND_CHECK,
2606: X_VALUE_OUT);
2607:
2608: ELSIF (COUNTRY_NAME = 'DK')
2606: X_VALUE_OUT);
2607:
2608: ELSIF (COUNTRY_NAME = 'DK')
2609: then
2610: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_DK(X_ACCOUNT_NUMBER,
2611: X_PASS_MAND_CHECK,
2612: X_VALUE_OUT);
2613:
2614: ELSIF (COUNTRY_NAME = 'NO')
2612: X_VALUE_OUT);
2613:
2614: ELSIF (COUNTRY_NAME = 'NO')
2615: then
2616: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NO(X_ACCOUNT_NUMBER,
2617: X_PASS_MAND_CHECK);
2618:
2619: ELSIF (COUNTRY_NAME = 'ES')
2620: then
2618:
2619: ELSIF (COUNTRY_NAME = 'ES')
2620: then
2621:
2622: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_ES(X_ACCOUNT_NUMBER,
2623: X_PASS_MAND_CHECK,
2624: X_VALUE_OUT);
2625:
2626: ELSIF (COUNTRY_NAME = 'NL')
2625:
2626: ELSIF (COUNTRY_NAME = 'NL')
2627: then
2628:
2629: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NL(X_ACCOUNT_NUMBER,
2630: X_PASS_MAND_CHECK);
2631:
2632: ELSIF (COUNTRY_NAME = 'FR')
2633: then
2631:
2632: ELSIF (COUNTRY_NAME = 'FR')
2633: then
2634:
2635: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_FR(X_ACCOUNT_NUMBER,
2636: X_PASS_MAND_CHECK,
2637: X_VALUE_OUT);
2638:
2639:
2639:
2640: ELSIF (COUNTRY_NAME = 'BE')
2641: then
2642:
2643: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_BE(X_ACCOUNT_NUMBER,
2644: X_PASS_MAND_CHECK);
2645:
2646:
2647: ELSIF (COUNTRY_NAME = 'PT')
2646:
2647: ELSIF (COUNTRY_NAME = 'PT')
2648: then
2649:
2650: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_PT(X_ACCOUNT_NUMBER,
2651: X_PASS_MAND_CHECK,
2652: X_VALUE_OUT);
2653:
2654: ELSIF (COUNTRY_NAME = 'FI')
2654: ELSIF (COUNTRY_NAME = 'FI')
2655: AND (X_BRANCH_NUMBER='LMP')
2656: then
2657:
2658: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_FI(X_ACCOUNT_NUMBER,
2659: X_PASS_MAND_CHECK);
2660:
2661: -- added 5/14/02
2662:
2662:
2663: ELSIF (COUNTRY_NAME = 'DE')
2664: then
2665:
2666: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_DE(X_ACCOUNT_NUMBER,
2667: X_VALUE_OUT );
2668:
2669: ELSIF (COUNTRY_NAME = 'GR')
2670: then
2668:
2669: ELSIF (COUNTRY_NAME = 'GR')
2670: then
2671:
2672: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_GR(X_ACCOUNT_NUMBER,
2673: X_VALUE_OUT);
2674:
2675: ELSIF (COUNTRY_NAME = 'IS')
2676: then
2674:
2675: ELSIF (COUNTRY_NAME = 'IS')
2676: then
2677:
2678: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IS(X_ACCOUNT_NUMBER,
2679: X_VALUE_OUT );
2680:
2681: ELSIF (COUNTRY_NAME = 'IE')
2682: then
2680:
2681: ELSIF (COUNTRY_NAME = 'IE')
2682: then
2683:
2684: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IE(X_ACCOUNT_NUMBER);
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,
2694: X_VALUE_OUT);
2695:
2696: ELSIF (COUNTRY_NAME = 'LU')
2697: then
2695:
2696: ELSIF (COUNTRY_NAME = 'LU')
2697: then
2698:
2699: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_LU(X_ACCOUNT_NUMBER);
2700:
2701:
2702: ELSIF (COUNTRY_NAME = 'PL')
2703: then
2701:
2702: ELSIF (COUNTRY_NAME = 'PL')
2703: then
2704:
2705: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_PL(X_ACCOUNT_NUMBER);
2706:
2707:
2708: ELSIF (COUNTRY_NAME = 'SE')
2709: then
2707:
2708: ELSIF (COUNTRY_NAME = 'SE')
2709: then
2710:
2711: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_SE(X_ACCOUNT_NUMBER);
2712:
2713: ELSIF (COUNTRY_NAME = 'CH')
2714: then
2715:
2712:
2713: ELSIF (COUNTRY_NAME = 'CH')
2714: then
2715:
2716: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_CH(X_ACCOUNT_NUMBER,
2717: X_ACCOUNT_TYPE );
2718:
2719: ELSIF (COUNTRY_NAME = 'GB')
2720: then
2718:
2719: ELSIF (COUNTRY_NAME = 'GB')
2720: then
2721:
2722: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_GB(X_ACCOUNT_NUMBER,
2723: X_VALUE_OUT);
2724:
2725: ELSIF (COUNTRY_NAME = 'BR')
2726: then
2724:
2725: ELSIF (COUNTRY_NAME = 'BR')
2726: then
2727:
2728: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_BR(X_ACCOUNT_NUMBER,
2729: X_SECONDARY_ACCOUNT_REFERENCE);
2730:
2731: -- added 10/19/04
2732: ELSIF (COUNTRY_NAME = 'AU')
2731: -- added 10/19/04
2732: ELSIF (COUNTRY_NAME = 'AU')
2733: then
2734:
2735: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_AU(X_ACCOUNT_NUMBER,X_CURRENCY_CODE);
2736:
2737: ELSIF (COUNTRY_NAME = 'IL')
2738: then
2739:
2736:
2737: ELSIF (COUNTRY_NAME = 'IL')
2738: then
2739:
2740: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IL(X_ACCOUNT_NUMBER);
2741: ELSIF (COUNTRY_NAME = 'NZ')
2742: then
2743:
2744: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NZ(X_ACCOUNT_NUMBER,
2740: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_IL(X_ACCOUNT_NUMBER);
2741: ELSIF (COUNTRY_NAME = 'NZ')
2742: then
2743:
2744: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_NZ(X_ACCOUNT_NUMBER,
2745: X_ACCOUNT_SUFFIX);
2746:
2747: ELSIF (COUNTRY_NAME = 'JP')
2748: then
2745: X_ACCOUNT_SUFFIX);
2746:
2747: ELSIF (COUNTRY_NAME = 'JP')
2748: then
2749: CE_VALIDATE_BANKINFO.CE_VALIDATE_ACCOUNT_JP(X_ACCOUNT_NUMBER,
2750: X_ACCOUNT_TYPE );
2751: END IF; /** country account check **/
2752:
2753:
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: '<
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
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:
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;
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;
2805: RAISE;
2806: END UPD_ACCOUNT_VALIDATE;
2807:
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
2877: END IF;
2878:
2879: IF (COUNTRY_NAME = 'ES')
2880: then
2881: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_ES(X_BANK_NUMBER,
2882: X_PASS_MAND_CHECK,
2883: X_VALUE_OUT);
2884:
2885: ELSIF (COUNTRY_NAME = 'FR')
2883: X_VALUE_OUT);
2884:
2885: ELSIF (COUNTRY_NAME = 'FR')
2886: then
2887: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_FR(X_BANK_NUMBER,
2888: X_PASS_MAND_CHECK,
2889: X_VALUE_OUT);
2890:
2891: ELSIF (COUNTRY_NAME = 'PT')
2889: X_VALUE_OUT);
2890:
2891: ELSIF (COUNTRY_NAME = 'PT')
2892: then
2893: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_PT(X_BANK_NUMBER,
2894: X_PASS_MAND_CHECK);
2895:
2896: ELSIF (COUNTRY_NAME = 'BR')
2897: then
2894: X_PASS_MAND_CHECK);
2895:
2896: ELSIF (COUNTRY_NAME = 'BR')
2897: then
2898: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_BR(X_BANK_NUMBER,
2899: X_PASS_MAND_CHECK,
2900: X_VALUE_OUT);
2901:
2902: -- Added 5/14/02
2903:
2904:
2905: ELSIF (COUNTRY_NAME = 'DE')
2906: then
2907: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_DE(X_BANK_NUMBER);
2908:
2909: ELSIF (COUNTRY_NAME = 'GR')
2910: then
2911: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GR(X_BANK_NUMBER);
2907: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_DE(X_BANK_NUMBER);
2908:
2909: ELSIF (COUNTRY_NAME = 'GR')
2910: then
2911: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GR(X_BANK_NUMBER);
2912:
2913: ELSIF (COUNTRY_NAME = 'IS')
2914: then
2915: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IS(X_BANK_NUMBER,
2911: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GR(X_BANK_NUMBER);
2912:
2913: ELSIF (COUNTRY_NAME = 'IS')
2914: then
2915: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IS(X_BANK_NUMBER,
2916: X_VALUE_OUT);
2917:
2918: ELSIF (COUNTRY_NAME = 'IE')
2919: then
2916: X_VALUE_OUT);
2917:
2918: ELSIF (COUNTRY_NAME = 'IE')
2919: then
2920: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IE(X_BANK_NUMBER);
2921:
2922: ELSIF (COUNTRY_NAME = 'IT')
2923: then
2924: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IT(X_BANK_NUMBER,
2920: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IE(X_BANK_NUMBER);
2921:
2922: ELSIF (COUNTRY_NAME = 'IT')
2923: then
2924: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IT(X_BANK_NUMBER,
2925: X_PASS_MAND_CHECK);
2926:
2927: ELSIF (COUNTRY_NAME = 'LU')
2928: then
2925: X_PASS_MAND_CHECK);
2926:
2927: ELSIF (COUNTRY_NAME = 'LU')
2928: then
2929: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_LU(X_BANK_NUMBER);
2930:
2931:
2932: ELSIF (COUNTRY_NAME = 'PL')
2933: then
2930:
2931:
2932: ELSIF (COUNTRY_NAME = 'PL')
2933: then
2934: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_PL(X_BANK_NUMBER);
2935:
2936: ELSIF (COUNTRY_NAME = 'SE')
2937: then
2938: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_SE(X_BANK_NUMBER);
2934: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_PL(X_BANK_NUMBER);
2935:
2936: ELSIF (COUNTRY_NAME = 'SE')
2937: then
2938: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_SE(X_BANK_NUMBER);
2939:
2940: ELSIF (COUNTRY_NAME = 'CH')
2941: then
2942: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CH(X_BANK_NUMBER);
2938: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_SE(X_BANK_NUMBER);
2939:
2940: ELSIF (COUNTRY_NAME = 'CH')
2941: then
2942: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CH(X_BANK_NUMBER);
2943:
2944: ELSIF (COUNTRY_NAME = 'GB')
2945: then
2946: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GB(X_BANK_NUMBER);
2942: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CH(X_BANK_NUMBER);
2943:
2944: ELSIF (COUNTRY_NAME = 'GB')
2945: then
2946: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GB(X_BANK_NUMBER);
2947:
2948: ELSIF (COUNTRY_NAME = 'CO')
2949: then
2950: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO(X_COUNTRY_NAME,
2946: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GB(X_BANK_NUMBER);
2947:
2948: ELSIF (COUNTRY_NAME = 'CO')
2949: then
2950: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO(X_COUNTRY_NAME,
2951: X_BANK_NAME ,
2952: X_TAX_PAYER_ID);
2953:
2954: -- Added 10/19/04
2954: -- Added 10/19/04
2955:
2956: ELSIF (COUNTRY_NAME = 'AU')
2957: then
2958: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_AU(X_BANK_NUMBER);
2959: ELSIF (COUNTRY_NAME = 'IL')
2960: then
2961: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IL(X_BANK_NUMBER,
2962: X_PASS_MAND_CHECK);
2957: then
2958: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_AU(X_BANK_NUMBER);
2959: ELSIF (COUNTRY_NAME = 'IL')
2960: then
2961: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IL(X_BANK_NUMBER,
2962: X_PASS_MAND_CHECK);
2963: ELSIF (COUNTRY_NAME = 'NZ')
2964: then
2965: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_NZ(X_BANK_NUMBER,
2961: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IL(X_BANK_NUMBER,
2962: X_PASS_MAND_CHECK);
2963: ELSIF (COUNTRY_NAME = 'NZ')
2964: then
2965: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_NZ(X_BANK_NUMBER,
2966: X_PASS_MAND_CHECK);
2967:
2968: ELSIF (COUNTRY_NAME = 'JP')
2969: then
2966: X_PASS_MAND_CHECK);
2967:
2968: ELSIF (COUNTRY_NAME = 'JP')
2969: then
2970: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_JP(X_BANK_NUMBER,
2971: X_BANK_NAME_ALT,
2972: X_PASS_MAND_CHECK);
2973:
2974: END IF; /** country check for bank **/
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 ,
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 ,
2990: X_BANK_NAME ,
2991: X_BANK_NAME_ALT,
2992: X_BANK_ID);
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: '<
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: '<
3015: EXCEPTION
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: '<
3015: EXCEPTION
3016: WHEN OTHERS THEN
3017: IF l_DEBUG in ('Y', 'C') THEN
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');
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');
3023: fnd_msg_pub.add;
3024: RAISE;
3025:
3026:
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:
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 ,
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 ,
3096: X_BANK_NAME ,
3097: X_BANK_NAME_ALT,
3098: X_BANK_ID);
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: '<
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: '<
3121: EXCEPTION
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: '<
3121: EXCEPTION
3122: WHEN OTHERS THEN
3123: IF l_DEBUG in ('Y', 'C') THEN
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');
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');
3129: fnd_msg_pub.add;
3130: RAISE;
3131:
3132: END 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:
3196: END IF;
3197:
3198: IF (COUNTRY_NAME = 'ES')
3199: then
3200: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_ES(X_BANK_NUMBER,
3201: X_PASS_MAND_CHECK,
3202: X_VALUE_OUT);
3203:
3204: ELSIF (COUNTRY_NAME = 'FR')
3202: X_VALUE_OUT);
3203:
3204: ELSIF (COUNTRY_NAME = 'FR')
3205: then
3206: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_FR(X_BANK_NUMBER,
3207: X_PASS_MAND_CHECK,
3208: X_VALUE_OUT);
3209:
3210: ELSIF (COUNTRY_NAME = 'PT')
3208: X_VALUE_OUT);
3209:
3210: ELSIF (COUNTRY_NAME = 'PT')
3211: then
3212: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_PT(X_BANK_NUMBER,
3213: X_PASS_MAND_CHECK);
3214:
3215: ELSIF (COUNTRY_NAME = 'BR')
3216: then
3213: X_PASS_MAND_CHECK);
3214:
3215: ELSIF (COUNTRY_NAME = 'BR')
3216: then
3217: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_BR(X_BANK_NUMBER,
3218: X_PASS_MAND_CHECK,
3219: X_VALUE_OUT);
3220:
3221: -- Added 5/14/02
3221: -- Added 5/14/02
3222:
3223: ELSIF (COUNTRY_NAME = 'DE')
3224: then
3225: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_DE(X_BANK_NUMBER);
3226:
3227: ELSIF (COUNTRY_NAME = 'GR')
3228: then
3229: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GR(X_BANK_NUMBER);
3225: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_DE(X_BANK_NUMBER);
3226:
3227: ELSIF (COUNTRY_NAME = 'GR')
3228: then
3229: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GR(X_BANK_NUMBER);
3230:
3231: ELSIF (COUNTRY_NAME = 'IS')
3232: then
3233: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IS(X_BANK_NUMBER,
3229: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GR(X_BANK_NUMBER);
3230:
3231: ELSIF (COUNTRY_NAME = 'IS')
3232: then
3233: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IS(X_BANK_NUMBER,
3234: X_VALUE_OUT);
3235:
3236: ELSIF (COUNTRY_NAME = 'IE')
3237: then
3234: X_VALUE_OUT);
3235:
3236: ELSIF (COUNTRY_NAME = 'IE')
3237: then
3238: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IE(X_BANK_NUMBER);
3239:
3240: ELSIF (COUNTRY_NAME = 'IT')
3241: then
3242: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IT(X_BANK_NUMBER,
3238: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IE(X_BANK_NUMBER);
3239:
3240: ELSIF (COUNTRY_NAME = 'IT')
3241: then
3242: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IT(X_BANK_NUMBER,
3243: X_PASS_MAND_CHECK);
3244:
3245: ELSIF (COUNTRY_NAME = 'LU')
3246: then
3243: X_PASS_MAND_CHECK);
3244:
3245: ELSIF (COUNTRY_NAME = 'LU')
3246: then
3247: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_LU(X_BANK_NUMBER);
3248:
3249:
3250: ELSIF (COUNTRY_NAME = 'PL')
3251: then
3248:
3249:
3250: ELSIF (COUNTRY_NAME = 'PL')
3251: then
3252: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_PL(X_BANK_NUMBER);
3253:
3254: ELSIF (COUNTRY_NAME = 'SE')
3255: then
3256: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_SE(X_BANK_NUMBER);
3252: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_PL(X_BANK_NUMBER);
3253:
3254: ELSIF (COUNTRY_NAME = 'SE')
3255: then
3256: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_SE(X_BANK_NUMBER);
3257:
3258: ELSIF (COUNTRY_NAME = 'CH')
3259: then
3260: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CH(X_BANK_NUMBER);
3256: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_SE(X_BANK_NUMBER);
3257:
3258: ELSIF (COUNTRY_NAME = 'CH')
3259: then
3260: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CH(X_BANK_NUMBER);
3261:
3262: ELSIF (COUNTRY_NAME = 'GB')
3263: then
3264: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GB(X_BANK_NUMBER);
3260: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CH(X_BANK_NUMBER);
3261:
3262: ELSIF (COUNTRY_NAME = 'GB')
3263: then
3264: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GB(X_BANK_NUMBER);
3265:
3266: ELSIF (COUNTRY_NAME = 'CO')
3267: then
3268: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO(X_COUNTRY_NAME,
3264: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_GB(X_BANK_NUMBER);
3265:
3266: ELSIF (COUNTRY_NAME = 'CO')
3267: then
3268: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_CO(X_COUNTRY_NAME,
3269: X_BANK_NAME ,
3270: X_TAX_PAYER_ID);
3271:
3272: -- Added 10/19/04
3272: -- Added 10/19/04
3273:
3274: ELSIF (COUNTRY_NAME = 'AU')
3275: then
3276: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_AU(X_BANK_NUMBER);
3277: ELSIF (COUNTRY_NAME = 'IL')
3278: then
3279: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IL(X_BANK_NUMBER,
3280: X_PASS_MAND_CHECK);
3275: then
3276: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_AU(X_BANK_NUMBER);
3277: ELSIF (COUNTRY_NAME = 'IL')
3278: then
3279: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IL(X_BANK_NUMBER,
3280: X_PASS_MAND_CHECK);
3281: ELSIF (COUNTRY_NAME = 'NZ')
3282: then
3283: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_NZ(X_BANK_NUMBER,
3279: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_IL(X_BANK_NUMBER,
3280: X_PASS_MAND_CHECK);
3281: ELSIF (COUNTRY_NAME = 'NZ')
3282: then
3283: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_NZ(X_BANK_NUMBER,
3284: X_PASS_MAND_CHECK);
3285:
3286: ELSIF (COUNTRY_NAME = 'JP')
3287: then
3284: X_PASS_MAND_CHECK);
3285:
3286: ELSIF (COUNTRY_NAME = 'JP')
3287: then
3288: CE_VALIDATE_BANKINFO.CE_VALIDATE_BANK_JP(X_BANK_NUMBER,
3289: X_BANK_NAME_ALT,
3290: X_PASS_MAND_CHECK);
3291:
3292: END IF; /** country check for bank **/
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: '<
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: '<
3309: EXCEPTION
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: '<
3309: EXCEPTION
3310: WHEN OTHERS THEN
3311: IF l_DEBUG in ('Y', 'C') THEN
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');
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');
3317: fnd_msg_pub.add;
3318: RAISE;
3319:
3320: END UPD_BANK_VALIDATE;
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,' ',''));
6972: THEN
6973: numeric_result := ce_check_numeric(tax_id,1,length(tax_id));
6974: IF numeric_result = '0'
6975: THEN /* its numeric so continue */
6976: IF CE_VALIDATE_BANKINFO.CE_VAL_UNIQUE_TAX_PAYER_ID(
6977: Xi_COUNTRY_NAME,TAX_ID) = 'TRUE'
6978: THEN
6979: CE_VALIDATE_BANKINFO.CE_CHECK_CROSS_MODULE_TAX_ID(
6980: Xi_COUNTRY_NAME,
6975: THEN /* its numeric so continue */
6976: IF CE_VALIDATE_BANKINFO.CE_VAL_UNIQUE_TAX_PAYER_ID(
6977: Xi_COUNTRY_NAME,TAX_ID) = 'TRUE'
6978: THEN
6979: CE_VALIDATE_BANKINFO.CE_CHECK_CROSS_MODULE_TAX_ID(
6980: Xi_COUNTRY_NAME,
6981: Xi_BANK_NAME,
6982: TAX_ID,
6983: l_cust,
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 );
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 );
6996: END IF;
6997:
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 );
6996: END IF;
6997:
6998: IF (l_supp = 'bk3' OR l_cust= 'bk2' OR l_comp = 'bk1')
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 );
6996: END IF;
6997:
6998: IF (l_supp = 'bk3' OR l_cust= 'bk2' OR l_comp = 'bk1')
6999: THEN
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:
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('<
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:
7378:
7379:
7380: -- unique combination -> bank_branch_id, bank account name
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('<
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:
7429:
7430:
7431: -- unique combination -> bank_branch_id, bank account name
7432:
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('<
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:
7466: END IF;
7467:
7468: -- unique combination -> bank_id, branch_name, country
7469:
7470: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME(Xi_COUNTRY_NAME,Xi_BRANCH_NAME,Xi_BANK_ID,Xi_BRANCH_ID);
7471:
7472: -- unique combination -> bank_id, branch_number, country
7473:
7474: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NUMBER(Xi_COUNTRY_NAME,Xi_BRANCH_NUMBER,Xi_BANK_ID,Xi_BRANCH_ID);
7470: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME(Xi_COUNTRY_NAME,Xi_BRANCH_NAME,Xi_BANK_ID,Xi_BRANCH_ID);
7471:
7472: -- unique combination -> bank_id, branch_number, country
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('<
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:
7496: END IF;
7497:
7498: -- unique combination -> bank_id, branch_name, country
7499:
7500: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME(Xi_COUNTRY_NAME,Xi_BRANCH_NAME,Xi_BANK_ID,Xi_BRANCH_ID);
7501:
7502: -- unique combination -> bank_id, branch_number, country
7503:
7504: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NUMBER(Xi_COUNTRY_NAME,Xi_BRANCH_NUMBER,Xi_BANK_ID,Xi_BRANCH_ID);
7500: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME(Xi_COUNTRY_NAME,Xi_BRANCH_NAME,Xi_BANK_ID,Xi_BRANCH_ID);
7501:
7502: -- unique combination -> bank_id, branch_number, country
7503:
7504: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NUMBER(Xi_COUNTRY_NAME,Xi_BRANCH_NUMBER,Xi_BANK_ID,Xi_BRANCH_ID);
7505:
7506: -- unique combination -> bank_id, branch_name_alt, country bug 2363959
7507:
7508: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NAME_ALT(Xi_COUNTRY_NAME,Xi_BRANCH_NAME_ALT,Xi_BANK_ID,Xi_BRANCH_ID);
7504: CE_VALIDATE_BANKINFO.CE_UNIQUE_BRANCH_NUMBER(Xi_COUNTRY_NAME,Xi_BRANCH_NUMBER,Xi_BANK_ID,Xi_BRANCH_ID);
7505:
7506: -- unique combination -> bank_id, branch_name_alt, country bug 2363959
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('<
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:
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:
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;
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: '<
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
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');
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');
7744: fnd_msg_pub.add;
7745: RAISE;
7746: END CE_VALIDATE_MISC_EFT_NUM;
7747:
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;
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: '<
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
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');
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');
7845: fnd_msg_pub.add;
7846: RAISE;
7847:
7848: END CE_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: /* --------------------------------------------------------------------
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
7966: END IF;
7967: IF (X_PASS_MAND_CHECK = 'P') THEN
7968: IF (COUNTRY_NAME = 'AT')
7969: THEN
7970: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_AT(X_BRANCH_NUMBER,
7971: X_PASS_MAND_CHECK,
7972: X_VALUE_OUT);
7973:
7974: ELSIF (COUNTRY_NAME = 'ES')
7972: X_VALUE_OUT);
7973:
7974: ELSIF (COUNTRY_NAME = 'ES')
7975: then
7976: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_ES(X_BRANCH_NUMBER,
7977: X_PASS_MAND_CHECK,
7978: X_VALUE_OUT);
7979:
7980: ELSIF (COUNTRY_NAME = 'FR')
7978: X_VALUE_OUT);
7979:
7980: ELSIF (COUNTRY_NAME = 'FR')
7981: then
7982: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_FR(X_BRANCH_NUMBER,
7983: X_PASS_MAND_CHECK,
7984: X_VALUE_OUT);
7985:
7986: ELSIF (COUNTRY_NAME = 'BR')
7984: X_VALUE_OUT);
7985:
7986: ELSIF (COUNTRY_NAME = 'BR')
7987: then
7988: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_BR(X_BRANCH_NUMBER,
7989: X_PASS_MAND_CHECK,
7990: X_VALUE_OUT);
7991:
7992: ELSIF (COUNTRY_NAME = 'IS')
7990: X_VALUE_OUT);
7991:
7992: ELSIF (COUNTRY_NAME = 'IS')
7993: then
7994: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IS_FORMAT(X_BRANCH_NUMBER,
7995: --X_BANK_ID,
7996: X_VALUE_OUT);
7997:
7998: ELSIF (COUNTRY_NAME = 'US')
7996: X_VALUE_OUT);
7997:
7998: ELSIF (COUNTRY_NAME = 'US')
7999: then
8000: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_US(X_BRANCH_NUMBER,
8001: X_PASS_MAND_CHECK,
8002: X_VALUE_OUT);
8003:
8004: END IF;
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');
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');
8033: fnd_msg_pub.add;
8034: RAISE;
8035:
8036: END 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
8068: Xo_VALUE_OUT := Xi_BRANCH_NUM;
8069: -- depending upon country code call the appropriate function
8070: IF Xi_COUNTRY = 'AU'
8071: THEN
8072: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_AU(
8073: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8074: Xi_BANK_ID => Xi_BANK_NUM,
8075: Xi_PASS_MAND_CHECK => 'P');
8076:
8075: Xi_PASS_MAND_CHECK => 'P');
8076:
8077: ELSIF Xi_COUNTRY = 'DE'
8078: THEN
8079: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_DE(
8080: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8081: Xi_BANK_ID => Xi_BANK_NUM);
8082:
8083: ELSIF Xi_COUNTRY = 'IS'
8081: Xi_BANK_ID => Xi_BANK_NUM);
8082:
8083: ELSIF Xi_COUNTRY = 'IS'
8084: THEN
8085: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IS(
8086: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8087: Xi_BANK_ID => Xi_BANK_NUM,
8088: Xo_VALUE_OUT => Xo_VALUE_OUT);
8089:
8088: Xo_VALUE_OUT => Xo_VALUE_OUT);
8089:
8090: ELSIF Xi_COUNTRY = 'IE'
8091: THEN
8092: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_IE(
8093: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8094: Xi_BANK_ID => Xi_BANK_NUM);
8095:
8096: ELSIF Xi_COUNTRY = 'LU'
8094: Xi_BANK_ID => Xi_BANK_NUM);
8095:
8096: ELSIF Xi_COUNTRY = 'LU'
8097: THEN
8098: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_LU(
8099: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8100: Xi_BANK_ID => Xi_BANK_NUM);
8101:
8102: ELSIF Xi_COUNTRY = 'PL'
8100: Xi_BANK_ID => Xi_BANK_NUM);
8101:
8102: ELSIF Xi_COUNTRY = 'PL'
8103: THEN
8104: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_PL(
8105: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8106: Xi_BANK_ID => Xi_BANK_NUM);
8107:
8108: ELSIF Xi_COUNTRY = 'SE'
8106: Xi_BANK_ID => Xi_BANK_NUM);
8107:
8108: ELSIF Xi_COUNTRY = 'SE'
8109: THEN
8110: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_SE(
8111: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8112: Xi_BANK_ID => Xi_BANK_NUM);
8113:
8114: ELSIF Xi_COUNTRY = 'CH'
8112: Xi_BANK_ID => Xi_BANK_NUM);
8113:
8114: ELSIF Xi_COUNTRY = 'CH'
8115: THEN
8116: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_CH(
8117: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8118: Xi_BANK_ID => Xi_BANK_NUM);
8119:
8120: ELSIF Xi_COUNTRY = 'GB'
8118: Xi_BANK_ID => Xi_BANK_NUM);
8119:
8120: ELSIF Xi_COUNTRY = 'GB'
8121: THEN
8122: CE_VALIDATE_BANKINFO.CE_VALIDATE_BRANCH_GB(
8123: Xi_BRANCH_NUMBER => Xi_BRANCH_NUM,
8124: Xi_BANK_ID => Xi_BANK_NUM);
8125: END IF;
8126:
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;
8131: cep_standard.debug('<
8133: END CE_VALIDATE_BRANCH_BANK;
8134:
8135: END CE_VALIDATE_BANKINFO;