[Home] [Help]
2: /* $Header: zxctaxregnb.pls 120.32.12010000.5 2008/12/16 11:36:28 ssanka ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'ZX.PLSQL.ZX_TRN_VALIDATION_PKG.';
5: G_CURRENT_RUNTIME_LEVEL NUMBER;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'ZX.PLSQL.ZX_TRN_VALIDATION_PKG.';
13: -- Logging Infra
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'ZX.PLSQL.ZX_TRN_VALIDATION_PKG.';
13: -- Logging Infra
14:
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'ZX.PLSQL.ZX_TRN_VALIDATION_PKG.';
13: -- Logging Infra
14:
15: FUNCTION common_check_numeric(p_check_value IN VARCHAR2,
95: l_specific_count NUMBER;
96:
97: -- Logging Infra
98: l_procedure_name CONSTANT VARCHAR2(30) := 'validate_trn';
99: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
100:
101: CURSOR tax_reg_num_csr(c_registration_number varchar2, c_party_type_code varchar2, c_tax_regime_code varchar2, c_tax varchar2, c_tax_jurisdiction_code varchar2) IS
102:
103: SELECT distinct ptp.party_id
220: x_party_site_name_token OUT NOCOPY VARCHAR2) IS
221: --------------------------------------------------------------------------
222: -- Logging Infra:
223: l_procedure_name CONSTANT VARCHAR2(30) := 'display_msg';
224: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
225:
226: l_party_name VARCHAR2(5000) := NULL;
227: l_party_site_name VARCHAR2(5000) := NULL;
228:
230:
231: -- Logging Infra: Procedure level
232: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
233: l_log_msg := l_procedure_name||'(+)';
234: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
235: END IF;
236:
237: -- Logging Infra: Statement level
238: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
241: l_log_msg := l_log_msg||'P_party_type_code: '||p_party_type_code;
242: l_log_msg := l_log_msg||'P_tax_regime_code: '||p_tax_regime_code;
243: l_log_msg := l_log_msg||'P_tax: '||p_tax;
244: l_log_msg := l_log_msg||'P_tax_jurisdiction_code: '||p_tax_jurisdiction_code;
245: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
246: END IF;
247: -- Logging Infra: Statement level
248:
249: SELECT meaning
314: WHEN INVALID_CURSOR THEN
315: if tax_reg_num_csr%isopen then close tax_reg_num_csr; end if;
316:
317: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
318: FND_LOG.STRING(G_LEVEL_STATEMENT,
319: G_MODULE_NAME || l_procedure_name,
320: SQLCODE || ': ' || SQLERRM);
321: END IF;
322:
323: WHEN OTHERS THEN
324: if tax_reg_num_csr%isopen then close tax_reg_num_csr; end if;
325:
326: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
327: FND_LOG.STRING(G_LEVEL_STATEMENT,
328: G_MODULE_NAME || l_procedure_name,
329: SQLCODE || ': ' || SQLERRM);
330: END IF;
331:
343: x_party_name_token OUT NOCOPY VARCHAR2,
344: x_party_site_name_token OUT NOCOPY VARCHAR2) IS
345: --------------------------------------------------------------------------
346: l_procedure_name CONSTANT VARCHAR2(30) := 'display_cross_msg';
347: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
348: l_party_name VARCHAR2(5000) := NULL;
349: l_party_site_name VARCHAR2(5000) := NULL;
350:
351: BEGIN
351: BEGIN
352:
353: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
354: l_log_msg := l_procedure_name||'(+)';
355: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
356: END IF;
357:
358: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
359: l_log_msg := 'Parameters ';
362: l_log_msg := l_log_msg||'P_party_type_code: '||p_party_type_code;
363: l_log_msg := l_log_msg||'P_tax_regime_code: '||p_tax_regime_code;
364: l_log_msg := l_log_msg||'P_tax: '||p_tax;
365: l_log_msg := l_log_msg||'P_tax_jurisdiction_code: '||p_tax_jurisdiction_code;
366: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
367: END IF;
368:
369: IF p_party_type_code = 'THIRD_PARTY' THEN
370: SELECT meaning
461: END IF;
462: EXCEPTION
463: WHEN OTHERS THEN
464: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
465: FND_LOG.STRING(G_LEVEL_STATEMENT,
466: G_MODULE_NAME || l_procedure_name,
467: SQLCODE || ': ' || SQLERRM);
468: END IF;
469: END display_cross_msg;
478: --------------------------------------------------------------------------
479:
480: -- Logging Infra:
481: l_procedure_name CONSTANT VARCHAR2(30) := 'validate_header_trn';
482: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
483:
484: BEGIN
485:
486: -- Logging Infra: Procedure level
485:
486: -- Logging Infra: Procedure level
487: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
488: l_log_msg := l_procedure_name||'(+)';
489: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
490: END IF;
491:
492: -- Logging Infra: Statement level
493: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
494: l_log_msg := 'Parameters ';
495: l_log_msg := l_log_msg||'P_Party_Type_Code: '||p_party_type_code;
496: l_log_msg := l_log_msg||'P_ptp_id: '||to_char(p_ptp_id);
497: l_log_msg := l_log_msg||'P_Tax_Reg_Num: '||p_tax_reg_num;
498: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
499: END IF;
500: -- Logging Infra: Statement level
501: -- Third party changes
502: IF p_party_type_code = 'THIRD_PARTY_SITE' THEN
512:
513: -- Logging Infra: Statement level
514: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
515: l_log_msg := 'The Tax Registration Number does not exist in header level as Third Party.';
516: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
517: END IF;
518: -- Logging Infra: Statement level
519:
520: ELSE
537:
538: -- Logging Infra: Statement level
539: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
540: l_log_msg := 'The Tax Registration Number does not exist in header level as 1st Establishment.';
541: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
542: END IF;
543: -- Logging Infra: Statement level
544:
545: ELSE
555:
556: -- Logging Infra: Procedure level
557: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
558: l_log_msg := l_procedure_name||'(-)';
559: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
560: END IF;
561:
562: END validate_header_trn;
563:
569:
570: BEGIN
571:
572: -- Logging Infra: Setting up runtime level
573: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
574:
575: -- Logging Infra: Procedure level
576: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
577: l_log_msg := l_procedure_name||'(+)';
574:
575: -- Logging Infra: Procedure level
576: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
577: l_log_msg := l_procedure_name||'(+)';
578: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin main', l_log_msg);
579: END IF;
580:
581: -- Logging Infra: Statement level
582: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
586: l_log_msg := l_log_msg||' p_tax_regime_code: '||p_tax_regime_code;
587: l_log_msg := l_log_msg||' p_tax: '||p_tax;
588: l_log_msg := l_log_msg||' p_ptp_id: '||p_ptp_id;
589: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
590: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
591: END IF;
592: -- Logging Infra
593:
594: /***** Tax Registration Number Validation ******/
607:
608: -- Logging Infra: Statement level
609: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
610: l_log_msg := 'The Tax Registration Number is valid.';
611: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
612: END IF;
613: -- Logging Infra
614:
615: l_trn := null;
833: IF l_custom = 1 Then
834: -- Logging Infra: Statement level
835: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
836: l_log_msg := 'Customer is using custom rountine to validate tax registration number.';
837: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
838: END IF;
839: -- Logging Infra
840:
841: return;
1116: ELSE
1117: -- Logging Infra: Statement level
1118: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1119: l_log_msg := 'There is no validation rule of this country.';
1120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1121: END IF;
1122: -- Logging Infra
1123:
1124: p_return_status := FND_API.G_RET_STS_SUCCESS;
1131: END IF; -- f1
1132: -- Logging Infra: Procedure level
1133: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1134: l_log_msg := l_procedure_name||'(-)';
1135: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1136: END IF;
1137:
1138: EXCEPTION
1139: WHEN INVALID_CURSOR THEN
1141: p_error_buffer := SQLERRM;
1142:
1143: -- Logging Infra:
1144: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1145: FND_LOG.STRING(G_LEVEL_STATEMENT,
1146: G_MODULE_NAME || l_procedure_name,
1147: SQLCODE || ': ' || SQLERRM);
1148: END IF;
1149:
1152: p_error_buffer := SQLERRM;
1153:
1154: -- Logging Infra:
1155: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1156: FND_LOG.STRING(G_LEVEL_STATEMENT,
1157: G_MODULE_NAME || l_procedure_name,
1158: SQLCODE || ': ' || SQLERRM);
1159: END IF;
1160:
1185: l_trn_type VARCHAR2(30);
1186:
1187: -- Logging Infra
1188: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_AT';
1189: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1190:
1191: /**************************/
1192: /* SUB-PROCEDURES SECTION */
1193: /**************************/
1197:
1198: -- Logging Infra: Statement level
1199: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1200: l_log_msg := 'The Tax Registration Number is already used.';
1201: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1202: END IF;
1203: -- Logging Infra
1204:
1205: p_return_status := FND_API.G_RET_STS_ERROR;
1212:
1213: -- Logging Infra: Statement level
1214: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1215: l_log_msg := 'Failed the validation of the Tax Registration Number.';
1216: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1217: END IF;
1218: -- Logging Infra
1219:
1220: p_return_status := FND_API.G_RET_STS_ERROR;
1226:
1227: -- Logging Infra: Statement level
1228: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1229: l_log_msg := 'The Tax Registration Number is valid.';
1230: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1231: END IF;
1232: -- Logging Infra
1233:
1234: p_return_status := FND_API.G_RET_STS_SUCCESS;
1265: check_digit := substr(trn_value,11,1);
1266: trn_value := replace(trn_value,' ','');
1267:
1268: -- Logging Infra: Setting up runtime level
1269: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1270:
1271: -- Logging Infra: Procedure level
1272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1273: l_log_msg := l_procedure_name||'(+)';
1270:
1271: -- Logging Infra: Procedure level
1272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1273: l_log_msg := l_procedure_name||'(+)';
1274: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1275: END IF;
1276: -- Logging Infra
1277:
1278: -- Logging Infra: Statement level
1280: l_log_msg := 'Parameters ';
1281: l_log_msg := l_log_msg||'p_trn: '||p_trn;
1282: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1283: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
1284: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1285: END IF;
1286: -- Logging Infra
1287:
1288: IF p_check_unique_flag = 'E' THEN
1321: ELSE
1322: -- Logging Infra: Statement level
1323: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1324: l_log_msg := 'Check digit is incorrect.';
1325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1326: END IF;
1327: -- Logging Infra
1328:
1329: p_return_status := FND_API.G_RET_STS_ERROR;
1334: ELSE -- if3
1335: -- Logging Infra: Statement level
1336: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1337: l_log_msg := 'The prefix of Tax Registration Number is incorrect.';
1338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1339: END IF;
1340: -- Logging Infra
1341:
1342: p_return_status := FND_API.G_RET_STS_ERROR;
1348:
1349: -- Logging Infra: Statement level
1350: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1351: l_log_msg := 'The Tax Registration Number is too short.';
1352: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1353: END IF;
1354: -- Logging Infra
1355: IF length(trn_value) > 11 THEN
1356: p_return_status := FND_API.G_RET_STS_ERROR;
1366:
1367: -- Logging Infra: Statement level
1368: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1369: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
1370: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1371: END IF;
1372: -- Logging Infra
1373:
1374: p_return_status := FND_API.G_RET_STS_ERROR;
1380:
1381: -- Logging Infra: Statement level
1382: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1383: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
1384: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1385: -- END IF;
1386: -- Logging Infra
1387:
1388: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1412: l_trn_type VARCHAR2(30);
1413:
1414: -- Logging Infra
1415: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_BE';
1416: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1417:
1418: /**************************/
1419: /* SUB-PROCEDURES SECTION */
1420: /**************************/
1424:
1425: -- Logging Infra: Statement level
1426: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1427: l_log_msg := 'The Tax Registration Number is already used.';
1428: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1429: END IF;
1430: -- Logging Infra
1431:
1432: p_return_status := FND_API.G_RET_STS_ERROR;
1439:
1440: -- Logging Infra: Statement level
1441: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1442: l_log_msg := 'Failed the validation of the tax registration number.';
1443: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1444: END IF;
1445: -- Logging Infra
1446:
1447: p_return_status := FND_API.G_RET_STS_ERROR;
1453:
1454: -- Logging Infra: Statement level
1455: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1456: l_log_msg := 'The Tax Registration Number is valid.';
1457: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1458: END IF;
1459: -- Logging Infra
1460:
1461: p_return_status := FND_API.G_RET_STS_SUCCESS;
1468:
1469: BEGIN
1470:
1471: -- Logging Infra: Setting up runtime level
1472: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1473:
1474: -- Logging Infra: Procedure level
1475: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1476: l_log_msg := l_procedure_name||'(+)';
1473:
1474: -- Logging Infra: Procedure level
1475: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1476: l_log_msg := l_procedure_name||'(+)';
1477: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1478: END IF;
1479:
1480: -- Logging Infra: Statement level
1481: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1482: l_log_msg := 'Parameters ';
1483: l_log_msg := l_log_msg||'p_trn: '||p_trn;
1484: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1485: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
1486: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1487: END IF;
1488: -- Logging Infra
1489:
1490: trn_value := upper(p_trn);
1517: ELSE
1518: -- Logging Infra: Statement level
1519: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1520: l_log_msg := 'Check digit is not match.';
1521: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1522: END IF;
1523: -- Logging Infra
1524: p_return_status := FND_API.G_RET_STS_ERROR;
1525: p_error_buffer := 'ZX_REG_NUM_INVALID';
1536:
1537: -- Logging Infra: Statement level
1538: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1539: l_log_msg := 'Check digit is not match.';
1540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1541: END IF;
1542: -- Logging Infra
1543: p_return_status := FND_API.G_RET_STS_ERROR;
1544: p_error_buffer := 'ZX_REG_NUM_INVALID';
1549:
1550: -- Logging Infra: Statement level
1551: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1552: l_log_msg := 'The 3rd character should be 0 or 1.';
1553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1554: END IF;
1555: -- Logging Infra
1556:
1557: p_return_status := FND_API.G_RET_STS_ERROR;
1563:
1564: -- Logging Infra: Statement level
1565: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1566: l_log_msg := 'The length of the Tax Registration Number is not correct.';
1567: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1568: END IF;
1569: -- Logging Infra
1570:
1571: IF length(trn_value) > 12 THEN
1582:
1583: -- Logging Infra: Statement level
1584: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1585: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
1586: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1587: END IF;
1588: -- Logging Infra
1589:
1590: p_return_status := FND_API.G_RET_STS_ERROR;
1610:
1611: -- Logging Infra: Statement level
1612: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1613: l_log_msg := 'Check digit is not match.';
1614: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1615: END IF;
1616: -- Logging Infra
1617:
1618: p_return_status := FND_API.G_RET_STS_ERROR;
1623:
1624: -- Logging Infra: Statement level
1625: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1626: l_log_msg := 'The length of the Tax Registration Number is not correct.';
1627: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1628: END IF;
1629: -- Logging Infra
1630: p_return_status := FND_API.G_RET_STS_ERROR;
1631: p_error_buffer := 'ZX_REG_NUM_INVALID';
1635: ELSE
1636: -- Logging Infra: Statement level
1637: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1638: l_log_msg := 'The first number of the Tax Registration Number is not 0 or 1.';
1639: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1640: END IF;
1641: -- Logging Infra
1642:
1643: p_return_status := FND_API.G_RET_STS_ERROR;
1648:
1649: -- Logging Infra: Statement level
1650: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1651: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
1652: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1653: END IF;
1654: -- Logging Infra
1655:
1656: p_return_status := FND_API.G_RET_STS_ERROR;
1664:
1665: -- Logging Infra: Statement level
1666: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1667: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
1668: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1669: -- END IF;
1670: -- Logging Infra
1671:
1672: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1689: AS
1690:
1691: -- Logging Infra
1692: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_DK';
1693: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1694:
1695: BEGIN
1696:
1697: -- Logging Infra: Setting up runtime level
1694:
1695: BEGIN
1696:
1697: -- Logging Infra: Setting up runtime level
1698: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1699:
1700: -- Logging Infra: Procedure level
1701: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1702: l_log_msg := l_procedure_name||'(+)';
1699:
1700: -- Logging Infra: Procedure level
1701: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1702: l_log_msg := l_procedure_name||'(+)';
1703: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1704: END IF;
1705: -- Logging Infra
1706:
1707: -- Logging Infra: Statement level
1709: l_log_msg := 'Parameters ';
1710: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
1711: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1712: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
1713: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1714: END IF;
1715: -- Logging Infra
1716:
1717: IF p_check_unique_flag = 'E' THEN
1718:
1719: -- Logging Infra: Statement level
1720: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1721: l_log_msg := 'The Tax Registration Number is already used.';
1722: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1723: END IF;
1724: -- Logging Infra
1725:
1726: p_return_status := FND_API.G_RET_STS_ERROR;
1737:
1738: -- Logging Infra: Statement level
1739: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1740: l_log_msg := 'Passed Validation: Length is 10, prefix is DK, and last eight digits are numeric.';
1741: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1742: END IF;
1743: -- Logging Infra
1744:
1745: p_return_status := FND_API.G_RET_STS_SUCCESS;
1748:
1749: -- Logging Infra: Statement level
1750: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1751: l_log_msg := 'Failed Validation: Length is 10, prefix is DK, and last eight digits are numeric.';
1752: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1753: END IF;
1754: -- Logging Infra
1755:
1756: p_return_status := FND_API.G_RET_STS_ERROR;
1762:
1763: -- Logging Infra: Statement level
1764: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1765: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
1766: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1767: -- END IF;
1768: -- Logging Infra
1769:
1770: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1786: AS
1787:
1788: -- Logging Infra
1789: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_EE';
1790: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1791:
1792: BEGIN
1793:
1794: -- Logging Infra: Setting up runtime level
1791:
1792: BEGIN
1793:
1794: -- Logging Infra: Setting up runtime level
1795: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1796:
1797: -- Logging Infra: Procedure level
1798: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1799: l_log_msg := l_procedure_name||'(+)';
1796:
1797: -- Logging Infra: Procedure level
1798: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1799: l_log_msg := l_procedure_name||'(+)';
1800: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1801: END IF;
1802: -- Logging Infra
1803:
1804: -- Logging Infra: Statement level
1806: l_log_msg := 'Parameters ';
1807: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
1808: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1809: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
1810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1811: END IF;
1812: -- Logging Infra
1813:
1814: IF p_check_unique_flag = 'E' THEN
1815:
1816: -- Logging Infra: Statement level
1817: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1818: l_log_msg := 'The Tax Registration Number is already used.';
1819: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1820: END IF;
1821: -- Logging Infra
1822:
1823: p_return_status := FND_API.G_RET_STS_ERROR;
1834:
1835: -- Logging Infra: Statement level
1836: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1837: l_log_msg := 'Passed Validation: Length is 11, prefix is EE, and last nine digits are numeric.';
1838: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1839: END IF;
1840: -- Logging Infra
1841:
1842: p_return_status := FND_API.G_RET_STS_SUCCESS;
1845:
1846: -- Logging Infra: Statement level
1847: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1848: l_log_msg := 'Failed Validation: Length is 11, prefix is EE, and last nine digits are numeric.';
1849: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1850: END IF;
1851: -- Logging Infra
1852:
1853: p_return_status := FND_API.G_RET_STS_ERROR;
1859:
1860: -- Logging Infra: Statement level
1861: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1862: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
1863: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1864: -- END IF;
1865: -- Logging Infra
1866:
1867: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1882: AS
1883:
1884: -- Logging Infra
1885: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_FI';
1886: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1887:
1888: BEGIN
1889:
1890: -- Logging Infra: Setting up runtime level
1887:
1888: BEGIN
1889:
1890: -- Logging Infra: Setting up runtime level
1891: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1892:
1893: -- Logging Infra: Procedure level
1894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1895: l_log_msg := l_procedure_name||'(+)';
1892:
1893: -- Logging Infra: Procedure level
1894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1895: l_log_msg := l_procedure_name||'(+)';
1896: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1897: END IF;
1898: -- Logging Infra
1899:
1900: -- Logging Infra: Statement level
1902: l_log_msg := 'Parameters ';
1903: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
1904: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1905: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
1906: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1907: END IF;
1908: -- Logging Infra
1909:
1910: IF p_check_unique_flag = 'E' THEN
1911:
1912: -- Logging Infra: Statement level
1913: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1914: l_log_msg := 'The Tax Registration Number is already used.';
1915: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1916: END IF;
1917: -- Logging Infra
1918:
1919: p_return_status := FND_API.G_RET_STS_ERROR;
1931:
1932: -- Logging Infra: Statement level
1933: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1934: l_log_msg := 'Passed Validation: Length is 10, prefix is FI, and last eight digits are numeric.';
1935: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1936: END IF;
1937: -- Logging Infra
1938:
1939: p_return_status := FND_API.G_RET_STS_SUCCESS;
1942:
1943: -- Logging Infra: Statement level
1944: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1945: l_log_msg := 'Failed Validation: Length is 10, prefix is FI, and last eight digits are numeric.';
1946: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1947: END IF;
1948: -- Logging Infra
1949:
1950: p_return_status := FND_API.G_RET_STS_ERROR;
1956:
1957: -- Logging Infra: Statement level
1958: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1959: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
1960: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1961: -- END IF;
1962: -- Logging Infra
1963:
1964: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1979: AS
1980:
1981: -- Logging Infra
1982: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_FR';
1983: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1984:
1985: function check_letter(check_value VARCHAR2,
1986: pos NUMBER)
1987: RETURN VARCHAR2
2004: --
2005: BEGIN
2006:
2007: -- Logging Infra: Setting up runtime level
2008: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2009:
2010: -- Logging Infra: Procedure level
2011: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2012: l_log_msg := l_procedure_name||'(+)';
2009:
2010: -- Logging Infra: Procedure level
2011: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2012: l_log_msg := l_procedure_name||'(+)';
2013: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2014: END IF;
2015: -- Logging Infra
2016:
2017: -- Logging Infra: Statement level
2019: l_log_msg := 'Parameters ';
2020: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2021: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2022: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2023: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2024: END IF;
2025: -- Logging Infra
2026:
2027: IF p_check_unique_flag = 'E' THEN
2028:
2029: -- Logging Infra: Statement level
2030: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2031: l_log_msg := 'The Tax Registration Number is already used.';
2032: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2033: END IF;
2034: -- Logging Infra
2035:
2036: p_return_status := FND_API.G_RET_STS_ERROR;
2050:
2051: -- Logging Infra: Statement level
2052: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2053: l_log_msg := 'Passed Validation: Length is 13, prefix is FR, and last nine digits are numeric.';
2054: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2055: END IF;
2056: -- Logging Infra
2057:
2058: p_return_status := FND_API.G_RET_STS_SUCCESS;
2061:
2062: -- Logging Infra: Statement level
2063: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2064: l_log_msg := 'Failed Validation: Length is 13, prefix is FR, and last nine digits are numeric.';
2065: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2066: END IF;
2067: -- Logging Infra
2068:
2069: p_return_status := FND_API.G_RET_STS_ERROR;
2074:
2075: -- Logging Infra: Statement level
2076: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2077: l_log_msg := 'Failed Validation: Length is 13, prefix is FR, and last nine digits are numeric.';
2078: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2079: END IF;
2080: -- Logging Infra
2081:
2082: p_return_status := FND_API.G_RET_STS_ERROR;
2089:
2090: -- Logging Infra: Statement level
2091: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2092: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2093: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2094: -- END IF;
2095: -- Logging Infra
2096:
2097: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2112: p_error_buffer OUT NOCOPY VARCHAR2)
2113: AS
2114: -- Logging Infra
2115: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_DE';
2116: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2117:
2118: BEGIN
2119:
2120: -- Logging Infra: Setting up runtime level
2117:
2118: BEGIN
2119:
2120: -- Logging Infra: Setting up runtime level
2121: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2122:
2123: -- Logging Infra: Procedure level
2124: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2125: l_log_msg := l_procedure_name||'(+)';
2122:
2123: -- Logging Infra: Procedure level
2124: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2125: l_log_msg := l_procedure_name||'(+)';
2126: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2127: END IF;
2128: -- Logging Infra
2129:
2130: -- Logging Infra: Statement level
2132: l_log_msg := 'Parameters ';
2133: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2134: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2135: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2136: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2137: END IF;
2138: -- Logging Infra
2139:
2140: IF p_check_unique_flag = 'E' THEN
2141:
2142: -- Logging Infra: Statement level
2143: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2144: l_log_msg := 'The Tax Registration Number is already used.';
2145: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2146: END IF;
2147: -- Logging Infra
2148:
2149: p_return_status := FND_API.G_RET_STS_ERROR;
2159:
2160: -- Logging Infra: Statement level
2161: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2162: l_log_msg := 'Passed Validation: Length is 11, prefix is DE, and last nine digits are numeric.';
2163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2164: END IF;
2165: -- Logging Infra
2166:
2167: p_return_status := FND_API.G_RET_STS_SUCCESS;
2170:
2171: -- Logging Infra: Statement level
2172: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2173: l_log_msg := 'Failed Validation: Length is 11, prefix is DE, and last nine digits are numeric.';
2174: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2175: END IF;
2176: -- Logging Infra
2177:
2178: p_return_status := FND_API.G_RET_STS_ERROR;
2183:
2184: -- Logging Infra: Statement level
2185: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2186: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2187: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2188: -- END IF;
2189: -- Logging Infra
2190:
2191: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2213: check_digit number(3);
2214:
2215: -- Logging Infra
2216: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_GR';
2217: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2218:
2219: BEGIN
2220:
2221: -- Logging Infra: Setting up runtime level
2218:
2219: BEGIN
2220:
2221: -- Logging Infra: Setting up runtime level
2222: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2223:
2224: -- Logging Infra: Procedure level
2225: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2226: l_log_msg := l_procedure_name||'(+)';
2223:
2224: -- Logging Infra: Procedure level
2225: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2226: l_log_msg := l_procedure_name||'(+)';
2227: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2228: END IF;
2229: -- Logging Infra
2230:
2231: -- Logging Infra: Statement level
2233: l_log_msg := 'Parameters ';
2234: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2235: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2236: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2237: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2238: END IF;
2239: -- Logging Infra
2240:
2241: trn_string := substr(p_trn_value,3,length(p_trn_value));
2244:
2245: -- Logging Infra: Statement level
2246: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2247: l_log_msg := 'The Tax Registration Number is already used.';
2248: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2249: END IF;
2250: -- Logging Infra
2251:
2252: p_return_status := FND_API.G_RET_STS_ERROR;
2281:
2282: -- Logging Infra: Statement level
2283: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2284: l_log_msg := 'Passed Validation: Length is 11, prefix is GR, and last nine digits are numeric.';
2285: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2286: END IF;
2287: -- Logging Infra
2288:
2289: p_return_status := FND_API.G_RET_STS_SUCCESS;
2292:
2293: -- Logging Infra: Statement level
2294: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2295: l_log_msg := 'Failed Validation: Length is 11, prefix is GR, and last nine digits are numeric.';
2296: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2297: END IF;
2298: -- Logging Infra
2299:
2300: p_return_status := FND_API.G_RET_STS_ERROR;
2305:
2306: -- Logging Infra: Statement level
2307: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2308: l_log_msg := 'Failed Validation: Length is 11, prefix is GR, and last nine digits are numeric.';
2309: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2310: END IF;
2311: -- Logging Infra
2312:
2313: p_return_status := FND_API.G_RET_STS_ERROR;
2319:
2320: -- Logging Infra: Statement level
2321: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2322: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2323: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2324: -- END IF;
2325: -- Logging Infra
2326:
2327: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2342: AS
2343:
2344: -- Logging Infra
2345: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_IE';
2346: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2347:
2348: function check_letter(check_value VARCHAR2,
2349: pos NUMBER)
2350: RETURN VARCHAR2
2368:
2369: BEGIN
2370:
2371: -- Logging Infra: Setting up runtime level
2372: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2373:
2374: -- Logging Infra: Procedure level
2375: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2376: l_log_msg := l_procedure_name||'(+)';
2373:
2374: -- Logging Infra: Procedure level
2375: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2376: l_log_msg := l_procedure_name||'(+)';
2377: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2378: END IF;
2379: -- Logging Infra
2380:
2381: -- Logging Infra: Statement level
2383: l_log_msg := 'Parameters ';
2384: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2385: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2386: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2387: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2388: END IF;
2389: -- Logging Infra
2390:
2391: IF p_check_unique_flag = 'E' THEN
2392:
2393: -- Logging Infra: Statement level
2394: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2395: l_log_msg := 'The Tax Registration Number is already used.';
2396: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2397: END IF;
2398: -- Logging Infra
2399:
2400: p_return_status := FND_API.G_RET_STS_ERROR;
2412:
2413: -- Logging Infra: Statement level
2414: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2415: l_log_msg := 'Passed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
2416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2417: END IF;
2418: -- Logging Infra
2419:
2420: p_return_status := FND_API.G_RET_STS_SUCCESS;
2425:
2426: -- Logging Infra: Statement level
2427: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2428: l_log_msg := 'Passed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
2429: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2430: END IF;
2431: -- Logging Infra
2432:
2433: p_return_status := FND_API.G_RET_STS_SUCCESS;
2438: --
2439: -- Logging Infra: Statement level
2440: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2441: l_log_msg := 'Passed Validation: Length is 10, prefix is IE, and last five digits are numeric.';
2442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2443: END IF;
2444: -- Logging Infra
2445:
2446: p_return_status := FND_API.G_RET_STS_SUCCESS;
2450:
2451: -- Logging Infra: Statement level
2452: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2453: l_log_msg := 'Failed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
2454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2455: END IF;
2456: -- Logging Infra
2457:
2458: p_return_status := FND_API.G_RET_STS_ERROR;
2463:
2464: -- Logging Infra: Statement level
2465: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2466: l_log_msg := 'Failed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
2467: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2468: END IF;
2469: -- Logging Infra
2470:
2471: p_return_status := FND_API.G_RET_STS_ERROR;
2477:
2478: -- Logging Infra: Statement level
2479: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2480: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2481: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2482: -- END IF;
2483: -- Logging Infra
2484:
2485: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2514: check_tot NUMBER(6);
2515:
2516: -- Logging Infra
2517: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_IT';
2518: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2519:
2520: /**************************/
2521: /* SUB-PROCEDURES SECTION */
2522: /**************************/
2526:
2527: -- Logging Infra: Statement level
2528: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2529: l_log_msg := 'The Tax Registration Number is already used.';
2530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2531: END IF;
2532: -- Logging Infra
2533:
2534: p_return_status := FND_API.G_RET_STS_ERROR;
2540:
2541: -- Logging Infra: Statement level
2542: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2543: l_log_msg := 'Failed the validation of the tax registration number.';
2544: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2545: END IF;
2546: -- Logging Infra
2547:
2548: p_return_status := FND_API.G_RET_STS_ERROR;
2554:
2555: -- Logging Infra: Statement level
2556: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2557: l_log_msg := 'The Tax Registration Number is valid.';
2558: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2559: END IF;
2560: -- Logging Infra
2561:
2562: p_return_status := FND_API.G_RET_STS_SUCCESS;
2600: odd_tot := 0;
2601: even_tot := 0;
2602:
2603: -- Logging Infra: Setting up runtime level
2604: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2605:
2606: -- Logging Infra: Procedure level
2607: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2608: l_log_msg := l_procedure_name||'(+)';
2605:
2606: -- Logging Infra: Procedure level
2607: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2608: l_log_msg := l_procedure_name||'(+)';
2609: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2610: END IF;
2611: -- Logging Infra
2612:
2613: -- Logging Infra: Statement level
2615: l_log_msg := 'Parameters ';
2616: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2617: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2618: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2620: END IF;
2621: -- Logging Infra
2622:
2623: IF common_check_numeric(p_trn_value,1,2) <> '0' THEN
2708:
2709: -- Logging Infra: Statement level
2710: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2711: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2712: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2713: -- END IF;
2714: -- Logging Infra
2715:
2716: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2735: AS
2736:
2737: -- Logging Infra
2738: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_LU';
2739: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2740:
2741: BEGIN
2742:
2743: -- Logging Infra: Setting up runtime level
2740:
2741: BEGIN
2742:
2743: -- Logging Infra: Setting up runtime level
2744: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2745:
2746: -- Logging Infra: Procedure level
2747: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2748: l_log_msg := l_procedure_name||'(+)';
2745:
2746: -- Logging Infra: Procedure level
2747: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2748: l_log_msg := l_procedure_name||'(+)';
2749: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2750: END IF;
2751: -- Logging Infra
2752:
2753: -- Logging Infra: Statement level
2755: l_log_msg := 'Parameters ';
2756: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2757: l_log_msg := l_log_msg||'p_trn_type: '||p_trn_type;
2758: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2759: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2760: END IF;
2761: -- Logging Infra
2762:
2763: IF p_check_unique_flag = 'E' THEN
2764:
2765: -- Logging Infra: Statement level
2766: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2767: l_log_msg := 'The Tax Registration Number is already used.';
2768: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2769: END IF;
2770: -- Logging Infra
2771:
2772: p_return_status := FND_API.G_RET_STS_ERROR;
2784:
2785: -- Logging Infra: Statement level
2786: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2787: l_log_msg := 'Passed Validation: Length is 10, prefix is LU, and last eight digits are numeric.';
2788: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2789: END IF;
2790: -- Logging Infra
2791:
2792: p_return_status := FND_API.G_RET_STS_SUCCESS;
2795:
2796: -- Logging Infra: Statement level
2797: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2798: l_log_msg := 'Failed Validation: Length is 10, prefix is LU, and last eight digits are numeric.';
2799: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2800: END IF;
2801: -- Logging Infra
2802:
2803: p_return_status := FND_API.G_RET_STS_ERROR;
2809:
2810: -- Logging Infra: Statement level
2811: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2812: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2813: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2814: -- END IF;
2815: -- Logging Infra
2816:
2817: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2832: AS
2833:
2834: -- Logging Infra
2835: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_SK';
2836: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2837: trn_value VARCHAR2(50);
2838:
2839: BEGIN
2840:
2838:
2839: BEGIN
2840:
2841: -- Logging Infra: Setting up runtime level
2842: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2843:
2844: -- Logging Infra: Procedure level
2845: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2846: l_log_msg := l_procedure_name||'(+)';
2843:
2844: -- Logging Infra: Procedure level
2845: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2846: l_log_msg := l_procedure_name||'(+)';
2847: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2848: END IF;
2849: -- Logging Infra
2850:
2851: -- Logging Infra: Statement level
2853: l_log_msg := 'Parameters ';
2854: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2855: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2856: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2857: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2858: END IF;
2859: -- Logging Infra
2860:
2861: IF p_check_unique_flag = FND_API.G_RET_STS_ERROR THEN
2862:
2863: -- Logging Infra: Statement level
2864: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2865: l_log_msg := 'The Tax Registration Number is already used.';
2866: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2867: END IF;
2868: -- Logging Infra
2869:
2870: p_return_status := FND_API.G_RET_STS_ERROR;
2884:
2885: -- Logging Infra: Statement level
2886: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2887: l_log_msg := 'Passed Validation: Length is 12, and they are numeric.';
2888: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2889: END IF;
2890: -- Logging Infra
2891:
2892: p_return_status := FND_API.G_RET_STS_SUCCESS;
2897:
2898: -- Logging Infra: Statement level
2899: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2900: l_log_msg := 'The Tax Registration Number is numeric.';
2901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2902: END IF;
2903: -- Logging Infra
2904:
2905: p_return_status := FND_API.G_RET_STS_SUCCESS;
2908:
2909: -- Logging Infra: Statement level
2910: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2911: l_log_msg := 'Passed Validation: Length is 12, and they are numeric.';
2912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2913: END IF;
2914: -- Logging Infra
2915:
2916: p_return_status := FND_API.G_RET_STS_ERROR;
2922:
2923: -- Logging Infra: Statement level
2924: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2925: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2926: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2927: -- END IF;
2928: -- Logging Infra
2929:
2930: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2956: check_result VARCHAR2(1);
2957:
2958: -- Logging Infra
2959: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_NL';
2960: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2961:
2962: /**************************/
2963: /* SUB-PROCEDURES SECTION */
2964: /**************************/
2967: begin
2968: -- Logging Infra: Statement level
2969: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2970: l_log_msg := 'The Tax Registration Number is already used.';
2971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2972: END IF;
2973: -- Logging Infra
2974:
2975: p_return_status := FND_API.G_RET_STS_ERROR;
2980: begin
2981: -- Logging Infra: Statement level
2982: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2983: l_log_msg := 'Failed the validation of the tax registration number.';
2984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2985: END IF;
2986: -- Logging Infra
2987:
2988: p_return_status := FND_API.G_RET_STS_ERROR;
2993: begin
2994: -- Logging Infra: Statement level
2995: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2996: l_log_msg := 'The Tax Registration Number is valid.';
2997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2998: END IF;
2999: -- Logging Infra
3000:
3001: p_return_status := FND_API.G_RET_STS_SUCCESS;
3018:
3019: -- Logging Infra: Statement level
3020: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3021: l_log_msg := 'The Tax Registration Number without prefix and suffix must be numeric.';
3022: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3023: END IF;
3024: -- Logging Infra
3025:
3026: check_numeric_result := FND_API.G_RET_STS_ERROR;
3029:
3030: -- Logging Infra: Statement level
3031: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3032: l_log_msg := 'The Tax Registration Number is valid.';
3033: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3034: END IF;
3035: -- Logging Infra
3036:
3037: check_numeric_result := FND_API.G_RET_STS_SUCCESS;
3046:
3047: BEGIN
3048:
3049: -- Logging Infra: Setting up runtime level
3050: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3051:
3052: -- Logging Infra: Procedure level
3053: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3054: l_log_msg := l_procedure_name||'(+)';
3051:
3052: -- Logging Infra: Procedure level
3053: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3054: l_log_msg := l_procedure_name||'(+)';
3055: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3056: END IF;
3057: -- Logging Infra
3058:
3059: -- Logging Infra: Statement level
3061: l_log_msg := 'Parameters ';
3062: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3063: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3064: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3065: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3066: END IF;
3067: -- Logging Infra
3068:
3069: p_trn_value := upper(p_trn);
3115: ELSE
3116: -- Logging Infra: Statement level
3117: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3118: l_log_msg := 'Check digit is incorrect.';
3119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3120: END IF;
3121: -- Logging Infra
3122:
3123: p_return_status := FND_API.G_RET_STS_ERROR;
3127: ELSE
3128: -- Logging Infra: Statement level
3129: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3130: l_log_msg := 'The prefix of the Tax Registration Number must be alphabetic character.';
3131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3132: END IF;
3133: -- Logging Infra
3134:
3135: p_return_status := FND_API.G_RET_STS_ERROR;
3139: ELSE
3140: -- Logging Infra: Statement level
3141: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3142: l_log_msg := 'The Tax Registration Number does not have required character B in the suffix.';
3143: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3144: END IF;
3145: -- Logging Infra
3146:
3147: p_return_status := FND_API.G_RET_STS_ERROR;
3151: ELSE
3152: -- Logging Infra: Statement level
3153: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3154: l_log_msg := 'The prefix of the Tax Registration Number is incorrect.';
3155: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3156: END IF;
3157: -- Logging Infra
3158:
3159: p_return_status := FND_API.G_RET_STS_ERROR;
3163: ELSE
3164: -- Logging Infra: Statement level
3165: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3166: l_log_msg := 'The length of the Tax Registration Number is not 14.';
3167: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3168: END IF;
3169: -- Logging Infra
3170: IF length(p_trn_value) > 14 THEN
3171: p_return_status := FND_API.G_RET_STS_ERROR;
3179: ELSE
3180: -- Logging Infra: Statement level
3181: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3182: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
3183: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3184: END IF;
3185: -- Logging Infra
3186:
3187: p_return_status := FND_API.G_RET_STS_ERROR;
3192:
3193: -- Logging Infra: Statement level
3194: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3195: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3196: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3197: -- END IF;
3198: -- Logging Infra
3199:
3200: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3219: len number;
3220:
3221: -- Logging Infra
3222: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_PL';
3223: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3224: trn_value VARCHAR2(50);
3225:
3226: BEGIN
3227:
3225:
3226: BEGIN
3227:
3228: -- Logging Infra: Setting up runtime level
3229: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3230:
3231: -- Logging Infra: Procedure level
3232: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3233: l_log_msg := l_procedure_name||'(+)';
3230:
3231: -- Logging Infra: Procedure level
3232: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3233: l_log_msg := l_procedure_name||'(+)';
3234: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3235: END IF;
3236: -- Logging Infra
3237:
3238: -- Logging Infra: Statement level
3240: l_log_msg := 'Parameters ';
3241: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3242: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3243: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3244: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3245: END IF;
3246: -- Logging Infra
3247:
3248: len := length(p_trn_value);
3252:
3253: -- Logging Infra: Statement level
3254: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3255: l_log_msg := 'The Tax Registration Number is already used.';
3256: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3257: END IF;
3258: -- Logging Infra
3259:
3260: p_return_status := FND_API.G_RET_STS_ERROR;
3276: --
3277: -- Logging Infra: Statement level
3278: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3279: l_log_msg := 'The length of the Tax Registration Number is 13 or 15, and it is numeric.';
3280: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3281: END IF;
3282: -- Logging Infra
3283:
3284: p_return_status := FND_API.G_RET_STS_SUCCESS;
3287:
3288: -- Logging Infra: Statement level
3289: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3290: l_log_msg := 'Neither the length of the Tax Registration Number is 13 or 15 nor it is numeric.';
3291: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3292: END IF;
3293: -- Logging Infra
3294:
3295: p_return_status := FND_API.G_RET_STS_ERROR;
3301:
3302: -- Logging Infra: Statement level
3303: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3304: l_log_msg := 'The Tax Registration Number is numeric.';
3305: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3306: END IF;
3307: -- Logging Infra
3308:
3309: p_return_status := FND_API.G_RET_STS_SUCCESS;
3313:
3314: -- Logging Infra: Statement level
3315: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3316: l_log_msg := 'The length of the Tax Registration Number is not 10 or 13 or 15.';
3317: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3318: END IF;
3319: -- Logging Infra
3320:
3321: p_return_status := FND_API.G_RET_STS_ERROR;
3327:
3328: -- Logging Infra: Statement level
3329: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3330: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3331: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3332: -- END IF;
3333: -- Logging Infra
3334:
3335: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3360: TRN_STRING VARCHAR2(50);
3361:
3362: -- Logging Infra
3363: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_PT';
3364: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3365:
3366: BEGIN
3367:
3368: -- Logging Infra: Setting up runtime level
3365:
3366: BEGIN
3367:
3368: -- Logging Infra: Setting up runtime level
3369: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3370:
3371: -- Logging Infra: Procedure level
3372: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3373: l_log_msg := l_procedure_name||'(+)';
3370:
3371: -- Logging Infra: Procedure level
3372: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3373: l_log_msg := l_procedure_name||'(+)';
3374: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3375: END IF;
3376: -- Logging Infra
3377:
3378: -- Logging Infra: Statement level
3380: l_log_msg := 'Parameters ';
3381: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3382: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3383: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3384: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3385: END IF;
3386: -- Logging Infra
3387:
3388: check_digit := substr(p_trn_value, length(p_trn_value));
3393:
3394: -- Logging Infra: Statement level
3395: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3396: l_log_msg := 'The Tax Registration Number is already used.';
3397: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3398: END IF;
3399: -- Logging Infra
3400:
3401: p_return_status := FND_API.G_RET_STS_ERROR;
3441:
3442: -- Logging Infra: Statement level
3443: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3444: l_log_msg := 'The Tax Registration Number is valid.';
3445: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3446: END IF;
3447: -- Logging Infra
3448:
3449: p_return_status := FND_API.G_RET_STS_SUCCESS;
3452:
3453: -- Logging Infra: Statement level
3454: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3455: l_log_msg := 'The Tax Registration Number is invalid.';
3456: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3457: END IF;
3458: -- Logging Infra
3459:
3460: p_return_status := FND_API.G_RET_STS_ERROR;
3467:
3468: -- Logging Infra: Statement level
3469: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3470: l_log_msg := 'The Tax Registration Number is invalid.';
3471: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3472: END IF;
3473: -- Logging Infra
3474:
3475: p_return_status := FND_API.G_RET_STS_ERROR;
3481:
3482: -- Logging Infra: Statement level
3483: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3484: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3485: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3486: -- END IF;
3487: -- Logging Infra
3488:
3489: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3514: whole_value VARCHAR2(50);
3515:
3516: -- Logging Infra
3517: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_ES';
3518: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3519: N_Check_Digit varchar2(26) := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
3520: N_Check_Flag number := 0 ;
3521:
3522: /**************************/
3528:
3529: -- Logging Infra: Statement level
3530: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3531: l_log_msg := 'The Tax Registration Number is already used.';
3532: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3533: END IF;
3534: -- Logging Infra
3535:
3536: p_return_status := FND_API.G_RET_STS_ERROR;
3542:
3543: -- Logging Infra: Statement level
3544: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3545: l_log_msg := 'The Tax Registration Number is invalid.';
3546: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3547: END IF;
3548: -- Logging Infra
3549:
3550: p_return_status := FND_API.G_RET_STS_ERROR;
3556:
3557: -- Logging Infra: Statement level
3558: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3559: l_log_msg := 'The Tax Registration Number is valid.';
3560: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3561: END IF;
3562: -- Logging Infra
3563:
3564: p_return_status := FND_API.G_RET_STS_SUCCESS;
3571:
3572: BEGIN
3573:
3574: -- Logging Infra: Setting up runtime level
3575: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3576:
3577: WHOLE_VALUE := upper(p_trn);
3578: trn_value := upper(p_trn);
3579: check_digit := substr(trn_value, length(trn_value));
3661: ELSE
3662: -- Logging Infra: Statement level
3663: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3664: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
3665: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3666: END IF;
3667: -- Logging Infra
3668:
3669: p_return_status := FND_API.G_RET_STS_ERROR;
3688: ELSE
3689: -- Logging Infra: Statement level
3690: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3691: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
3692: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3693: END IF;
3694: -- Logging Infra
3695:
3696: p_return_status := FND_API.G_RET_STS_ERROR;
3751: ELSE
3752: -- Logging Infra: Statement level
3753: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3754: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
3755: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3756: END IF;
3757: -- Logging Infra
3758:
3759: p_return_status := FND_API.G_RET_STS_ERROR;
3769: ELSE
3770: -- Logging Infra: Statement level
3771: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3772: l_log_msg := 'The length of the Tax Registration Number is not correct.';
3773: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3774: END IF;
3775: -- Logging Infra
3776:
3777: p_return_status := FND_API.G_RET_STS_ERROR;
3790:
3791: -- Logging Infra: Statement level
3792: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3793: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3794: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3795: -- END IF;
3796: -- Logging Infra
3797:
3798: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3817: AS
3818:
3819: -- Logging Infra
3820: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_SE';
3821: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3822:
3823: BEGIN
3824:
3825: -- Logging Infra: Setting up runtime level
3822:
3823: BEGIN
3824:
3825: -- Logging Infra: Setting up runtime level
3826: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3827:
3828: -- Logging Infra: Procedure level
3829: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3830: l_log_msg := l_procedure_name||'(+)';
3827:
3828: -- Logging Infra: Procedure level
3829: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3830: l_log_msg := l_procedure_name||'(+)';
3831: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3832: END IF;
3833: -- Logging Infra
3834:
3835: -- Logging Infra: Statement level
3837: l_log_msg := 'Parameters ';
3838: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3839: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3840: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3841: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3842: END IF;
3843: -- Logging Infra
3844:
3845: IF p_check_unique_flag = 'E' THEN
3847:
3848: -- Logging Infra: Statement level
3849: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3850: l_log_msg := 'The Tax Registration Number is already used.';
3851: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3852: END IF;
3853: -- Logging Infra
3854:
3855: p_return_status := FND_API.G_RET_STS_ERROR;
3869: --
3870: -- Logging Infra: Statement level
3871: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3872: l_log_msg := 'Length is 14, Prefix is SE, and last 12 digits are numeric.';
3873: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3874: END IF;
3875: -- Logging Infra
3876:
3877: p_return_status := FND_API.G_RET_STS_SUCCESS;
3880:
3881: -- Logging Infra: Statement level
3882: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3883: l_log_msg := 'One of the following condition is incorrect.: Length is 14, Prefix is SE, or last 12 digits are numeric.';
3884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3885: END IF;
3886: -- Logging Infra
3887:
3888: p_return_status := FND_API.G_RET_STS_ERROR;
3895:
3896: -- Logging Infra: Statement level
3897: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3898: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3899: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3900: -- END IF;
3901: -- Logging Infra
3902:
3903: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3924: position_i integer;
3925:
3926: -- Logging Infra
3927: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_GB';
3928: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3929:
3930: BEGIN
3931:
3932: -- Logging Infra: Setting up runtime level
3929:
3930: BEGIN
3931:
3932: -- Logging Infra: Setting up runtime level
3933: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3934:
3935: -- Logging Infra: Procedure level
3936: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3937: l_log_msg := l_procedure_name||'(+)';
3934:
3935: -- Logging Infra: Procedure level
3936: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3937: l_log_msg := l_procedure_name||'(+)';
3938: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3939: END IF;
3940: -- Logging Infra
3941:
3942: -- Logging Infra: Statement level
3944: l_log_msg := 'Parameters ';
3945: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3946: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3947: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3948: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3949: END IF;
3950: -- Logging Infra
3951:
3952: TRN_STRING := substr(p_trn_value,3,length(p_trn_value));
3957:
3958: -- Logging Infra: Statement level
3959: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3960: l_log_msg := 'The Tax Registration Number is already used.';
3961: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3962: END IF;
3963: -- Logging Infra
3964:
3965: p_return_status := FND_API.G_RET_STS_ERROR;
3994:
3995: -- Logging Infra: Statement level
3996: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3997: l_log_msg := 'The Tax Registration Number is valid.';
3998: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3999: END IF;
4000: -- Logging Infra
4001:
4002: p_return_status := FND_API.G_RET_STS_SUCCESS;
4005:
4006: -- Logging Infra: Statement level
4007: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4008: l_log_msg := 'The Tax Registration Number is invalid.';
4009: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4010: END IF;
4011: -- Logging Infra
4012:
4013: p_return_status := FND_API.G_RET_STS_ERROR;
4018:
4019: -- Logging Infra: Statement level
4020: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4021: l_log_msg := 'The Tax Registration Number is valid.';
4022: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4023: END IF;
4024: -- Logging Infra
4025:
4026: p_return_status := FND_API.G_RET_STS_SUCCESS;
4031:
4032: -- Logging Infra: Statement level
4033: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4034: l_log_msg := 'Please enter a valid Tax Registration Number.';
4035: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4036: END IF;
4037: -- Logging Infra
4038:
4039: p_return_status := FND_API.G_RET_STS_ERROR;
4045:
4046: -- Logging Infra: Statement level
4047: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4048: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4049: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4050: -- END IF;
4051: -- Logging Infra
4052:
4053: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4068: AS
4069:
4070: -- Logging Infra
4071: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CH';
4072: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4073:
4074: BEGIN
4075:
4076: -- Logging Infra: Setting up runtime level
4073:
4074: BEGIN
4075:
4076: -- Logging Infra: Setting up runtime level
4077: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4078:
4079: -- Logging Infra: Procedure level
4080: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4081: l_log_msg := l_procedure_name||'(+)';
4078:
4079: -- Logging Infra: Procedure level
4080: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4081: l_log_msg := l_procedure_name||'(+)';
4082: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4083: END IF;
4084: -- Logging Infra
4085:
4086: -- Logging Infra: Statement level
4088: l_log_msg := 'Parameters ';
4089: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4090: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4091: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4092: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4093: END IF;
4094: -- Logging Infra
4095:
4096: IF p_check_unique_flag = 'E' THEN
4097:
4098: -- Logging Infra: Statement level
4099: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4100: l_log_msg := 'The Tax Registration Number is already used.';
4101: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4102: END IF;
4103: -- Logging Infra
4104:
4105: p_return_status := FND_API.G_RET_STS_ERROR;
4116: --
4117: -- Logging Infra: Statement level
4118: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4119: l_log_msg := 'Length is 8, and prefix is CH, and other digits are numeric.';
4120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4121: END IF;
4122: -- Logging Infra
4123:
4124: p_return_status := FND_API.G_RET_STS_SUCCESS;
4127:
4128: -- Logging Infra: Statement level
4129: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4130: l_log_msg := 'One of the following condition is incorrect: Length is 8, and prefix is CH, and other digits are numeric.';
4131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4132: END IF;
4133: -- Logging Infra
4134:
4135: p_return_status := FND_API.G_RET_STS_ERROR;
4141:
4142: -- Logging Infra: Statement level
4143: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4144: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4145: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4146: -- END IF;
4147: -- Logging Infra
4148:
4149: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4165: AS
4166:
4167: -- Logging Infra
4168: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_RU';
4169: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4170:
4171: BEGIN
4172:
4173: -- Logging Infra: Setting up runtime level
4170:
4171: BEGIN
4172:
4173: -- Logging Infra: Setting up runtime level
4174: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4175:
4176: -- Logging Infra: Procedure level
4177: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4178: l_log_msg := l_procedure_name||'(+)';
4175:
4176: -- Logging Infra: Procedure level
4177: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4178: l_log_msg := l_procedure_name||'(+)';
4179: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4180: END IF;
4181: -- Logging Infra
4182:
4183: -- Logging Infra: Statement level
4185: l_log_msg := 'Parameters ';
4186: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4187: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4188: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4189: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4190: END IF;
4191: -- Logging Infra
4192:
4193: IF p_check_unique_flag = 'E' THEN
4194:
4195: -- Logging Infra: Statement level
4196: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4197: l_log_msg := 'The Tax Registration Number is already used.';
4198: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4199: END IF;
4200: -- Logging Infra
4201:
4202: p_return_status := FND_API.G_RET_STS_ERROR;
4214: --
4215: -- Logging Infra: Statement level
4216: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4217: l_log_msg := 'The length of the Tax Registration Number is ' || length(p_trn_value);
4218: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4219: END IF;
4220: -- Logging Infra
4221:
4222: p_return_status := FND_API.G_RET_STS_SUCCESS;
4225:
4226: -- Logging Infra: Statement level
4227: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4228: l_log_msg := 'The length of the Tax Registration Number is ' || length(p_trn_value);
4229: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4230: END IF;
4231: -- Logging Infra
4232:
4233: p_return_status := FND_API.G_RET_STS_ERROR;
4239:
4240: -- Logging Infra: Statement level
4241: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4242: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4243: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4244: -- END IF;
4245: -- Logging Infra
4246:
4247: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4265: l_trn_value VARCHAR2(50);
4266:
4267: -- Logging Infra
4268: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_HU';
4269: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4270:
4271: BEGIN
4272:
4273: -- Logging Infra: Setting up runtime level
4270:
4271: BEGIN
4272:
4273: -- Logging Infra: Setting up runtime level
4274: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4275:
4276: -- Logging Infra: Procedure level
4277: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4278: l_log_msg := l_procedure_name||'(+)';
4275:
4276: -- Logging Infra: Procedure level
4277: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4278: l_log_msg := l_procedure_name||'(+)';
4279: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4280: END IF;
4281: -- Logging Infra
4282:
4283: -- Logging Infra: Statement level
4284: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4285: l_log_msg := 'Parameters ';
4286: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4287: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4288: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4289: END IF;
4290: -- Logging Infra
4291:
4292: l_trn_value := substr(p_trn_value,3,8);
4295:
4296: -- Logging Infra: Statement level
4297: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4298: l_log_msg := 'The Tax Registration Number is already used.';
4299: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4300: END IF;
4301: -- Logging Infra
4302:
4303: p_return_status := FND_API.G_RET_STS_ERROR;
4321:
4322: -- Logging Infra: Statement level
4323: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4324: l_log_msg := 'The Tax Registration Number is valid.';
4325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4326: END IF;
4327: -- Logging Infra
4328:
4329: p_return_status := FND_API.G_RET_STS_SUCCESS;
4332:
4333: -- Logging Infra: Statement level
4334: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4335: l_log_msg := 'The Tax Registration Number is invalid.';
4336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4337: END IF;
4338: -- Logging Infra
4339:
4340: p_return_status := FND_API.G_RET_STS_ERROR;
4345:
4346: -- Logging Infra: Statement level
4347: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4348: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4349: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4350: -- END IF;
4351: -- Logging Infra
4352:
4353: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4389: l_control_digit_XX VARCHAR2(2);
4390:
4391: -- Logging Infra
4392: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_BR';
4393: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4394:
4395: BEGIN
4396:
4397: -- Logging Infra: Setting up runtime level
4394:
4395: BEGIN
4396:
4397: -- Logging Infra: Setting up runtime level
4398: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4399:
4400: -- Logging Infra: Procedure level
4401: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4402: l_log_msg := l_procedure_name||'(+)';
4399:
4400: -- Logging Infra: Procedure level
4401: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4402: l_log_msg := l_procedure_name||'(+)';
4403: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4404: END IF;
4405: -- Logging Infra
4406:
4407: -- Logging Infra: Statement level
4408: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4409: l_log_msg := 'Parameters ';
4410: l_log_msg := l_log_msg||'p_trn: '||p_trn;
4411: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4412: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4413: END IF;
4414: -- Logging Infra
4415:
4416: /* Tax Registration Branch */
4425: /* Tax Registration Number branch for CPF type should be NULL or zero */
4426: -- Logging Infra: Statement level
4427: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4428: l_log_msg := 'CPF Tax Registration Number branch is not valid.';
4429: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4430: END IF;
4431: -- Logging Infra
4432:
4433: p_return_status := FND_API.G_RET_STS_ERROR;
4475:
4476: -- Logging Infra: Statement level
4477: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4478: l_log_msg := 'The CPF Inscription number is not valid.';
4479: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4480: END IF;
4481: -- Logging Infra
4482:
4483: /* Digit controls do not match */
4487:
4488: -- Logging Infra: Statement level
4489: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4490: l_log_msg := 'The Tax Registration Number is valid.';
4491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4492: END IF;
4493: -- Logging Infra
4494:
4495: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4502:
4503: -- Logging Infra: Statement level
4504: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4505: l_log_msg := 'The Tax Registration Number is valid.';
4506: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4507: END IF;
4508: -- Logging Infra
4509:
4510: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4563:
4564: -- Logging Infra: Statement level
4565: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4566: l_log_msg := 'The CGC Tax Registration Number is not valid.';
4567: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4568: END IF;
4569: -- Logging Infra
4570:
4571: p_return_status:= FND_API.G_RET_STS_ERROR;
4574:
4575: -- Logging Infra: Statement level
4576: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4577: l_log_msg := 'The Tax Registration Number is valid.';
4578: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4579: END IF;
4580: -- Logging Infra
4581:
4582: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4586:
4587: -- Logging Infra: Statement level
4588: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4589: -- l_log_msg := 'The Tax Registration Number is invalid.';
4590: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4591: -- END IF;
4592: -- Logging Infra
4593:
4594: -- p_return_status:= FND_API.G_RET_STS_ERROR;
4612: l_trn_digit VARCHAR2(1);
4613:
4614: -- Logging Infra
4615: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_AR';
4616: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4617:
4618: BEGIN
4619:
4620: -- Logging Infra: Setting up runtime level
4617:
4618: BEGIN
4619:
4620: -- Logging Infra: Setting up runtime level
4621: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4622:
4623: -- Logging Infra: Procedure level
4624: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4625: l_log_msg := l_procedure_name||'(+)';
4622:
4623: -- Logging Infra: Procedure level
4624: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4625: l_log_msg := l_procedure_name||'(+)';
4626: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4627: END IF;
4628: -- Logging Infra
4629:
4630: -- Logging Infra: Statement level
4631: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4632: l_log_msg := 'Parameters ';
4633: l_log_msg := l_log_msg||'p_trn: '||p_trn;
4634: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4635: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4636: END IF;
4637: -- Logging Infra
4638:
4639: trn_value := upper(p_trn);
4686:
4687: -- Logging Infra: Statement level
4688: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4689: l_log_msg := 'The Tax Registration Number is invalid.';
4690: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4691: END IF;
4692: -- Logging Infra
4693:
4694: p_return_status := FND_API.G_RET_STS_ERROR;
4697:
4698: -- Logging Infra: Statement level
4699: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4700: l_log_msg := 'The Tax Registration Number is valid.';
4701: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4702: END IF;
4703: -- Logging Infra
4704:
4705: p_return_status := FND_API.G_RET_STS_SUCCESS;
4710:
4711: -- Logging Infra: Statement level
4712: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4713: l_log_msg := 'The Tax Registration Number must be numeric.';
4714: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4715: END IF;
4716: -- Logging Infra
4717:
4718: p_return_status := FND_API.G_RET_STS_ERROR;
4723:
4724: -- Logging Infra: Statement level
4725: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4726: l_log_msg := 'The length of the Tax Registration Number is not correct.';
4727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4728: END IF;
4729: -- Logging Infra
4730: IF length(trn_value) > 11 THEN
4731: p_return_status := FND_API.G_RET_STS_ERROR;
4753: l_trn_digit VARCHAR2(1);
4754:
4755: -- Logging Infra
4756: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CL';
4757: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4758:
4759: BEGIN
4760:
4761: -- Logging Infra: Setting up runtime level
4758:
4759: BEGIN
4760:
4761: -- Logging Infra: Setting up runtime level
4762: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4763:
4764: -- Logging Infra: Procedure level
4765: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4766: l_log_msg := l_procedure_name||'(+)';
4763:
4764: -- Logging Infra: Procedure level
4765: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4766: l_log_msg := l_procedure_name||'(+)';
4767: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4768: END IF;
4769: -- Logging Infra
4770:
4771: -- Logging Infra: Statement level
4771: -- Logging Infra: Statement level
4772: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4773: l_log_msg := 'Parameters ';
4774: l_log_msg := l_log_msg||'p_trn: '||p_trn;
4775: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4776: END IF;
4777: -- Logging Infra
4778:
4779: trn_value := upper(p_trn);
4825:
4826: -- Logging Infra: Statement level
4827: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4828: l_log_msg := 'The validation digit and Tax Registration Number digit is different.';
4829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4830: END IF;
4831: -- Logging Infra
4832:
4833: p_return_status := FND_API.G_RET_STS_ERROR;
4836:
4837: -- Logging Infra: Statement level
4838: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4839: l_log_msg := 'The Tax Registration Number is valid.';
4840: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4841: END IF;
4842: -- Logging Infra
4843:
4844: p_return_status := FND_API.G_RET_STS_SUCCESS;
4849:
4850: -- Logging Infra: Statement level
4851: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4852: l_log_msg := 'The Tax Registration Number must be numeric.';
4853: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4854: END IF;
4855: -- Logging Infra
4856:
4857: p_return_status := FND_API.G_RET_STS_ERROR;
4862:
4863: -- Logging Infra: Statement level
4864: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4865: l_log_msg := 'The length of the Tax Registration Number is not correct.';
4866: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4867: END IF;
4868: -- Logging Infra
4869: IF length(trn_value) > 11 THEN
4870: p_return_status := FND_API.G_RET_STS_ERROR;
4894: l_mod_value NUMBER(2);
4895:
4896: -- Logging Infra
4897: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CO';
4898: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4899:
4900: BEGIN
4901:
4902: -- Logging Infra: Setting up runtime level
4899:
4900: BEGIN
4901:
4902: -- Logging Infra: Setting up runtime level
4903: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4904:
4905: -- Logging Infra: Procedure level
4906: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4907: l_log_msg := l_procedure_name||'(+)';
4904:
4905: -- Logging Infra: Procedure level
4906: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4907: l_log_msg := l_procedure_name||'(+)';
4908: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4909: END IF;
4910: -- Logging Infra
4911:
4912: -- Logging Infra: Statement level
4912: -- Logging Infra: Statement level
4913: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4914: l_log_msg := 'Parameters ';
4915: l_log_msg := l_log_msg||'p_trn: '||p_trn;
4916: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4917: END IF;
4918: -- Logging Infra
4919:
4920: trn_value := upper(p_trn);
4969:
4970: -- Logging Infra: Statement level
4971: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4972: l_log_msg := 'The Tax Registration Number is invalid.';
4973: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4974: END IF;
4975: -- Logging Infra
4976:
4977: p_return_status := FND_API.G_RET_STS_ERROR;
4980:
4981: -- Logging Infra: Statement level
4982: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4983: l_log_msg := 'The Tax Registration Number is valid.';
4984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4985: END IF;
4986: -- Logging Infra
4987:
4988: p_return_status := FND_API.G_RET_STS_SUCCESS;
4993:
4994: -- Logging Infra: Statement level
4995: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4996: l_log_msg := 'The Tax Registration Number must be numeric.';
4997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4998: END IF;
4999: -- Logging Infra
5000:
5001: IF length(trn_value) > 16 THEN
5012:
5013: -- Logging Infra: Statement level
5014: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5015: l_log_msg := 'The length of the Tax Registration Number is not correct.';
5016: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5017: END IF;
5018: -- Logging Infra
5019:
5020: p_return_status := FND_API.G_RET_STS_ERROR;
5037: l_numeric_result VARCHAR2(10);
5038:
5039: -- Logging Infra
5040: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_TW';
5041: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5042:
5043: BEGIN
5044:
5045: -- Logging Infra: Setting up runtime level
5042:
5043: BEGIN
5044:
5045: -- Logging Infra: Setting up runtime level
5046: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5047:
5048: -- Logging Infra: Procedure level
5049: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5050: l_log_msg := l_procedure_name||'(+)';
5047:
5048: -- Logging Infra: Procedure level
5049: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5050: l_log_msg := l_procedure_name||'(+)';
5051: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5052: END IF;
5053: -- Logging Infra
5054:
5055: -- Logging Infra: Statement level
5055: -- Logging Infra: Statement level
5056: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5057: l_log_msg := 'Parameters ';
5058: l_log_msg := l_log_msg||'p_trn: '||p_trn;
5059: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5060: END IF;
5061: -- Logging Infra
5062:
5063: trn_value := upper(p_trn);
5077:
5078: -- Logging Infra: Statement level
5079: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5080: l_log_msg := 'The Tax Registration Number is 9 and it is numeric only.';
5081: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5082: END IF;
5083: -- Logging Infra
5084:
5085: p_return_status := FND_API.G_RET_STS_SUCCESS;
5088:
5089: -- Logging Infra: Statement level
5090: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5091: l_log_msg := 'The length of Tax Registration Number is 9, but it is not Numeric.';
5092: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5093: END IF;
5094: -- Logging Infra
5095:
5096: p_return_status := FND_API.G_RET_STS_ERROR;
5101:
5102: -- Logging Infra: Statement level
5103: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5104: l_log_msg := 'The length of the Tax Registration Number is not 9.';
5105: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5106: END IF;
5107: -- Logging Infra
5108:
5109: IF length(trn_value) > 10 THEN
5129: AS
5130:
5131: -- Logging Infra
5132: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_MT';
5133: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5134:
5135: trn_value VARCHAR2(50);
5136: mt_prefix VARCHAR2(2);
5137:
5140: trn_value := upper(p_trn_value);
5141: mt_prefix := substr(trn_value,1,2);
5142:
5143: -- Logging Infra: Setting up runtime level
5144: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5145:
5146: -- Logging Infra: Procedure level
5147: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5148: l_log_msg := l_procedure_name||'(+)';
5145:
5146: -- Logging Infra: Procedure level
5147: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5148: l_log_msg := l_procedure_name||'(+)';
5149: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5150: END IF;
5151: -- Logging Infra
5152:
5153: -- Logging Infra: Statement level
5155: l_log_msg := 'Parameters ';
5156: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
5157: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5158: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
5159: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5160: END IF;
5161: -- Logging Infra
5162:
5163: IF p_check_unique_flag = 'E' THEN
5164:
5165: -- Logging Infra: Statement level
5166: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5167: l_log_msg := 'The Tax Registration Number is already used.';
5168: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5169: END IF;
5170: -- Logging Infra
5171:
5172: p_return_status := FND_API.G_RET_STS_ERROR;
5186:
5187: -- Logging Infra: Statement level
5188: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5189: l_log_msg := 'The Tax Registration Number is numeric.';
5190: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5191: END IF;
5192: -- Logging Infra
5193:
5194: p_return_status := FND_API.G_RET_STS_SUCCESS;
5197:
5198: -- Logging Infra: Statement level
5199: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5200: l_log_msg := 'The Tax Registration Number must be numeric.';
5201: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5202: END IF;
5203: -- Logging Infra
5204:
5205: p_return_status := FND_API.G_RET_STS_ERROR;
5211:
5212: -- Logging Infra: Statement level
5213: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5214: l_log_msg := 'The length of the Tax Registration Number is not 10.';
5215: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5216: END IF;
5217: -- Logging Infra
5218:
5219: IF length(trn_value) > 10 THEN
5236:
5237: -- Logging Infra: Statement level
5238: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5239: l_log_msg := 'The Tax Registration Number is numeric.';
5240: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5241: END IF;
5242: -- Logging Infra
5243:
5244: p_return_status := FND_API.G_RET_STS_SUCCESS;
5247:
5248: -- Logging Infra: Statement level
5249: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5250: l_log_msg := 'The Tax Registration Number must be numeric.';
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5252: END IF;
5253: -- Logging Infra
5254:
5255: p_return_status := FND_API.G_RET_STS_ERROR;
5261:
5262: -- Logging Infra: Statement level
5263: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5264: l_log_msg := 'The length of the Tax Registration Number is not 8.';
5265: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5266: END IF;
5267: -- Logging Infra
5268:
5269: IF length(trn_value) > 8 THEN
5282:
5283: -- Logging Infra: Statement level
5284: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5285: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
5286: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5287: -- END IF;
5288: -- Logging Infra
5289:
5290: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5306: AS
5307:
5308: -- Logging Infra
5309: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_LV';
5310: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5311:
5312: trn_value VARCHAR2(50);
5313: lv_prefix VARCHAR2(2);
5314:
5317: trn_value := upper(p_trn_value);
5318: lv_prefix := substr(trn_value,1,2);
5319:
5320: -- Logging Infra: Setting up runtime level
5321: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5322:
5323: -- Logging Infra: Procedure level
5324: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5325: l_log_msg := l_procedure_name||'(+)';
5322:
5323: -- Logging Infra: Procedure level
5324: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5325: l_log_msg := l_procedure_name||'(+)';
5326: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5327: END IF;
5328: -- Logging Infra
5329:
5330: -- Logging Infra: Statement level
5332: l_log_msg := 'Parameters ';
5333: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
5334: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5335: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
5336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5337: END IF;
5338: -- Logging Infra
5339:
5340: IF p_check_unique_flag = 'E' THEN
5341:
5342: -- Logging Infra: Statement level
5343: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5344: l_log_msg := 'The Tax Registration Number is already used.';
5345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5346: END IF;
5347: -- Logging Infra
5348:
5349: p_return_status := FND_API.G_RET_STS_ERROR;
5363:
5364: -- Logging Infra: Statement level
5365: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5366: l_log_msg := 'The Tax Registration Number is numeric.';
5367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5368: END IF;
5369: -- Logging Infra
5370:
5371: p_return_status := FND_API.G_RET_STS_SUCCESS;
5374:
5375: -- Logging Infra: Statement level
5376: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5377: l_log_msg := 'The Tax Registration Number must be numeric.';
5378: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5379: END IF;
5380: -- Logging Infra
5381:
5382: p_return_status := FND_API.G_RET_STS_ERROR;
5387: ELSE
5388: -- Logging Infra: Statement level
5389: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5390: l_log_msg := 'The length of the Tax Registration Number is not 13.';
5391: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5392: END IF;
5393: -- Logging Infra
5394:
5395: IF length(trn_value) > 13 THEN
5412:
5413: -- Logging Infra: Statement level
5414: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5415: l_log_msg := 'The Tax Registration Number is numeric.';
5416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5417: END IF;
5418: -- Logging Infra
5419:
5420: p_return_status := FND_API.G_RET_STS_SUCCESS;
5423:
5424: -- Logging Infra: Statement level
5425: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5426: l_log_msg := 'The Tax Registration Number must be numeric.';
5427: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5428: END IF;
5429: -- Logging Infra
5430:
5431: p_return_status := FND_API.G_RET_STS_ERROR;
5436: ELSE
5437: -- Logging Infra: Statement level
5438: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5439: l_log_msg := 'The length of the Tax Registration Number is not 11.';
5440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5441: END IF;
5442: -- Logging Infra
5443:
5444: IF length(trn_value) > 11 THEN
5458:
5459: -- Logging Infra: Statement level
5460: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5461: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
5462: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5463: -- END IF;
5464: -- Logging Infra
5465:
5466: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5482: AS
5483:
5484: -- Logging Infra
5485: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_MT';
5486: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5487:
5488: trn_value VARCHAR2(50);
5489: si_prefix VARCHAR2(2);
5490:
5493: trn_value := upper(p_trn_value);
5494: si_prefix := substr(trn_value,1,2);
5495:
5496: -- Logging Infra: Setting up runtime level
5497: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5498:
5499: -- Logging Infra: Procedure level
5500: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5501: l_log_msg := l_procedure_name||'(+)';
5498:
5499: -- Logging Infra: Procedure level
5500: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5501: l_log_msg := l_procedure_name||'(+)';
5502: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5503: END IF;
5504: -- Logging Infra
5505:
5506: -- Logging Infra: Statement level
5508: l_log_msg := 'Parameters ';
5509: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
5510: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5511: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
5512: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5513: END IF;
5514: -- Logging Infra
5515:
5516: IF p_check_unique_flag = 'E' THEN
5517:
5518: -- Logging Infra: Statement level
5519: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5520: l_log_msg := 'The Tax Registration Number is already used.';
5521: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5522: END IF;
5523: -- Logging Infra
5524:
5525: p_return_status := FND_API.G_RET_STS_ERROR;
5539:
5540: -- Logging Infra: Statement level
5541: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5542: l_log_msg := 'The Tax Registration Number is numeric.';
5543: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5544: END IF;
5545: -- Logging Infra
5546:
5547: p_return_status := FND_API.G_RET_STS_SUCCESS;
5550:
5551: -- Logging Infra: Statement level
5552: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5553: l_log_msg := 'The Tax Registration Number must be numeric.';
5554: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5555: END IF;
5556: -- Logging Infra
5557:
5558: p_return_status := FND_API.G_RET_STS_ERROR;
5564:
5565: -- Logging Infra: Statement level
5566: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5567: l_log_msg := 'The length of the Tax Registration Number is not 10.';
5568: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5569: END IF;
5570: -- Logging Infra
5571:
5572: IF length(trn_value) > 10 THEN
5589:
5590: -- Logging Infra: Statement level
5591: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5592: l_log_msg := 'The Tax Registration Number is numeric.';
5593: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5594: END IF;
5595: -- Logging Infra
5596:
5597: p_return_status := FND_API.G_RET_STS_SUCCESS;
5600:
5601: -- Logging Infra: Statement level
5602: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5603: l_log_msg := 'The Tax Registration Number must be numeric.';
5604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5605: END IF;
5606: -- Logging Infra
5607:
5608: p_return_status := FND_API.G_RET_STS_ERROR;
5614:
5615: -- Logging Infra: Statement level
5616: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5617: l_log_msg := 'The length of the Tax Registration Number is not 8.';
5618: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5619: END IF;
5620: -- Logging Infra
5621:
5622: IF length(trn_value) > 8 THEN
5635:
5636: -- Logging Infra: Statement level
5637: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5638: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
5639: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5640: -- END IF;
5641: -- Logging Infra
5642:
5643: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5658: AS
5659:
5660: -- Logging Infra
5661: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_LT';
5662: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5663:
5664: trn_value VARCHAR2(50);
5665: lt_prefix VARCHAR2(2);
5666:
5669: trn_value := upper(p_trn_value);
5670: lt_prefix := substr(trn_value,1,2);
5671:
5672: -- Logging Infra: Setting up runtime level
5673: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5674:
5675: -- Logging Infra: Procedure level
5676: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5677: l_log_msg := l_procedure_name||'(+)';
5674:
5675: -- Logging Infra: Procedure level
5676: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5677: l_log_msg := l_procedure_name||'(+)';
5678: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5679: END IF;
5680: -- Logging Infra
5681:
5682: -- Logging Infra: Statement level
5684: l_log_msg := 'Parameters ';
5685: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
5686: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5687: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
5688: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5689: END IF;
5690: -- Logging Infra
5691:
5692: IF p_check_unique_flag = 'E' THEN
5693:
5694: -- Logging Infra: Statement level
5695: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5696: l_log_msg := 'The Tax Registration Number is already used.';
5697: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5698: END IF;
5699: -- Logging Infra
5700:
5701: p_return_status := FND_API.G_RET_STS_ERROR;
5715:
5716: -- Logging Infra: Statement level
5717: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5718: l_log_msg := 'The Tax Registration Number is numeric.';
5719: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5720: END IF;
5721: -- Logging Infra
5722:
5723: p_return_status := FND_API.G_RET_STS_SUCCESS;
5726:
5727: -- Logging Infra: Statement level
5728: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5729: l_log_msg := 'The Tax Registration Number must be numeric.';
5730: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5731: END IF;
5732: -- Logging Infra
5733:
5734: p_return_status := FND_API.G_RET_STS_ERROR;
5740:
5741: -- Logging Infra: Statement level
5742: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5743: l_log_msg := 'The length of the Tax Registration Number is not 9 or 12.';
5744: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5745: END IF;
5746: -- Logging Infra
5747:
5748: IF length(trn_value) > 11 AND length(trn_value) < 14 THEN
5769:
5770: -- Logging Infra: Statement level
5771: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5772: l_log_msg := 'The Tax Registration Number is numeric.';
5773: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5774: END IF;
5775: -- Logging Infra
5776:
5777: p_return_status := FND_API.G_RET_STS_SUCCESS;
5780:
5781: -- Logging Infra: Statement level
5782: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5783: l_log_msg := 'The Tax Registration Number must be numeric.';
5784: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5785: END IF;
5786: -- Logging Infra
5787:
5788: p_return_status := FND_API.G_RET_STS_ERROR;
5794:
5795: -- Logging Infra: Statement level
5796: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5797: l_log_msg := 'The length of the Tax Registration Number is not 9 or 12.';
5798: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5799: END IF;
5800: -- Logging Infra
5801:
5802: IF length(trn_value) > 9 AND length(trn_value) < 12 THEN
5818:
5819: -- Logging Infra: Statement level
5820: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5821: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
5822: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5823: -- END IF;
5824: -- Logging Infra
5825:
5826: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5842: AS
5843:
5844: -- Logging Infra
5845: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CY';
5846: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5847:
5848:
5849: trn_value VARCHAR2(50);
5850: cy_prefix VARCHAR2(2);
5854: trn_value := upper(p_trn_value);
5855: cy_prefix := substr(trn_value,1,2);
5856:
5857: -- Logging Infra: Setting up runtime level
5858: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5859:
5860: -- Logging Infra: Procedure level
5861: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5862: l_log_msg := l_procedure_name||'(+)';
5859:
5860: -- Logging Infra: Procedure level
5861: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5862: l_log_msg := l_procedure_name||'(+)';
5863: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5864: END IF;
5865: -- Logging Infra
5866:
5867: -- Logging Infra: Statement level
5869: l_log_msg := 'Parameters ';
5870: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
5871: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5872: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
5873: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5874: END IF;
5875: -- Logging Infra
5876:
5877: IF p_check_unique_flag = 'E' THEN
5878:
5879: -- Logging Infra: Statement level
5880: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5881: l_log_msg := 'The Tax Registration Number is already used.';
5882: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5883: END IF;
5884: -- Logging Infra
5885:
5886: p_return_status := FND_API.G_RET_STS_ERROR;
5902:
5903: -- Logging Infra: Statement level
5904: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5905: l_log_msg := 'The Tax Registration Number is numeric.';
5906: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5907: END IF;
5908: -- Logging Infra
5909:
5910: p_return_status := FND_API.G_RET_STS_SUCCESS;
5914:
5915: -- Logging Infra: Statement level
5916: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5917: l_log_msg := 'The last character must be a letter.';
5918: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5919: END IF;
5920: -- Logging Infra
5921:
5922: p_return_status := FND_API.G_RET_STS_ERROR;
5927:
5928: -- Logging Infra: Statement level
5929: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5930: l_log_msg := 'The Tax Registration Number must be numeric.';
5931: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5932: END IF;
5933: -- Logging Infra
5934:
5935: p_return_status := FND_API.G_RET_STS_ERROR;
5941:
5942: -- Logging Infra: Statement level
5943: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5944: l_log_msg := 'The length of the Tax Registration Number is not 11.';
5945: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5946: END IF;
5947: -- Logging Infra
5948:
5949: IF length(trn_value) > 11 THEN
5967:
5968: -- Logging Infra: Statement level
5969: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5970: l_log_msg := 'The Tax Registration Number is numeric.';
5971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5972: END IF;
5973: -- Logging Infra
5974:
5975: p_return_status := FND_API.G_RET_STS_SUCCESS;
5979:
5980: -- Logging Infra: Statement level
5981: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5982: l_log_msg := 'The last character must be a letter.';
5983: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5984: END IF;
5985: -- Logging Infra
5986:
5987: p_return_status := FND_API.G_RET_STS_ERROR;
5992:
5993: -- Logging Infra: Statement level
5994: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5995: l_log_msg := 'The Tax Registration Number must be numeric.';
5996: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5997: END IF;
5998: -- Logging Infra
5999:
6000: p_return_status := FND_API.G_RET_STS_ERROR;
6006:
6007: -- Logging Infra: Statement level
6008: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6009: l_log_msg := 'The length of the Tax Registration Number is not 9.';
6010: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6011: END IF;
6012: -- Logging Infra
6013:
6014: IF length(trn_value) > 9 THEN
6027:
6028: -- Logging Infra: Statement level
6029: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6030: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
6031: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6032: -- END IF;
6033: -- Logging Infra
6034:
6035: -- p_return_status := FND_API.G_RET_STS_SUCCESS;