[Home] [Help]
2: /* $Header: zxctaxregnb.pls 120.46.12020000.4 2013/01/03 11:13:37 srajapar 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: G_INVALID_PTP_ID CONSTANT NUMBER(3) := -1;
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: G_INVALID_PTP_ID CONSTANT NUMBER(3) := -1;
14: g_ptp_id ZX_PARTY_TAX_PROFILE.PARTY_TAX_PROFILE_ID%TYPE;
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: G_INVALID_PTP_ID CONSTANT NUMBER(3) := -1;
14: g_ptp_id ZX_PARTY_TAX_PROFILE.PARTY_TAX_PROFILE_ID%TYPE;
15: g_trn VARCHAR2(20);
117: l_specific_count NUMBER;
118:
119: -- Logging Infra
120: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN';
121: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
122:
123: CURSOR tax_reg_num_csr(c_registration_number varchar2,
124: c_party_type_code varchar2,
125: c_tax_regime_code varchar2,
243: x_party_site_name_token OUT NOCOPY VARCHAR2) IS
244: --------------------------------------------------------------------------
245: -- Logging Infra:
246: l_procedure_name CONSTANT VARCHAR2(30) := 'display_msg';
247: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
248:
249: l_party_name VARCHAR2(5000) := NULL;
250: l_party_site_name VARCHAR2(5000) := NULL;
251:
253:
254: -- Logging Infra: Procedure level
255: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
256: l_log_msg := l_procedure_name||'(+)';
257: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
258: END IF;
259:
260: -- Logging Infra: Statement level
261: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
264: l_log_msg := l_log_msg||'P_party_type_code: '||p_party_type_code;
265: l_log_msg := l_log_msg||'P_tax_regime_code: '||p_tax_regime_code;
266: l_log_msg := l_log_msg||'P_tax: '||p_tax;
267: l_log_msg := l_log_msg||'P_tax_jurisdiction_code: '||p_tax_jurisdiction_code;
268: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
269: END IF;
270: -- Logging Infra: Statement level
271:
272: SELECT meaning
337: WHEN INVALID_CURSOR THEN
338: if tax_reg_num_csr%isopen then close tax_reg_num_csr; end if;
339:
340: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
341: FND_LOG.STRING(G_LEVEL_EXCEPTION,
342: G_MODULE_NAME || l_procedure_name,
343: SQLCODE || ': ' || SQLERRM);
344: END IF;
345:
346: WHEN OTHERS THEN
347: if tax_reg_num_csr%isopen then close tax_reg_num_csr; end if;
348:
349: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
350: FND_LOG.STRING(G_LEVEL_EXCEPTION,
351: G_MODULE_NAME || l_procedure_name,
352: SQLCODE || ': ' || SQLERRM);
353: END IF;
354:
366: x_party_name_token OUT NOCOPY VARCHAR2,
367: x_party_site_name_token OUT NOCOPY VARCHAR2) IS
368: --------------------------------------------------------------------------
369: l_procedure_name CONSTANT VARCHAR2(30) := 'display_cross_msg';
370: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
371: l_party_name VARCHAR2(5000) := NULL;
372: l_party_site_name VARCHAR2(5000) := NULL;
373:
374: BEGIN
374: BEGIN
375:
376: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
377: l_log_msg := l_procedure_name||'(+)';
378: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
379: END IF;
380:
381: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
382: l_log_msg := 'Parameters ';
385: l_log_msg := l_log_msg||'P_party_type_code: '||p_party_type_code;
386: l_log_msg := l_log_msg||'P_tax_regime_code: '||p_tax_regime_code;
387: l_log_msg := l_log_msg||'P_tax: '||p_tax;
388: l_log_msg := l_log_msg||'P_tax_jurisdiction_code: '||p_tax_jurisdiction_code;
389: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
390: END IF;
391:
392: IF p_party_type_code = 'THIRD_PARTY' THEN
393: SELECT meaning
485: END IF;
486: EXCEPTION
487: WHEN OTHERS THEN
488: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
489: FND_LOG.STRING(G_LEVEL_EXCEPTION,
490: G_MODULE_NAME || l_procedure_name,
491: SQLCODE || ': ' || SQLERRM);
492: END IF;
493: END display_cross_msg;
502: --------------------------------------------------------------------------
503:
504: -- Logging Infra:
505: l_procedure_name CONSTANT VARCHAR2(30) := 'validate_header_trn';
506: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
507:
508: BEGIN
509:
510: -- Logging Infra: Procedure level
509:
510: -- Logging Infra: Procedure level
511: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
512: l_log_msg := l_procedure_name||'(+)';
513: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
514: END IF;
515:
516: -- Logging Infra: Statement level
517: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
518: l_log_msg := 'Parameters ';
519: l_log_msg := l_log_msg||'P_Party_Type_Code: '||p_party_type_code;
520: l_log_msg := l_log_msg||'P_ptp_id: '||to_char(p_ptp_id);
521: l_log_msg := l_log_msg||'P_Tax_Reg_Num: '||p_tax_reg_num;
522: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
523: END IF;
524: -- Logging Infra: Statement level
525: -- Third party changes
526: IF p_party_type_code = 'THIRD_PARTY_SITE' THEN
536:
537: -- Logging Infra: Statement level
538: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
539: l_log_msg := 'The Tax Registration Number does not exist in header level as Third Party.';
540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
541: END IF;
542: -- Logging Infra: Statement level
543:
544: ELSE
561:
562: -- Logging Infra: Statement level
563: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
564: l_log_msg := 'The Tax Registration Number does not exist in header level as 1st Establishment.';
565: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
566: END IF;
567: -- Logging Infra: Statement level
568:
569: ELSE
579:
580: -- Logging Infra: Procedure level
581: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
582: l_log_msg := l_procedure_name||'(-)';
583: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
584: END IF;
585:
586: END validate_header_trn;
587:
620: l_party_site_name VARCHAR2(5000);
621: l_allow_dup_regn_num_flag VARCHAR2(1);
622:
623: l_procedure_name CONSTANT VARCHAR2(30) := 'chk_dup_trn_with_no_tax_reg';
624: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
625:
626: BEGIN
627: -- Initialize
628: p_return_status := FND_API.G_RET_STS_SUCCESS;
635: l_log_msg := l_log_msg||'party_type_code: '||p_party_type_code;
636: l_log_msg := l_log_msg||'x_party_type_token: '||x_party_type_token;
637: l_log_msg := l_log_msg||'x_party_name_token: '||x_party_name_token;
638: l_log_msg := l_log_msg||'x_party_site_name_token: '||x_party_site_name_token;
639: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
640: END IF;
641: OPEN trn_with_no_reg_common_cur(p_ptp_id,p_tax_reg_num, p_party_type_code);
642: FETCH trn_with_no_reg_common_cur INTO l_party_id,l_ptp_id;
643:
642: FETCH trn_with_no_reg_common_cur INTO l_party_id,l_ptp_id;
643:
644: IF trn_with_no_reg_common_cur%FOUND THEN
645: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
646: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
647: 'Duplicate Exists at same party level');
648: END IF;
649: IF p_ptp_id <> G_INVALID_PTP_ID THEN
650: --
801: END;
802:
803: IF l_total_count > 0 THEN
804: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
805: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
806: 'Duplicate exists at Other Party Level');
807: END IF;
808:
809: IF p_party_type_code = 'THIRD_PARTY' THEN
822: WHEN OTHERS THEN
823: l_specific_count := 0;
824: END;
825: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
826: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,'Count: '||l_specific_count);
827: END IF;
828: IF l_total_count <> l_specific_count THEN
829: SELECT meaning
830: INTO x_party_type_token
901: WHEN OTHERS THEN
902: l_specific_count := 0;
903: END;
904: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
905: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,'Count: '||l_specific_count);
906: END IF;
907: IF l_total_count <> l_specific_count THEN
908: SELECT meaning
909: INTO x_party_type_token
960: CLOSE trn_with_no_reg_common_cur;
961: EXCEPTION
962: WHEN OTHERS THEN
963: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
964: FND_LOG.STRING(G_LEVEL_EXCEPTION,
965: G_MODULE_NAME || l_procedure_name,
966: SQLCODE || ': ' || SQLERRM);
967:
968: x_party_type_token := NULL;
980:
981: BEGIN
982:
983: -- Logging Infra: Setting up runtime level
984: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
985:
986: -- Logging Infra: Procedure level
987: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
988: l_log_msg := l_procedure_name||'(+)';
985:
986: -- Logging Infra: Procedure level
987: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
988: l_log_msg := l_procedure_name||'(+)';
989: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin main', l_log_msg);
990: END IF;
991:
992: -- Logging Infra: Statement level
993: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
997: l_log_msg := l_log_msg||' p_tax_regime_code: '||p_tax_regime_code;
998: l_log_msg := l_log_msg||' p_tax: '||p_tax;
999: l_log_msg := l_log_msg||' p_ptp_id: '||p_ptp_id;
1000: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1001: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'Prev PTP: '||g_ptp_id);
1003: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'Prev TRN: '||g_trn);
1004: END IF;
1005: -- Logging Infra
998: l_log_msg := l_log_msg||' p_tax: '||p_tax;
999: l_log_msg := l_log_msg||' p_ptp_id: '||p_ptp_id;
1000: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1001: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'Prev PTP: '||g_ptp_id);
1003: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'Prev TRN: '||g_trn);
1004: END IF;
1005: -- Logging Infra
1006:
999: l_log_msg := l_log_msg||' p_ptp_id: '||p_ptp_id;
1000: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1001: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'Prev PTP: '||g_ptp_id);
1003: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'Prev TRN: '||g_trn);
1004: END IF;
1005: -- Logging Infra
1006:
1007: /***** Tax Registration Number Validation ******/
1021: AND p_tax is NULL AND p_tax_regime_code is NULL THEN
1022: p_return_status := FND_API.G_RET_STS_SUCCESS;
1023: p_error_buffer := NULL;
1024: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1025: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,'TRN is already validated');
1026: END IF;
1027: return;
1028: ELSE
1029: -- 10402027
1045:
1046: p_return_status := FND_API.G_RET_STS_SUCCESS;
1047: p_error_buffer := NULL;
1048: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,'TRN is created in 11i or validated already');
1050: END IF;
1051: return;
1052: EXCEPTION WHEN OTHERS THEN
1053: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1050: END IF;
1051: return;
1052: EXCEPTION WHEN OTHERS THEN
1053: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1054: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME || l_procedure_name,'TRN is entered newly');
1055: END IF;
1056: l_trn := p_tax_reg_num;
1057: END;
1058: -- 10402027
1110:
1111: -- Logging Infra: Statement level
1112: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1113: l_log_msg := 'The Tax Registration Number is valid.';
1114: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1115: END IF;
1116: -- Logging Infra
1117:
1118: l_trn := null;
1219: ELSE -- f2
1220:
1221: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1222: l_log_msg := 'Before the Call to Cross Registration number validation ';
1223: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1224: END IF;
1225:
1226: -- Added for Cross Registration number validation (6774002)
1227: BEGIN
1329: ELSE -- Cross Validation returned 0 rows
1330:
1331: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1332: l_log_msg := 'Cross Validfation returned 0 rows. Now Calling chk_dup_trn_with_no_tax_reg';
1333: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1334: END IF;
1335: --Added For Bug 7552460
1336: IF (p_tax IS NULL OR nvl(l_allow_regn_num_flag,'N') <> 'Y') THEN
1337: chk_dup_trn_with_no_tax_reg(G_PTP_ID,l_trn,L_PARTY_TYPE_CODE,
1354: p_return_status,
1355: p_error_buffer);
1356: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1357: l_log_msg := 'After the Call to VALIDATE_TRN_CUSTOM '||l_custom;
1358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1359: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
1360: ' p_return_status:'||p_return_status||' p_error_buffer:'||p_error_buffer);
1361: END IF;
1362:
1355: p_error_buffer);
1356: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1357: l_log_msg := 'After the Call to VALIDATE_TRN_CUSTOM '||l_custom;
1358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1359: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
1360: ' p_return_status:'||p_return_status||' p_error_buffer:'||p_error_buffer);
1361: END IF;
1362:
1363: IF l_custom = 1 Then
1363: IF l_custom = 1 Then
1364: -- Logging Infra: Statement level
1365: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1366: l_log_msg := 'Customer is using custom rountine to validate tax registration number.';
1367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1368: END IF;
1369: -- Logging Infra
1370:
1371: return;
1646: ELSE
1647: -- Logging Infra: Statement level
1648: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1649: l_log_msg := 'There is no validation rule of this country';
1650: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1651: END IF;
1652: -- Logging Infra
1653:
1654: p_return_status := FND_API.G_RET_STS_SUCCESS;
1665: END IF;
1666: -- Logging Infra: Procedure level
1667: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1668: l_log_msg := l_procedure_name||'(-)';
1669: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1670: END IF;
1671:
1672: EXCEPTION
1673: WHEN INVALID_CURSOR THEN
1675: p_error_buffer := SQLERRM;
1676:
1677: -- Logging Infra:
1678: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1679: FND_LOG.STRING(G_LEVEL_EXCEPTION,
1680: G_MODULE_NAME || l_procedure_name,
1681: SQLCODE || ': ' || SQLERRM);
1682: END IF;
1683:
1690: p_error_buffer := SQLERRM;
1691: END IF;
1692: -- Logging Infra:
1693: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1694: FND_LOG.STRING(G_LEVEL_EXCEPTION,
1695: G_MODULE_NAME || l_procedure_name,
1696: SQLCODE || ': ' || SQLERRM);
1697: END IF;
1698:
1722: l_trn_type VARCHAR2(30);
1723:
1724: -- Logging Infra
1725: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_AT';
1726: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1727:
1728: /**************************/
1729: /* SUB-PROCEDURES SECTION */
1730: /**************************/
1734:
1735: -- Logging Infra: Statement level
1736: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1737: l_log_msg := 'The Tax Registration Number is already used.';
1738: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1739: END IF;
1740: -- Logging Infra
1741:
1742: p_return_status := FND_API.G_RET_STS_ERROR;
1749:
1750: -- Logging Infra: Statement level
1751: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1752: l_log_msg := 'Failed the validation of the Tax Registration Number.';
1753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1754: END IF;
1755: -- Logging Infra
1756:
1757: p_return_status := FND_API.G_RET_STS_ERROR;
1763:
1764: -- Logging Infra: Statement level
1765: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1766: l_log_msg := 'The Tax Registration Number is valid.';
1767: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1768: END IF;
1769: -- Logging Infra
1770:
1771: p_return_status := FND_API.G_RET_STS_SUCCESS;
1802: check_digit := substr(trn_value,11,1);
1803: trn_value := replace(trn_value,' ','');
1804:
1805: -- Logging Infra: Setting up runtime level
1806: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1807:
1808: -- Logging Infra: Procedure level
1809: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1810: l_log_msg := l_procedure_name||'(+)';
1807:
1808: -- Logging Infra: Procedure level
1809: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1810: l_log_msg := l_procedure_name||'(+)';
1811: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1812: END IF;
1813: -- Logging Infra
1814:
1815: -- Logging Infra: Statement level
1817: l_log_msg := 'Parameters ';
1818: l_log_msg := l_log_msg||'p_trn: '||p_trn;
1819: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
1820: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
1821: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1822: END IF;
1823: -- Logging Infra
1824:
1825: IF p_check_unique_flag = 'E' THEN
1858: ELSE
1859: -- Logging Infra: Statement level
1860: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1861: l_log_msg := 'Check digit is incorrect.';
1862: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1863: END IF;
1864: -- Logging Infra
1865:
1866: p_return_status := FND_API.G_RET_STS_ERROR;
1871: ELSE -- if3
1872: -- Logging Infra: Statement level
1873: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1874: l_log_msg := 'The prefix of Tax Registration Number is incorrect.';
1875: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1876: END IF;
1877: -- Logging Infra
1878:
1879: p_return_status := FND_API.G_RET_STS_ERROR;
1885:
1886: -- Logging Infra: Statement level
1887: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1888: l_log_msg := 'The Tax Registration Number is too short.';
1889: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1890: END IF;
1891: -- Logging Infra
1892: IF length(trn_value) > 11 THEN
1893: p_return_status := FND_API.G_RET_STS_ERROR;
1903:
1904: -- Logging Infra: Statement level
1905: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1906: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
1907: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1908: END IF;
1909: -- Logging Infra
1910:
1911: p_return_status := FND_API.G_RET_STS_ERROR;
1917:
1918: -- Logging Infra: Statement level
1919: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1920: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
1921: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1922: -- END IF;
1923: -- Logging Infra
1924:
1925: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1949: l_trn_type VARCHAR2(30);
1950:
1951: -- Logging Infra
1952: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_BE';
1953: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1954:
1955: /**************************/
1956: /* SUB-PROCEDURES SECTION */
1957: /**************************/
1961:
1962: -- Logging Infra: Statement level
1963: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1964: l_log_msg := 'The Tax Registration Number is already used.';
1965: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1966: END IF;
1967: -- Logging Infra
1968:
1969: p_return_status := FND_API.G_RET_STS_ERROR;
1976:
1977: -- Logging Infra: Statement level
1978: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1979: l_log_msg := 'Failed the validation of the tax registration number.';
1980: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1981: END IF;
1982: -- Logging Infra
1983:
1984: p_return_status := FND_API.G_RET_STS_ERROR;
1990:
1991: -- Logging Infra: Statement level
1992: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1993: l_log_msg := 'The Tax Registration Number is valid.';
1994: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1995: END IF;
1996: -- Logging Infra
1997:
1998: p_return_status := FND_API.G_RET_STS_SUCCESS;
2005:
2006: BEGIN
2007:
2008: -- Logging Infra: Setting up runtime level
2009: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2010:
2011: -- Logging Infra: Procedure level
2012: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2013: l_log_msg := l_procedure_name||'(+)';
2010:
2011: -- Logging Infra: Procedure level
2012: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2013: l_log_msg := l_procedure_name||'(+)';
2014: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2015: END IF;
2016:
2017: -- Logging Infra: Statement level
2018: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2019: l_log_msg := 'Parameters ';
2020: l_log_msg := l_log_msg||'p_trn: '||p_trn;
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: trn_value := upper(p_trn);
2052: ELSE
2053: -- Logging Infra: Statement level
2054: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2055: l_log_msg := 'Check digit is not match.';
2056: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2057: END IF;
2058: -- Logging Infra
2059: p_return_status := FND_API.G_RET_STS_ERROR;
2060: p_error_buffer := 'ZX_REG_NUM_INVALID';
2070:
2071: -- Logging Infra: Statement level
2072: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2073: l_log_msg := 'Check digit is not match.';
2074: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2075: END IF;
2076: -- Logging Infra
2077: p_return_status := FND_API.G_RET_STS_ERROR;
2078: p_error_buffer := 'ZX_REG_NUM_INVALID';
2083:
2084: -- Logging Infra: Statement level
2085: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2086: l_log_msg := 'The 3rd character should be 0 or 1.';
2087: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2088: END IF;
2089: -- Logging Infra
2090:
2091: p_return_status := FND_API.G_RET_STS_ERROR;
2097:
2098: -- Logging Infra: Statement level
2099: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2100: l_log_msg := 'The length of the Tax Registration Number is not correct.';
2101: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2102: END IF;
2103: -- Logging Infra
2104:
2105: IF length(trn_value) > 12 THEN
2116:
2117: -- Logging Infra: Statement level
2118: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2119: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
2120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2121: END IF;
2122: -- Logging Infra
2123:
2124: p_return_status := FND_API.G_RET_STS_ERROR;
2143:
2144: -- Logging Infra: Statement level
2145: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2146: l_log_msg := 'Check digit is not match.';
2147: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2148: END IF;
2149: -- Logging Infra
2150:
2151: p_return_status := FND_API.G_RET_STS_ERROR;
2156:
2157: -- Logging Infra: Statement level
2158: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2159: l_log_msg := 'The length of the Tax Registration Number is not correct.';
2160: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2161: END IF;
2162: -- Logging Infra
2163: p_return_status := FND_API.G_RET_STS_ERROR;
2164: p_error_buffer := 'ZX_REG_NUM_INVALID';
2168: ELSE
2169: -- Logging Infra: Statement level
2170: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2171: l_log_msg := 'The first number of the Tax Registration Number is not 0 or 1.';
2172: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2173: END IF;
2174: -- Logging Infra
2175:
2176: p_return_status := FND_API.G_RET_STS_ERROR;
2181:
2182: -- Logging Infra: Statement level
2183: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2184: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
2185: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2186: END IF;
2187: -- Logging Infra
2188:
2189: p_return_status := FND_API.G_RET_STS_ERROR;
2197:
2198: -- Logging Infra: Statement level
2199: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2200: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2201: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2202: -- END IF;
2203: -- Logging Infra
2204:
2205: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2222: AS
2223:
2224: -- Logging Infra
2225: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_DK';
2226: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2227:
2228: BEGIN
2229:
2230: -- Logging Infra: Setting up runtime level
2227:
2228: BEGIN
2229:
2230: -- Logging Infra: Setting up runtime level
2231: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2232:
2233: -- Logging Infra: Procedure level
2234: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2235: l_log_msg := l_procedure_name||'(+)';
2232:
2233: -- Logging Infra: Procedure level
2234: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2235: l_log_msg := l_procedure_name||'(+)';
2236: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2237: END IF;
2238: -- Logging Infra
2239:
2240: -- Logging Infra: Statement level
2242: l_log_msg := 'Parameters ';
2243: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2244: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2245: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2247: END IF;
2248: -- Logging Infra
2249:
2250: IF p_check_unique_flag = 'E' THEN
2251:
2252: -- Logging Infra: Statement level
2253: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2254: l_log_msg := 'The Tax Registration Number is already used.';
2255: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2256: END IF;
2257: -- Logging Infra
2258:
2259: p_return_status := FND_API.G_RET_STS_ERROR;
2270:
2271: -- Logging Infra: Statement level
2272: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2273: l_log_msg := 'Passed Validation: Length is 10, prefix is DK, and last eight digits are numeric.';
2274: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2275: END IF;
2276: -- Logging Infra
2277:
2278: p_return_status := FND_API.G_RET_STS_SUCCESS;
2281:
2282: -- Logging Infra: Statement level
2283: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2284: l_log_msg := 'Failed Validation: Length is 10, prefix is DK, and last eight 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_ERROR;
2295:
2296: -- Logging Infra: Statement level
2297: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2298: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2299: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2300: -- END IF;
2301: -- Logging Infra
2302:
2303: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2319: AS
2320:
2321: -- Logging Infra
2322: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_EE';
2323: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2324:
2325: BEGIN
2326:
2327: -- Logging Infra: Setting up runtime level
2324:
2325: BEGIN
2326:
2327: -- Logging Infra: Setting up runtime level
2328: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2329:
2330: -- Logging Infra: Procedure level
2331: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2332: l_log_msg := l_procedure_name||'(+)';
2329:
2330: -- Logging Infra: Procedure level
2331: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2332: l_log_msg := l_procedure_name||'(+)';
2333: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2334: END IF;
2335: -- Logging Infra
2336:
2337: -- Logging Infra: Statement level
2339: l_log_msg := 'Parameters ';
2340: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2341: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2342: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2343: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2344: END IF;
2345: -- Logging Infra
2346:
2347: IF p_check_unique_flag = 'E' THEN
2348:
2349: -- Logging Infra: Statement level
2350: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2351: l_log_msg := 'The Tax Registration Number is already used.';
2352: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2353: END IF;
2354: -- Logging Infra
2355:
2356: p_return_status := FND_API.G_RET_STS_ERROR;
2367:
2368: -- Logging Infra: Statement level
2369: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2370: l_log_msg := 'Passed Validation: Length is 11, prefix is EE, and last nine digits are numeric.';
2371: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2372: END IF;
2373: -- Logging Infra
2374:
2375: p_return_status := FND_API.G_RET_STS_SUCCESS;
2378:
2379: -- Logging Infra: Statement level
2380: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2381: l_log_msg := 'Failed Validation: Length is 11, prefix is EE, and last nine digits are numeric.';
2382: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2383: END IF;
2384: -- Logging Infra
2385:
2386: p_return_status := FND_API.G_RET_STS_ERROR;
2392:
2393: -- Logging Infra: Statement level
2394: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2395: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
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_SUCCESS;
2415: AS
2416:
2417: -- Logging Infra
2418: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_FI';
2419: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2420:
2421: BEGIN
2422:
2423: -- Logging Infra: Setting up runtime level
2420:
2421: BEGIN
2422:
2423: -- Logging Infra: Setting up runtime level
2424: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2425:
2426: -- Logging Infra: Procedure level
2427: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2428: l_log_msg := l_procedure_name||'(+)';
2425:
2426: -- Logging Infra: Procedure level
2427: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2428: l_log_msg := l_procedure_name||'(+)';
2429: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2430: END IF;
2431: -- Logging Infra
2432:
2433: -- Logging Infra: Statement level
2435: l_log_msg := 'Parameters ';
2436: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2437: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2438: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2439: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2440: END IF;
2441: -- Logging Infra
2442:
2443: IF p_check_unique_flag = 'E' THEN
2444:
2445: -- Logging Infra: Statement level
2446: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2447: l_log_msg := 'The Tax Registration Number is already used.';
2448: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2449: END IF;
2450: -- Logging Infra
2451:
2452: p_return_status := FND_API.G_RET_STS_ERROR;
2464:
2465: -- Logging Infra: Statement level
2466: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2467: l_log_msg := 'Passed Validation: Length is 10, prefix is FI, and last eight digits are numeric.';
2468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2469: END IF;
2470: -- Logging Infra
2471:
2472: p_return_status := FND_API.G_RET_STS_SUCCESS;
2475:
2476: -- Logging Infra: Statement level
2477: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2478: l_log_msg := 'Failed Validation: Length is 10, prefix is FI, and last eight digits are numeric.';
2479: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2480: END IF;
2481: -- Logging Infra
2482:
2483: p_return_status := FND_API.G_RET_STS_ERROR;
2489:
2490: -- Logging Infra: Statement level
2491: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2492: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2493: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2494: -- END IF;
2495: -- Logging Infra
2496:
2497: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2512: AS
2513:
2514: -- Logging Infra
2515: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_FR';
2516: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2517:
2518: function check_letter(check_value VARCHAR2,
2519: pos NUMBER)
2520: RETURN VARCHAR2
2537: --
2538: BEGIN
2539:
2540: -- Logging Infra: Setting up runtime level
2541: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2542:
2543: -- Logging Infra: Procedure level
2544: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2545: l_log_msg := l_procedure_name||'(+)';
2542:
2543: -- Logging Infra: Procedure level
2544: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2545: l_log_msg := l_procedure_name||'(+)';
2546: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2547: END IF;
2548: -- Logging Infra
2549:
2550: -- Logging Infra: Statement level
2552: l_log_msg := 'Parameters ';
2553: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2554: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2555: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2556: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2557: END IF;
2558: -- Logging Infra
2559:
2560: IF p_check_unique_flag = 'E' THEN
2561:
2562: -- Logging Infra: Statement level
2563: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2564: l_log_msg := 'The Tax Registration Number is already used.';
2565: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2566: END IF;
2567: -- Logging Infra
2568:
2569: p_return_status := FND_API.G_RET_STS_ERROR;
2583:
2584: -- Logging Infra: Statement level
2585: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2586: l_log_msg := 'Passed Validation: Length is 13, prefix is FR, and last nine digits are numeric.';
2587: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2588: END IF;
2589: -- Logging Infra
2590:
2591: p_return_status := FND_API.G_RET_STS_SUCCESS;
2594:
2595: -- Logging Infra: Statement level
2596: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2597: l_log_msg := 'Failed Validation: Length is 13, prefix is FR, and last nine digits are numeric.';
2598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2599: END IF;
2600: -- Logging Infra
2601:
2602: p_return_status := FND_API.G_RET_STS_ERROR;
2607:
2608: -- Logging Infra: Statement level
2609: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2610: l_log_msg := 'Failed Validation: Length is 13, prefix is FR, and last nine digits are numeric.';
2611: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2612: END IF;
2613: -- Logging Infra
2614:
2615: p_return_status := FND_API.G_RET_STS_ERROR;
2622:
2623: -- Logging Infra: Statement level
2624: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2625: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2626: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2627: -- END IF;
2628: -- Logging Infra
2629:
2630: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2645: p_error_buffer OUT NOCOPY VARCHAR2)
2646: AS
2647: -- Logging Infra
2648: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_DE';
2649: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2650:
2651: BEGIN
2652:
2653: -- Logging Infra: Setting up runtime level
2650:
2651: BEGIN
2652:
2653: -- Logging Infra: Setting up runtime level
2654: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2655:
2656: -- Logging Infra: Procedure level
2657: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2658: l_log_msg := l_procedure_name||'(+)';
2655:
2656: -- Logging Infra: Procedure level
2657: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2658: l_log_msg := l_procedure_name||'(+)';
2659: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2660: END IF;
2661: -- Logging Infra
2662:
2663: -- Logging Infra: Statement level
2665: l_log_msg := 'Parameters ';
2666: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2667: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2668: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2669: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2670: END IF;
2671: -- Logging Infra
2672:
2673: IF p_check_unique_flag = 'E' THEN
2674:
2675: -- Logging Infra: Statement level
2676: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2677: l_log_msg := 'The Tax Registration Number is already used.';
2678: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2679: END IF;
2680: -- Logging Infra
2681:
2682: p_return_status := FND_API.G_RET_STS_ERROR;
2692:
2693: -- Logging Infra: Statement level
2694: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2695: l_log_msg := 'Passed Validation: Length is 11, prefix is DE, and last nine digits are numeric.';
2696: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2697: END IF;
2698: -- Logging Infra
2699:
2700: p_return_status := FND_API.G_RET_STS_SUCCESS;
2703:
2704: -- Logging Infra: Statement level
2705: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2706: l_log_msg := 'Failed Validation: Length is 11, prefix is DE, and last nine digits are numeric.';
2707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2708: END IF;
2709: -- Logging Infra
2710:
2711: p_return_status := FND_API.G_RET_STS_ERROR;
2716:
2717: -- Logging Infra: Statement level
2718: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2719: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2720: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2721: -- END IF;
2722: -- Logging Infra
2723:
2724: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2746: check_digit number(3);
2747:
2748: -- Logging Infra
2749: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_GR';
2750: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2751:
2752: BEGIN
2753:
2754: -- Logging Infra: Setting up runtime level
2751:
2752: BEGIN
2753:
2754: -- Logging Infra: Setting up runtime level
2755: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2756:
2757: -- Logging Infra: Procedure level
2758: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2759: l_log_msg := l_procedure_name||'(+)';
2756:
2757: -- Logging Infra: Procedure level
2758: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2759: l_log_msg := l_procedure_name||'(+)';
2760: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2761: END IF;
2762: -- Logging Infra
2763:
2764: -- Logging Infra: Statement level
2766: l_log_msg := 'Parameters ';
2767: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2768: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2769: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2770: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2771: END IF;
2772: -- Logging Infra
2773:
2774: trn_string := substr(p_trn_value,3,length(p_trn_value));
2777:
2778: -- Logging Infra: Statement level
2779: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2780: l_log_msg := 'The Tax Registration Number is already used.';
2781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2782: END IF;
2783: -- Logging Infra
2784:
2785: p_return_status := FND_API.G_RET_STS_ERROR;
2814:
2815: -- Logging Infra: Statement level
2816: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2817: l_log_msg := 'Passed Validation: Length is 11, prefix is GR, and last nine digits are numeric.';
2818: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2819: END IF;
2820: -- Logging Infra
2821:
2822: p_return_status := FND_API.G_RET_STS_SUCCESS;
2825:
2826: -- Logging Infra: Statement level
2827: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2828: l_log_msg := 'Failed Validation: Length is 11, prefix is GR, and last nine digits are numeric.';
2829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2830: END IF;
2831: -- Logging Infra
2832:
2833: p_return_status := FND_API.G_RET_STS_ERROR;
2838:
2839: -- Logging Infra: Statement level
2840: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2841: l_log_msg := 'Failed Validation: Length is 11, prefix is GR, and last nine digits are numeric.';
2842: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2843: END IF;
2844: -- Logging Infra
2845:
2846: p_return_status := FND_API.G_RET_STS_ERROR;
2852:
2853: -- Logging Infra: Statement level
2854: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2855: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
2856: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2857: -- END IF;
2858: -- Logging Infra
2859:
2860: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2875: AS
2876:
2877: -- Logging Infra
2878: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_IE';
2879: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2880:
2881: function check_letter(check_value VARCHAR2,
2882: pos NUMBER)
2883: RETURN VARCHAR2
2901:
2902: BEGIN
2903:
2904: -- Logging Infra: Setting up runtime level
2905: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2906:
2907: -- Logging Infra: Procedure level
2908: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2909: l_log_msg := l_procedure_name||'(+)';
2906:
2907: -- Logging Infra: Procedure level
2908: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2909: l_log_msg := l_procedure_name||'(+)';
2910: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2911: END IF;
2912: -- Logging Infra
2913:
2914: -- Logging Infra: Statement level
2916: l_log_msg := 'Parameters ';
2917: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
2918: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
2919: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
2920: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2921: END IF;
2922: -- Logging Infra
2923:
2924: IF p_check_unique_flag = 'E' THEN
2925:
2926: -- Logging Infra: Statement level
2927: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2928: l_log_msg := 'The Tax Registration Number is already used.';
2929: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2930: END IF;
2931: -- Logging Infra
2932:
2933: p_return_status := FND_API.G_RET_STS_ERROR;
2945:
2946: -- Logging Infra: Statement level
2947: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2948: l_log_msg := 'Passed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
2949: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2950: END IF;
2951: -- Logging Infra
2952:
2953: p_return_status := FND_API.G_RET_STS_SUCCESS;
2958:
2959: -- Logging Infra: Statement level
2960: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2961: l_log_msg := 'Passed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
2962: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2963: END IF;
2964: -- Logging Infra
2965:
2966: p_return_status := FND_API.G_RET_STS_SUCCESS;
2971: --
2972: -- Logging Infra: Statement level
2973: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2974: l_log_msg := 'Passed Validation: Length is 10, prefix is IE, and last five digits are numeric.';
2975: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2976: END IF;
2977: -- Logging Infra
2978:
2979: p_return_status := FND_API.G_RET_STS_SUCCESS;
2983:
2984: -- Logging Infra: Statement level
2985: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2986: l_log_msg := 'Failed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
2987: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2988: END IF;
2989: -- Logging Infra
2990:
2991: p_return_status := FND_API.G_RET_STS_ERROR;
2996:
2997: -- Logging Infra: Statement level
2998: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2999: l_log_msg := 'Failed Validation: Length is 10, prefix is IE, and last eight digits are numeric.';
3000: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3001: END IF;
3002: -- Logging Infra
3003:
3004: p_return_status := FND_API.G_RET_STS_ERROR;
3010:
3011: -- Logging Infra: Statement level
3012: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3013: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3014: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3015: -- END IF;
3016: -- Logging Infra
3017:
3018: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3047: check_tot NUMBER(6);
3048:
3049: -- Logging Infra
3050: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_IT';
3051: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3052:
3053: /**************************/
3054: /* SUB-PROCEDURES SECTION */
3055: /**************************/
3059:
3060: -- Logging Infra: Statement level
3061: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3062: l_log_msg := 'The Tax Registration Number is already used.';
3063: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3064: END IF;
3065: -- Logging Infra
3066:
3067: p_return_status := FND_API.G_RET_STS_ERROR;
3073:
3074: -- Logging Infra: Statement level
3075: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3076: l_log_msg := 'Failed the validation of the tax registration number.';
3077: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3078: END IF;
3079: -- Logging Infra
3080:
3081: p_return_status := FND_API.G_RET_STS_ERROR;
3087:
3088: -- Logging Infra: Statement level
3089: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3090: l_log_msg := 'The Tax Registration Number is valid.';
3091: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3092: END IF;
3093: -- Logging Infra
3094:
3095: p_return_status := FND_API.G_RET_STS_SUCCESS;
3133: odd_tot := 0;
3134: even_tot := 0;
3135:
3136: -- Logging Infra: Setting up runtime level
3137: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3138:
3139: -- Logging Infra: Procedure level
3140: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3141: l_log_msg := l_procedure_name||'(+)';
3138:
3139: -- Logging Infra: Procedure level
3140: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3141: l_log_msg := l_procedure_name||'(+)';
3142: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3143: END IF;
3144: -- Logging Infra
3145:
3146: -- Logging Infra: Statement level
3148: l_log_msg := 'Parameters ';
3149: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3150: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3151: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3152: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3153: END IF;
3154: -- Logging Infra
3155:
3156: IF common_check_numeric(p_trn_value,1,2) <> '0' THEN
3241:
3242: -- Logging Infra: Statement level
3243: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3244: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3245: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3246: -- END IF;
3247: -- Logging Infra
3248:
3249: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3268: AS
3269:
3270: -- Logging Infra
3271: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_LU';
3272: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3273:
3274: BEGIN
3275:
3276: -- Logging Infra: Setting up runtime level
3273:
3274: BEGIN
3275:
3276: -- Logging Infra: Setting up runtime level
3277: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3278:
3279: -- Logging Infra: Procedure level
3280: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3281: l_log_msg := l_procedure_name||'(+)';
3278:
3279: -- Logging Infra: Procedure level
3280: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3281: l_log_msg := l_procedure_name||'(+)';
3282: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3283: END IF;
3284: -- Logging Infra
3285:
3286: -- Logging Infra: Statement level
3288: l_log_msg := 'Parameters ';
3289: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3290: l_log_msg := l_log_msg||'p_trn_type: '||p_trn_type;
3291: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3292: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3293: END IF;
3294: -- Logging Infra
3295:
3296: IF p_check_unique_flag = 'E' THEN
3297:
3298: -- Logging Infra: Statement level
3299: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3300: l_log_msg := 'The Tax Registration Number is already used.';
3301: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3302: END IF;
3303: -- Logging Infra
3304:
3305: p_return_status := FND_API.G_RET_STS_ERROR;
3317:
3318: -- Logging Infra: Statement level
3319: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3320: l_log_msg := 'Passed Validation: Length is 10, prefix is LU, and last eight digits are numeric.';
3321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3322: END IF;
3323: -- Logging Infra
3324:
3325: p_return_status := FND_API.G_RET_STS_SUCCESS;
3328:
3329: -- Logging Infra: Statement level
3330: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3331: l_log_msg := 'Failed Validation: Length is 10, prefix is LU, and last eight digits are numeric.';
3332: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3333: END IF;
3334: -- Logging Infra
3335:
3336: p_return_status := FND_API.G_RET_STS_ERROR;
3342:
3343: -- Logging Infra: Statement level
3344: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3345: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3346: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3347: -- END IF;
3348: -- Logging Infra
3349:
3350: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3365: AS
3366:
3367: -- Logging Infra
3368: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_SK';
3369: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3370: trn_value VARCHAR2(50);
3371:
3372: BEGIN
3373:
3371:
3372: BEGIN
3373:
3374: -- Logging Infra: Setting up runtime level
3375: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3376:
3377: -- Logging Infra: Procedure level
3378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3379: l_log_msg := l_procedure_name||'(+)';
3376:
3377: -- Logging Infra: Procedure level
3378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3379: l_log_msg := l_procedure_name||'(+)';
3380: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3381: END IF;
3382: -- Logging Infra
3383:
3384: -- Logging Infra: Statement level
3386: l_log_msg := 'Parameters ';
3387: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3388: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3389: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3391: END IF;
3392: -- Logging Infra
3393:
3394: IF p_check_unique_flag = FND_API.G_RET_STS_ERROR THEN
3395:
3396: -- Logging Infra: Statement level
3397: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3398: l_log_msg := 'The Tax Registration Number is already used.';
3399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3400: END IF;
3401: -- Logging Infra
3402:
3403: p_return_status := FND_API.G_RET_STS_ERROR;
3417:
3418: -- Logging Infra: Statement level
3419: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3420: l_log_msg := 'Passed Validation: Length is 12, and they are numeric.';
3421: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3422: END IF;
3423: -- Logging Infra
3424:
3425: p_return_status := FND_API.G_RET_STS_SUCCESS;
3430:
3431: -- Logging Infra: Statement level
3432: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3433: l_log_msg := 'The Tax Registration Number is numeric.';
3434: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3435: END IF;
3436: -- Logging Infra
3437:
3438: p_return_status := FND_API.G_RET_STS_SUCCESS;
3441:
3442: -- Logging Infra: Statement level
3443: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3444: l_log_msg := 'Passed Validation: Length is 12, and they are numeric.';
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_ERROR;
3455:
3456: -- Logging Infra: Statement level
3457: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3458: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3459: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3460: -- END IF;
3461: -- Logging Infra
3462:
3463: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3489: check_result VARCHAR2(1);
3490:
3491: -- Logging Infra
3492: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_NL';
3493: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3494:
3495: /**************************/
3496: /* SUB-PROCEDURES SECTION */
3497: /**************************/
3500: begin
3501: -- Logging Infra: Statement level
3502: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3503: l_log_msg := 'The Tax Registration Number is already used.';
3504: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3505: END IF;
3506: -- Logging Infra
3507:
3508: p_return_status := FND_API.G_RET_STS_ERROR;
3513: begin
3514: -- Logging Infra: Statement level
3515: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3516: l_log_msg := 'Failed the validation of the tax registration number.';
3517: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3518: END IF;
3519: -- Logging Infra
3520:
3521: p_return_status := FND_API.G_RET_STS_ERROR;
3526: begin
3527: -- Logging Infra: Statement level
3528: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3529: l_log_msg := 'The Tax Registration Number is valid.';
3530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3531: END IF;
3532: -- Logging Infra
3533:
3534: p_return_status := FND_API.G_RET_STS_SUCCESS;
3551:
3552: -- Logging Infra: Statement level
3553: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3554: l_log_msg := 'The Tax Registration Number without prefix and suffix must be numeric.';
3555: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3556: END IF;
3557: -- Logging Infra
3558:
3559: check_numeric_result := FND_API.G_RET_STS_ERROR;
3562:
3563: -- Logging Infra: Statement level
3564: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3565: l_log_msg := 'The Tax Registration Number is valid.';
3566: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3567: END IF;
3568: -- Logging Infra
3569:
3570: check_numeric_result := FND_API.G_RET_STS_SUCCESS;
3579:
3580: BEGIN
3581:
3582: -- Logging Infra: Setting up runtime level
3583: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3584:
3585: -- Logging Infra: Procedure level
3586: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3587: l_log_msg := l_procedure_name||'(+)';
3584:
3585: -- Logging Infra: Procedure level
3586: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3587: l_log_msg := l_procedure_name||'(+)';
3588: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3589: END IF;
3590: -- Logging Infra
3591:
3592: -- Logging Infra: Statement level
3594: l_log_msg := 'Parameters ';
3595: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3596: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3597: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3599: END IF;
3600: -- Logging Infra
3601:
3602: p_trn_value := upper(p_trn);
3647: ELSE
3648: -- Logging Infra: Statement level
3649: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3650: l_log_msg := 'Check digit is incorrect.';
3651: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3652: END IF;
3653: -- Logging Infra
3654:
3655: p_return_status := FND_API.G_RET_STS_ERROR;
3659: ELSE
3660: -- Logging Infra: Statement level
3661: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3662: l_log_msg := 'The prefix of the Tax Registration Number must be alphabetic character.';
3663: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3664: END IF;
3665: -- Logging Infra
3666:
3667: p_return_status := FND_API.G_RET_STS_ERROR;
3671: ELSE
3672: -- Logging Infra: Statement level
3673: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3674: l_log_msg := 'The Tax Registration Number does not have required character B in the suffix.';
3675: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3676: END IF;
3677: -- Logging Infra
3678:
3679: p_return_status := FND_API.G_RET_STS_ERROR;
3683: ELSE
3684: -- Logging Infra: Statement level
3685: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3686: l_log_msg := 'The prefix of the Tax Registration Number is incorrect.';
3687: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3688: END IF;
3689: -- Logging Infra
3690:
3691: p_return_status := FND_API.G_RET_STS_ERROR;
3695: ELSE
3696: -- Logging Infra: Statement level
3697: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3698: l_log_msg := 'The length of the Tax Registration Number is not 14.';
3699: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3700: END IF;
3701: -- Logging Infra
3702: IF length(p_trn_value) > 14 THEN
3703: p_return_status := FND_API.G_RET_STS_ERROR;
3711: ELSE
3712: -- Logging Infra: Statement level
3713: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3714: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
3715: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3716: END IF;
3717: -- Logging Infra
3718:
3719: p_return_status := FND_API.G_RET_STS_ERROR;
3724:
3725: -- Logging Infra: Statement level
3726: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3727: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3728: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3729: -- END IF;
3730: -- Logging Infra
3731:
3732: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3751: len number;
3752:
3753: -- Logging Infra
3754: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_PL';
3755: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3756: trn_value VARCHAR2(50);
3757:
3758: BEGIN
3759:
3757:
3758: BEGIN
3759:
3760: -- Logging Infra: Setting up runtime level
3761: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3762:
3763: -- Logging Infra: Procedure level
3764: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3765: l_log_msg := l_procedure_name||'(+)';
3762:
3763: -- Logging Infra: Procedure level
3764: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3765: l_log_msg := l_procedure_name||'(+)';
3766: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3767: END IF;
3768: -- Logging Infra
3769:
3770: -- Logging Infra: Statement level
3772: l_log_msg := 'Parameters ';
3773: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3774: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3775: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3776: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3777: END IF;
3778: -- Logging Infra
3779:
3780: len := length(p_trn_value);
3784:
3785: -- Logging Infra: Statement level
3786: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3787: l_log_msg := 'The Tax Registration Number is already used.';
3788: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3789: END IF;
3790: -- Logging Infra
3791:
3792: p_return_status := FND_API.G_RET_STS_ERROR;
3808: --
3809: -- Logging Infra: Statement level
3810: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3811: l_log_msg := 'The length of the Tax Registration Number is 13 or 15, and it is numeric.';
3812: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3813: END IF;
3814: -- Logging Infra
3815:
3816: p_return_status := FND_API.G_RET_STS_SUCCESS;
3819:
3820: -- Logging Infra: Statement level
3821: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3822: l_log_msg := 'Neither the length of the Tax Registration Number is 13 or 15 nor it is numeric.';
3823: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3824: END IF;
3825: -- Logging Infra
3826:
3827: p_return_status := FND_API.G_RET_STS_ERROR;
3833:
3834: -- Logging Infra: Statement level
3835: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3836: l_log_msg := 'The Tax Registration Number is numeric.';
3837: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3838: END IF;
3839: -- Logging Infra
3840:
3841: p_return_status := FND_API.G_RET_STS_SUCCESS;
3845:
3846: -- Logging Infra: Statement level
3847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3848: l_log_msg := 'The length of the Tax Registration Number is not 10 or 13 or 15.';
3849: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3850: END IF;
3851: -- Logging Infra
3852:
3853: p_return_status := FND_API.G_RET_STS_ERROR;
3859:
3860: -- Logging Infra: Statement level
3861: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3862: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
3863: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3864: -- END IF;
3865: -- Logging Infra
3866:
3867: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3892: TRN_STRING VARCHAR2(50);
3893:
3894: -- Logging Infra
3895: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_PT';
3896: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3897:
3898: BEGIN
3899:
3900: -- Logging Infra: Setting up runtime level
3897:
3898: BEGIN
3899:
3900: -- Logging Infra: Setting up runtime level
3901: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3902:
3903: -- Logging Infra: Procedure level
3904: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3905: l_log_msg := l_procedure_name||'(+)';
3902:
3903: -- Logging Infra: Procedure level
3904: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3905: l_log_msg := l_procedure_name||'(+)';
3906: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3907: END IF;
3908: -- Logging Infra
3909:
3910: -- Logging Infra: Statement level
3912: l_log_msg := 'Parameters ';
3913: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
3914: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
3915: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
3916: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3917: END IF;
3918: -- Logging Infra
3919:
3920: check_digit := substr(p_trn_value, length(p_trn_value));
3925:
3926: -- Logging Infra: Statement level
3927: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3928: l_log_msg := 'The Tax Registration Number is already used.';
3929: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3930: END IF;
3931: -- Logging Infra
3932:
3933: p_return_status := FND_API.G_RET_STS_ERROR;
3973:
3974: -- Logging Infra: Statement level
3975: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3976: l_log_msg := 'The Tax Registration Number is valid.';
3977: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3978: END IF;
3979: -- Logging Infra
3980:
3981: p_return_status := FND_API.G_RET_STS_SUCCESS;
3984:
3985: -- Logging Infra: Statement level
3986: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3987: l_log_msg := 'The Tax Registration Number is invalid.';
3988: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3989: END IF;
3990: -- Logging Infra
3991:
3992: p_return_status := FND_API.G_RET_STS_ERROR;
3999:
4000: -- Logging Infra: Statement level
4001: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4002: l_log_msg := 'The Tax Registration Number is invalid.';
4003: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4004: END IF;
4005: -- Logging Infra
4006:
4007: p_return_status := FND_API.G_RET_STS_ERROR;
4013:
4014: -- Logging Infra: Statement level
4015: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4016: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4017: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4018: -- END IF;
4019: -- Logging Infra
4020:
4021: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4046: whole_value VARCHAR2(50);
4047:
4048: -- Logging Infra
4049: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_ES';
4050: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4051: N_Check_Digit varchar2(26) := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
4052: N_Check_Flag number := 0 ;
4053:
4054: /**************************/
4060:
4061: -- Logging Infra: Statement level
4062: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4063: l_log_msg := 'The Tax Registration Number is already used.';
4064: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4065: END IF;
4066: -- Logging Infra
4067:
4068: p_return_status := FND_API.G_RET_STS_ERROR;
4074:
4075: -- Logging Infra: Statement level
4076: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4077: l_log_msg := 'The Tax Registration Number is invalid.';
4078: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4079: END IF;
4080: -- Logging Infra
4081:
4082: p_return_status := FND_API.G_RET_STS_ERROR;
4088:
4089: -- Logging Infra: Statement level
4090: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4091: l_log_msg := 'The Tax Registration Number is valid.';
4092: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4093: END IF;
4094: -- Logging Infra
4095:
4096: p_return_status := FND_API.G_RET_STS_SUCCESS;
4103:
4104: BEGIN
4105:
4106: -- Logging Infra: Setting up runtime level
4107: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4108:
4109: WHOLE_VALUE := upper(p_trn);
4110: trn_value := upper(p_trn);
4111: check_digit := substr(trn_value, length(trn_value));
4191: ELSE
4192: -- Logging Infra: Statement level
4193: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4194: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
4195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4196: END IF;
4197: -- Logging Infra
4198:
4199: p_return_status := FND_API.G_RET_STS_ERROR;
4218: ELSE
4219: -- Logging Infra: Statement level
4220: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4221: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
4222: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4223: END IF;
4224: -- Logging Infra
4225:
4226: p_return_status := FND_API.G_RET_STS_ERROR;
4280: ELSE
4281: -- Logging Infra: Statement level
4282: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4283: l_log_msg := 'The Tax Registration Number contains an alphanumeric character where a numeric character is expected.';
4284: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4285: END IF;
4286: -- Logging Infra
4287:
4288: p_return_status := FND_API.G_RET_STS_ERROR;
4298: ELSE
4299: -- Logging Infra: Statement level
4300: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4301: l_log_msg := 'The length of the Tax Registration Number is not correct.';
4302: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4303: END IF;
4304: -- Logging Infra
4305:
4306: p_return_status := FND_API.G_RET_STS_ERROR;
4319:
4320: -- Logging Infra: Statement level
4321: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4322: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4323: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4324: -- END IF;
4325: -- Logging Infra
4326:
4327: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4346: AS
4347:
4348: -- Logging Infra
4349: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_SE';
4350: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4351:
4352: BEGIN
4353:
4354: -- Logging Infra: Setting up runtime level
4351:
4352: BEGIN
4353:
4354: -- Logging Infra: Setting up runtime level
4355: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4356:
4357: -- Logging Infra: Procedure level
4358: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4359: l_log_msg := l_procedure_name||'(+)';
4356:
4357: -- Logging Infra: Procedure level
4358: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4359: l_log_msg := l_procedure_name||'(+)';
4360: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4361: END IF;
4362: -- Logging Infra
4363:
4364: -- Logging Infra: Statement level
4366: l_log_msg := 'Parameters ';
4367: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4368: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4369: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4370: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4371: END IF;
4372: -- Logging Infra
4373:
4374: IF p_check_unique_flag = 'E' THEN
4376:
4377: -- Logging Infra: Statement level
4378: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4379: l_log_msg := 'The Tax Registration Number is already used.';
4380: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4381: END IF;
4382: -- Logging Infra
4383:
4384: p_return_status := FND_API.G_RET_STS_ERROR;
4398: --
4399: -- Logging Infra: Statement level
4400: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4401: l_log_msg := 'Length is 14, Prefix is SE, and last 12 digits are numeric.';
4402: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4403: END IF;
4404: -- Logging Infra
4405:
4406: p_return_status := FND_API.G_RET_STS_SUCCESS;
4409:
4410: -- Logging Infra: Statement level
4411: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4412: l_log_msg := 'One of the following condition is incorrect.: Length is 14, Prefix is SE, or last 12 digits are numeric.';
4413: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4414: END IF;
4415: -- Logging Infra
4416:
4417: p_return_status := FND_API.G_RET_STS_ERROR;
4424:
4425: -- Logging Infra: Statement level
4426: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4427: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4428: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4429: -- END IF;
4430: -- Logging Infra
4431:
4432: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4454: position_i integer;
4455:
4456: -- Logging Infra
4457: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_GB';
4458: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4459:
4460: BEGIN
4461:
4462: -- Logging Infra: Setting up runtime level
4459:
4460: BEGIN
4461:
4462: -- Logging Infra: Setting up runtime level
4463: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4464:
4465: -- Logging Infra: Procedure level
4466: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4467: l_log_msg := l_procedure_name||'(+)';
4464:
4465: -- Logging Infra: Procedure level
4466: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4467: l_log_msg := l_procedure_name||'(+)';
4468: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4469: END IF;
4470: -- Logging Infra
4471:
4472: -- Logging Infra: Statement level
4474: l_log_msg := 'Parameters ';
4475: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4476: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4477: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4478: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4479: END IF;
4480: -- Logging Infra
4481:
4482: TRN_STRING := substr(p_trn_value,3,length(p_trn_value));
4486: --
4487: -- Logging Infra: Statement level
4488: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4489: l_log_msg := 'The Tax Registration Number is already used.';
4490: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4491: END IF;
4492: -- Logging Infra
4493:
4494: p_return_status := FND_API.G_RET_STS_ERROR;
4521: --
4522: -- Logging Infra: Statement level
4523: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4524: l_log_msg := 'The Tax Registration Number is valid.';
4525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4526: END IF;
4527: -- Logging Infra
4528: p_return_status := FND_API.G_RET_STS_SUCCESS;
4529: p_error_buffer := NULL;
4534: END IF;
4535: IF check_digit + check_total_55 = 0 THEN
4536: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4537: l_log_msg := 'The Tax Registration Number is valid.';
4538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4539: END IF;
4540: -- Logging Infra
4541: p_return_status := FND_API.G_RET_STS_SUCCESS;
4542: p_error_buffer := NULL;
4543: ELSE
4544: -- Logging Infra: Statement level
4545: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4546: l_log_msg := 'The Tax Registration Number is invalid.';
4547: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4548: END IF;
4549: -- Logging Infra
4550: p_return_status := FND_API.G_RET_STS_ERROR;
4551: p_error_buffer := 'ZX_REG_NUM_INVALID';
4578: p_error_buffer := 'ZX_REG_NUM_INVALID';
4579: END IF;
4580: -- Logging Infra: Statement level
4581: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4582: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4583: END IF;
4584: END IF;
4585: ELSE
4586: -- Logging Infra: Statement level
4585: ELSE
4586: -- Logging Infra: Statement level
4587: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4588: l_log_msg := 'Please enter a valid Tax Registration Number.';
4589: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4590: END IF;
4591: -- Logging Infra
4592: p_return_status := FND_API.G_RET_STS_ERROR;
4593: p_error_buffer := 'ZX_REG_NUM_INVALID';
4597:
4598: -- Logging Infra: Statement level
4599: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4600: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4601: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4602: -- END IF;
4603: -- Logging Infra
4604: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4605: --END IF;
4617: AS
4618:
4619: -- Logging Infra
4620: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CH';
4621: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4622: l_result VARCHAR2(20); -- bug 14677337
4623:
4624: BEGIN
4625:
4623:
4624: BEGIN
4625:
4626: -- Logging Infra: Setting up runtime level
4627: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4628:
4629: -- Logging Infra: Procedure level
4630: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4631: l_log_msg := l_procedure_name||'(+)';
4628:
4629: -- Logging Infra: Procedure level
4630: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4631: l_log_msg := l_procedure_name||'(+)';
4632: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4633: END IF;
4634: -- Logging Infra
4635:
4636: -- Logging Infra: Statement level
4638: l_log_msg := 'Parameters ';
4639: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4640: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4641: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4642: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4643: END IF;
4644: -- Logging Infra
4645:
4646: IF p_check_unique_flag = 'E' THEN
4647:
4648: -- Logging Infra: Statement level
4649: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4650: l_log_msg := 'The Tax Registration Number is already used.';
4651: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4652: END IF;
4653: -- Logging Infra
4654:
4655: p_return_status := FND_API.G_RET_STS_ERROR;
4666: --
4667: -- Logging Infra: Statement level
4668: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4669: l_log_msg := 'Length is 8, and prefix is CH, and other digits are numeric.';
4670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4671: END IF;
4672: -- Logging Infra
4673: p_return_status := FND_API.G_RET_STS_SUCCESS;
4674: p_error_buffer := NULL;
4678: -- cannot decide that the reg number is valid
4679: -- Logging Infra: Statement level
4680: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4681: l_log_msg := 'One of the following condition is incorrect: Length is 8, and prefix is CH, and other digits are numeric. Checking alternate validations';
4682: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4683: END IF;
4684: -- Logging Infra
4685: END IF;
4686: END IF;
4719: IF (l_result = 'VALID') THEN
4720:
4721: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4722: l_log_msg := 'Length is 17 to 18, prefix is CHE, and suffix is MWST or TVA or IVA other digits are numeric.';
4723: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4724: END IF;
4725: -- Logging Infra
4726:
4727: p_return_status := FND_API.G_RET_STS_SUCCESS;
4731:
4732: -- Logging Infra: Statement level
4733: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4734: l_log_msg := 'One of the following condition is incorrect: Length is between 17 to 18, and prefix is CHE, and other digits are numeric.';
4735: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4736: END IF;
4737: -- Logging Infra
4738:
4739: p_return_status := FND_API.G_RET_STS_ERROR;
4742:
4743: ELSE
4744: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4745: l_log_msg := 'The registration number is not as per new regulations';
4746: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4747: END IF;
4748: p_return_status := FND_API.G_RET_STS_ERROR;
4749: p_error_buffer := 'ZX_REG_NUM_INVALID';
4750: END IF;
4753:
4754: -- Logging Infra: Procedure level
4755: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4756: l_log_msg := l_procedure_name||'(-) with return status '|| p_return_status;
4757: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
4758: END IF;
4759: -- Logging Infra
4760:
4761: EXCEPTION
4761: EXCEPTION
4762: WHEN NO_DATA_FOUND THEN
4763: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4764: l_log_msg := 'One of the following condition is incorrect: Length is between 17 to 18, and prefix is CHE, and other digits are numeric.';
4765: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME || l_procedure_name, l_log_msg);
4766: END IF;
4767: -- Logging Infra
4768:
4769: p_return_status := FND_API.G_RET_STS_ERROR;
4782: AS
4783:
4784: -- Logging Infra
4785: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_RU';
4786: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4787:
4788: BEGIN
4789:
4790: -- Logging Infra: Setting up runtime level
4787:
4788: BEGIN
4789:
4790: -- Logging Infra: Setting up runtime level
4791: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4792:
4793: -- Logging Infra: Procedure level
4794: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4795: l_log_msg := l_procedure_name||'(+)';
4792:
4793: -- Logging Infra: Procedure level
4794: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4795: l_log_msg := l_procedure_name||'(+)';
4796: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4797: END IF;
4798: -- Logging Infra
4799:
4800: -- Logging Infra: Statement level
4802: l_log_msg := 'Parameters ';
4803: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4804: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
4805: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4806: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4807: END IF;
4808: -- Logging Infra
4809:
4810: IF p_check_unique_flag = 'E' THEN
4811:
4812: -- Logging Infra: Statement level
4813: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4814: l_log_msg := 'The Tax Registration Number is already used.';
4815: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4816: END IF;
4817: -- Logging Infra
4818:
4819: p_return_status := FND_API.G_RET_STS_ERROR;
4831: --
4832: -- Logging Infra: Statement level
4833: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4834: l_log_msg := 'The length of the Tax Registration Number is ' || length(p_trn_value);
4835: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4836: END IF;
4837: -- Logging Infra
4838:
4839: p_return_status := FND_API.G_RET_STS_SUCCESS;
4842:
4843: -- Logging Infra: Statement level
4844: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4845: l_log_msg := 'The length of the Tax Registration Number is ' || length(p_trn_value);
4846: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4847: END IF;
4848: -- Logging Infra
4849:
4850: p_return_status := FND_API.G_RET_STS_ERROR;
4856:
4857: -- Logging Infra: Statement level
4858: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4859: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4860: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4861: -- END IF;
4862: -- Logging Infra
4863:
4864: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4882: l_trn_value VARCHAR2(50);
4883:
4884: -- Logging Infra
4885: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_HU';
4886: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4887:
4888: BEGIN
4889:
4890: -- Logging Infra: Setting up runtime level
4887:
4888: BEGIN
4889:
4890: -- Logging Infra: Setting up runtime level
4891: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4892:
4893: -- Logging Infra: Procedure level
4894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4895: l_log_msg := l_procedure_name||'(+)';
4892:
4893: -- Logging Infra: Procedure level
4894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4895: l_log_msg := l_procedure_name||'(+)';
4896: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4897: END IF;
4898: -- Logging Infra
4899:
4900: -- Logging Infra: Statement level
4901: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4902: l_log_msg := 'Parameters ';
4903: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
4904: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
4905: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4906: END IF;
4907: -- Logging Infra
4908:
4909: l_trn_value := substr(p_trn_value,3,8);
4912:
4913: -- Logging Infra: Statement level
4914: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4915: l_log_msg := 'The Tax Registration Number is already used.';
4916: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4917: END IF;
4918: -- Logging Infra
4919:
4920: p_return_status := FND_API.G_RET_STS_ERROR;
4938:
4939: -- Logging Infra: Statement level
4940: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4941: l_log_msg := 'The Tax Registration Number is valid.';
4942: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4943: END IF;
4944: -- Logging Infra
4945:
4946: p_return_status := FND_API.G_RET_STS_SUCCESS;
4949:
4950: -- Logging Infra: Statement level
4951: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4952: l_log_msg := 'The Tax Registration Number is invalid.';
4953: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4954: END IF;
4955: -- Logging Infra
4956:
4957: p_return_status := FND_API.G_RET_STS_ERROR;
4962:
4963: -- Logging Infra: Statement level
4964: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4965: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
4966: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4967: -- END IF;
4968: -- Logging Infra
4969:
4970: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5006: l_trn VARCHAR2(20);
5007:
5008: -- Logging Infra
5009: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_BR';
5010: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5011:
5012: BEGIN
5013:
5014: -- Logging Infra: Setting up runtime level
5011:
5012: BEGIN
5013:
5014: -- Logging Infra: Setting up runtime level
5015: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5016:
5017: -- Logging Infra: Procedure level
5018: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5019: l_log_msg := l_procedure_name||'(+)';
5016:
5017: -- Logging Infra: Procedure level
5018: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5019: l_log_msg := l_procedure_name||'(+)';
5020: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5021: END IF;
5022: -- Logging Infra
5023:
5024: -- Logging Infra: Statement level
5025: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5026: l_log_msg := 'Parameters ';
5027: l_log_msg := l_log_msg||'p_trn: '||p_trn;
5028: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5029: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5030: END IF;
5031: -- Logging Infra
5032:
5033: /* Tax Registration Branch */
5051: /* Tax Registration Number branch for CPF type should be NULL or zero */
5052: -- Logging Infra: Statement level
5053: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5054: l_log_msg := 'CPF Tax Registration Number branch is not valid.';
5055: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5056: END IF;
5057: -- Logging Infra
5058:
5059: p_return_status := FND_API.G_RET_STS_ERROR;
5102:
5103: -- Logging Infra: Statement level
5104: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5105: l_log_msg := 'The CPF Inscription number is not valid.';
5106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5107: END IF;
5108: -- Logging Infra
5109:
5110: /* Digit controls do not match */
5114:
5115: -- Logging Infra: Statement level
5116: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5117: l_log_msg := 'The Tax Registration Number is valid.';
5118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5119: END IF;
5120: -- Logging Infra
5121:
5122: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5129:
5130: -- Logging Infra: Statement level
5131: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5132: l_log_msg := 'The Tax Registration Number is valid.';
5133: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5134: END IF;
5135: -- Logging Infra
5136:
5137: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5197: IF l_trn_digit <> l_control_digit_XX
5198: THEN
5199: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5200: l_log_msg := 'The CGC Tax Registration Number is not valid.';
5201: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5202: END IF;
5203: p_return_status:= FND_API.G_RET_STS_ERROR;
5204: p_error_buffer := 'ZX_REG_NUM_INVALID';
5205: ELSE
5204: p_error_buffer := 'ZX_REG_NUM_INVALID';
5205: ELSE
5206: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5207: l_log_msg := 'The Tax Registration Number is valid.';
5208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5209: END IF;
5210: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5211: p_error_buffer := NULL;
5212: END IF;
5228: l_trn_digit VARCHAR2(1);
5229:
5230: -- Logging Infra
5231: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_AR';
5232: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5233:
5234: BEGIN
5235:
5236: -- Logging Infra: Setting up runtime level
5233:
5234: BEGIN
5235:
5236: -- Logging Infra: Setting up runtime level
5237: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5238:
5239: -- Logging Infra: Procedure level
5240: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5241: l_log_msg := l_procedure_name||'(+)';
5238:
5239: -- Logging Infra: Procedure level
5240: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5241: l_log_msg := l_procedure_name||'(+)';
5242: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5243: END IF;
5244: -- Logging Infra
5245:
5246: -- Logging Infra: Statement level
5247: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5248: l_log_msg := 'Parameters ';
5249: l_log_msg := l_log_msg||'p_trn: '||p_trn;
5250: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5252: END IF;
5253: -- Logging Infra
5254:
5255: trn_value := upper(p_trn);
5302:
5303: -- Logging Infra: Statement level
5304: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5305: l_log_msg := 'The Tax Registration Number is invalid.';
5306: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5307: END IF;
5308: -- Logging Infra
5309:
5310: p_return_status := FND_API.G_RET_STS_ERROR;
5313:
5314: -- Logging Infra: Statement level
5315: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5316: l_log_msg := 'The Tax Registration Number is valid.';
5317: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5318: END IF;
5319: -- Logging Infra
5320:
5321: p_return_status := FND_API.G_RET_STS_SUCCESS;
5326:
5327: -- Logging Infra: Statement level
5328: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5329: l_log_msg := 'The Tax Registration Number must be numeric.';
5330: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5331: END IF;
5332: -- Logging Infra
5333:
5334: p_return_status := FND_API.G_RET_STS_ERROR;
5339:
5340: -- Logging Infra: Statement level
5341: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5342: l_log_msg := 'The length of the Tax Registration Number is not correct.';
5343: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5344: END IF;
5345: -- Logging Infra
5346: IF length(trn_value) > 11 THEN
5347: p_return_status := FND_API.G_RET_STS_ERROR;
5368: l_trn_digit VARCHAR2(1);
5369:
5370: -- Logging Infra
5371: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CL';
5372: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5373:
5374: BEGIN
5375:
5376: -- Logging Infra: Setting up runtime level
5373:
5374: BEGIN
5375:
5376: -- Logging Infra: Setting up runtime level
5377: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5378:
5379: -- Logging Infra: Procedure level
5380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5381: l_log_msg := l_procedure_name||'(+)';
5378:
5379: -- Logging Infra: Procedure level
5380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5381: l_log_msg := l_procedure_name||'(+)';
5382: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5383: END IF;
5384: -- Logging Infra
5385:
5386: -- Logging Infra: Statement level
5386: -- Logging Infra: Statement level
5387: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5388: l_log_msg := 'Parameters ';
5389: l_log_msg := l_log_msg||'p_trn: '||p_trn;
5390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5391: END IF;
5392: -- Logging Infra
5393:
5394: trn_value := upper(p_trn);
5440:
5441: -- Logging Infra: Statement level
5442: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5443: l_log_msg := 'The validation digit and Tax Registration Number digit is different.';
5444: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5445: END IF;
5446: -- Logging Infra
5447:
5448: p_return_status := FND_API.G_RET_STS_ERROR;
5451:
5452: -- Logging Infra: Statement level
5453: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5454: l_log_msg := 'The Tax Registration Number is valid.';
5455: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5456: END IF;
5457: -- Logging Infra
5458:
5459: p_return_status := FND_API.G_RET_STS_SUCCESS;
5464:
5465: -- Logging Infra: Statement level
5466: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5467: l_log_msg := 'The Tax Registration Number must be numeric.';
5468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5469: END IF;
5470: -- Logging Infra
5471:
5472: p_return_status := FND_API.G_RET_STS_ERROR;
5477:
5478: -- Logging Infra: Statement level
5479: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5480: l_log_msg := 'The length of the Tax Registration Number is not correct.';
5481: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5482: END IF;
5483: -- Logging Infra
5484: IF length(trn_value) > 11 THEN
5485: p_return_status := FND_API.G_RET_STS_ERROR;
5508: l_mod_value NUMBER(2);
5509:
5510: -- Logging Infra
5511: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CO';
5512: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5513:
5514: BEGIN
5515:
5516: -- Logging Infra: Setting up runtime level
5513:
5514: BEGIN
5515:
5516: -- Logging Infra: Setting up runtime level
5517: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5518:
5519: -- Logging Infra: Procedure level
5520: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5521: l_log_msg := l_procedure_name||'(+)';
5518:
5519: -- Logging Infra: Procedure level
5520: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5521: l_log_msg := l_procedure_name||'(+)';
5522: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5523: END IF;
5524: -- Logging Infra
5525:
5526: -- Logging Infra: Statement level
5526: -- Logging Infra: Statement level
5527: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5528: l_log_msg := 'Parameters ';
5529: l_log_msg := l_log_msg||'p_trn: '||p_trn;
5530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5531: END IF;
5532: -- Logging Infra
5533:
5534: trn_value := upper(p_trn);
5583:
5584: -- Logging Infra: Statement level
5585: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5586: l_log_msg := 'The Tax Registration Number is invalid.';
5587: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5588: END IF;
5589: -- Logging Infra
5590:
5591: p_return_status := FND_API.G_RET_STS_ERROR;
5594:
5595: -- Logging Infra: Statement level
5596: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5597: l_log_msg := 'The Tax Registration Number is valid.';
5598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5599: END IF;
5600: -- Logging Infra
5601:
5602: p_return_status := FND_API.G_RET_STS_SUCCESS;
5607:
5608: -- Logging Infra: Statement level
5609: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5610: l_log_msg := 'The Tax Registration Number must be numeric.';
5611: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5612: END IF;
5613: -- Logging Infra
5614:
5615: IF length(trn_value) > 16 THEN
5626:
5627: -- Logging Infra: Statement level
5628: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5629: l_log_msg := 'The length of the Tax Registration Number is not correct.';
5630: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5631: END IF;
5632: -- Logging Infra
5633:
5634: p_return_status := FND_API.G_RET_STS_ERROR;
5650: l_numeric_result VARCHAR2(10);
5651:
5652: -- Logging Infra
5653: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_TW';
5654: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5655:
5656: BEGIN
5657:
5658: -- Logging Infra: Setting up runtime level
5655:
5656: BEGIN
5657:
5658: -- Logging Infra: Setting up runtime level
5659: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5660:
5661: -- Logging Infra: Procedure level
5662: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5663: l_log_msg := l_procedure_name||'(+)';
5660:
5661: -- Logging Infra: Procedure level
5662: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5663: l_log_msg := l_procedure_name||'(+)';
5664: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5665: END IF;
5666: -- Logging Infra
5667:
5668: -- Logging Infra: Statement level
5668: -- Logging Infra: Statement level
5669: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5670: l_log_msg := 'Parameters ';
5671: l_log_msg := l_log_msg||'p_trn: '||p_trn;
5672: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5673: END IF;
5674: -- Logging Infra
5675:
5676: trn_value := upper(p_trn);
5690:
5691: -- Logging Infra: Statement level
5692: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5693: l_log_msg := 'The Tax Registration Number is 9 and it is numeric only.';
5694: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5695: END IF;
5696: -- Logging Infra
5697:
5698: p_return_status := FND_API.G_RET_STS_SUCCESS;
5701:
5702: -- Logging Infra: Statement level
5703: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5704: l_log_msg := 'The length of Tax Registration Number is 9, but it is not Numeric.';
5705: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5706: END IF;
5707: -- Logging Infra
5708:
5709: p_return_status := FND_API.G_RET_STS_ERROR;
5714:
5715: -- Logging Infra: Statement level
5716: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5717: l_log_msg := 'The length of the Tax Registration Number is not 9.';
5718: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5719: END IF;
5720: -- Logging Infra
5721:
5722: IF length(trn_value) > 10 THEN
5742: AS
5743:
5744: -- Logging Infra
5745: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_MT';
5746: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5747:
5748: trn_value VARCHAR2(50);
5749: mt_prefix VARCHAR2(2);
5750:
5753: trn_value := upper(p_trn_value);
5754: mt_prefix := substr(trn_value,1,2);
5755:
5756: -- Logging Infra: Setting up runtime level
5757: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5758:
5759: -- Logging Infra: Procedure level
5760: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5761: l_log_msg := l_procedure_name||'(+)';
5758:
5759: -- Logging Infra: Procedure level
5760: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5761: l_log_msg := l_procedure_name||'(+)';
5762: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5763: END IF;
5764: -- Logging Infra
5765:
5766: -- Logging Infra: Statement level
5768: l_log_msg := 'Parameters ';
5769: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
5770: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5771: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
5772: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5773: END IF;
5774: -- Logging Infra
5775:
5776: IF p_check_unique_flag = 'E' THEN
5777:
5778: -- Logging Infra: Statement level
5779: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5780: l_log_msg := 'The Tax Registration Number is already used.';
5781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5782: END IF;
5783: -- Logging Infra
5784:
5785: p_return_status := FND_API.G_RET_STS_ERROR;
5799:
5800: -- Logging Infra: Statement level
5801: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5802: l_log_msg := 'The Tax Registration Number is numeric.';
5803: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5804: END IF;
5805: -- Logging Infra
5806:
5807: p_return_status := FND_API.G_RET_STS_SUCCESS;
5810:
5811: -- Logging Infra: Statement level
5812: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5813: l_log_msg := 'The Tax Registration Number must be numeric.';
5814: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5815: END IF;
5816: -- Logging Infra
5817:
5818: p_return_status := FND_API.G_RET_STS_ERROR;
5824:
5825: -- Logging Infra: Statement level
5826: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5827: l_log_msg := 'The length of the Tax Registration Number is not 10.';
5828: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5829: END IF;
5830: -- Logging Infra
5831:
5832: IF length(trn_value) > 10 THEN
5849:
5850: -- Logging Infra: Statement level
5851: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5852: l_log_msg := 'The Tax Registration Number is numeric.';
5853: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5854: END IF;
5855: -- Logging Infra
5856:
5857: p_return_status := FND_API.G_RET_STS_SUCCESS;
5860:
5861: -- Logging Infra: Statement level
5862: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5863: l_log_msg := 'The Tax Registration Number must be numeric.';
5864: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5865: END IF;
5866: -- Logging Infra
5867:
5868: p_return_status := FND_API.G_RET_STS_ERROR;
5874:
5875: -- Logging Infra: Statement level
5876: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5877: l_log_msg := 'The length of the Tax Registration Number is not 8.';
5878: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5879: END IF;
5880: -- Logging Infra
5881:
5882: IF length(trn_value) > 8 THEN
5895:
5896: -- Logging Infra: Statement level
5897: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5898: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
5899: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5900: -- END IF;
5901: -- Logging Infra
5902:
5903: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5919: AS
5920:
5921: -- Logging Infra
5922: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_LV';
5923: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5924:
5925: trn_value VARCHAR2(50);
5926: lv_prefix VARCHAR2(2);
5927:
5930: trn_value := upper(p_trn_value);
5931: lv_prefix := substr(trn_value,1,2);
5932:
5933: -- Logging Infra: Setting up runtime level
5934: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5935:
5936: -- Logging Infra: Procedure level
5937: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5938: l_log_msg := l_procedure_name||'(+)';
5935:
5936: -- Logging Infra: Procedure level
5937: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5938: l_log_msg := l_procedure_name||'(+)';
5939: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5940: END IF;
5941: -- Logging Infra
5942:
5943: -- Logging Infra: Statement level
5945: l_log_msg := 'Parameters ';
5946: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
5947: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
5948: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
5949: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5950: END IF;
5951: -- Logging Infra
5952:
5953: IF p_check_unique_flag = 'E' THEN
5954:
5955: -- Logging Infra: Statement level
5956: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5957: l_log_msg := 'The Tax Registration Number is already used.';
5958: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5959: END IF;
5960: -- Logging Infra
5961:
5962: p_return_status := FND_API.G_RET_STS_ERROR;
5976:
5977: -- Logging Infra: Statement level
5978: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5979: l_log_msg := 'The Tax Registration Number is numeric.';
5980: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5981: END IF;
5982: -- Logging Infra
5983:
5984: p_return_status := FND_API.G_RET_STS_SUCCESS;
5987:
5988: -- Logging Infra: Statement level
5989: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5990: l_log_msg := 'The Tax Registration Number must be numeric.';
5991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5992: END IF;
5993: -- Logging Infra
5994:
5995: p_return_status := FND_API.G_RET_STS_ERROR;
6000: ELSE
6001: -- Logging Infra: Statement level
6002: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6003: l_log_msg := 'The length of the Tax Registration Number is not 13.';
6004: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6005: END IF;
6006: -- Logging Infra
6007:
6008: IF length(trn_value) > 13 THEN
6025:
6026: -- Logging Infra: Statement level
6027: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6028: l_log_msg := 'The Tax Registration Number is numeric.';
6029: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6030: END IF;
6031: -- Logging Infra
6032:
6033: p_return_status := FND_API.G_RET_STS_SUCCESS;
6036:
6037: -- Logging Infra: Statement level
6038: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6039: l_log_msg := 'The Tax Registration Number must be numeric.';
6040: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6041: END IF;
6042: -- Logging Infra
6043:
6044: p_return_status := FND_API.G_RET_STS_ERROR;
6049: ELSE
6050: -- Logging Infra: Statement level
6051: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6052: l_log_msg := 'The length of the Tax Registration Number is not 11.';
6053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6054: END IF;
6055: -- Logging Infra
6056:
6057: IF length(trn_value) > 11 THEN
6071:
6072: -- Logging Infra: Statement level
6073: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6074: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
6075: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6076: -- END IF;
6077: -- Logging Infra
6078:
6079: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
6095: AS
6096:
6097: -- Logging Infra
6098: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_MT';
6099: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6100:
6101: trn_value VARCHAR2(50);
6102: si_prefix VARCHAR2(2);
6103:
6106: trn_value := upper(p_trn_value);
6107: si_prefix := substr(trn_value,1,2);
6108:
6109: -- Logging Infra: Setting up runtime level
6110: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6111:
6112: -- Logging Infra: Procedure level
6113: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6114: l_log_msg := l_procedure_name||'(+)';
6111:
6112: -- Logging Infra: Procedure level
6113: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6114: l_log_msg := l_procedure_name||'(+)';
6115: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
6116: END IF;
6117: -- Logging Infra
6118:
6119: -- Logging Infra: Statement level
6121: l_log_msg := 'Parameters ';
6122: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
6123: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
6124: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
6125: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6126: END IF;
6127: -- Logging Infra
6128:
6129: IF p_check_unique_flag = 'E' THEN
6130:
6131: -- Logging Infra: Statement level
6132: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6133: l_log_msg := 'The Tax Registration Number is already used.';
6134: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6135: END IF;
6136: -- Logging Infra
6137:
6138: p_return_status := FND_API.G_RET_STS_ERROR;
6152:
6153: -- Logging Infra: Statement level
6154: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6155: l_log_msg := 'The Tax Registration Number is numeric.';
6156: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6157: END IF;
6158: -- Logging Infra
6159:
6160: p_return_status := FND_API.G_RET_STS_SUCCESS;
6163:
6164: -- Logging Infra: Statement level
6165: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6166: l_log_msg := 'The Tax Registration Number must be numeric.';
6167: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6168: END IF;
6169: -- Logging Infra
6170:
6171: p_return_status := FND_API.G_RET_STS_ERROR;
6177:
6178: -- Logging Infra: Statement level
6179: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6180: l_log_msg := 'The length of the Tax Registration Number is not 10.';
6181: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6182: END IF;
6183: -- Logging Infra
6184:
6185: IF length(trn_value) > 10 THEN
6202:
6203: -- Logging Infra: Statement level
6204: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6205: l_log_msg := 'The Tax Registration Number is numeric.';
6206: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6207: END IF;
6208: -- Logging Infra
6209:
6210: p_return_status := FND_API.G_RET_STS_SUCCESS;
6213:
6214: -- Logging Infra: Statement level
6215: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6216: l_log_msg := 'The Tax Registration Number must be numeric.';
6217: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6218: END IF;
6219: -- Logging Infra
6220:
6221: p_return_status := FND_API.G_RET_STS_ERROR;
6227:
6228: -- Logging Infra: Statement level
6229: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6230: l_log_msg := 'The length of the Tax Registration Number is not 8.';
6231: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6232: END IF;
6233: -- Logging Infra
6234:
6235: IF length(trn_value) > 8 THEN
6248:
6249: -- Logging Infra: Statement level
6250: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6251: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
6252: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6253: -- END IF;
6254: -- Logging Infra
6255:
6256: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
6271: AS
6272:
6273: -- Logging Infra
6274: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_LT';
6275: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6276:
6277: trn_value VARCHAR2(50);
6278: lt_prefix VARCHAR2(2);
6279:
6282: trn_value := upper(p_trn_value);
6283: lt_prefix := substr(trn_value,1,2);
6284:
6285: -- Logging Infra: Setting up runtime level
6286: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6287:
6288: -- Logging Infra: Procedure level
6289: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6290: l_log_msg := l_procedure_name||'(+)';
6287:
6288: -- Logging Infra: Procedure level
6289: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6290: l_log_msg := l_procedure_name||'(+)';
6291: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
6292: END IF;
6293: -- Logging Infra
6294:
6295: -- Logging Infra: Statement level
6297: l_log_msg := 'Parameters ';
6298: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
6299: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
6300: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
6301: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6302: END IF;
6303: -- Logging Infra
6304:
6305: IF p_check_unique_flag = 'E' THEN
6306:
6307: -- Logging Infra: Statement level
6308: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6309: l_log_msg := 'The Tax Registration Number is already used.';
6310: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6311: END IF;
6312: -- Logging Infra
6313:
6314: p_return_status := FND_API.G_RET_STS_ERROR;
6328:
6329: -- Logging Infra: Statement level
6330: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6331: l_log_msg := 'The Tax Registration Number is numeric.';
6332: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6333: END IF;
6334: -- Logging Infra
6335:
6336: p_return_status := FND_API.G_RET_STS_SUCCESS;
6339:
6340: -- Logging Infra: Statement level
6341: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6342: l_log_msg := 'The Tax Registration Number must be numeric.';
6343: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6344: END IF;
6345: -- Logging Infra
6346:
6347: p_return_status := FND_API.G_RET_STS_ERROR;
6353:
6354: -- Logging Infra: Statement level
6355: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6356: l_log_msg := 'The length of the Tax Registration Number is not 9 or 12.';
6357: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6358: END IF;
6359: -- Logging Infra
6360:
6361: IF length(trn_value) > 11 AND length(trn_value) < 14 THEN
6382:
6383: -- Logging Infra: Statement level
6384: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6385: l_log_msg := 'The Tax Registration Number is numeric.';
6386: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6387: END IF;
6388: -- Logging Infra
6389:
6390: p_return_status := FND_API.G_RET_STS_SUCCESS;
6393:
6394: -- Logging Infra: Statement level
6395: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6396: l_log_msg := 'The Tax Registration Number must be numeric.';
6397: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6398: END IF;
6399: -- Logging Infra
6400:
6401: p_return_status := FND_API.G_RET_STS_ERROR;
6407:
6408: -- Logging Infra: Statement level
6409: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6410: l_log_msg := 'The length of the Tax Registration Number is not 9 or 12.';
6411: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6412: END IF;
6413: -- Logging Infra
6414:
6415: IF length(trn_value) > 9 AND length(trn_value) < 12 THEN
6431:
6432: -- Logging Infra: Statement level
6433: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6434: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
6435: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6436: -- END IF;
6437: -- Logging Infra
6438:
6439: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
6455: AS
6456:
6457: -- Logging Infra
6458: l_procedure_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRN_CY';
6459: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6460:
6461:
6462: trn_value VARCHAR2(50);
6463: cy_prefix VARCHAR2(2);
6467: trn_value := upper(p_trn_value);
6468: cy_prefix := substr(trn_value,1,2);
6469:
6470: -- Logging Infra: Setting up runtime level
6471: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6472:
6473: -- Logging Infra: Procedure level
6474: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6475: l_log_msg := l_procedure_name||'(+)';
6472:
6473: -- Logging Infra: Procedure level
6474: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6475: l_log_msg := l_procedure_name||'(+)';
6476: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
6477: END IF;
6478: -- Logging Infra
6479:
6480: -- Logging Infra: Statement level
6482: l_log_msg := 'Parameters ';
6483: l_log_msg := l_log_msg||'p_trn_value: '||p_trn_value;
6484: l_log_msg := l_log_msg||' p_trn_type: '||p_trn_type;
6485: l_log_msg := l_log_msg||' p_check_unique_flag: '||p_check_unique_flag;
6486: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6487: END IF;
6488: -- Logging Infra
6489:
6490: IF p_check_unique_flag = 'E' THEN
6491:
6492: -- Logging Infra: Statement level
6493: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6494: l_log_msg := 'The Tax Registration Number is already used.';
6495: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6496: END IF;
6497: -- Logging Infra
6498:
6499: p_return_status := FND_API.G_RET_STS_ERROR;
6515:
6516: -- Logging Infra: Statement level
6517: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6518: l_log_msg := 'The Tax Registration Number is numeric.';
6519: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6520: END IF;
6521: -- Logging Infra
6522:
6523: p_return_status := FND_API.G_RET_STS_SUCCESS;
6527:
6528: -- Logging Infra: Statement level
6529: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6530: l_log_msg := 'The last character must be a letter.';
6531: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6532: END IF;
6533: -- Logging Infra
6534:
6535: p_return_status := FND_API.G_RET_STS_ERROR;
6540:
6541: -- Logging Infra: Statement level
6542: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6543: l_log_msg := 'The Tax Registration Number must be numeric.';
6544: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6545: END IF;
6546: -- Logging Infra
6547:
6548: p_return_status := FND_API.G_RET_STS_ERROR;
6554:
6555: -- Logging Infra: Statement level
6556: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6557: l_log_msg := 'The length of the Tax Registration Number is not 11.';
6558: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6559: END IF;
6560: -- Logging Infra
6561:
6562: IF length(trn_value) > 11 THEN
6580:
6581: -- Logging Infra: Statement level
6582: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6583: l_log_msg := 'The Tax Registration Number is numeric.';
6584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6585: END IF;
6586: -- Logging Infra
6587:
6588: p_return_status := FND_API.G_RET_STS_SUCCESS;
6592:
6593: -- Logging Infra: Statement level
6594: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6595: l_log_msg := 'The last character must be a letter.';
6596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6597: END IF;
6598: -- Logging Infra
6599:
6600: p_return_status := FND_API.G_RET_STS_ERROR;
6605:
6606: -- Logging Infra: Statement level
6607: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6608: l_log_msg := 'The Tax Registration Number must be numeric.';
6609: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6610: END IF;
6611: -- Logging Infra
6612:
6613: p_return_status := FND_API.G_RET_STS_ERROR;
6619:
6620: -- Logging Infra: Statement level
6621: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6622: l_log_msg := 'The length of the Tax Registration Number is not 9.';
6623: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6624: END IF;
6625: -- Logging Infra
6626:
6627: IF length(trn_value) > 9 THEN
6640:
6641: -- Logging Infra: Statement level
6642: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6643: -- l_log_msg := 'Tax Regegistration Type is not VAT.';
6644: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6645: -- END IF;
6646: -- Logging Infra
6647:
6648: -- p_return_status := FND_API.G_RET_STS_SUCCESS;