[Home] [Help]
67: BANK_NUM varchar2(60);
68: bank_count number;
69: BEGIN
70: IF l_DEBUG in ('Y', 'C') THEN
71: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.compare_bank_and_branch_num');
72: END IF;
73:
74: select count(*) into bank_count
75: From CE_UPG_BANK_REC PartyBank
84: OPEN get_bank_num(Xi_BANK_ID);
85: FETCH get_bank_num INTO bank_num;
86:
87: IF l_DEBUG in ('Y', 'C') THEN
88: cep_standard.debug('fetch BANK_NUM : ' ||BANK_NUM);
89: END IF;
90:
91: IF (BANK_NUM is null) then
92: null;
95:
96: BANK_NUM := upper(replace(BANK_NUM,'-',''));
97:
98: IF l_DEBUG in ('Y', 'C') THEN
99: cep_standard.debug('new BANK_NUM : ' ||BANK_NUM);
100: END IF;
101:
102:
103: IF ((nvl(BANK_NUM,Xi_branch_num) <> Xi_branch_num)) then
101:
102:
103: IF ((nvl(BANK_NUM,Xi_branch_num) <> Xi_branch_num)) then
104: IF l_DEBUG in ('Y', 'C') THEN
105: cep_standard.debug('Bank number and branch number does not match' ||
106: ' CE_BANK_BRANCH_NUM_NOT_MATCHED');
107: END IF;
108: fnd_message.set_name('CE', 'CE_BANK_BRANCH_NUM_NOT_MATCHED');
109: fnd_msg_pub.add;
114:
115: close get_bank_num;
116: ELSIF (bank_count > 1) then
117: IF l_DEBUG in ('Y', 'C') THEN
118: cep_standard.debug('EXCEPTION: More than one bank match ');
119: END IF;
120: FND_MESSAGE.set_name('CE', 'CE_MANY_BANKS');
121: fnd_msg_pub.add;
122:
121: fnd_msg_pub.add;
122:
123: ELSIF (bank_count = 0) then
124: IF l_DEBUG in ('Y', 'C') THEN
125: cep_standard.debug(' CE_BANK_DOES_NOT_EXISTS');
126: END IF;
127: fnd_message.set_name ('CE', 'CE_BANK_DOES_NOT_EXISTS');
128: fnd_msg_pub.add;
129:
130:
131: END IF;
132:
133: /*IF l_DEBUG in ('Y', 'C') THEN
134: cep_standard.debug('<
136: */
137: EXCEPTION
138: WHEN OTHERS THEN
136: */
137: EXCEPTION
138: WHEN OTHERS THEN
139: IF l_DEBUG in ('Y', 'C') THEN
140: cep_standard.debug('CE_VALIDATE_BANKINFO_UPG.COMPARE_BANK_AND_BRANCH_NUM ' );
141: END IF;
142:
143: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
144: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO_UPG.compare_bank_and_branch_num');
172: procedure pass_check is
173: begin
174: IF l_DEBUG in ('Y', 'C') THEN
175: null;
176: --cep_standard.debug('COMPARE_ACCOUNT_NUM_AND_CD: ' || 'CD match');
177: END IF;
178: end pass_check;
179:
180: /**************************/
181:
182:
183: BEGIN
184: IF l_DEBUG in ('Y', 'C') THEN
185: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.COMPARE_ACCOUNT_NUM_AND_CD');
186: END IF;
187:
188: cd_position := (length(Xi_account_num) - Xi_CD_pos_from_right);
189: acct_cd := substr(Xi_account_num, cd_position, Xi_CD_length);
188: cd_position := (length(Xi_account_num) - Xi_CD_pos_from_right);
189: acct_cd := substr(Xi_account_num, cd_position, Xi_CD_length);
190:
191: IF l_DEBUG in ('Y', 'C') THEN
192: cep_standard.debug('cd_position : '||cd_position || ' acct_cd : '||acct_cd ||' Xi_CD : '||Xi_CD );
193: END IF;
194:
195:
196: IF ( acct_cd <> Xi_CD) then
194:
195:
196: IF ( acct_cd <> Xi_CD) then
197: IF l_DEBUG in ('Y', 'C') THEN
198: cep_standard.debug('CD does not match '|| 'CE_ACCT_NUM_AND_CD_NOT_MATCHED');
199: END IF;
200: fnd_message.set_name('CE', 'CE_ACCT_NUM_AND_CD_NOT_MATCHED');
201: fnd_msg_pub.add;
202: return false;
206: END IF;
207:
208: /*
209: IF l_DEBUG in ('Y', 'C') THEN
210: cep_standard.debug('<
212: */
213: END COMPARE_ACCOUNT_NUM_AND_CD;
214:
238: l_taxid VARCHAR2(30);
239:
240: BEGIN
241: IF l_DEBUG in ('Y', 'C') THEN
242: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.CE_VAL_UNIQUE_TAX_PAYER_ID');
243: END IF;
244:
245: OPEN CHECK_UNIQUE_TAXID_BK;
246: FETCH CHECK_UNIQUE_TAXID_BK INTO l_taxid;
249: RETURN('TRUE');
250: ELSE
251: RETURN('FALSE');
252: IF l_DEBUG in ('Y', 'C') THEN
253: cep_standard.debug('CE_VAL_UNIQUE_TAX_PAYER_ID false');
254: END IF;
255: END IF;
256: CLOSE CHECK_UNIQUE_TAXID_BK;
257: /*
255: END IF;
256: CLOSE CHECK_UNIQUE_TAXID_BK;
257: /*
258: IF l_DEBUG in ('Y', 'C') THEN
259: cep_standard.debug('<
261: */
262: END CE_VAL_UNIQUE_TAX_PAYER_ID;
263:
322: l_entity_name VARCHAR2(80);
323:
324: BEGIN
325: IF l_DEBUG in ('Y', 'C') THEN
326: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_check_cross_module_tax_id'||
327: ' p_taxpayer_id: ' || p_taxpayer_id );
328: END IF;
329:
330: -- Checking cross module Banks/Customers
332: OPEN CHECK_CROSS_AR;
333: FETCH CHECK_CROSS_AR INTO l_entity_name, l_taxid;
334:
335: IF l_DEBUG in ('Y', 'C') THEN
336: cep_standard.debug('l_entity_name: ' ||l_entity_name || ' l_taxid: ' ||l_taxid );
337: END IF;
338:
339: IF CHECK_CROSS_AR%NOTFOUND THEN
340: p_return_ar:='SUCCESS';
362:
363: END IF;
364:
365: IF l_DEBUG in ('Y', 'C') THEN
366: cep_standard.debug('p_return_ar: ' || p_return_ar );
367: END IF;
368:
369: CLOSE CHECK_CROSS_AR;
370:
438: p_return_bk:='NA';
439:
440: /*
441: IF l_DEBUG in ('Y', 'C') THEN
442: cep_standard.debug('<
444: */
445: END ce_check_cross_module_tax_id;
446: /* --------------------------------------------------------------------
465: l_mod_value NUMBER(2);
466: BEGIN
467:
468: IF l_DEBUG in ('Y', 'C') THEN
469: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.CE_TAX_ID_CHECK_ALGORITHM '||p_COUNTRY );
470: END IF;
471:
472: -- Check the Taxpayer ID Valdiation digit for Colombia
473:
490: (TO_NUMBER(SUBSTR(l_var1,2,1))) *67 +
491: (TO_NUMBER(SUBSTR(l_var1,1,1))) *71),11));
492:
493: IF l_DEBUG in ('Y', 'C') THEN
494: cep_standard.debug('l_mod_value: '|| l_mod_value);
495: END IF;
496:
497: IF (l_mod_value IN (1,0)) THEN
498: l_val_digit:=l_mod_value;
500: l_val_digit:=11-l_mod_value;
501: END IF;
502:
503: IF l_DEBUG in ('Y', 'C') THEN
504: cep_standard.debug('l_val_digit: '|| l_val_digit|| ' p_tax_id_cd: '|| p_tax_id_cd );
505: END IF;
506:
507: IF l_val_digit<> p_tax_id_cd THEN
508: IF l_DEBUG in ('Y', 'C') THEN
505: END IF;
506:
507: IF l_val_digit<> p_tax_id_cd THEN
508: IF l_DEBUG in ('Y', 'C') THEN
509: cep_standard.debug('failed ce_tax_id_check_algorithm' );
510: END IF;
511: RETURN('FALSE');
512:
513: ELSE
516:
517: END IF;
518: /*
519: IF l_DEBUG in ('Y', 'C') THEN
520: cep_standard.debug('<
522: */
523: END ce_tax_id_check_algorithm;
524:
550: X_PASS_MAND_CHECK VARCHAR2(1);
551:
552: BEGIN
553: IF l_DEBUG in ('Y', 'C') THEN
554: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd X_COUNTRY_NAME: ' ||X_COUNTRY_NAME);
555: END IF;
556:
557: COUNTRY_NAME := X_COUNTRY_NAME;
558:
560:
561:
562: /*
563: IF l_DEBUG in ('Y', 'C') THEN
564: cep_standard.debug('COUNTRY_NAME: '|| COUNTRY_NAME);
565: --'CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - X_VALUE_OUT: '|| X_VALUE_OUT|| '----------' ||
566: --'CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
567: END IF;
568: */
675: p_count => x_msg_count,
676: p_data => x_msg_data);
677: */
678: IF l_DEBUG in ('Y', 'C') THEN
679: --cep_standard.debug('CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - P_COUNT: '|| x_msg_count|| '----------' ||
680: --'CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - P_DATA: '|| x_msg_data|| '----------' ||
681: --'CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - X_VALUE_OUT: '|| X_VALUE_OUT|| '----------' ||
682: cep_standard.debug('<
678: IF l_DEBUG in ('Y', 'C') THEN
679: --cep_standard.debug('CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - P_COUNT: '|| x_msg_count|| '----------' ||
680: --'CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - P_DATA: '|| x_msg_data|| '----------' ||
681: --'CE_VALIDATE_BANKINFO_UPG.ce_validate_cd - X_VALUE_OUT: '|| X_VALUE_OUT|| '----------' ||
682: cep_standard.debug('<
684: EXCEPTION
685: WHEN OTHERS THEN
686: IF l_DEBUG in ('Y', 'C') THEN
683: END IF;
684: EXCEPTION
685: WHEN OTHERS THEN
686: IF l_DEBUG in ('Y', 'C') THEN
687: cep_standard.debug('CE_VALIDATE_BANKINFO_UPG.ce_validate_cd ' ||X_COUNTRY_NAME );
688: END IF;
689:
690: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
691: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO_UPG.cd_validate_cd');
741:
742:
743: BEGIN
744: IF l_DEBUG in ('Y', 'C') THEN
745: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch');
746: END IF;
747:
748:
749: COUNTRY_NAME := X_COUNTRY_NAME;
755: FND_MSG_PUB.initialize;
756: END IF;
757:
758: IF l_DEBUG in ('Y', 'C') THEN
759: cep_standard.debug('COUNTRY_NAME: '|| COUNTRY_NAME
760: || ' X_VALUE_OUT: '|| X_VALUE_OUT || ' P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST );
761: END IF;
762:
763:
764: /* X_COUNTRY_NAME cannot be null, not able to make this required on form, so must do validation here */
765:
766: IF X_COUNTRY_NAME is null then
767: IF l_DEBUG in ('Y', 'C') THEN
768: cep_standard.debug('CE_VALIDATE_BRANCH: ' || 'CE_COUNTRY_NAME_REQUIRED');
769: END IF;
770: fnd_message.set_name ('CE', 'CE_COUNTRY_NAME_REQUIRED');
771: fnd_msg_pub.add;
772: END IF;
781: END IF;
782:
783: IF l_DEBUG in ('Y', 'C') THEN
784: IF (X_PASS_MAND_CHECK <> 'P') THEN
785: cep_standard.debug('X_PASS_MAND_CHECK: '|| X_PASS_MAND_CHECK);
786: END IF;
787: END IF;
788:
789: -- VALIDATION TYPE: KEY, ALL
903: /** UNIQUE VALIDATION CHECK for branch **/
904: -- NO UNIQUE VALIDATION CHECK
905: /*
906: IF l_DEBUG in ('Y', 'C') THEN
907: cep_standard.debug('UNIQUE VALIDATION CHECK for branch' );
908: END IF;
909:
910: IF (COUNTRY_NAME = 'DE') THEN
911: IF l_DEBUG in ('Y', 'C') THEN
908: END IF;
909:
910: IF (COUNTRY_NAME = 'DE') THEN
911: IF l_DEBUG in ('Y', 'C') THEN
912: cep_standard.debug('call CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH_DE' );
913: END IF;
914:
915: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH_DE(X_BRANCH_NUMBER,
916: X_BRANCH_NAME,
918: X_BRANCH_ID);
919:
920: ELSIF (COUNTRY_NAME = 'US') THEN
921: IF l_DEBUG in ('Y', 'C') THEN
922: cep_standard.debug('CE_VALIDATE_BRANCH: ' || 'call CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH_US' );
923: END IF;
924:
925: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH_US(X_BRANCH_NUMBER,
926: X_BRANCH_NAME,
928: X_BRANCH_ID);
929:
930: ELSIF (COUNTRY_NAME = 'JP') THEN
931: IF l_DEBUG in ('Y', 'C') THEN
932: cep_standard.debug('call CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH_JP' );
933: END IF;
934:
935: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH_JP(X_COUNTRY_NAME,
936: X_BRANCH_NUMBER,
939: X_BANK_ID,
940: X_BRANCH_ID);
941: ELSE
942: IF l_DEBUG in ('Y', 'C') THEN
943: cep_standard.debug('call CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH' );
944: END IF;
945: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BRANCH(X_COUNTRY_NAME,
946: X_BRANCH_NUMBER,
947: X_BRANCH_NAME,
953:
954: */
955: /** end country unique check for branch **/
956:
957: --cep_standard.debug('call FND_MSG_PUB.Count_And_Get');
958: --cep_standard.debug('x_msg_count= '|| x_msg_count);
959: --cep_standard.debug('x_msg_data= '|| x_msg_data);
960:
961: FND_MSG_PUB.Count_And_Get(
954: */
955: /** end country unique check for branch **/
956:
957: --cep_standard.debug('call FND_MSG_PUB.Count_And_Get');
958: --cep_standard.debug('x_msg_count= '|| x_msg_count);
959: --cep_standard.debug('x_msg_data= '|| x_msg_data);
960:
961: FND_MSG_PUB.Count_And_Get(
962: p_encoded => FND_API.G_FALSE,
955: /** end country unique check for branch **/
956:
957: --cep_standard.debug('call FND_MSG_PUB.Count_And_Get');
958: --cep_standard.debug('x_msg_count= '|| x_msg_count);
959: --cep_standard.debug('x_msg_data= '|| x_msg_data);
960:
961: FND_MSG_PUB.Count_And_Get(
962: p_encoded => FND_API.G_FALSE,
963: p_count => x_msg_count,
962: p_encoded => FND_API.G_FALSE,
963: p_count => x_msg_count,
964: p_data => x_msg_data);
965:
966: --cep_standard.debug('call FND_MSG_PUB.Count_Msg');
967:
968: FOR j in 1..FND_MSG_PUB.Count_Msg LOOP
969: FND_MSG_PUB.Get(
970: p_msg_index=>j,
974: v_error_description := l_error_description || ':' || x_msg_data;
975:
976: FND_MESSAGE.PARSE_ENCODED(x_msg_data,l_app_short_name,l_message_name);
977:
978: --cep_standard.debug('l_message_name: '|| l_message_name );
979: l_message_name_all_tmp:=(l_message_name_all_tmp ||','|| l_message_name);
980:
981: END LOOP;
982: x_message_name_all:=substr(l_message_name_all_tmp,2);
979: l_message_name_all_tmp:=(l_message_name_all_tmp ||','|| l_message_name);
980:
981: END LOOP;
982: x_message_name_all:=substr(l_message_name_all_tmp,2);
983: cep_standard.debug('x_message_name_all: '|| x_message_name_all );
984:
985:
986: IF l_DEBUG in ('Y', 'C') THEN
987: cep_standard.debug('<
983: cep_standard.debug('x_message_name_all: '|| x_message_name_all );
984:
985:
986: IF l_DEBUG in ('Y', 'C') THEN
987: cep_standard.debug('<
989: --cep_standard.debug('P_DATA: '|| x_msg_data );
990: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_branch - X_VALUE_OUT: '|| X_VALUE_OUT);
991: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || '<
985:
986: IF l_DEBUG in ('Y', 'C') THEN
987: cep_standard.debug('<
989: --cep_standard.debug('P_DATA: '|| x_msg_data );
990: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_branch - X_VALUE_OUT: '|| X_VALUE_OUT);
991: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || '<
993: EXCEPTION
986: IF l_DEBUG in ('Y', 'C') THEN
987: cep_standard.debug('<
989: --cep_standard.debug('P_DATA: '|| x_msg_data );
990: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_branch - X_VALUE_OUT: '|| X_VALUE_OUT);
991: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || '<
993: EXCEPTION
994: WHEN OTHERS THEN
987: cep_standard.debug('<
989: --cep_standard.debug('P_DATA: '|| x_msg_data );
990: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_branch - X_VALUE_OUT: '|| X_VALUE_OUT);
991: --cep_standard.debug('CE_VALIDATE_BRANCH: ' || '<
993: EXCEPTION
994: WHEN OTHERS THEN
995: IF l_DEBUG in ('Y', 'C') THEN
992: END IF;
993: EXCEPTION
994: WHEN OTHERS THEN
995: IF l_DEBUG in ('Y', 'C') THEN
996: cep_standard.debug('CE_VALIDATE_BRANCH: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_branch ' ||X_COUNTRY_NAME );
997: END IF;
998:
999: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
1000: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO_UPG.cd_validate_branch');
1053:
1054:
1055: BEGIN
1056: IF l_DEBUG in ('Y', 'C') THEN
1057: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account');
1058: END IF;
1059:
1060: COUNTRY_NAME := X_COUNTRY_NAME;
1061: X_VALUE_OUT := X_ACCOUNT_NUMBER;
1066: FND_MSG_PUB.initialize;
1067: END IF;
1068:
1069: IF l_DEBUG in ('Y', 'C') THEN
1070: cep_standard.debug('COUNTRY_NAME: '|| COUNTRY_NAME
1071: ||' X_VALUE_OUT: '|| X_VALUE_OUT || ' P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
1072: END IF;
1073:
1074:
1075: /* X_COUNTRY_NAME cannot be null, not able to make this required on form, so must do validation here */
1076:
1077: IF X_COUNTRY_NAME is null then
1078: IF l_DEBUG in ('Y', 'C') THEN
1079: cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || 'CE_COUNTRY_NAME_REQUIRED');
1080: END IF;
1081: fnd_message.set_name ('CE', 'CE_COUNTRY_NAME_REQUIRED');
1082: fnd_msg_pub.add;
1083: END IF;
1181:
1182: ELSIF (COUNTRY_NAME = 'IT')
1183: then
1184: IF l_DEBUG in ('Y', 'C') THEN
1185: cep_standard.debug('X_ACCOUNT_NUMBER : '|| X_ACCOUNT_NUMBER||
1186: ' X_VALUE_OUT : '|| X_VALUE_OUT);
1187: END IF;
1188:
1189: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_ACCOUNT_IT(X_ACCOUNT_NUMBER,
1272: -- NO UNIQUE VALIDATION CHECK
1273:
1274: /*
1275: IF l_DEBUG in ('Y', 'C') THEN
1276: cep_standard.debug('UNIQUE_VALIDATION CHECK for account');
1277: END IF;
1278:
1279: IF (COUNTRY_NAME = 'JP') THEN
1280: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_ACCOUNT_JP(X_ACCOUNT_NUMBER,
1292: X_BRANCH_ID,
1293: X_ACCOUNT_ID);
1294: ELSE
1295: IF l_DEBUG in ('Y', 'C') THEN
1296: cep_standard.debug('call CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_ACCOUNT' );
1297: END IF;
1298: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_ACCOUNT(
1299: X_ACCOUNT_NUMBER,
1300: X_CURRENCY_CODE,
1319: v_error_description := l_error_description || ':' || x_msg_data;
1320:
1321: FND_MESSAGE.PARSE_ENCODED(x_msg_data,l_app_short_name,l_message_name);
1322:
1323: --cep_standard.debug('l_message_name: '|| l_message_name );
1324: l_message_name_all_tmp:=(l_message_name_all_tmp ||','|| l_message_name);
1325:
1326: END LOOP;
1327: x_message_name_all:=substr(l_message_name_all_tmp,2);
1324: l_message_name_all_tmp:=(l_message_name_all_tmp ||','|| l_message_name);
1325:
1326: END LOOP;
1327: x_message_name_all:=substr(l_message_name_all_tmp,2);
1328: cep_standard.debug('x_message_name_all: '|| x_message_name_all );
1329:
1330:
1331: IF l_DEBUG in ('Y', 'C') THEN
1332: cep_standard.debug('<
1328: cep_standard.debug('x_message_name_all: '|| x_message_name_all );
1329:
1330:
1331: IF l_DEBUG in ('Y', 'C') THEN
1332: cep_standard.debug('<
1334: --cep_standard.debug('P_DATA: '|| x_msg_data );
1335: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_account - X_VALUE_OUT: '|| X_VALUE_OUT);
1336: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || '<
1330:
1331: IF l_DEBUG in ('Y', 'C') THEN
1332: cep_standard.debug('<
1334: --cep_standard.debug('P_DATA: '|| x_msg_data );
1335: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_account - X_VALUE_OUT: '|| X_VALUE_OUT);
1336: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || '<
1338: EXCEPTION
1331: IF l_DEBUG in ('Y', 'C') THEN
1332: cep_standard.debug('<
1334: --cep_standard.debug('P_DATA: '|| x_msg_data );
1335: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_account - X_VALUE_OUT: '|| X_VALUE_OUT);
1336: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || '<
1338: EXCEPTION
1339: WHEN OTHERS THEN
1332: cep_standard.debug('<
1334: --cep_standard.debug('P_DATA: '|| x_msg_data );
1335: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_account - X_VALUE_OUT: '|| X_VALUE_OUT);
1336: --cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || '<
1338: EXCEPTION
1339: WHEN OTHERS THEN
1340:
1338: EXCEPTION
1339: WHEN OTHERS THEN
1340:
1341: IF l_DEBUG in ('Y', 'C') THEN
1342: cep_standard.debug('CE_VALIDATE_ACCOUNT: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_account ' ||X_COUNTRY_NAME );
1343: END IF;
1344: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
1345: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO_UPG.cd_validate_account');
1346: fnd_msg_pub.add;
1389: l_app_short_name varchar2(20);
1390:
1391: BEGIN
1392: IF l_DEBUG in ('Y', 'C') THEN
1393: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank');
1394: END IF;
1395:
1396: COUNTRY_NAME := X_COUNTRY_NAME;
1397: X_VALUE_OUT := X_BANK_NUMBER;
1401: FND_MSG_PUB.initialize;
1402: END IF;
1403:
1404: IF l_DEBUG in ('Y', 'C') THEN
1405: cep_standard.debug('COUNTRY_NAME: '|| COUNTRY_NAME||
1406: ' X_VALUE_OUT: '|| X_VALUE_OUT || ' P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
1407: END IF;
1408:
1409: /* X_COUNTRY_NAME cannot be null, not able to make this required on form, so must do validation here */
1409: /* X_COUNTRY_NAME cannot be null, not able to make this required on form, so must do validation here */
1410:
1411: IF X_COUNTRY_NAME is null then
1412: IF l_DEBUG in ('Y', 'C') THEN
1413: cep_standard.debug('CE_VALIDATE_BANK: ' || 'CE_COUNTRY_NAME_REQUIRED');
1414: END IF;
1415: fnd_message.set_name ('CE', 'CE_COUNTRY_NAME_REQUIRED');
1416: fnd_msg_pub.add;
1417: END IF;
1537: /** UNIQUE VALIDATION CHECK for bank **/
1538: -- NO UNIQUE VALIDATION CHECK
1539: /*
1540: IF l_DEBUG in ('Y', 'C') THEN
1541: cep_standard.debug('UNIQUE VALIDATION CHECK for bank' );
1542: END IF;
1543:
1544: IF (COUNTRY_NAME = 'JP') THEN
1545: IF l_DEBUG in ('Y', 'C') THEN
1542: END IF;
1543:
1544: IF (COUNTRY_NAME = 'JP') THEN
1545: IF l_DEBUG in ('Y', 'C') THEN
1546: cep_standard.debug('call CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BANK_JP' );
1547: END IF;
1548:
1549: CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_UNIQUE_BANK_JP(X_COUNTRY_NAME,
1550: X_BANK_NUMBER ,
1571: v_error_description := l_error_description || ':' || x_msg_data;
1572:
1573: FND_MESSAGE.PARSE_ENCODED(x_msg_data,l_app_short_name,l_message_name);
1574:
1575: --cep_standard.debug('l_message_name: '|| l_message_name );
1576: l_message_name_all_tmp:=(l_message_name_all_tmp ||','|| l_message_name);
1577:
1578: END LOOP;
1579: x_message_name_all:=substr(l_message_name_all_tmp,2);
1576: l_message_name_all_tmp:=(l_message_name_all_tmp ||','|| l_message_name);
1577:
1578: END LOOP;
1579: x_message_name_all:=substr(l_message_name_all_tmp,2);
1580: cep_standard.debug('x_message_name_all: '|| x_message_name_all );
1581:
1582: IF l_DEBUG in ('Y', 'C') THEN
1583: cep_standard.debug('<
1579: x_message_name_all:=substr(l_message_name_all_tmp,2);
1580: cep_standard.debug('x_message_name_all: '|| x_message_name_all );
1581:
1582: IF l_DEBUG in ('Y', 'C') THEN
1583: cep_standard.debug('<
1585: --cep_standard.debug('P_DATA: '|| x_msg_data );
1586: --cep_standard.debug('CE_VALIDATE_BANK: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_bank - X_VALUE_OUT: '|| X_VALUE_OUT );
1587: --cep_standard.debug('CE_VALIDATE_BANK: ' || '<
1581:
1582: IF l_DEBUG in ('Y', 'C') THEN
1583: cep_standard.debug('<
1585: --cep_standard.debug('P_DATA: '|| x_msg_data );
1586: --cep_standard.debug('CE_VALIDATE_BANK: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_bank - X_VALUE_OUT: '|| X_VALUE_OUT );
1587: --cep_standard.debug('CE_VALIDATE_BANK: ' || '<
1589: EXCEPTION
1582: IF l_DEBUG in ('Y', 'C') THEN
1583: cep_standard.debug('<
1585: --cep_standard.debug('P_DATA: '|| x_msg_data );
1586: --cep_standard.debug('CE_VALIDATE_BANK: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_bank - X_VALUE_OUT: '|| X_VALUE_OUT );
1587: --cep_standard.debug('CE_VALIDATE_BANK: ' || '<
1589: EXCEPTION
1590: WHEN OTHERS THEN
1583: cep_standard.debug('<
1585: --cep_standard.debug('P_DATA: '|| x_msg_data );
1586: --cep_standard.debug('CE_VALIDATE_BANK: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_bank - X_VALUE_OUT: '|| X_VALUE_OUT );
1587: --cep_standard.debug('CE_VALIDATE_BANK: ' || '<
1589: EXCEPTION
1590: WHEN OTHERS THEN
1591: IF l_DEBUG in ('Y', 'C') THEN
1588: END IF;
1589: EXCEPTION
1590: WHEN OTHERS THEN
1591: IF l_DEBUG in ('Y', 'C') THEN
1592: cep_standard.debug('CE_VALIDATE_BANK: ' || 'CE_VALIDATE_BANKINFO_UPG.ce_validate_bank ' ||X_COUNTRY_NAME );
1593: END IF;
1594:
1595: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
1596: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO_UPG.cd_validate_bank');
1641: begin
1642: fnd_message.set_name ('CE', 'CE_ENTER_CHECK_DIGIT');
1643: fnd_msg_pub.add;
1644: IF l_DEBUG in ('Y', 'C') THEN
1645: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_ENTER_CHECK_DIGIT');
1646: END IF;
1647: end fail_mandatory;
1648:
1649: procedure fail_check is
1650: begin
1651: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
1652: fnd_msg_pub.add;
1653: IF l_DEBUG in ('Y', 'C') THEN
1654: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_INVALID_CHECK_DIGIT');
1655: END IF;
1656: end fail_check;
1657:
1658: procedure pass_check is
1658: procedure pass_check is
1659: begin
1660: IF l_DEBUG in ('Y', 'C') THEN
1661: null;
1662: --cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
1663: END IF;
1664: end pass_check;
1665: /****************/
1666: /* MAIN SECTION */
1666: /* MAIN SECTION */
1667: /****************/
1668: BEGIN
1669: IF l_DEBUG in ('Y', 'C') THEN
1670: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd_pt');
1671: END IF;
1672:
1673: CD_VALUE := upper(replace(Xi_CD,' ',''));
1674: bk_value := upper(replace(Xi_X_BANK_NUMBER,' ',''));
1719: +(to_number(substr(CONCED_NUMBER,1,1)) * 73)),97);
1720:
1721:
1722: IF l_DEBUG in ('Y', 'C') THEN
1723: cep_standard.debug('cal_cd: ' || cal_cd);
1724: END IF;
1725:
1726: IF CD_VALUE = cal_cd
1727: then
1742: END IF; /* end of mandatory check */
1743:
1744: /*
1745: IF l_DEBUG in ('Y', 'C') THEN
1746: cep_standard.debug('<
1748: */
1749: END CE_VALIDATE_CD_PT;
1750:
1780: fnd_message.set_name ('CE', 'CE_ENTER_CHECK_DIGIT');
1781: fnd_msg_pub.add;
1782: fnd_msg_pub.add_detail(fnd_msg_pub.g_warning_msg);
1783: IF l_DEBUG in ('Y', 'C') THEN
1784: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_ENTER_CHECK_DIGIT');
1785: END IF;
1786:
1787: end fail_mandatory;
1788:
1791: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
1792: fnd_msg_pub.add;
1793: fnd_msg_pub.add_detail(fnd_msg_pub.g_warning_msg);
1794: IF l_DEBUG in ('Y', 'C') THEN
1795: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_INVALID_CHECK_DIGIT');
1796: END IF;
1797:
1798: end fail_check;
1799:
1800: procedure pass_check is
1801: begin
1802: IF l_DEBUG in ('Y', 'C') THEN
1803: null;
1804: --cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
1805: END IF;
1806:
1807: end pass_check;
1808: /****************/
1809: /* MAIN SECTION */
1810: /****************/
1811: BEGIN
1812: IF l_DEBUG in ('Y', 'C') THEN
1813: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd_es');
1814: END IF;
1815:
1816: CD_VALUE := upper(Xi_CD);
1817: bk_value := upper(Xi_X_BANK_NUMBER);
1888:
1889: END IF; /* end of mandatory check */
1890: /*
1891: IF l_DEBUG in ('Y', 'C') THEN
1892: cep_standard.debug('<
1894: */
1895: END CE_VALIDATE_CD_ES;
1896:
1934: procedure pass_check is
1935: begin
1936: IF l_DEBUG in ('Y', 'C') THEN
1937: null;
1938: -- cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
1939: END IF;
1940:
1941: end pass_check;
1942:
1945: /* MAIN SECTION */
1946: /****************/
1947: BEGIN
1948: IF l_DEBUG in ('Y', 'C') THEN
1949: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd_fr');
1950: END IF;
1951:
1952: CD_VALUE := upper(Xi_CD);
1953: bk_value := upper(Xi_X_BANK_NUMBER);
1996: END IF; /* end of mandatory check */
1997:
1998: /*
1999: IF l_DEBUG in ('Y', 'C') THEN
2000: cep_standard.debug('<
2002: */
2003: END CE_VALIDATE_CD_FR;
2004:
2025: begin
2026: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
2027: fnd_msg_pub.add;
2028: IF l_DEBUG in ('Y', 'C') THEN
2029: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_INVALID_CHECK_DIGIT');
2030: END IF;
2031: end fail_check;
2032:
2033: procedure pass_check is
2033: procedure pass_check is
2034: begin
2035: IF l_DEBUG in ('Y', 'C') THEN
2036: null;
2037: -- cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
2038: END IF;
2039: end pass_check;
2040:
2041:
2043: /* MAIN SECTION */
2044: /****************/
2045: BEGIN
2046: IF l_DEBUG in ('Y', 'C') THEN
2047: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_CD_DE');
2048: END IF;
2049:
2050: CD_VALUE := upper(Xi_CD);
2051:
2049:
2050: CD_VALUE := upper(Xi_CD);
2051:
2052: IF l_DEBUG in ('Y', 'C') THEN
2053: cep_standard.debug('cd_value: '|| cd_value);
2054: END IF;
2055:
2056: IF (CD_VALUE is not null) THEN
2057: IF length(CD_VALUE) = 1 then
2072: END IF;
2073:
2074: /*
2075: IF l_DEBUG in ('Y', 'C') THEN
2076: cep_standard.debug('<
2078: */
2079: END CE_VALIDATE_CD_DE;
2080:
2102: begin
2103: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
2104: fnd_msg_pub.add;
2105: IF l_DEBUG in ('Y', 'C') THEN
2106: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_INVALID_CHECK_DIGIT');
2107: END IF;
2108: end fail_check;
2109:
2110: procedure pass_check is
2110: procedure pass_check is
2111: begin
2112: IF l_DEBUG in ('Y', 'C') THEN
2113: null;
2114: -- cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
2115: END IF;
2116: end pass_check;
2117:
2118:
2162: begin
2163: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
2164: fnd_msg_pub.add;
2165: IF l_DEBUG in ('Y', 'C') THEN
2166: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_INVALID_CHECK_DIGIT');
2167: END IF;
2168: end fail_check;
2169:
2170:
2171: procedure pass_check is
2172: begin
2173: IF l_DEBUG in ('Y', 'C') THEN
2174: null;
2175: -- cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
2176: END IF;
2177: end pass_check;
2178: /****************/
2179: /* MAIN SECTION */
2179: /* MAIN SECTION */
2180: /****************/
2181: BEGIN
2182: IF l_DEBUG in ('Y', 'C') THEN
2183: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd_is');
2184: END IF;
2185:
2186: CD_VALUE := upper(replace(Xi_CD,' ',''));
2187: ac_value := upper(replace(Xi_X_ACCOUNT_NUMBER,' ',''));
2190:
2191: ac_cd_value := substr(ac_value,17,1);
2192:
2193: IF l_DEBUG in ('Y', 'C') THEN
2194: cep_standard.debug('ac_cd_value : ' || ac_cd_value|| ' cal_cd : ' || cal_cd);
2195: END IF;
2196:
2197: IF (CD_VALUE is not null) THEN
2198: IF length(CD_VALUE) = 1 then
2199: numeric_result_cd := ce_check_numeric(CD_VALUE,1,length(CD_VALUE));
2200:
2201: IF numeric_result_cd = '0' then
2202: IF l_DEBUG in ('Y', 'C') THEN
2203: cep_standard.debug('CE_VALIDATE_CD: ' || 'cd is numeric');
2204: END IF;
2205: if (CE_VALIDATE_BANKINFO_UPG.COMPARE_ACCOUNT_NUM_AND_CD(ac_value, CD_VALUE, 1,1)) then
2206: pass_check;
2207: IF l_DEBUG in ('Y', 'C') THEN
2204: END IF;
2205: if (CE_VALIDATE_BANKINFO_UPG.COMPARE_ACCOUNT_NUM_AND_CD(ac_value, CD_VALUE, 1,1)) then
2206: pass_check;
2207: IF l_DEBUG in ('Y', 'C') THEN
2208: cep_standard.debug('cd_value = cal_cd');
2209: END IF;
2210: else
2211: fail_check;
2212:
2212:
2213: end if;
2214: ELSE
2215: IF l_DEBUG in ('Y', 'C') THEN
2216: cep_standard.debug('failed numeric');
2217: END IF;
2218: fail_check;
2219: END IF; --numeric check
2220:
2219: END IF; --numeric check
2220:
2221: ELSE
2222: IF l_DEBUG in ('Y', 'C') THEN
2223: cep_standard.debug('failed length');
2224: END IF;
2225: fail_check;
2226: END IF; /* end of length check */
2227:
2230: END IF;
2231:
2232: /*
2233: IF l_DEBUG in ('Y', 'C') THEN
2234: cep_standard.debug('<
2236: */
2237: END CE_VALIDATE_CD_IS;
2238:
2266:
2267: procedure fail_mandatory is
2268: begin
2269: IF l_DEBUG in ('Y', 'C') THEN
2270: cep_standard.debug('CD: procedure fail_mandatory CE_ENTER_CHECK_DIGIT ');
2271: END IF;
2272: fnd_message.set_name ('CE', 'CE_ENTER_CHECK_DIGIT');
2273: fnd_msg_pub.add;
2274:
2276:
2277: procedure fail_check is
2278: begin
2279: IF l_DEBUG in ('Y', 'C') THEN
2280: cep_standard.debug('CD: procedure fail_check CE_INVALID_CHECK_DIGIT');
2281: END IF;
2282: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
2283: fnd_msg_pub.add;
2284: end fail_check;
2287: procedure pass_check is
2288: begin
2289: IF l_DEBUG in ('Y', 'C') THEN
2290: null;
2291: -- cep_standard.debug('CE_VALIDATE_CD: ' || 'procedure pass_check ');
2292: END IF;
2293: end pass_check;
2294:
2295: function get_odd_value(odd_value_in varchar2) RETURN NUMBER
2484: /****************/
2485: BEGIN
2486:
2487: IF l_DEBUG in ('Y', 'C') THEN
2488: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd_it'||
2489: ' Xi_X_ACCOUNT_NUMBER: '||Xi_X_ACCOUNT_NUMBER);
2490: END IF;
2491:
2492: CD_VALUE := upper(replace(Xi_CD,' ',''));
2496:
2497: ac_value := upper(ac_value);
2498:
2499: IF l_DEBUG in ('Y', 'C') THEN
2500: cep_standard.debug('cd_value: '||cd_value|| ' ac_value: '||ac_value);
2501: END IF;
2502:
2503: IF Xi_PASS_MAND_CHECK = 'F'
2504: then
2520:
2521: CONCED_NUMBER := bk_value||br_value||ac_value;
2522:
2523: IF l_DEBUG in ('Y', 'C') THEN
2524: cep_standard.debug('CONCED_NUMBER: '||CONCED_NUMBER);
2525: END IF;
2526:
2527: calc_value1 := (get_odd_value(substr(conced_number,1,1)) +
2528: get_even_value(substr(conced_number,2,1)) +
2548: get_even_value(substr(conced_number,22,1))) ;
2549:
2550:
2551: IF l_DEBUG in ('Y', 'C') THEN
2552: cep_standard.debug('Bank Digit 1: '||get_odd_value(substr(conced_number,1,1))||
2553: get_even_value(substr(conced_number,2,1))||
2554: get_odd_value(substr(conced_number,3,1))||
2555: get_even_value(substr(conced_number,4,1))||
2556: get_odd_value(substr(conced_number,5,1))||
2576:
2577: calc_value2 := nvl(mod(calc_value1,26),0);
2578:
2579: IF l_DEBUG in ('Y', 'C') THEN
2580: cep_standard.debug('calc_value2: '||calc_value2);
2581: END IF;
2582:
2583:
2584: calc_value := get_result_cd(calc_value2);
2583:
2584: calc_value := get_result_cd(calc_value2);
2585:
2586: IF l_DEBUG in ('Y', 'C') THEN
2587: cep_standard.debug('calc_value: '||calc_value);
2588: END IF;
2589:
2590:
2591: IF calc_value = CD_VALUE
2594: pass_check;
2595: ELSE
2596: fail_check;
2597: IF l_DEBUG in ('Y', 'C') THEN
2598: cep_standard.debug('fail_check cd_value');
2599: END IF;
2600: END IF;
2601:
2602: ELSE
2601:
2602: ELSE
2603: fail_check;
2604: IF l_DEBUG in ('Y', 'C') THEN
2605: cep_standard.debug('fail_check numeric ');
2606: END IF;
2607:
2608: END IF; /* end of numeric check */
2609:
2609:
2610: ELSE
2611: fail_check;
2612: IF l_DEBUG in ('Y', 'C') THEN
2613: cep_standard.debug('fail_check cd length ');
2614: END IF;
2615:
2616: END IF; /* end of length check */
2617: END IF;
2617: END IF;
2618:
2619: /*
2620: IF l_DEBUG in ('Y', 'C') THEN
2621: cep_standard.debug('<
2623: */
2624: END CE_VALIDATE_CD_IT;
2625:
2646: begin
2647: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
2648: fnd_msg_pub.add;
2649: IF l_DEBUG in ('Y', 'C') THEN
2650: cep_standard.debug('CE_VALIDATE_CD_LU: ' || 'CE_INVALID_CHECK_DIGIT');
2651: END IF;
2652: end fail_check;
2653:
2654: procedure pass_check is
2654: procedure pass_check is
2655: begin
2656: IF l_DEBUG in ('Y', 'C') THEN
2657: null;
2658: -- cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
2659: END IF;
2660: end pass_check;
2661:
2662:
2664: /* MAIN SECTION */
2665: /****************/
2666: BEGIN
2667: IF l_DEBUG in ('Y', 'C') THEN
2668: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd_lu');
2669: END IF;
2670:
2671: ACCOUNT_VALUE := lpad(Xi_X_ACCOUNT_NUMBER,12,0);
2672:
2705: END IF;
2706:
2707: /*
2708: IF l_DEBUG in ('Y', 'C') THEN
2709: cep_standard.debug('<
2711: */
2712: END CE_VALIDATE_CD_LU;
2713:
2730: begin
2731: fnd_message.set_name ('CE', 'CE_INVALID_CHECK_DIGIT');
2732: fnd_msg_pub.add;
2733: IF l_DEBUG in ('Y', 'C') THEN
2734: cep_standard.debug('CE_VALIDATE_CD: ' || 'CE_INVALID_CHECK_DIGIT');
2735: END IF;
2736: end fail_check;
2737:
2738: procedure pass_check is
2738: procedure pass_check is
2739: begin
2740: IF l_DEBUG in ('Y', 'C') THEN
2741: null;
2742: -- cep_standard.debug('CE_VALIDATE_CD: ' || 'pass_check');
2743: END IF;
2744: end pass_check;
2745:
2746:
2748: /* MAIN SECTION */
2749: /****************/
2750: BEGIN
2751: IF l_DEBUG in ('Y', 'C') THEN
2752: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_cd_se');
2753: END IF;
2754:
2755: CD_VALUE := upper(Xi_CD);
2756: account_value := upper(replace(Xi_X_ACCOUNT_NUMBER ,' ',''));
2774: pass_check;
2775: END IF;
2776: /*
2777: IF l_DEBUG in ('Y', 'C') THEN
2778: cep_standard.debug('<
2780: */
2781: END CE_VALIDATE_CD_SE;
2782:
2815: begin
2816: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
2817: fnd_msg_pub.add;
2818: IF l_DEBUG in ('Y', 'C') THEN
2819: cep_standard.debug('CE_VALIDATE_BRANCH_AT: ' || 'CE_ENTER_BRANCH_NUM');
2820: END IF;
2821: end fail_mandatory;
2822:
2823: procedure fail_check is
2824: begin
2825: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
2826: fnd_msg_pub.add;
2827: IF l_DEBUG in ('Y', 'C') THEN
2828: cep_standard.debug('CE_VALIDATE_BRANCH_AT: ' || 'CE_INVALID_BRANCH_NUM');
2829: END IF;
2830: end fail_check;
2831:
2832: procedure pass_check is
2832: procedure pass_check is
2833: begin
2834: IF l_DEBUG in ('Y', 'C') THEN
2835: null;
2836: -- cep_standard.debug('CE_VALIDATE_BRANCH_AT: ' || 'pass_check');
2837: END IF;
2838: end pass_check;
2839:
2840: /****************/
2841: /* MAIN SECTION */
2842: /****************/
2843: BEGIN
2844: IF l_DEBUG in ('Y', 'C') THEN
2845: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_at');
2846: END IF;
2847:
2848: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
2849: Xo_VALUE_OUT := BRANCH_VALUE;
2877:
2878: END IF; /* end of mandatory check */
2879: /*
2880: IF l_DEBUG in ('Y', 'C') THEN
2881: cep_standard.debug('<
2883: */
2884: END CE_VALIDATE_BRANCH_AT;
2885:
2899: begin
2900: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
2901: fnd_msg_pub.add;
2902: IF l_DEBUG in ('Y', 'C') THEN
2903: cep_standard.debug('CE_VALIDATE_BRANCH_PT: ' || 'CE_INVALID_BRANCH_NUM');
2904: END IF;
2905: end fail_mandatory;
2906:
2907: procedure fail_check is
2908: begin
2909: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
2910: fnd_msg_pub.add;
2911: IF l_DEBUG in ('Y', 'C') THEN
2912: cep_standard.debug('CE_VALIDATE_BRANCH_PT: ' || 'CE_INVALID_BRANCH_NUM');
2913: END IF;
2914: end fail_check;
2915:
2916: procedure pass_check is
2916: procedure pass_check is
2917: begin
2918: IF l_DEBUG in ('Y', 'C') THEN
2919: null;
2920: -- cep_standard.debug('CE_VALIDATE_BRANCH_PT: ' || 'pass_check');
2921: END IF;
2922: end pass_check;
2923:
2924: /****************/
2925: /* MAIN SECTION */
2926: /****************/
2927: BEGIN
2928: IF l_DEBUG in ('Y', 'C') THEN
2929: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_pt');
2930: END IF;
2931:
2932: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
2933:
2958: END IF; /* end of length check */
2959: END IF; /* end of mandatory check */
2960: /*
2961: IF l_DEBUG in ('Y', 'C') THEN
2962: cep_standard.debug('<
2964: */
2965: END CE_VALIDATE_BRANCH_PT;
2966:
2994: procedure pass_check is
2995: begin
2996: IF l_DEBUG in ('Y', 'C') THEN
2997: null;
2998: -- cep_standard.debug('CE_VALIDATE_BRANCH_FR: ' || 'pass_check');
2999: END IF;
3000:
3001: end pass_check;
3002:
3004: /* MAIN SECTION */
3005: /****************/
3006: BEGIN
3007: IF l_DEBUG in ('Y', 'C') THEN
3008: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_fr');
3009: END IF;
3010:
3011: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
3012: Xo_VALUE_OUT := BRANCH_VALUE;
3041: END IF; /* end of length check */
3042: END IF; /* end of mandatory check */
3043: /*
3044: IF l_DEBUG in ('Y', 'C') THEN
3045: cep_standard.debug('<
3047: */
3048: END CE_VALIDATE_BRANCH_FR;
3049:
3086: begin
3087:
3088: IF l_DEBUG in ('Y', 'C') THEN
3089: null;
3090: -- cep_standard.debug('CE_VALIDATE_BRANCH_ES: ' || 'pass_check');
3091: END IF;
3092: end pass_check;
3093:
3094: /****************/
3095: /* MAIN SECTION */
3096: /****************/
3097: BEGIN
3098: IF l_DEBUG in ('Y', 'C') THEN
3099: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_es');
3100: END IF;
3101:
3102: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
3103: Xo_VALUE_OUT := BRANCH_VALUE;
3132: END IF; /* end of length check */
3133: END IF; /* end of mandatory check */
3134: /*
3135: IF l_DEBUG in ('Y', 'C') THEN
3136: cep_standard.debug('<
3138: */
3139: END CE_VALIDATE_BRANCH_ES;
3140:
3171: begin
3172:
3173: IF l_DEBUG in ('Y', 'C') THEN
3174: null;
3175: -- cep_standard.debug('CE_VALIDATE_BRANCH_BR: ' || 'pass_check');
3176: END IF;
3177: end pass_check;
3178:
3179: /****************/
3180: /* MAIN SECTION */
3181: /****************/
3182: BEGIN
3183: IF l_DEBUG in ('Y', 'C') THEN
3184: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_br');
3185: END IF;
3186:
3187: BRANCH_VALUE := upper(Xi_BRANCH_NUMBER );
3188: Xo_VALUE_OUT := BRANCH_VALUE;
3218:
3219: END IF; /* end of mandatory check */
3220: /*
3221: IF l_DEBUG in ('Y', 'C') THEN
3222: cep_standard.debug('<
3224: */
3225: END CE_VALIDATE_BRANCH_BR;
3226:
3242: begin
3243: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3244: fnd_msg_pub.add;
3245: IF l_DEBUG in ('Y', 'C') THEN
3246: cep_standard.debug('CE_VALIDATE_BRANCH_DE: ' || 'CE_INVALID_BRANCH_NUM');
3247: END IF;
3248:
3249: end fail_check;
3250:
3252: begin
3253:
3254: IF l_DEBUG in ('Y', 'C') THEN
3255: null;
3256: -- cep_standard.debug('CE_VALIDATE_BRANCH_DE: ' || 'pass_check');
3257: END IF;
3258: end pass_check;
3259:
3260: /****************/
3261: /* MAIN SECTION */
3262: /****************/
3263: BEGIN
3264: IF l_DEBUG in ('Y', 'C') THEN
3265: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_de');
3266: END IF;
3267:
3268: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3269:
3282: fail_check;
3283: END IF; /* end of numeric check */
3284: ELSE
3285: IF l_DEBUG in ('Y', 'C') THEN
3286: cep_standard.debug('ce_validate_branch_de - length <>8');
3287: END IF;
3288: fail_check;
3289:
3290: END IF; /* end of length check */
3294:
3295: END IF;
3296:
3297: IF l_DEBUG in ('Y', 'C') THEN
3298: cep_standard.debug('<
3300:
3301: END CE_VALIDATE_BRANCH_DE;
3302:
3316: begin
3317: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3318: fnd_msg_pub.add;
3319: IF l_DEBUG in ('Y', 'C') THEN
3320: cep_standard.debug('CE_VALIDATE_BRANCH_GR: ' || 'CE_INVALID_BRANCH_NUM');
3321: END IF;
3322: end fail_check;
3323:
3324: procedure pass_check is
3325: begin
3326:
3327: IF l_DEBUG in ('Y', 'C') THEN
3328: null;
3329: -- cep_standard.debug('CE_VALIDATE_BRANCH_GR: ' || 'pass_check');
3330: END IF;
3331: end pass_check;
3332:
3333: /****************/
3334: /* MAIN SECTION */
3335: /****************/
3336: BEGIN
3337: IF l_DEBUG in ('Y', 'C') THEN
3338: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_gr');
3339: END IF;
3340:
3341: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3342:
3350: IF numeric_result = '0' then /* its numeric so continue */
3351: pass_check;
3352: ELSE
3353: IF l_DEBUG in ('Y', 'C') THEN
3354: cep_standard.debug('branch_gr failed numeric check');
3355: END IF;
3356: fail_check;
3357:
3358: END IF; /* end of numeric check */
3358: END IF; /* end of numeric check */
3359:
3360: ELSE
3361: IF l_DEBUG in ('Y', 'C') THEN
3362: cep_standard.debug('branch_gr failed length of branch_value < 5');
3363: END IF;
3364: fail_check;
3365:
3366: END IF; /* end of length check */
3371:
3372: END IF;
3373: /*
3374: IF l_DEBUG in ('Y', 'C') THEN
3375: cep_standard.debug('<
3377: */
3378: END CE_VALIDATE_BRANCH_GR;
3379:
3394: begin
3395: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3396: fnd_msg_pub.add;
3397: IF l_DEBUG in ('Y', 'C') THEN
3398: cep_standard.debug('CE_VALIDATE_BRANCH_IS: ' || 'CE_INVALID_BRANCH_NUM');
3399: END IF;
3400:
3401: end fail_check;
3402:
3404: begin
3405:
3406: IF l_DEBUG in ('Y', 'C') THEN
3407: null;
3408: -- cep_standard.debug('CE_VALIDATE_BRANCH_IS: ' || 'pass_check');
3409: END IF;
3410: end pass_check;
3411:
3412: /****************/
3413: /* MAIN SECTION */
3414: /****************/
3415: BEGIN
3416: IF l_DEBUG in ('Y', 'C') THEN
3417: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_is');
3418: END IF;
3419:
3420: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3421:
3434: CE_VALIDATE_BANKINFO_UPG.COMPARE_BANK_AND_BRANCH_NUM(branch_num, Xi_BANK_ID);
3435:
3436: ELSE
3437: IF l_DEBUG in ('Y', 'C') THEN
3438: cep_standard.debug('branch_is fail numeric check');
3439: END IF;
3440: fail_check;
3441: END IF; /* end of numeric check */
3442: ELSE
3440: fail_check;
3441: END IF; /* end of numeric check */
3442: ELSE
3443: IF l_DEBUG in ('Y', 'C') THEN
3444: cep_standard.debug('branch_is fail check for length < 5');
3445: END IF;
3446: fail_check;
3447:
3448: END IF; /* end of numeric check */
3453: END IF; /* end of length check */
3454:
3455: /*
3456: IF l_DEBUG in ('Y', 'C') THEN
3457: cep_standard.debug('<
3459: */
3460: END CE_VALIDATE_BRANCH_IS;
3461:
3475: begin
3476: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3477: fnd_msg_pub.add;
3478: IF l_DEBUG in ('Y', 'C') THEN
3479: cep_standard.debug('CE_VALIDATE_BRANCH_IE: ' || 'CE_INVALID_BRANCH_NUM');
3480: END IF;
3481:
3482: end fail_check;
3483:
3485: begin
3486:
3487: IF l_DEBUG in ('Y', 'C') THEN
3488: null;
3489: -- cep_standard.debug('CE_VALIDATE_BRANCH_IE: ' || 'pass_check');
3490: END IF;
3491: end pass_check;
3492:
3493: /****************/
3494: /* MAIN SECTION */
3495: /****************/
3496: BEGIN
3497: IF l_DEBUG in ('Y', 'C') THEN
3498: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_ie');
3499: END IF;
3500:
3501: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3502:
3525: END IF;
3526:
3527: /*
3528: IF l_DEBUG in ('Y', 'C') THEN
3529: cep_standard.debug('<
3531: */
3532: END CE_VALIDATE_BRANCH_IE;
3533:
3548: begin
3549: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
3550: fnd_msg_pub.add;
3551: IF l_DEBUG in ('Y', 'C') THEN
3552: cep_standard.debug('CE_VALIDATE_BRANCH_IT: ' || 'CE_ENTER_BRANCH_NUM');
3553: END IF;
3554: end fail_mandatory;
3555:
3556: procedure fail_check is
3557: begin
3558: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3559: fnd_msg_pub.add;
3560: IF l_DEBUG in ('Y', 'C') THEN
3561: cep_standard.debug('CE_VALIDATE_BRANCH_IT: ' || 'CE_INVALID_BRANCH_NUM');
3562: END IF;
3563: end fail_check;
3564:
3565: procedure pass_check is
3566: begin
3567:
3568: IF l_DEBUG in ('Y', 'C') THEN
3569: null;
3570: -- cep_standard.debug('CE_VALIDATE_BRANCH_IT: ' || 'pass_check');
3571: END IF;
3572: end pass_check;
3573:
3574: /****************/
3575: /* MAIN SECTION */
3576: /****************/
3577: BEGIN
3578: IF l_DEBUG in ('Y', 'C') THEN
3579: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_it');
3580: END IF;
3581:
3582: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3583:
3612: END IF; /* end of length check */
3613: END IF; /* end of mandatory check */
3614: /*
3615: IF l_DEBUG in ('Y', 'C') THEN
3616: cep_standard.debug('<
3618: */
3619: END CE_VALIDATE_BRANCH_IT;
3620:
3634: begin
3635: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3636: fnd_msg_pub.add;
3637: IF l_DEBUG in ('Y', 'C') THEN
3638: cep_standard.debug('CE_VALIDATE_BRANCH_LU: ' || 'CE_INVALID_BRANCH_NUM');
3639: END IF;
3640:
3641: end fail_check;
3642:
3644: begin
3645:
3646: IF l_DEBUG in ('Y', 'C') THEN
3647: null;
3648: -- cep_standard.debug('CE_VALIDATE_BRANCH_LU: ' || 'pass_check');
3649: END IF;
3650: end pass_check;
3651:
3652: /****************/
3653: /* MAIN SECTION */
3654: /****************/
3655: BEGIN
3656: IF l_DEBUG in ('Y', 'C') THEN
3657: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_lu');
3658: END IF;
3659:
3660: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3661:
3684: END IF;
3685:
3686: /*
3687: IF l_DEBUG in ('Y', 'C') THEN
3688: cep_standard.debug('<
3690: */
3691:
3692: END CE_VALIDATE_BRANCH_LU;
3708: begin
3709: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3710: fnd_msg_pub.add;
3711: IF l_DEBUG in ('Y', 'C') THEN
3712: cep_standard.debug('CE_VALIDATE_BRANCH_PL: ' || 'CE_INVALID_BRANCH_NUM');
3713: END IF;
3714:
3715: end fail_check;
3716:
3719: begin
3720:
3721: IF l_DEBUG in ('Y', 'C') THEN
3722: null;
3723: -- cep_standard.debug('CE_VALIDATE_BRANCH_PL: ' || 'pass_check');
3724: END IF;
3725: end pass_check;
3726:
3727: /****************/
3728: /* MAIN SECTION */
3729: /****************/
3730: BEGIN
3731: IF l_DEBUG in ('Y', 'C') THEN
3732: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_pl');
3733: END IF;
3734:
3735: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3736:
3756: +(to_number(substr(BRANCH_NUM,6,1)) * 7)
3757: +(to_number(substr(BRANCH_NUM,7,1)) * 9)),10);
3758:
3759: IF l_DEBUG in ('Y', 'C') THEN
3760: cep_standard.debug('cal_cd1: ' || cal_cd1);
3761: END IF;
3762:
3763: IF cal_cd1 = substr(BRANCH_NUM,8,1) then
3764: pass_check;
3779: END IF;
3780:
3781: /*
3782: IF l_DEBUG in ('Y', 'C') THEN
3783: cep_standard.debug('<
3785: */
3786: END CE_VALIDATE_BRANCH_PL;
3787:
3801: begin
3802: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3803: fnd_msg_pub.add;
3804: IF l_DEBUG in ('Y', 'C') THEN
3805: cep_standard.debug('CE_VALIDATE_BRANCH_SE: ' || 'CE_INVALID_BRANCH_NUM');
3806: END IF;
3807:
3808: end fail_check;
3809:
3811: begin
3812:
3813: IF l_DEBUG in ('Y', 'C') THEN
3814: null;
3815: -- cep_standard.debug('CE_VALIDATE_BRANCH_SE: ' || 'pass_check');
3816: END IF;
3817: end pass_check;
3818:
3819: /****************/
3820: /* MAIN SECTION */
3821: /****************/
3822: BEGIN
3823: IF l_DEBUG in ('Y', 'C') THEN
3824: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_se');
3825: END IF;
3826:
3827: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3828:
3850:
3851: END IF;
3852: /*
3853: IF l_DEBUG in ('Y', 'C') THEN
3854: cep_standard.debug('<
3856: */
3857:
3858: END CE_VALIDATE_BRANCH_SE;
3874: begin
3875: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3876: fnd_msg_pub.add;
3877: IF l_DEBUG in ('Y', 'C') THEN
3878: cep_standard.debug('CE_VALIDATE_BRANCH_CH: ' || 'CE_INVALID_BRANCH_NUM');
3879: END IF;
3880:
3881: end fail_check;
3882:
3884: begin
3885:
3886: IF l_DEBUG in ('Y', 'C') THEN
3887: null;
3888: -- cep_standard.debug('CE_VALIDATE_BRANCH_CH: ' || 'pass_check');
3889: END IF;
3890: end pass_check;
3891:
3892: /****************/
3893: /* MAIN SECTION */
3894: /****************/
3895: BEGIN
3896: IF l_DEBUG in ('Y', 'C') THEN
3897: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_ch');
3898: END IF;
3899:
3900: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3901:
3911: CE_VALIDATE_BANKINFO_UPG.COMPARE_BANK_AND_BRANCH_NUM(branch_num, Xi_BANK_ID);
3912:
3913: ELSE
3914: IF l_DEBUG in ('Y', 'C') THEN
3915: cep_standard.debug('ce_validate_branch_ch fail numeric check');
3916: END IF;
3917: fail_check;
3918: END IF; /* end of numeric check */
3919: ELSE
3917: fail_check;
3918: END IF; /* end of numeric check */
3919: ELSE
3920: IF l_DEBUG in ('Y', 'C') THEN
3921: cep_standard.debug('ce_validate_branch_ch fail length');
3922: END IF;
3923: fail_check;
3924:
3925: END IF; /* end of length check */
3929:
3930: END IF;
3931: /*
3932: IF l_DEBUG in ('Y', 'C') THEN
3933: cep_standard.debug('<
3935: */
3936:
3937: END CE_VALIDATE_BRANCH_CH;
3952: begin
3953: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
3954: fnd_msg_pub.add;
3955: IF l_DEBUG in ('Y', 'C') THEN
3956: cep_standard.debug('CE_VALIDATE_BRANCH_GB: ' || 'CE_INVALID_BRANCH_NUM');
3957: END IF;
3958:
3959: end fail_check;
3960:
3962: begin
3963:
3964: IF l_DEBUG in ('Y', 'C') THEN
3965: null;
3966: -- cep_standard.debug('CE_VALIDATE_BRANCH_GB: ' || 'pass_check');
3967: END IF;
3968: end pass_check;
3969:
3970: /****************/
3971: /* MAIN SECTION */
3972: /****************/
3973: BEGIN
3974: IF l_DEBUG in ('Y', 'C') THEN
3975: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_gb');
3976: END IF;
3977: BRANCH_NUM := upper(replace(Xi_BRANCH_NUMBER,' ',''));
3978:
3979: BRANCH_NUM := replace(BRANCH_NUM,'-','');
4000:
4001: END IF;
4002: /*
4003: IF l_DEBUG in ('Y', 'C') THEN
4004: cep_standard.debug('<
4006: */
4007:
4008: END CE_VALIDATE_BRANCH_GB;
4028: begin
4029: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
4030: fnd_msg_pub.add;
4031: IF l_DEBUG in ('Y', 'C') THEN
4032: cep_standard.debug('CE_VALIDATE_BRANCH_US: ' || 'CE_ENTER_BRANCH_NUM');
4033: END IF;
4034: end fail_mandatory;
4035:
4036: procedure fail_check is
4037: begin
4038: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
4039: fnd_msg_pub.add;
4040: IF l_DEBUG in ('Y', 'C') THEN
4041: cep_standard.debug('CE_VALIDATE_BRANCH_US: ' || 'CE_INVALID_BRANCH_NUM');
4042: END IF;
4043: end fail_check;
4044:
4045:
4047: begin
4048:
4049: IF l_DEBUG in ('Y', 'C') THEN
4050: null;
4051: -- cep_standard.debug('CE_VALIDATE_BRANCH_US: ' || 'pass_check');
4052: END IF;
4053: end pass_check;
4054:
4055: /****************/
4056: /* MAIN SECTION */
4057: /****************/
4058: BEGIN
4059: IF l_DEBUG in ('Y', 'C') THEN
4060: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_branch_us');
4061: END IF;
4062:
4063: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4064:
4077:
4078: BRANCH_VALUE := replace(BRANCH_VALUE,' ','');
4079:
4080: IF l_DEBUG in ('Y', 'C') THEN
4081: cep_standard.debug('BRANCH_VALUE: ' || BRANCH_VALUE);
4082: END IF;
4083:
4084: numeric_result := ce_check_numeric(BRANCH_VALUE,1,length(BRANCH_VALUE));
4085:
4090: BRANCH_VALUE_OUT := lpad(BRANCH_VALUE,9,0);
4091: END IF;
4092:
4093: IF l_DEBUG in ('Y', 'C') THEN
4094: cep_standard.debug('BRANCH_VALUE_OUT: ' || BRANCH_VALUE_OUT);
4095: END IF;
4096:
4097: IF (to_number(SUBSTR(BRANCH_VALUE_OUT,1,8)) = '00000000') then
4098: fail_check;
4096:
4097: IF (to_number(SUBSTR(BRANCH_VALUE_OUT,1,8)) = '00000000') then
4098: fail_check;
4099: IF l_DEBUG in ('Y', 'C') THEN
4100: cep_standard.debug('fail branch_value = 00000000');
4101: END IF;
4102: ELSE
4103: -- Modulus 10
4104:
4113:
4114: cd_value := substr(BRANCH_VALUE_OUT,9,1);
4115:
4116: IF l_DEBUG in ('Y', 'C') THEN
4117: cep_standard.debug('cd_value: ' || cd_value ||' cal_cd1: ' || cal_cd1);
4118: END IF;
4119:
4120: IF cal_cd1 = cd_value then
4121: pass_check;
4122: Xo_VALUE_OUT := BRANCH_VALUE_OUT;
4123:
4124: else
4125: IF l_DEBUG in ('Y', 'C') THEN
4126: cep_standard.debug('failed cd check');
4127: END IF;
4128: fail_check;
4129:
4130: end if;
4129:
4130: end if;
4131:
4132: IF l_DEBUG in ('Y', 'C') THEN
4133: cep_standard.debug('Xo_VALUE_OUT: '|| Xo_VALUE_OUT);
4134: END IF;
4135:
4136: END IF;
4137: ELSE
4135:
4136: END IF;
4137: ELSE
4138: IF l_DEBUG in ('Y', 'C') THEN
4139: cep_standard.debug('fail length < 10');
4140: END IF;
4141: fail_check;
4142: END IF; /* end of length check for branch */
4143: ELSE
4141: fail_check;
4142: END IF; /* end of length check for branch */
4143: ELSE
4144: IF l_DEBUG in ('Y', 'C') THEN
4145: cep_standard.debug('fail numeric check');
4146: END IF;
4147: fail_check;
4148:
4149: END IF; /* end of numeric check for branch */
4151: END IF; /* end of mandatory check */
4152:
4153: /*
4154: IF l_DEBUG in ('Y', 'C') THEN
4155: cep_standard.debug('<
4157: */
4158: END CE_VALIDATE_BRANCH_US;
4159:
4179: begin
4180: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
4181: fnd_msg_pub.add;
4182: IF l_DEBUG in ('Y', 'C') THEN
4183: cep_standard.debug('CE_VALIDATE_BRANCH_AU: ' || 'CE_ENTER_BRANCH_NUM');
4184: END IF;
4185: end fail_mandatory;
4186:
4187: procedure fail_check is
4188: begin
4189: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
4190: fnd_msg_pub.add;
4191: IF l_DEBUG in ('Y', 'C') THEN
4192: cep_standard.debug('CE_VALIDATE_BRANCH_AU: ' || 'CE_INVALID_BRANCH_NUM');
4193: END IF;
4194: end fail_check;
4195:
4196: procedure pass_check is
4196: procedure pass_check is
4197: begin
4198:
4199: IF l_DEBUG in ('Y', 'C') THEN
4200: cep_standard.debug('CE_VALIDATE_BRANCH_AU: ' || 'pass_check');
4201: END IF;
4202: end pass_check;
4203:
4204: /****************/
4205: /* MAIN SECTION */
4206: /****************/
4207: BEGIN
4208: IF l_DEBUG in ('Y', 'C') THEN
4209: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_au');
4210: END IF;
4211:
4212: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4213:
4255:
4256: END IF; /* end of length check */
4257: END IF; /* end of mandatory check */
4258: IF l_DEBUG in ('Y', 'C') THEN
4259: cep_standard.debug('<
4261:
4262: END CE_VALIDATE_BRANCH_AU;
4263: /* -------------------------------------------------------------------- */
4277: begin
4278: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
4279: fnd_msg_pub.add;
4280: IF l_DEBUG in ('Y', 'C') THEN
4281: cep_standard.debug('CE_VALIDATE_BRANCH_IL: ' || 'CE_ENTER_BRANCH_NUM');
4282: END IF;
4283: end fail_mandatory;
4284:
4285: procedure fail_check is
4286: begin
4287: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
4288: fnd_msg_pub.add;
4289: IF l_DEBUG in ('Y', 'C') THEN
4290: cep_standard.debug('CE_VALIDATE_BRANCH_IL: ' || 'CE_INVALID_BRANCH_NUM');
4291: END IF;
4292: end fail_check;
4293:
4294: procedure pass_check is
4294: procedure pass_check is
4295: begin
4296:
4297: IF l_DEBUG in ('Y', 'C') THEN
4298: cep_standard.debug('CE_VALIDATE_BRANCH_IL: ' || 'pass_check');
4299: END IF;
4300: end pass_check;
4301:
4302: /****************/
4303: /* MAIN SECTION */
4304: /****************/
4305: BEGIN
4306: IF l_DEBUG in ('Y', 'C') THEN
4307: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_il');
4308: END IF;
4309:
4310: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4311:
4339:
4340: END IF; /* end of length check */
4341: END IF; /* end of mandatory check */
4342: IF l_DEBUG in ('Y', 'C') THEN
4343: cep_standard.debug('<
4345:
4346: END CE_VALIDATE_BRANCH_IL;
4347: /* -------------------------------------------------------------------- */
4361: begin
4362: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
4363: fnd_msg_pub.add;
4364: IF l_DEBUG in ('Y', 'C') THEN
4365: cep_standard.debug('CE_VALIDATE_BRANCH_NZ: ' || 'CE_ENTER_BRANCH_NUM');
4366: END IF;
4367: end fail_mandatory;
4368:
4369: procedure fail_check is
4370: begin
4371: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
4372: fnd_msg_pub.add;
4373: IF l_DEBUG in ('Y', 'C') THEN
4374: cep_standard.debug('CE_VALIDATE_BRANCH_NZ: ' || 'CE_INVALID_BRANCH_NUM');
4375: END IF;
4376: end fail_check;
4377:
4378: procedure pass_check is
4378: procedure pass_check is
4379: begin
4380:
4381: IF l_DEBUG in ('Y', 'C') THEN
4382: cep_standard.debug('CE_VALIDATE_BRANCH_NZ: ' || 'pass_check');
4383: END IF;
4384: end pass_check;
4385:
4386: /****************/
4387: /* MAIN SECTION */
4388: /****************/
4389: BEGIN
4390: IF l_DEBUG in ('Y', 'C') THEN
4391: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_nz');
4392: END IF;
4393:
4394: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4395:
4423:
4424: END IF; /* end of length check */
4425: END IF; /* end of mandatory check */
4426: IF l_DEBUG in ('Y', 'C') THEN
4427: cep_standard.debug('<
4429:
4430: END CE_VALIDATE_BRANCH_NZ;
4431:
4448: begin
4449: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NUM');
4450: fnd_msg_pub.add;
4451: IF l_DEBUG in ('Y', 'C') THEN
4452: cep_standard.debug('CE_VALIDATE_BRANCH_JP: ' || 'CE_ENTER_BRANCH_NUM');
4453: END IF;
4454: end fail_mandatory;
4455:
4456: procedure fail_branch_name_alt is
4457: begin
4458: fnd_message.set_name ('CE', 'CE_ENTER_BRANCH_NAME_ALT');
4459: fnd_msg_pub.add;
4460: IF l_DEBUG in ('Y', 'C') THEN
4461: cep_standard.debug('CE_VALIDATE_BRANCH_JP: ' || 'CE_ENTER_BRANCH_NAME_ALT');
4462: END IF;
4463: end fail_branch_name_alt;
4464:
4465: procedure fail_check is
4466: begin
4467: fnd_message.set_name ('CE', 'CE_INVALID_BRANCH_NUM');
4468: fnd_msg_pub.add;
4469: IF l_DEBUG in ('Y', 'C') THEN
4470: cep_standard.debug('CE_VALIDATE_BRANCH_JP: ' || 'CE_INVALID_BRANCH_NUM');
4471: END IF;
4472: end fail_check;
4473:
4474: procedure pass_check is
4474: procedure pass_check is
4475: begin
4476:
4477: IF l_DEBUG in ('Y', 'C') THEN
4478: cep_standard.debug('CE_VALIDATE_BRANCH_JP: ' || 'pass_check');
4479: END IF;
4480: end pass_check;
4481:
4482: /****************/
4483: /* MAIN SECTION */
4484: /****************/
4485: BEGIN
4486: IF l_DEBUG in ('Y', 'C') THEN
4487: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_branch_jp');
4488: END IF;
4489:
4490: BRANCH_VALUE := upper(replace(Xi_BRANCH_NUMBER,' ',''));
4491:
4528: END IF;
4529:
4530:
4531: IF l_DEBUG in ('Y', 'C') THEN
4532: cep_standard.debug('<
4534:
4535: END CE_VALIDATE_BRANCH_JP;
4536:
4568: begin
4569: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
4570: fnd_msg_pub.add;
4571: IF l_DEBUG in ('Y', 'C') THEN
4572: cep_standard.debug('CE_VALIDATE_ACCOUNT_AT: ' || 'CE_INVALID_ACCOUNT_NUM');
4573: END IF;
4574: end fail_check;
4575:
4576: procedure pass_check is
4577: begin
4578:
4579: IF l_DEBUG in ('Y', 'C') THEN
4580: null;
4581: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_AT: ' || 'pass_check');
4582: END IF;
4583: end pass_check;
4584:
4585: /****************/
4586: /* MAIN SECTION */
4587: /****************/
4588: BEGIN
4589: IF l_DEBUG in ('Y', 'C') THEN
4590: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_at');
4591: END IF;
4592:
4593: account_value := upper(Xi_ACCOUNT_NUMBER );
4594: Xo_VALUE_OUT := account_value;
4613:
4614: END IF; /* end of length check */
4615: /*
4616: IF l_DEBUG in ('Y', 'C') THEN
4617: cep_standard.debug('<
4619: */
4620: END CE_VALIDATE_ACCOUNT_AT;
4621:
4638: begin
4639: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
4640: fnd_msg_pub.add;
4641: IF l_DEBUG in ('Y', 'C') THEN
4642: cep_standard.debug('CE_VALIDATE_ACCOUNT_PT: ' || 'CE_INVALID_ACCOUNT_NUM');
4643: END IF;
4644: end fail_check;
4645:
4646: procedure pass_check is
4647: begin
4648:
4649: IF l_DEBUG in ('Y', 'C') THEN
4650: null;
4651: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_PT: ' || 'pass_check');
4652: END IF;
4653: end pass_check;
4654:
4655: /****************/
4656: /* MAIN SECTION */
4657: /****************/
4658: BEGIN
4659: IF l_DEBUG in ('Y', 'C') THEN
4660: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_pt');
4661: END IF;
4662:
4663: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
4664: ACCOUNT_VALUE := replace(ACCOUNT_VALUE,' ','');
4682:
4683: END IF; /* end of length check */
4684: /*
4685: IF l_DEBUG in ('Y', 'C') THEN
4686: cep_standard.debug('<
4688: */
4689: END CE_VALIDATE_ACCOUNT_PT;
4690:
4709: begin
4710: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
4711: fnd_msg_pub.add;
4712: IF l_DEBUG in ('Y', 'C') THEN
4713: cep_standard.debug('CE_VALIDATE_ACCOUNT_BE: ' || 'CE_INVALID_ACCOUNT_NUM');
4714: END IF;
4715: end fail_check;
4716:
4717: procedure pass_check is
4718: begin
4719:
4720: IF l_DEBUG in ('Y', 'C') THEN
4721: null;
4722: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_BE: ' || 'pass_check');
4723: END IF;
4724: end pass_check;
4725:
4726: /****************/
4727: /* MAIN SECTION */
4728: /****************/
4729: BEGIN
4730: IF l_DEBUG in ('Y', 'C') THEN
4731: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_be');
4732: END IF;
4733:
4734: ACCOUNT_VALUE := upper(substr(Xi_ACCOUNT_NUMBER ,1,14));
4735: BANK_CODE := substr(ACCOUNT_VALUE,1,3);
4771:
4772: END IF; /* end of length check */
4773: /*
4774: IF l_DEBUG in ('Y', 'C') THEN
4775: cep_standard.debug('<
4777: */
4778:
4779: END CE_VALIDATE_ACCOUNT_BE;
4798: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
4799: fnd_msg_pub.add;
4800: fnd_msg_pub.add_detail(fnd_msg_pub.g_warning_msg);
4801: IF l_DEBUG in ('Y', 'C') THEN
4802: cep_standard.debug('CE_VALIDATE_ACCOUNT_DK: ' || 'CE_INVALID_ACCOUNT_NUM');
4803: END IF;
4804:
4805: end fail_check;
4806:
4807: procedure pass_check is
4808: begin
4809: IF l_DEBUG in ('Y', 'C') THEN
4810: null;
4811: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_DK: ' || 'pass_check');
4812: END IF;
4813:
4814: end pass_check;
4815:
4817: /* MAIN SECTION */
4818: /****************/
4819: BEGIN
4820: IF l_DEBUG in ('Y', 'C') THEN
4821: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_dk');
4822: END IF;
4823:
4824: account_value := upper(Xi_ACCOUNT_NUMBER );
4825: Xo_VALUE_OUT := account_value;
4845:
4846: END IF; /* end of length check */
4847: /*
4848: IF l_DEBUG in ('Y', 'C') THEN
4849: cep_standard.debug('<
4851: */
4852: END CE_VALIDATE_ACCOUNT_DK;
4853:
4870: begin
4871: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
4872: fnd_msg_pub.add;
4873: IF l_DEBUG in ('Y', 'C') THEN
4874: cep_standard.debug('CE_VALIDATE_ACCOUNT_FR: ' || 'CE_INVALID_ACCOUNT_NUM');
4875: END IF;
4876: end fail_check;
4877:
4878: procedure pass_check is
4879: begin
4880:
4881: IF l_DEBUG in ('Y', 'C') THEN
4882: null;
4883: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_FR: ' || 'pass_check');
4884: END IF;
4885: end pass_check;
4886:
4887: /****************/
4888: /* MAIN SECTION */
4889: /****************/
4890: BEGIN
4891: IF l_DEBUG in ('Y', 'C') THEN
4892: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_fr');
4893: END IF;
4894:
4895: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
4896: Xo_VALUE_OUT := ACCOUNT_VALUE;
4918: END IF; /* end of length check */
4919:
4920: /*
4921: IF l_DEBUG in ('Y', 'C') THEN
4922: cep_standard.debug('<
4924: */
4925: END CE_VALIDATE_ACCOUNT_FR;
4926:
4962: begin
4963: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
4964: fnd_msg_pub.add;
4965: IF l_DEBUG in ('Y', 'C') THEN
4966: cep_standard.debug('CE_VALIDATE_ACCOUNT_NL: ' || 'CE_INVALID_ACCOUNT_NUM');
4967: END IF;
4968: end fail_check;
4969:
4970: procedure pass_check is
4971: begin
4972:
4973: IF l_DEBUG in ('Y', 'C') THEN
4974: null;
4975: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_NL: ' || 'pass_check');
4976: END IF;
4977: end pass_check;
4978:
4979: /****************/
4980: /* MAIN SECTION */
4981: /****************/
4982: BEGIN
4983: IF l_DEBUG in ('Y', 'C') THEN
4984: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_nl');
4985: END IF;
4986:
4987: multiplied_number := 0;
4988: multiplied_sum := 0;
5057: END IF;
5058:
5059: /*
5060: IF l_DEBUG in ('Y', 'C') THEN
5061: cep_standard.debug('<
5063: */
5064: END CE_VALIDATE_ACCOUNT_NL;
5065:
5086: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5087: fnd_msg_pub.add;
5088: fnd_msg_pub.add_detail(fnd_msg_pub.g_warning_msg);
5089: IF l_DEBUG in ('Y', 'C') THEN
5090: cep_standard.debug('CE_VALIDATE_ACCOUNT_ES: ' || 'CE_INVALID_ACCOUNT_NUM');
5091: END IF;
5092:
5093: end fail_check;
5094:
5096: begin
5097:
5098: IF l_DEBUG in ('Y', 'C') THEN
5099: null;
5100: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_ES: ' || 'pass_check');
5101: END IF;
5102: end pass_check;
5103:
5104: /****************/
5105: /* MAIN SECTION */
5106: /****************/
5107: BEGIN
5108: IF l_DEBUG in ('Y', 'C') THEN
5109: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_es');
5110: END IF;
5111:
5112: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5113: Xo_VALUE_OUT := ACCOUNT_VALUE;
5135:
5136: END IF; /* end of length check */
5137: /*
5138: IF l_DEBUG in ('Y', 'C') THEN
5139: cep_standard.debug('<
5141: */
5142: END CE_VALIDATE_ACCOUNT_ES;
5143:
5161: begin
5162: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5163: fnd_msg_pub.add;
5164: IF l_DEBUG in ('Y', 'C') THEN
5165: cep_standard.debug('CE_VALIDATE_ACCOUNT_NO: ' || 'CE_INVALID_ACCOUNT_NUM');
5166: END IF;
5167: end fail_check;
5168:
5169: procedure pass_check is
5169: procedure pass_check is
5170: begin
5171: IF l_DEBUG in ('Y', 'C') THEN
5172: null;
5173: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_NO: ' || 'pass_check');
5174: END IF;
5175:
5176: end pass_check;
5177:
5180: /* MAIN SECTION */
5181: /****************/
5182: BEGIN
5183: IF l_DEBUG in ('Y', 'C') THEN
5184: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_no');
5185: END IF;
5186:
5187: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5188:
5262:
5263: END IF;
5264: /*
5265: IF l_DEBUG in ('Y', 'C') THEN
5266: cep_standard.debug('<
5268: */
5269: END CE_VALIDATE_ACCOUNT_NO;
5270:
5289: begin
5290: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5291: fnd_msg_pub.add;
5292: IF l_DEBUG in ('Y', 'C') THEN
5293: cep_standard.debug('CE_VALIDATE_ACCOUNT_FI: ' || 'CE_INVALID_ACCOUNT_NUM');
5294: END IF;
5295: end fail_check;
5296:
5297: procedure pass_check is
5297: procedure pass_check is
5298: begin
5299: IF l_DEBUG in ('Y', 'C') THEN
5300: null;
5301: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_FI: ' || 'pass_check');
5302: END IF;
5303:
5304: end pass_check;
5305:
5308: /* MAIN SECTION */
5309: /****************/
5310: BEGIN
5311: IF l_DEBUG in ('Y', 'C') THEN
5312: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_fi');
5313: END IF;
5314:
5315: ACCOUNT_VALUE := upper(Xi_ACCOUNT_NUMBER );
5316:
5389: END IF;
5390: pass_check;
5391: /*
5392: IF l_DEBUG in ('Y', 'C') THEN
5393: cep_standard.debug('<
5395: */
5396: END CE_VALIDATE_ACCOUNT_FI;
5397:
5414: begin
5415: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5416: fnd_msg_pub.add;
5417: IF l_DEBUG in ('Y', 'C') THEN
5418: cep_standard.debug('CE_VALIDATE_ACCOUNT_DE: ' || 'CE_INVALID_ACCOUNT_NUM');
5419: END IF;
5420: end fail_check;
5421:
5422: procedure pass_check is
5423: begin
5424:
5425: IF l_DEBUG in ('Y', 'C') THEN
5426: null;
5427: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_DE: ' || 'pass_check');
5428: END IF;
5429: end pass_check;
5430:
5431: /****************/
5432: /* MAIN SECTION */
5433: /****************/
5434: BEGIN
5435: IF l_DEBUG in ('Y', 'C') THEN
5436: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_ACCOUNT_DE');
5437: END IF;
5438:
5439: account_value := upper(Xi_ACCOUNT_NUMBER );
5440: Xo_VALUE_OUT := account_value;
5448: numeric_result := ce_check_numeric(account_value,1,length(account_value));
5449:
5450: IF numeric_result <> '0' then
5451: IF l_DEBUG in ('Y', 'C') THEN
5452: cep_standard.debug( 'failed numeric');
5453: END IF;
5454: fail_check;
5455: ELSE
5456: Xo_VALUE_OUT := lpad(account_value,10,0);
5455: ELSE
5456: Xo_VALUE_OUT := lpad(account_value,10,0);
5457: END IF; /* end of numeric check */
5458: IF l_DEBUG in ('Y', 'C') THEN
5459: cep_standard.debug('Xo_VALUE_OUT: ' || Xo_VALUE_OUT);
5460: END IF;
5461: END IF; /* end of length check */
5462:
5463: /*
5461: END IF; /* end of length check */
5462:
5463: /*
5464: IF l_DEBUG in ('Y', 'C') THEN
5465: cep_standard.debug('<
5467: */
5468: END CE_VALIDATE_ACCOUNT_DE;
5469:
5484: begin
5485: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5486: fnd_msg_pub.add;
5487: IF l_DEBUG in ('Y', 'C') THEN
5488: cep_standard.debug('CE_VALIDATE_ACCOUNT_GR: ' || 'CE_INVALID_ACCOUNT_NUM');
5489: END IF;
5490: end fail_check;
5491:
5492: procedure pass_check is
5493: begin
5494:
5495: IF l_DEBUG in ('Y', 'C') THEN
5496: null;
5497: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_GR: ' || 'pass_check');
5498: END IF;
5499: end pass_check;
5500:
5501: /****************/
5502: /* MAIN SECTION */
5503: /****************/
5504: BEGIN
5505: IF l_DEBUG in ('Y', 'C') THEN
5506: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_ACCOUNT_GR');
5507: END IF;
5508:
5509: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
5510: account_value := replace(account_value,'-','');
5509: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
5510: account_value := replace(account_value,'-','');
5511:
5512: IF l_DEBUG in ('Y', 'C') THEN
5513: cep_standard.debug(' account_value: ' ||account_value);
5514: END IF;
5515:
5516: IF length(account_value) < 8 THEN
5517: fail_check;
5533:
5534: END IF; /* end of length check */
5535: /*
5536: IF l_DEBUG in ('Y', 'C') THEN
5537: cep_standard.debug('<
5539: */
5540: END CE_VALIDATE_ACCOUNT_GR;
5541:
5563: begin
5564: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5565: fnd_msg_pub.add;
5566: IF l_DEBUG in ('Y', 'C') THEN
5567: cep_standard.debug('CE_VALIDATE_ACCOUNT_IS: ' || 'CE_INVALID_ACCOUNT_NUM');
5568: END IF;
5569: end fail_check;
5570:
5571: procedure pass_check is
5572: begin
5573:
5574: IF l_DEBUG in ('Y', 'C') THEN
5575: null;
5576: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_IS: ' || 'pass_check');
5577: END IF;
5578: end pass_check;
5579:
5580: /****************/
5581: /* MAIN SECTION */
5582: /****************/
5583: BEGIN
5584: IF l_DEBUG in ('Y', 'C') THEN
5585: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_is');
5586: END IF;
5587:
5588: ac_value := upper(Xi_ACCOUNT_NUMBER );
5589:
5600: ac_value := lpad(ac_value,18,0);
5601: END IF;
5602:
5603: IF l_DEBUG in ('Y', 'C') THEN
5604: cep_standard.debug( 'ac_value : ' || ac_value);
5605: END IF;
5606:
5607: cal_cd1 := mod(( (to_number(substr(ac_value,9,1)) * 3)
5608: +(to_number(substr(ac_value,10,1)) * 2)
5613: +(to_number(substr(ac_value,15,1)) * 3)
5614: +(to_number(substr(ac_value,16,1)) * 2)),11);
5615:
5616: IF l_DEBUG in ('Y', 'C') THEN
5617: cep_standard.debug('cal_cd1 : ' || cal_cd1);
5618: END IF;
5619:
5620: IF cal_cd1 = 0 then
5621: cal_cd := 0;
5626: -- the check digit is the penultimate digit of (a3).
5627: ac_cd_value := substr(ac_value,17,1);
5628:
5629: IF l_DEBUG in ('Y', 'C') THEN
5630: cep_standard.debug('ac_cd_value: ' || ac_cd_value|| ' cal_cd: ' || cal_cd);
5631: END IF;
5632:
5633: IF ac_cd_value = cal_cd then
5634: pass_check;
5633: IF ac_cd_value = cal_cd then
5634: pass_check;
5635: ELSE
5636: IF l_DEBUG in ('Y', 'C') THEN
5637: cep_standard.debug('failed check - cd ');
5638: END IF;
5639: fail_check;
5640: END IF;
5641:
5640: END IF;
5641:
5642: ELSE
5643: IF l_DEBUG in ('Y', 'C') THEN
5644: cep_standard.debug('failed check numeric ');
5645: END IF;
5646: fail_check;
5647: END IF;
5648: ELSE
5646: fail_check;
5647: END IF;
5648: ELSE
5649: IF l_DEBUG in ('Y', 'C') THEN
5650: cep_standard.debug('failed check length ');
5651: END IF;
5652: fail_check;
5653: END IF; /* end of length check */
5654: /*
5652: fail_check;
5653: END IF; /* end of length check */
5654: /*
5655: IF l_DEBUG in ('Y', 'C') THEN
5656: cep_standard.debug('<
5658: */
5659: END CE_VALIDATE_ACCOUNT_IS;
5660:
5673: begin
5674: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5675: fnd_msg_pub.add;
5676: IF l_DEBUG in ('Y', 'C') THEN
5677: cep_standard.debug('CE_VALIDATE_ACCOUNT_IE: ' || 'CE_INVALID_ACCOUNT_NUM');
5678: END IF;
5679: end fail_check;
5680:
5681: procedure pass_check is
5681: procedure pass_check is
5682: begin
5683: IF l_DEBUG in ('Y', 'C') THEN
5684: null;
5685: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_IE: ' || 'pass_check');
5686: END IF;
5687:
5688: end pass_check;
5689:
5691: /* MAIN SECTION */
5692: /****************/
5693: BEGIN
5694: IF l_DEBUG in ('Y', 'C') THEN
5695: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_ie');
5696: END IF;
5697:
5698: account_value := upper(Xi_ACCOUNT_NUMBER );
5699:
5714: fail_check;
5715: END IF; /* end of length check */
5716: /*
5717: IF l_DEBUG in ('Y', 'C') THEN
5718: cep_standard.debug('<
5720: */
5721: END CE_VALIDATE_ACCOUNT_IE;
5722:
5736: begin
5737: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5738: fnd_msg_pub.add;
5739: IF l_DEBUG in ('Y', 'C') THEN
5740: cep_standard.debug('CE_VALIDATE_ACCOUNT_IT: ' || 'CE_INVALID_ACCOUNT_NUM');
5741: END IF;
5742: end fail_check;
5743:
5744: procedure pass_check is
5745: begin
5746:
5747: IF l_DEBUG in ('Y', 'C') THEN
5748: null;
5749: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_IT: ' || 'pass_check');
5750: END IF;
5751: end pass_check;
5752:
5753:
5756: /* MAIN SECTION */
5757: /****************/
5758: BEGIN
5759: IF l_DEBUG in ('Y', 'C') THEN
5760: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_it');
5761: END IF;
5762:
5763: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
5764: account_value := replace(account_value,'-','');
5762:
5763: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
5764: account_value := replace(account_value,'-','');
5765: IF l_DEBUG in ('Y', 'C') THEN
5766: cep_standard.debug('length(account_value): '||length(account_value) );
5767: END IF;
5768:
5769: IF length(account_value) < 13 THEN
5770: Xo_VALUE_OUT := lpad(account_value,12,0);
5769: IF length(account_value) < 13 THEN
5770: Xo_VALUE_OUT := lpad(account_value,12,0);
5771: pass_check;
5772: IF l_DEBUG in ('Y', 'C') THEN
5773: cep_standard.debug('Xo_VALUE_OUT: '||Xo_VALUE_OUT );
5774: END IF;
5775: ELSE
5776: fail_check;
5777:
5777:
5778: END IF; /* end of length check */
5779: /*
5780: IF l_DEBUG in ('Y', 'C') THEN
5781: cep_standard.debug('<
5783: */
5784: END CE_VALIDATE_ACCOUNT_IT;
5785:
5798: begin
5799: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5800: fnd_msg_pub.add;
5801: IF l_DEBUG in ('Y', 'C') THEN
5802: cep_standard.debug('CE_VALIDATE_ACCOUNT_LU: ' || 'CE_INVALID_ACCOUNT_NUM');
5803: END IF;
5804: end fail_check;
5805:
5806: procedure pass_check is
5806: procedure pass_check is
5807: begin
5808: IF l_DEBUG in ('Y', 'C') THEN
5809: null;
5810: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_LU: ' || 'pass_check');
5811: END IF;
5812:
5813: end pass_check;
5814:
5816: /* MAIN SECTION */
5817: /****************/
5818: BEGIN
5819: IF l_DEBUG in ('Y', 'C') THEN
5820: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_lu');
5821: END IF;
5822:
5823: account_value := upper(Xi_ACCOUNT_NUMBER );
5824:
5839: fail_check;
5840: END IF; /* end of length check */
5841: /*
5842: IF l_DEBUG in ('Y', 'C') THEN
5843: cep_standard.debug('<
5845: */
5846: END CE_VALIDATE_ACCOUNT_LU;
5847:
5860: begin
5861: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5862: fnd_msg_pub.add;
5863: IF l_DEBUG in ('Y', 'C') THEN
5864: cep_standard.debug('CE_VALIDATE_ACCOUNT_PL: ' || 'CE_INVALID_ACCOUNT_NUM');
5865: END IF;
5866: end fail_check;
5867:
5868: procedure pass_check is
5868: procedure pass_check is
5869: begin
5870: IF l_DEBUG in ('Y', 'C') THEN
5871: null;
5872: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_PL: ' || 'pass_check');
5873: END IF;
5874:
5875: end pass_check;
5876:
5878: /* MAIN SECTION */
5879: /****************/
5880: BEGIN
5881: IF l_DEBUG in ('Y', 'C') THEN
5882: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_pl');
5883: END IF;
5884:
5885: account_value := upper(Xi_ACCOUNT_NUMBER );
5886:
5895: fail_check;
5896: END IF; /* end of length check */
5897: /*
5898: IF l_DEBUG in ('Y', 'C') THEN
5899: cep_standard.debug('<
5901: */
5902: END CE_VALIDATE_ACCOUNT_PL;
5903:
5916: begin
5917: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5918: fnd_msg_pub.add;
5919: IF l_DEBUG in ('Y', 'C') THEN
5920: cep_standard.debug('CE_VALIDATE_ACCOUNT_SE: ' || 'CE_INVALID_ACCOUNT_NUM');
5921: END IF;
5922: end fail_check;
5923:
5924: procedure pass_check is
5924: procedure pass_check is
5925: begin
5926: IF l_DEBUG in ('Y', 'C') THEN
5927: null;
5928: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_SE: ' || 'pass_check');
5929: END IF;
5930:
5931: end pass_check;
5932:
5934: /* MAIN SECTION */
5935: /****************/
5936: BEGIN
5937: IF l_DEBUG in ('Y', 'C') THEN
5938: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_se');
5939: END IF;
5940:
5941: account_value := upper(replace(Xi_ACCOUNT_NUMBER ,' ',''));
5942: account_value := replace(account_value,'-','');
5954: fail_check;
5955: END IF; /* end of length check */
5956: /*
5957: IF l_DEBUG in ('Y', 'C') THEN
5958: cep_standard.debug('<
5960: */
5961: END CE_VALIDATE_ACCOUNT_SE;
5962:
5985: begin
5986: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
5987: fnd_msg_pub.add;
5988: IF l_DEBUG in ('Y', 'C') THEN
5989: cep_standard.debug('CE_VALIDATE_ACCOUNT_CH: ' || 'CE_INVALID_ACCOUNT_NUM');
5990: END IF;
5991: end fail_check;
5992:
5993: procedure pass_check is
5993: procedure pass_check is
5994: begin
5995: IF l_DEBUG in ('Y', 'C') THEN
5996: null;
5997: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_CH: ' || 'pass_check');
5998: END IF;
5999:
6000: end pass_check;
6001:
6005: /* MAIN SECTION */
6006: /****************/
6007: BEGIN
6008: IF l_DEBUG in ('Y', 'C') THEN
6009: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_ch');
6010: END IF;
6011:
6012: account_value := upper(replace(Xi_ACCOUNT_NUMBER,' ',''));
6013:
6027: END if;
6028:
6029: /*
6030: IF l_DEBUG in ('Y', 'C') THEN
6031: cep_standard.debug('<
6033: */
6034: END CE_VALIDATE_ACCOUNT_CH;
6035:
6049: begin
6050: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
6051: fnd_msg_pub.add;
6052: IF l_DEBUG in ('Y', 'C') THEN
6053: cep_standard.debug('CE_VALIDATE_ACCOUNT_GB: ' || 'CE_INVALID_ACCOUNT_NUM');
6054: END IF;
6055: end fail_check;
6056:
6057: procedure pass_check is
6058: begin
6059:
6060: IF l_DEBUG in ('Y', 'C') THEN
6061: null;
6062: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_GB: ' || 'pass_check');
6063: END IF;
6064: end pass_check;
6065:
6066: /****************/
6067: /* MAIN SECTION */
6068: /****************/
6069: BEGIN
6070: IF l_DEBUG in ('Y', 'C') THEN
6071: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_gb');
6072: END IF;
6073:
6074: Xo_VALUE_OUT := account_value;
6075:
6092:
6093: END IF; /* end of length check */
6094: /*
6095: IF l_DEBUG in ('Y', 'C') THEN
6096: cep_standard.debug('<
6098: */
6099: END CE_VALIDATE_ACCOUNT_GB;
6100:
6114: begin
6115: fnd_message.set_name ('CE', 'CE_INVALID_COMPANY_CODE');
6116: fnd_msg_pub.add;
6117: IF l_DEBUG in ('Y', 'C') THEN
6118: cep_standard.debug('CE_VALIDATE_ACCOUNT_BR: ' || 'CE_INVALID_COMPANY_CODE');
6119: END IF;
6120: end fail_check;
6121:
6122: procedure pass_check is
6123: begin
6124:
6125: IF l_DEBUG in ('Y', 'C') THEN
6126: null;
6127: -- cep_standard.debug('CE_VALIDATE_ACCOUNT_BR: ' || 'pass_check');
6128: END IF;
6129: end pass_check;
6130:
6131: /****************/
6133: /****************/
6134: BEGIN
6135:
6136: IF l_DEBUG in ('Y', 'C') THEN
6137: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_br');
6138: END IF;
6139:
6140: account_ref := upper(replace(Xi_SECONDARY_ACCOUNT_REFERENCE,' ',''));
6141:
6139:
6140: account_ref := upper(replace(Xi_SECONDARY_ACCOUNT_REFERENCE,' ',''));
6141:
6142: IF l_DEBUG in ('Y', 'C') THEN
6143: cep_standard.debug('account_ref: '|| account_ref);
6144: END IF;
6145:
6146: IF (account_ref) is not null then
6147:
6163:
6164: END IF; /* end of not null check */
6165:
6166: IF l_DEBUG in ('Y', 'C') THEN
6167: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_account_br');
6168: END IF;
6169:
6170: END CE_VALIDATE_ACCOUNT_BR;
6171:
6186: begin
6187: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
6188: fnd_msg_pub.add;
6189: IF l_DEBUG in ('Y', 'C') THEN
6190: cep_standard.debug('CE_VALIDATE_ACCOUNT_AU: ' || 'CE_INVALID_ACCOUNT_NUM');
6191: END IF;
6192: end fail_check;
6193:
6194: procedure pass_check is
6193:
6194: procedure pass_check is
6195: begin
6196: IF l_DEBUG in ('Y', 'C') THEN
6197: cep_standard.debug('CE_VALIDATE_ACCOUNT_AU: ' || 'pass_check');
6198: END IF;
6199:
6200: end pass_check;
6201:
6203: /* MAIN SECTION */
6204: /****************/
6205: BEGIN
6206: IF l_DEBUG in ('Y', 'C') THEN
6207: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_au');
6208: END IF;
6209:
6210: account_value := upper(Xi_ACCOUNT_NUMBER );
6211:
6226: ELSE
6227: fail_check;
6228: END IF; /* end of length check */
6229: IF l_DEBUG in ('Y', 'C') THEN
6230: cep_standard.debug('<
6232:
6233: END CE_VALIDATE_ACCOUNT_AU;
6234:
6247: begin
6248: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
6249: fnd_msg_pub.add;
6250: IF l_DEBUG in ('Y', 'C') THEN
6251: cep_standard.debug('CE_VALIDATE_ACCOUNT_IL: ' || 'CE_INVALID_ACCOUNT_NUM');
6252: END IF;
6253: end fail_check;
6254:
6255: procedure pass_check is
6254:
6255: procedure pass_check is
6256: begin
6257: IF l_DEBUG in ('Y', 'C') THEN
6258: cep_standard.debug('CE_VALIDATE_ACCOUNT_IL: ' || 'pass_check');
6259: END IF;
6260:
6261: end pass_check;
6262:
6264: /* MAIN SECTION */
6265: /****************/
6266: BEGIN
6267: IF l_DEBUG in ('Y', 'C') THEN
6268: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_il');
6269: END IF;
6270:
6271: account_value := upper(Xi_ACCOUNT_NUMBER );
6272:
6287: ELSE
6288: fail_check;
6289: END IF; /* end of length check */
6290: IF l_DEBUG in ('Y', 'C') THEN
6291: cep_standard.debug('<
6293:
6294: END CE_VALIDATE_ACCOUNT_IL;
6295: /* -------------------------------------------------------------------- */
6310: begin
6311: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_NUM');
6312: fnd_msg_pub.add;
6313: IF l_DEBUG in ('Y', 'C') THEN
6314: cep_standard.debug('CE_VALIDATE_ACCOUNT_NZ: ' || 'CE_INVALID_ACCOUNT_NUM');
6315: END IF;
6316: end fail_check;
6317:
6318: procedure pass_check is
6317:
6318: procedure pass_check is
6319: begin
6320: IF l_DEBUG in ('Y', 'C') THEN
6321: cep_standard.debug('CE_VALIDATE_ACCOUNT_NZ: ' || 'pass_check');
6322: END IF;
6323:
6324: end pass_check;
6325:
6327: begin
6328: fnd_message.set_name ('CE', 'CE_INVALID_ACCOUNT_SUFFIX');
6329: fnd_msg_pub.add;
6330: IF l_DEBUG in ('Y', 'C') THEN
6331: cep_standard.debug('CE_VALIDATE_ACCOUNT_NZ: ' || 'CE_INVALID_ACCOUNT_SUFFIX');
6332: END IF;
6333: end fail_account_suffix_check;
6334:
6335: procedure pass_account_suffix_check is
6334:
6335: procedure pass_account_suffix_check is
6336: begin
6337: IF l_DEBUG in ('Y', 'C') THEN
6338: cep_standard.debug('CE_VALIDATE_ACCOUNT_NZ: ' || 'pass_check');
6339: END IF;
6340:
6341: end pass_account_suffix_check;
6342: /****************/
6343: /* MAIN SECTION */
6344: /****************/
6345: BEGIN
6346: IF l_DEBUG in ('Y', 'C') THEN
6347: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_nz');
6348: END IF;
6349: -- check account number
6350: account_value := upper(Xi_ACCOUNT_NUMBER );
6351:
6391: END IF;
6392:
6393:
6394: IF l_DEBUG in ('Y', 'C') THEN
6395: cep_standard.debug('<
6397:
6398: END CE_VALIDATE_ACCOUNT_NZ;
6399: /* -------------------------------------------------------------------- */
6429: /* MAIN SECTION */
6430: /****************/
6431: BEGIN
6432: IF l_DEBUG in ('Y', 'C') THEN
6433: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_account_jp');
6434: END IF;
6435:
6436: IF (Xi_ACCOUNT_NUMBER is null) THEN
6437: fail_mandatory;
6443: END if;
6444: END IF;
6445:
6446: IF l_DEBUG in ('Y', 'C') THEN
6447: cep_standard.debug('<
6449:
6450: END CE_VALIDATE_ACCOUNT_JP;
6451:
6496: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
6497: fnd_msg_pub.add;
6498: fnd_msg_pub.add_detail(fnd_msg_pub.g_warning_msg);
6499: IF l_DEBUG in ('Y', 'C') THEN
6500: cep_standard.debug('CE_VALIDATE_BANK_ES: ' || 'CE_INVALID_BANK_NUM');
6501: END IF;
6502:
6503: end fail_check;
6504:
6506: begin
6507:
6508: IF l_DEBUG in ('Y', 'C') THEN
6509: null;
6510: -- cep_standard.debug('CE_VALIDATE_BANK_ES: ' || 'pass_check');
6511: END IF;
6512: end pass_check;
6513:
6514: /****************/
6515: /* MAIN SECTION */
6516: /****************/
6517: BEGIN
6518: IF l_DEBUG in ('Y', 'C') THEN
6519: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_es');
6520: END IF;
6521:
6522: BANK_VALUE := upper(Xi_BANK_NUMBER );
6523: Xo_VALUE_OUT := BANK_VALUE;
6552: END IF; /* end of length check */
6553: END IF; /* end of mandatory check */
6554: /*
6555: IF l_DEBUG in ('Y', 'C') THEN
6556: cep_standard.debug('<
6558: */
6559: END CE_VALIDATE_BANK_ES;
6560:
6578: begin
6579: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NUM');
6580: fnd_msg_pub.add;
6581: IF l_DEBUG in ('Y', 'C') THEN
6582: cep_standard.debug('CE_VALIDATE_BANK_FR: ' || 'CE_ENTER_BANK_NUM');
6583: END IF;
6584: end fail_mandatory;
6585:
6586: procedure fail_check is
6587: begin
6588: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
6589: fnd_msg_pub.add;
6590: IF l_DEBUG in ('Y', 'C') THEN
6591: cep_standard.debug('CE_VALIDATE_BANK_FR: ' || 'CE_INVALID_BANK_NUM');
6592: END IF;
6593:
6594: end fail_check;
6595:
6596: procedure pass_check is
6597: begin
6598: IF l_DEBUG in ('Y', 'C') THEN
6599: null;
6600: -- cep_standard.debug('CE_VALIDATE_BANK_FR: ' || 'pass_check');
6601: END IF;
6602:
6603: end pass_check;
6604:
6606: /* MAIN SECTION */
6607: /****************/
6608: BEGIN
6609: IF l_DEBUG in ('Y', 'C') THEN
6610: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_fr');
6611: END IF;
6612:
6613: BANK_VALUE := upper(Xi_BANK_NUMBER );
6614: Xo_VALUE_OUT := BANK_VALUE;
6643: END IF; /* end of length check */
6644: END IF; /* end of mandatory check */
6645: /*
6646: IF l_DEBUG in ('Y', 'C') THEN
6647: cep_standard.debug('<
6649: */
6650: END CE_VALIDATE_BANK_FR;
6651:
6666: begin
6667: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NUM');
6668: fnd_msg_pub.add;
6669: IF l_DEBUG in ('Y', 'C') THEN
6670: cep_standard.debug('CE_VALIDATE_BANK_PT: ' || 'CE_ENTER_BANK_NUM');
6671: END IF;
6672: end fail_mandatory;
6673:
6674: procedure fail_check is
6675: begin
6676: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
6677: fnd_msg_pub.add;
6678: IF l_DEBUG in ('Y', 'C') THEN
6679: cep_standard.debug('CE_VALIDATE_BANK_PT: ' || 'CE_INVALID_BANK_NUM');
6680: END IF;
6681:
6682: end fail_check;
6683:
6684: procedure pass_check is
6685: begin
6686: IF l_DEBUG in ('Y', 'C') THEN
6687: null;
6688: -- cep_standard.debug('CE_VALIDATE_BANK_PT: ' || 'pass_check');
6689: END IF;
6690:
6691: end pass_check;
6692:
6694: /* MAIN SECTION */
6695: /****************/
6696: BEGIN
6697: IF l_DEBUG in ('Y', 'C') THEN
6698: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_pt');
6699: END IF;
6700:
6701:
6702: BANK_VALUE := upper(Xi_BANK_NUMBER );
6727:
6728: END IF; /* end of length check */
6729: END IF; /* end of mandatory check */
6730: IF l_DEBUG in ('Y', 'C') THEN
6731: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_pt');
6732: END IF;
6733:
6734: END CE_VALIDATE_BANK_PT;
6735:
6751: begin
6752: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NUM');
6753: fnd_msg_pub.add;
6754: IF l_DEBUG in ('Y', 'C') THEN
6755: cep_standard.debug('CE_VALIDATE_BANK_BR: ' || 'CE_ENTER_BANK_NUM');
6756: END IF;
6757: end fail_mandatory;
6758:
6759: procedure fail_check is
6760: begin
6761: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
6762: fnd_msg_pub.add;
6763: IF l_DEBUG in ('Y', 'C') THEN
6764: cep_standard.debug('CE_VALIDATE_BANK_BR: ' || 'CE_INVALID_BANK_NUM');
6765: END IF;
6766: end fail_check;
6767:
6768: procedure pass_check is
6769: begin
6770:
6771: IF l_DEBUG in ('Y', 'C') THEN
6772: null;
6773: -- cep_standard.debug('CE_VALIDATE_BANK_BR: ' || 'pass_check');
6774: END IF;
6775: end pass_check;
6776:
6777: /****************/
6778: /* MAIN SECTION */
6779: /****************/
6780: BEGIN
6781: IF l_DEBUG in ('Y', 'C') THEN
6782: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_br');
6783: END IF;
6784:
6785: BANK_VALUE := upper(Xi_BANK_NUMBER );
6786: Xo_VALUE_OUT := BANK_VALUE;
6816:
6817: END IF; /* end of mandatory check */
6818: /*
6819: IF l_DEBUG in ('Y', 'C') THEN
6820: cep_standard.debug('<
6822: */
6823: END CE_VALIDATE_BANK_BR;
6824:
6839: begin
6840: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
6841: fnd_msg_pub.add;
6842: IF l_DEBUG in ('Y', 'C') THEN
6843: cep_standard.debug('CE_VALIDATE_BANK_DE: ' || 'CE_INVALID_BANK_NUM');
6844: END IF;
6845:
6846: end fail_check;
6847:
6849: begin
6850:
6851: IF l_DEBUG in ('Y', 'C') THEN
6852: null;
6853: -- cep_standard.debug('CE_VALIDATE_BANK_DE: ' || 'pass_check');
6854: END IF;
6855: end pass_check;
6856:
6857: /****************/
6858: /* MAIN SECTION */
6859: /****************/
6860: BEGIN
6861: IF l_DEBUG in ('Y', 'C') THEN
6862: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_de');
6863: END IF;
6864:
6865: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
6866:
6874: then /* its numeric so continue */
6875: pass_check;
6876: ELSE
6877: IF l_DEBUG in ('Y', 'C') THEN
6878: cep_standard.debug('bank num is not numeric');
6879: END IF;
6880: fail_check;
6881: END IF; /* end of numeric check */
6882: ELSE
6880: fail_check;
6881: END IF; /* end of numeric check */
6882: ELSE
6883: IF l_DEBUG in ('Y', 'C') THEN
6884: cep_standard.debug('bank num length is not 8');
6885: END IF;
6886: fail_check;
6887:
6888: END IF; /* end of numeric check */
6892:
6893: END IF; /* end of length check */
6894: /*
6895: IF l_DEBUG in ('Y', 'C') THEN
6896: cep_standard.debug('<
6898: */
6899: END CE_VALIDATE_BANK_DE;
6900:
6913: begin
6914: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
6915: fnd_msg_pub.add;
6916: IF l_DEBUG in ('Y', 'C') THEN
6917: cep_standard.debug('CE_VALIDATE_BANK_GR: ' || 'CE_INVALID_BANK_NUM');
6918: END IF;
6919:
6920: end fail_check;
6921:
6923: begin
6924:
6925: IF l_DEBUG in ('Y', 'C') THEN
6926: null;
6927: -- cep_standard.debug('CE_VALIDATE_BANK_GR: ' || 'pass_check');
6928: END IF;
6929: end pass_check;
6930:
6931: /****************/
6932: /* MAIN SECTION */
6933: /****************/
6934: BEGIN
6935: IF l_DEBUG in ('Y', 'C') THEN
6936: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_gr');
6937: END IF;
6938:
6939: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
6940:
6964:
6965: END IF;
6966: /*
6967: IF l_DEBUG in ('Y', 'C') THEN
6968: cep_standard.debug('<
6970: */
6971: END CE_VALIDATE_BANK_GR;
6972:
6986: begin
6987: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
6988: fnd_msg_pub.add;
6989: IF l_DEBUG in ('Y', 'C') THEN
6990: cep_standard.debug('CE_VALIDATE_BANK_IS: ' || 'CE_INVALID_BANK_NUM');
6991: END IF;
6992:
6993: end fail_check;
6994:
6996: begin
6997:
6998: IF l_DEBUG in ('Y', 'C') THEN
6999: null;
7000: -- cep_standard.debug('CE_VALIDATE_BANK_IS: ' || 'pass_check');
7001: END IF;
7002: end pass_check;
7003:
7004: /****************/
7005: /* MAIN SECTION */
7006: /****************/
7007: BEGIN
7008: IF l_DEBUG in ('Y', 'C') THEN
7009: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_is');
7010: END IF;
7011:
7012: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7013:
7035:
7036: END IF;
7037: /*
7038: IF l_DEBUG in ('Y', 'C') THEN
7039: cep_standard.debug('<
7041: */
7042: END CE_VALIDATE_BANK_IS;
7043:
7056: begin
7057: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7058: fnd_msg_pub.add;
7059: IF l_DEBUG in ('Y', 'C') THEN
7060: cep_standard.debug('CE_VALIDATE_BANK_IE: ' || 'CE_INVALID_BANK_NUM');
7061: END IF;
7062:
7063: end fail_check;
7064:
7066: begin
7067:
7068: IF l_DEBUG in ('Y', 'C') THEN
7069: null;
7070: -- cep_standard.debug('CE_VALIDATE_BANK_IE: ' || 'pass_check');
7071: END IF;
7072: end pass_check;
7073:
7074: /****************/
7075: /* MAIN SECTION */
7076: /****************/
7077: BEGIN
7078: IF l_DEBUG in ('Y', 'C') THEN
7079: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_ie');
7080: END IF;
7081:
7082: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7083:
7103:
7104: END IF;
7105: /*
7106: IF l_DEBUG in ('Y', 'C') THEN
7107: cep_standard.debug('<
7109: */
7110: END CE_VALIDATE_BANK_IE;
7111:
7126: begin
7127: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NUM');
7128: fnd_msg_pub.add;
7129: IF l_DEBUG in ('Y', 'C') THEN
7130: cep_standard.debug('CE_VALIDATE_BANK_IT: ' || 'CE_ENTER_BANK_NUM');
7131: END IF;
7132: end fail_mandatory;
7133:
7134: procedure fail_check is
7135: begin
7136: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7137: fnd_msg_pub.add;
7138: IF l_DEBUG in ('Y', 'C') THEN
7139: cep_standard.debug('CE_VALIDATE_BANK_IT: ' || 'CE_INVALID_BANK_NUM');
7140: END IF;
7141:
7142: end fail_check;
7143:
7145: begin
7146:
7147: IF l_DEBUG in ('Y', 'C') THEN
7148: null;
7149: -- cep_standard.debug('CE_VALIDATE_BANK_IT: ' || 'pass_check');
7150: END IF;
7151: end pass_check;
7152:
7153: /****************/
7154: /* MAIN SECTION */
7155: /****************/
7156: BEGIN
7157: IF l_DEBUG in ('Y', 'C') THEN
7158: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_it');
7159: END IF;
7160:
7161: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
7162:
7194: END IF; /* end of mandatory check */
7195:
7196: /*
7197: IF l_DEBUG in ('Y', 'C') THEN
7198: cep_standard.debug('<
7200: */
7201: END CE_VALIDATE_BANK_IT;
7202:
7215: begin
7216: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7217: fnd_msg_pub.add;
7218: IF l_DEBUG in ('Y', 'C') THEN
7219: cep_standard.debug('CE_VALIDATE_BANK_LU: ' || 'CE_INVALID_BANK_NUM');
7220: END IF;
7221:
7222: end fail_check;
7223:
7225: begin
7226:
7227: IF l_DEBUG in ('Y', 'C') THEN
7228: null;
7229: -- cep_standard.debug('CE_VALIDATE_BANK_LU: ' || 'pass_check');
7230: END IF;
7231: end pass_check;
7232:
7233: /****************/
7234: /* MAIN SECTION */
7235: /****************/
7236: BEGIN
7237: IF l_DEBUG in ('Y', 'C') THEN
7238: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_lu');
7239: END IF;
7240:
7241: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7242:
7262:
7263: END IF;
7264: /*
7265: IF l_DEBUG in ('Y', 'C') THEN
7266: cep_standard.debug('<
7268: */
7269: END CE_VALIDATE_BANK_LU;
7270:
7283: begin
7284: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7285: fnd_msg_pub.add;
7286: IF l_DEBUG in ('Y', 'C') THEN
7287: cep_standard.debug('CE_VALIDATE_BANK_PL: ' || 'CE_INVALID_BANK_NUM');
7288: END IF;
7289:
7290: end fail_check;
7291:
7294: begin
7295:
7296: IF l_DEBUG in ('Y', 'C') THEN
7297: null;
7298: -- cep_standard.debug('CE_VALIDATE_BANK_PL: ' || 'pass_check');
7299: END IF;
7300: end pass_check;
7301:
7302: /****************/
7303: /* MAIN SECTION */
7304: /****************/
7305: BEGIN
7306: IF l_DEBUG in ('Y', 'C') THEN
7307: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_pl');
7308: END IF;
7309:
7310: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7311:
7328: +(to_number(substr(BANK_NUM,6,1)) * 7)
7329: +(to_number(substr(BANK_NUM,7,1)) * 9)),10);
7330:
7331: IF l_DEBUG in ('Y', 'C') THEN
7332: cep_standard.debug('cal_cd1: '|| cal_cd1);
7333: END IF;
7334:
7335: IF cal_cd1 = substr(BANK_NUM,8,1) then
7336: pass_check;
7351:
7352: END IF;
7353: /*
7354: IF l_DEBUG in ('Y', 'C') THEN
7355: cep_standard.debug('<
7357: */
7358: END CE_VALIDATE_BANK_PL;
7359:
7372: begin
7373: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7374: fnd_msg_pub.add;
7375: IF l_DEBUG in ('Y', 'C') THEN
7376: cep_standard.debug('CE_VALIDATE_BANK_SE: ' || 'CE_INVALID_BANK_NUM');
7377: END IF;
7378:
7379: end fail_check;
7380:
7382: begin
7383:
7384: IF l_DEBUG in ('Y', 'C') THEN
7385: null;
7386: -- cep_standard.debug('CE_VALIDATE_BANK_SE: ' || 'pass_check');
7387: END IF;
7388: end pass_check;
7389:
7390: /****************/
7391: /* MAIN SECTION */
7392: /****************/
7393: BEGIN
7394: IF l_DEBUG in ('Y', 'C') THEN
7395: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_se');
7396: END IF;
7397:
7398: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7399:
7419:
7420: END IF;
7421: /*
7422: IF l_DEBUG in ('Y', 'C') THEN
7423: cep_standard.debug('<
7425: */
7426: END CE_VALIDATE_BANK_SE;
7427:
7440: begin
7441: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7442: fnd_msg_pub.add;
7443: IF l_DEBUG in ('Y', 'C') THEN
7444: cep_standard.debug('CE_VALIDATE_BANK_CH: ' || 'CE_INVALID_BANK_NUM');
7445: END IF;
7446:
7447: end fail_check;
7448:
7450: begin
7451:
7452: IF l_DEBUG in ('Y', 'C') THEN
7453: null;
7454: -- cep_standard.debug('CE_VALIDATE_BANK_CH: ' || 'pass_check');
7455: END IF;
7456: end pass_check;
7457:
7458: /****************/
7459: /* MAIN SECTION */
7460: /****************/
7461: BEGIN
7462: IF l_DEBUG in ('Y', 'C') THEN
7463: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_ch');
7464: END IF;
7465:
7466: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7467:
7487:
7488: END IF;
7489: /*
7490: IF l_DEBUG in ('Y', 'C') THEN
7491: cep_standard.debug('<
7493: */
7494: END CE_VALIDATE_BANK_CH;
7495:
7508: begin
7509: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7510: fnd_msg_pub.add;
7511: IF l_DEBUG in ('Y', 'C') THEN
7512: cep_standard.debug('CE_VALIDATE_BANK_GB: ' || 'CE_INVALID_BANK_NUM');
7513: END IF;
7514:
7515: end fail_check;
7516:
7518: begin
7519:
7520: IF l_DEBUG in ('Y', 'C') THEN
7521: null;
7522: -- cep_standard.debug('CE_VALIDATE_BANK_GB: ' || 'pass_check');
7523: END IF;
7524: end pass_check;
7525:
7526: /****************/
7527: /* MAIN SECTION */
7528: /****************/
7529: BEGIN
7530: IF l_DEBUG in ('Y', 'C') THEN
7531: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.ce_validate_bank_gb');
7532: END IF;
7533:
7534: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7535:
7555:
7556: END IF;
7557: /*
7558: IF l_DEBUG in ('Y', 'C') THEN
7559: cep_standard.debug('<
7561: */
7562: END CE_VALIDATE_BANK_GB;
7563:
7589: begin
7590: fnd_message.set_name ('CE', 'CE_INVALID_TAX_PAYER_ID');
7591: fnd_msg_pub.add;
7592: IF l_DEBUG in ('Y', 'C') THEN
7593: cep_standard.debug('CE_VALIDATE_BANK_CO: ' || 'CE_INVALID_TAX_PAYER_ID');
7594: END IF;
7595:
7596: end fail_check;
7597:
7599: begin
7600: fnd_message.set_name ('CE', 'CE_TAX_PAYER_ID_NOT_UNIQUE');
7601: fnd_msg_pub.add;
7602: IF l_DEBUG in ('Y', 'C') THEN
7603: cep_standard.debug('CE_VALIDATE_BANK_CO: ' || 'CE_TAX_PAYER_ID_NOT_UNIQUE');
7604: END IF;
7605:
7606: end fail_check_unique;
7607:
7609: begin
7610: fnd_message.set_name ('CE', 'CE_ENTER_TAX_PAYER_ID');
7611: fnd_msg_pub.add;
7612: IF l_DEBUG in ('Y', 'C') THEN
7613: cep_standard.debug('CE_VALIDATE_BANK_CO: ' || 'CE_ENTER_TAX_PAYER_ID');
7614: END IF;
7615:
7616: end fail_check_required;
7617:
7619: begin
7620:
7621: IF l_DEBUG in ('Y', 'C') THEN
7622: null;
7623: -- cep_standard.debug('CE_VALIDATE_BANK_CO: ' || 'pass_check');
7624: END IF;
7625: end pass_check;
7626:
7627: /****************/
7629: /****************/
7630: BEGIN
7631:
7632: IF l_DEBUG in ('Y', 'C') THEN
7633: cep_standard.debug('>>CE_VALIDATE_BANKINFO_UPG.CE_VALIDATE_BANK_CO');
7634: END IF;
7635:
7636: -- the last digit of tax payer id is the check digits
7637:
7643: tax_id_cd_start := (length(tax_id1));
7644: tax_id_cd := substr(tax_id1, tax_id_cd_start, length(tax_id1));
7645:
7646: IF l_DEBUG in ('Y', 'C') THEN
7647: cep_standard.debug('tax_id_cd: ' || tax_id_cd || ' tax_id: ' || tax_id );
7648: END IF;
7649:
7650: IF (tax_id) is not null then
7651: IF length(tax_id) <= 14 then
7654: IF numeric_result = '0'
7655: then /* its numeric so continue */
7656: if CE_VALIDATE_BANKINFO_UPG.CE_VAL_UNIQUE_TAX_PAYER_ID(Xi_COUNTRY_NAME,TAX_ID) = 'FALSE' then
7657: IF l_DEBUG in ('Y', 'C') THEN
7658: cep_standard.debug('failed CE_VAL_UNIQUE_TAX_PAYER_ID' );
7659: END IF;
7660: fail_check_unique;
7661: else
7662: CE_VALIDATE_BANKINFO_UPG.CE_CHECK_CROSS_MODULE_TAX_ID(Xi_COUNTRY_NAME,
7667: l_comp,
7668: l_bank);
7669:
7670: IF l_DEBUG in ('Y', 'C') THEN
7671: cep_standard.debug('l_cust: '|| l_cust ||' l_supp: '|| l_supp ||
7672: ' l_comp: '|| l_comp ||' l_bank: '|| l_bank );
7673: END IF;
7674:
7675:
7694: fnd_msg_pub.add;
7695: END IF;
7696: IF CE_VALIDATE_BANKINFO_UPG.CE_TAX_ID_CHECK_ALGORITHM(TAX_ID,Xi_COUNTRY_NAME,TAX_ID_CD) = 'FALSE' then
7697: IF l_DEBUG in ('Y', 'C') THEN
7698: cep_standard.debug('failed CE_TAX_ID_CHECK_ALGORITHM' );
7699: END IF;
7700: fail_check;
7701: END IF;
7702:
7715: END IF;
7716:
7717: /*
7718: IF l_DEBUG in ('Y', 'C') THEN
7719: cep_standard.debug('<
7721: */
7722: END CE_VALIDATE_BANK_CO;
7723:
7738: begin
7739: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7740: fnd_msg_pub.add;
7741: IF l_DEBUG in ('Y', 'C') THEN
7742: cep_standard.debug('CE_VALIDATE_BANK_AU: ' || 'CE_INVALID_BANK_NUM');
7743: END IF;
7744:
7745: end fail_check;
7746:
7747: procedure pass_check is
7748: begin
7749:
7750: IF l_DEBUG in ('Y', 'C') THEN
7751: cep_standard.debug('CE_VALIDATE_BANK_AU: ' || 'pass_check');
7752: END IF;
7753: end pass_check;
7754:
7755: /****************/
7756: /* MAIN SECTION */
7757: /****************/
7758: BEGIN
7759: IF l_DEBUG in ('Y', 'C') THEN
7760: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_au');
7761: END IF;
7762:
7763: BANK_NUM := upper(replace(Xi_BANK_NUMBER,' ',''));
7764:
7783: pass_check;
7784:
7785: END IF;
7786: IF l_DEBUG in ('Y', 'C') THEN
7787: cep_standard.debug('<
7789:
7790: END CE_VALIDATE_BANK_AU;
7791:
7806: begin
7807: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NUM');
7808: fnd_msg_pub.add;
7809: IF l_DEBUG in ('Y', 'C') THEN
7810: cep_standard.debug('CE_VALIDATE_BANK_IL: ' || 'CE_ENTER_BANK_NUM');
7811: END IF;
7812: end fail_mandatory;
7813:
7814: procedure fail_check is
7815: begin
7816: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7817: fnd_msg_pub.add;
7818: IF l_DEBUG in ('Y', 'C') THEN
7819: cep_standard.debug('CE_VALIDATE_BANK_IL: ' || 'CE_INVALID_BANK_NUM');
7820: END IF;
7821:
7822: end fail_check;
7823:
7824: procedure pass_check is
7825: begin
7826:
7827: IF l_DEBUG in ('Y', 'C') THEN
7828: cep_standard.debug('CE_VALIDATE_BANK_IL: ' || 'pass_check');
7829: END IF;
7830: end pass_check;
7831:
7832: /****************/
7833: /* MAIN SECTION */
7834: /****************/
7835: BEGIN
7836: IF l_DEBUG in ('Y', 'C') THEN
7837: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_il');
7838: END IF;
7839:
7840: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
7841:
7872: END IF; /* end of length check */
7873: END IF; /* end of mandatory check */
7874:
7875: IF l_DEBUG in ('Y', 'C') THEN
7876: cep_standard.debug('<
7878:
7879: END CE_VALIDATE_BANK_IL;
7880:
7896: begin
7897: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NUM');
7898: fnd_msg_pub.add;
7899: IF l_DEBUG in ('Y', 'C') THEN
7900: cep_standard.debug('CE_VALIDATE_BANK_NZ: ' || 'CE_ENTER_BANK_NUM');
7901: END IF;
7902: end fail_mandatory;
7903:
7904: procedure fail_check is
7905: begin
7906: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
7907: fnd_msg_pub.add;
7908: IF l_DEBUG in ('Y', 'C') THEN
7909: cep_standard.debug('CE_VALIDATE_BANK_NZ: ' || 'CE_INVALID_BANK_NUM');
7910: END IF;
7911:
7912: end fail_check;
7913:
7914: procedure pass_check is
7915: begin
7916:
7917: IF l_DEBUG in ('Y', 'C') THEN
7918: cep_standard.debug('CE_VALIDATE_BANK_NZ: ' || 'pass_check');
7919: END IF;
7920: end pass_check;
7921:
7922: /****************/
7923: /* MAIN SECTION */
7924: /****************/
7925: BEGIN
7926: IF l_DEBUG in ('Y', 'C') THEN
7927: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_nz');
7928: END IF;
7929:
7930: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
7931:
7962: END IF; /* end of length check */
7963: END IF; /* end of mandatory check */
7964:
7965: IF l_DEBUG in ('Y', 'C') THEN
7966: cep_standard.debug('<
7968:
7969:
7970: END CE_VALIDATE_BANK_NZ;
7988: begin
7989: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NUM');
7990: fnd_msg_pub.add;
7991: IF l_DEBUG in ('Y', 'C') THEN
7992: cep_standard.debug('CE_VALIDATE_BANK_JP: ' || 'CE_ENTER_BANK_NUM');
7993: END IF;
7994: end fail_mandatory;
7995:
7996: procedure fail_bank_name_alt is
7997: begin
7998: fnd_message.set_name ('CE', 'CE_ENTER_BANK_NAME_ALT');
7999: fnd_msg_pub.add;
8000: IF l_DEBUG in ('Y', 'C') THEN
8001: cep_standard.debug('CE_VALIDATE_BANK_JP: ' || 'CE_ENTER_BANK_NAME_ALT');
8002: END IF;
8003: end fail_bank_name_alt;
8004:
8005:
8007: begin
8008: fnd_message.set_name ('CE', 'CE_INVALID_BANK_NUM');
8009: fnd_msg_pub.add;
8010: IF l_DEBUG in ('Y', 'C') THEN
8011: cep_standard.debug('CE_VALIDATE_BANK_JP: ' || 'CE_INVALID_BANK_NUM');
8012: END IF;
8013:
8014: end fail_check;
8015:
8016: procedure pass_check is
8017: begin
8018:
8019: IF l_DEBUG in ('Y', 'C') THEN
8020: cep_standard.debug('CE_VALIDATE_BANK_JP: ' || 'pass_check');
8021: END IF;
8022: end pass_check;
8023:
8024: /****************/
8025: /* MAIN SECTION */
8026: /****************/
8027: BEGIN
8028: IF l_DEBUG in ('Y', 'C') THEN
8029: cep_standard.debug('>>CE_VALIDATE_BANKINFO.ce_validate_bank_jp');
8030: END IF;
8031:
8032: BANK_VALUE := upper(replace(Xi_BANK_NUMBER,' ',''));
8033:
8070: END IF;
8071: END IF;
8072:
8073: IF l_DEBUG in ('Y', 'C') THEN
8074: cep_standard.debug('<
8076:
8077:
8078: END CE_VALIDATE_BANK_JP;
8099: begin
8100: fnd_message.set_name ('CE', 'CE_ENTER_EFT_NUMBER');
8101: fnd_msg_pub.add;
8102: IF l_DEBUG in ('Y', 'C') THEN
8103: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: ' || 'CE_ENTER_EFT_NUMBER');
8104: END IF;
8105: end fail_mandatory;
8106:
8107: procedure fail_check is
8108: begin
8109: fnd_message.set_name ('CE', 'CE_INVALID_EFT_NUMBER');
8110: fnd_msg_pub.add;
8111: IF l_DEBUG in ('Y', 'C') THEN
8112: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: ' || 'CE_INVALID_EFT_NUMBER');
8113: END IF;
8114: end fail_check;
8115:
8116: procedure pass_check is
8116: procedure pass_check is
8117: begin
8118:
8119: IF l_DEBUG in ('Y', 'C') THEN
8120: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: ' || 'pass_check');
8121: END IF;
8122: end pass_check;
8123:
8124:
8123:
8124:
8125: BEGIN
8126: IF l_DEBUG in ('Y', 'C') THEN
8127: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_EFT_NUM');
8128: END IF;
8129:
8130: -- initialize API return status to success.
8131: x_return_status := fnd_api.g_ret_sts_success;
8132:
8133: COUNTRY_NAME := X_COUNTRY_NAME;
8134:
8135: IF l_DEBUG in ('Y', 'C') THEN
8136: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM - COUNTRY_NAME: '|| COUNTRY_NAME);
8137: END IF;
8138:
8139: -- Initialize message list if p_init_msg_list is set to TRUE.
8140: IF FND_API.to_Boolean(p_init_msg_list) THEN
8141: FND_MSG_PUB.initialize;
8142: END IF;
8143:
8144: IF l_DEBUG in ('Y', 'C') THEN
8145: cep_standard.debug('CE_VALIDATE_MISC_EFT_NUM: P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
8146: END IF;
8147:
8148:
8149: EFT_NUM_VALUE := upper(replace(X_EFT_NUMBER,' ',''));
8188: x_return_status := fnd_api.g_ret_sts_error;
8189: END IF;
8190:
8191: IF l_DEBUG in ('Y', 'C') THEN
8192: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_misc_eft_num - P_COUNT: '|| x_msg_count||
8193: --'P_DATA: '|| x_msg_data||
8194: --' X_VALUE_OUT: '|| X_VALUE_OUT||
8195: '<
8197:
8198: EXCEPTION
8199: WHEN OTHERS THEN
8200: IF l_DEBUG in ('Y', 'C') THEN
8201: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_EFT_NUM ' ||X_COUNTRY_NAME );
8202: END IF;
8203:
8204: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
8205: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.cd_validate_misc_eft_num');
8226: begin
8227: fnd_message.set_name ('CE', 'CE_ENTER_ACCOUNT_HOLDER_ALT');
8228: fnd_msg_pub.add;
8229: IF l_DEBUG in ('Y', 'C') THEN
8230: cep_standard.debug('CE_VALIDATE_MISC_ACCT_HLDR_ALT: ' || 'CE_ENTER_ACCOUNT_HOLDER_ALT');
8231: END IF;
8232: end fail_mandatory;
8233:
8234: procedure pass_check is
8234: procedure pass_check is
8235: begin
8236:
8237: IF l_DEBUG in ('Y', 'C') THEN
8238: cep_standard.debug('pass_check');
8239: END IF;
8240: end pass_check;
8241:
8242: BEGIN
8240: end pass_check;
8241:
8242: BEGIN
8243: IF l_DEBUG in ('Y', 'C') THEN
8244: cep_standard.debug('>>CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_ACCT_HLDR_ALT');
8245: END IF;
8246:
8247: -- initialize API return status to success.
8248: x_return_status := fnd_api.g_ret_sts_success;
8249:
8250: COUNTRY_NAME := X_COUNTRY_NAME;
8251:
8252: IF l_DEBUG in ('Y', 'C') THEN
8253: cep_standard.debug('CE_VALIDATE_MISC_ACCT_HLDR_ALT - COUNTRY_NAME: '|| COUNTRY_NAME);
8254: END IF;
8255:
8256: -- Initialize message list if p_init_msg_list is set to TRUE.
8257: IF FND_API.to_Boolean(p_init_msg_list) THEN
8258: FND_MSG_PUB.initialize;
8259: END IF;
8260:
8261: IF l_DEBUG in ('Y', 'C') THEN
8262: cep_standard.debug('CE_VALIDATE_MISC_ACCT_HLDR_ALT: P_INIT_MSG_LIST: '|| P_INIT_MSG_LIST);
8263: END IF;
8264:
8265:
8266: ACCOUNT_HOLDER_ALT := X_ACCOUNT_HOLDER_ALT;
8287: x_return_status := fnd_api.g_ret_sts_error;
8288: END IF;
8289:
8290: IF l_DEBUG in ('Y', 'C') THEN
8291: cep_standard.debug('CE_VALIDATE_BANKINFO.ce_validate_misc_acct_hldr_alt - P_COUNT: '|| x_msg_count||
8292: --'P_DATA: '|| x_msg_data||
8293: --' X_VALUE_OUT: '|| X_VALUE_OUT||
8294: '<
8296:
8297: EXCEPTION
8298: WHEN OTHERS THEN
8299: IF l_DEBUG in ('Y', 'C') THEN
8300: cep_standard.debug('CE_VALIDATE_BANKINFO.CE_VALIDATE_MISC_ACCT_HLDR_ALT ' ||X_COUNTRY_NAME );
8301: END IF;
8302:
8303: FND_MESSAGE.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
8304: fnd_message.set_token('PROCEDURE', 'CE_VALIDATE_BANKINFO.cd_validate_misc_acct_hldr_alt');