[Home] [Help]
194: FETCH tax_reg_num_csr into l_party_id ;
195:
196: IF tax_reg_num_csr%NOTFOUND THEN
197: -- No data found. Therfore, new tax registration number will be unique.
198: x_trn_unique_result := FND_API.G_RET_STS_SUCCESS;
199: close tax_reg_num_csr;
200: EXIT;
201: ELSE
202: -- Data found. Therfore, new tax registration number will NOT be unique.
199: close tax_reg_num_csr;
200: EXIT;
201: ELSE
202: -- Data found. Therfore, new tax registration number will NOT be unique.
203: x_trn_unique_result := FND_API.G_RET_STS_ERROR;
204: close tax_reg_num_csr;
205: EXIT;
206: END IF;
207:
505: LOOP
506: FETCH c_third_party_reg_num INTO l_header_reg_num;
507:
508: IF c_third_party_reg_num%NOTFOUND THEN
509: x_return_status := FND_API.G_RET_STS_ERROR;
510: CLOSE c_third_party_reg_num;
511: EXIT;
512:
513: -- Logging Infra: Statement level
517: END IF;
518: -- Logging Infra: Statement level
519:
520: ELSE
521: x_return_status := FND_API.G_RET_STS_SUCCESS;
522: CLOSE c_third_party_reg_num;
523: EXIT;
524: END IF;
525: END LOOP;
530: LOOP
531: FETCH c_establishment_reg_num INTO l_header_reg_num;
532:
533: IF c_establishment_reg_num%NOTFOUND THEN
534: x_return_status := FND_API.G_RET_STS_ERROR;
535: CLOSE c_establishment_reg_num;
536: EXIT;
537:
538: -- Logging Infra: Statement level
542: END IF;
543: -- Logging Infra: Statement level
544:
545: ELSE
546: x_return_status := FND_API.G_RET_STS_SUCCESS;
547: CLOSE c_establishment_reg_num;
548: EXIT;
549: END IF;
550: END LOOP;
549: END IF;
550: END LOOP;
551:
552: ELSE
553: x_return_status := FND_API.G_RET_STS_ERROR;
554: END IF;
555:
556: -- Logging Infra: Procedure level
557: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
612: END IF;
613: -- Logging Infra
614:
615: l_trn := null;
616: p_return_status := FND_API.G_RET_STS_SUCCESS;
617: p_error_buffer := NULL;
618:
619: ELSE -- f1
620:
622: OPEN c_AllowDupRegnNum;
623: FETCH c_AllowDupRegnNum INTO l_allow_regn_num_flag;
624:
625: IF l_allow_regn_num_flag = 'Y' THEN
626: l_pass_unique_check := FND_API.G_RET_STS_SUCCESS;
627: close c_AllowDupRegnNum;
628: ELSE
629: unique_trn(l_trn, l_party_type_code, l_tax_regime_code, l_tax, l_tax_jurisdiction_code, l_pass_unique_check);
630: close c_AllowDupRegnNum;
636: IF l_pass_unique_check = 'E' THEN -- f2
637:
638: IF l_party_type_code = 'THIRD_PARTY' THEN -- f3
639:
640: p_return_status := FND_API.G_RET_STS_ERROR;
641: display_msg(l_trn
642: ,'THIRD_PARTY'
643: ,l_tax_regime_code
644: ,l_tax
659:
660: validate_header_trn('THIRD_PARTY_SITE', p_ptp_id, p_tax_reg_num, l_header_check);
661:
662: IF l_header_check = 'E' THEN
663: p_return_status := FND_API.G_RET_STS_ERROR;
664: display_msg(l_trn
665: ,'THIRD_PARTY_SITE'
666: ,l_tax_regime_code
667: ,l_tax
676:
677: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
678:
679: ELSE
680: p_return_status := FND_API.G_RET_STS_SUCCESS;
681: END IF;
682:
683: ELSIF l_party_type_code = 'LEGAL_ESTABLISHMENT' THEN -- f3
684:
684:
685: validate_header_trn('LEGAL_ESTABLISHMENT',p_ptp_id, p_tax_reg_num, l_header_check);
686:
687: IF l_header_check = 'E' THEN
688: p_return_status := FND_API.G_RET_STS_ERROR;
689: display_msg(l_trn
690: ,'LEGAL_ESTABLISHMENT'
691: ,l_tax_regime_code
692: ,l_tax
701:
702: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
703:
704: ELSE
705: p_return_status := FND_API.G_RET_STS_SUCCESS;
706: END IF;
707:
708: -- Bug 3650600
709:
708: -- Bug 3650600
709:
710: ELSE -- f3
711:
712: p_return_status := FND_API.G_RET_STS_ERROR;
713: p_error_buffer := 'ZX_REG_NUM_INVALID';
714:
715: END IF; -- f3
716:
783: x_party_type_token := l_party_type;
784: x_party_name_token := l_party_name;
785: x_party_site_name_token := l_party_site_name;
786:
787: p_return_status := FND_API.G_RET_STS_ERROR;
788: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
789: ELSE
790: p_return_status := FND_API.G_RET_STS_SUCCESS;
791: p_error_buffer := NULL;
786:
787: p_return_status := FND_API.G_RET_STS_ERROR;
788: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
789: ELSE
790: p_return_status := FND_API.G_RET_STS_SUCCESS;
791: p_error_buffer := NULL;
792: END IF;
793: ELSIF L_PARTY_TYPE_CODE = 'THIRD_PARTY_SITE' THEN
794: validate_header_trn('THIRD_PARTY_SITE', p_ptp_id, p_tax_reg_num, l_header_check);
806: x_party_type_token := l_party_type;
807: x_party_name_token := l_party_name;
808: x_party_site_name_token := l_party_site_name;
809:
810: p_return_status := FND_API.G_RET_STS_ERROR;
811: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
812: ELSE
813: p_return_status := FND_API.G_RET_STS_SUCCESS;
814: p_error_buffer := NULL;
809:
810: p_return_status := FND_API.G_RET_STS_ERROR;
811: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
812: ELSE
813: p_return_status := FND_API.G_RET_STS_SUCCESS;
814: p_error_buffer := NULL;
815: END IF;
816: END IF;
817: ELSE
814: p_error_buffer := NULL;
815: END IF;
816: END IF;
817: ELSE
818: p_return_status := FND_API.G_RET_STS_SUCCESS;
819: p_error_buffer := NULL;
820: END IF;
821: ELSE
822: p_return_status := FND_API.G_RET_STS_SUCCESS;
818: p_return_status := FND_API.G_RET_STS_SUCCESS;
819: p_error_buffer := NULL;
820: END IF;
821: ELSE
822: p_return_status := FND_API.G_RET_STS_SUCCESS;
823: p_error_buffer := NULL;
824: l_custom := 0;
825: -- Custom Validation.
826: l_custom := ZX_TRN_CUSTOM_VAL_PKG.VALIDATE_TRN_CUSTOM(l_trn,
1120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1121: END IF;
1122: -- Logging Infra
1123:
1124: p_return_status := FND_API.G_RET_STS_SUCCESS;
1125: p_error_buffer := NULL;
1126: --
1127: END IF; -- f3
1128: END IF;
1136: END IF;
1137:
1138: EXCEPTION
1139: WHEN INVALID_CURSOR THEN
1140: p_return_status := FND_API.G_RET_STS_ERROR;
1141: p_error_buffer := SQLERRM;
1142:
1143: -- Logging Infra:
1144: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1147: SQLCODE || ': ' || SQLERRM);
1148: END IF;
1149:
1150: WHEN OTHERS THEN
1151: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1152: p_error_buffer := SQLERRM;
1153:
1154: -- Logging Infra:
1155: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1201: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1202: END IF;
1203: -- Logging Infra
1204:
1205: p_return_status := FND_API.G_RET_STS_ERROR;
1206: p_error_buffer := 'ZX_REG_NUM_INVALID';
1207:
1208: end fail_uniqueness;
1209:
1216: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1217: END IF;
1218: -- Logging Infra
1219:
1220: p_return_status := FND_API.G_RET_STS_ERROR;
1221: p_error_buffer := 'ZX_REG_NUM_INVALID';
1222: end fail_check;
1223:
1224: procedure pass_check is
1230: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1231: END IF;
1232: -- Logging Infra
1233:
1234: p_return_status := FND_API.G_RET_STS_SUCCESS;
1235: p_error_buffer := NULL;
1236: end pass_check;
1237:
1238: procedure check_numeric_AT (check_numeric_result OUT NOCOPY VARCHAR2) is
1246: ' ')
1247: ), '0'
1248: );
1249: IF num_check <> '0' THEN
1250: check_numeric_result := FND_API.G_RET_STS_ERROR;
1251: ELSE
1252: check_numeric_result := FND_API.G_RET_STS_SUCCESS;
1253: END IF;
1254: end check_numeric_AT;
1248: );
1249: IF num_check <> '0' THEN
1250: check_numeric_result := FND_API.G_RET_STS_ERROR;
1251: ELSE
1252: check_numeric_result := FND_API.G_RET_STS_SUCCESS;
1253: END IF;
1254: end check_numeric_AT;
1255:
1256:
1325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1326: END IF;
1327: -- Logging Infra
1328:
1329: p_return_status := FND_API.G_RET_STS_ERROR;
1330: p_error_buffer := 'ZX_REG_NUM_INVALID';
1331:
1332: END IF;
1333:
1338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1339: END IF;
1340: -- Logging Infra
1341:
1342: p_return_status := FND_API.G_RET_STS_ERROR;
1343: p_error_buffer := 'ZX_REG_NUM_INVALID';
1344:
1345: END IF; -- if3
1346:
1352: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1353: END IF;
1354: -- Logging Infra
1355: IF length(trn_value) > 11 THEN
1356: p_return_status := FND_API.G_RET_STS_ERROR;
1357: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
1358: ELSE
1359: p_return_status := FND_API.G_RET_STS_ERROR;
1360: p_error_buffer := 'ZX_REG_NUM_INVALID';
1355: IF length(trn_value) > 11 THEN
1356: p_return_status := FND_API.G_RET_STS_ERROR;
1357: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
1358: ELSE
1359: p_return_status := FND_API.G_RET_STS_ERROR;
1360: p_error_buffer := 'ZX_REG_NUM_INVALID';
1361: END IF;
1362:
1363: END IF; -- if2
1370: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1371: END IF;
1372: -- Logging Infra
1373:
1374: p_return_status := FND_API.G_RET_STS_ERROR;
1375: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
1376:
1377: END IF; -- if1
1378:
1384: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1385: -- END IF;
1386: -- Logging Infra
1387:
1388: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390: --END IF;
1391:
1392: END IF;
1428: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1429: END IF;
1430: -- Logging Infra
1431:
1432: p_return_status := FND_API.G_RET_STS_ERROR;
1433: p_error_buffer := 'ZX_REG_NUM_INVALID';
1434:
1435: end fail_uniqueness;
1436:
1443: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1444: END IF;
1445: -- Logging Infra
1446:
1447: p_return_status := FND_API.G_RET_STS_ERROR;
1448: p_error_buffer := 'ZX_REG_NUM_INVALID';
1449: end fail_check;
1450:
1451: procedure pass_check is
1457: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1458: END IF;
1459: -- Logging Infra
1460:
1461: p_return_status := FND_API.G_RET_STS_SUCCESS;
1462: p_error_buffer := NULL;
1463: end pass_check;
1464:
1465: /****************/
1520: l_log_msg := 'Check digit is not match.';
1521: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1522: END IF;
1523: -- Logging Infra
1524: p_return_status := FND_API.G_RET_STS_ERROR;
1525: p_error_buffer := 'ZX_REG_NUM_INVALID';
1526:
1527: END IF;
1528:
1539: l_log_msg := 'Check digit is not match.';
1540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1541: END IF;
1542: -- Logging Infra
1543: p_return_status := FND_API.G_RET_STS_ERROR;
1544: p_error_buffer := 'ZX_REG_NUM_INVALID';
1545:
1546: END IF;
1547:
1553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1554: END IF;
1555: -- Logging Infra
1556:
1557: p_return_status := FND_API.G_RET_STS_ERROR;
1558: p_error_buffer := 'ZX_REG_NUM_INVALID';
1559:
1560: END IF;
1561:
1568: END IF;
1569: -- Logging Infra
1570:
1571: IF length(trn_value) > 12 THEN
1572: p_return_status := FND_API.G_RET_STS_ERROR;
1573: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
1574: ELSIF length(trn_value) < 8 THEN
1575: p_return_status := FND_API.G_RET_STS_ERROR;
1576: p_error_buffer := 'ZX_REG_NUM_INVALID';
1571: IF length(trn_value) > 12 THEN
1572: p_return_status := FND_API.G_RET_STS_ERROR;
1573: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
1574: ELSIF length(trn_value) < 8 THEN
1575: p_return_status := FND_API.G_RET_STS_ERROR;
1576: p_error_buffer := 'ZX_REG_NUM_INVALID';
1577: END IF;
1578:
1579: END IF;
1586: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1587: END IF;
1588: -- Logging Infra
1589:
1590: p_return_status := FND_API.G_RET_STS_ERROR;
1591: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
1592:
1593: END IF;
1594:
1614: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1615: END IF;
1616: -- Logging Infra
1617:
1618: p_return_status := FND_API.G_RET_STS_ERROR;
1619: p_error_buffer := 'ZX_REG_NUM_INVALID';
1620:
1621: END IF;
1622: ELSE
1626: l_log_msg := 'The length of the Tax Registration Number is not correct.';
1627: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1628: END IF;
1629: -- Logging Infra
1630: p_return_status := FND_API.G_RET_STS_ERROR;
1631: p_error_buffer := 'ZX_REG_NUM_INVALID';
1632:
1633: END IF;
1634:
1639: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1640: END IF;
1641: -- Logging Infra
1642:
1643: p_return_status := FND_API.G_RET_STS_ERROR;
1644: p_error_buffer := 'ZX_REG_NUM_INVALID';
1645: END IF;
1646:
1647: ELSE
1652: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1653: END IF;
1654: -- Logging Infra
1655:
1656: p_return_status := FND_API.G_RET_STS_ERROR;
1657: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
1658:
1659: END IF;
1660:
1668: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1669: -- END IF;
1670: -- Logging Infra
1671:
1672: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1673:
1674: --END IF;
1675:
1676: END IF;
1722: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1723: END IF;
1724: -- Logging Infra
1725:
1726: p_return_status := FND_API.G_RET_STS_ERROR;
1727: p_error_buffer := 'ZX_REG_NUM_INVALID';
1728:
1729: ELSIF p_check_unique_flag = 'S' THEN
1730:
1741: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1742: END IF;
1743: -- Logging Infra
1744:
1745: p_return_status := FND_API.G_RET_STS_SUCCESS;
1746: p_error_buffer := NULL;
1747: ELSE
1748:
1749: -- Logging Infra: Statement level
1752: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1753: END IF;
1754: -- Logging Infra
1755:
1756: p_return_status := FND_API.G_RET_STS_ERROR;
1757: p_error_buffer := 'ZX_REG_NUM_INVALID';
1758: --
1759: END IF;
1760:
1766: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1767: -- END IF;
1768: -- Logging Infra
1769:
1770: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1771:
1772: --END IF;
1773:
1774: END IF;
1819: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1820: END IF;
1821: -- Logging Infra
1822:
1823: p_return_status := FND_API.G_RET_STS_ERROR;
1824: p_error_buffer := 'ZX_REG_NUM_INVALID';
1825:
1826: ELSIF p_check_unique_flag = 'S' THEN
1827:
1838: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1839: END IF;
1840: -- Logging Infra
1841:
1842: p_return_status := FND_API.G_RET_STS_SUCCESS;
1843: p_error_buffer := NULL;
1844: ELSE
1845:
1846: -- Logging Infra: Statement level
1849: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1850: END IF;
1851: -- Logging Infra
1852:
1853: p_return_status := FND_API.G_RET_STS_ERROR;
1854: p_error_buffer := 'ZX_REG_NUM_INVALID';
1855: --
1856: END IF;
1857:
1863: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1864: -- END IF;
1865: -- Logging Infra
1866:
1867: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1869: --END IF;
1870:
1871: END IF;
1915: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1916: END IF;
1917: -- Logging Infra
1918:
1919: p_return_status := FND_API.G_RET_STS_ERROR;
1920: p_error_buffer := 'ZX_REG_NUM_INVALID';
1921:
1922: ELSIF p_check_unique_flag = 'S' THEN
1923:
1935: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1936: END IF;
1937: -- Logging Infra
1938:
1939: p_return_status := FND_API.G_RET_STS_SUCCESS;
1940: p_error_buffer := NULL;
1941: ELSE
1942:
1943: -- Logging Infra: Statement level
1946: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1947: END IF;
1948: -- Logging Infra
1949:
1950: p_return_status := FND_API.G_RET_STS_ERROR;
1951: p_error_buffer := 'ZX_REG_NUM_INVALID';
1952: --
1953: END IF;
1954:
1960: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1961: -- END IF;
1962: -- Logging Infra
1963:
1964: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
1965:
1966: --END IF;
1967:
1968: END IF;
2032: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2033: END IF;
2034: -- Logging Infra
2035:
2036: p_return_status := FND_API.G_RET_STS_ERROR;
2037: p_error_buffer := 'ZX_REG_NUM_INVALID';
2038:
2039: ELSIF p_check_unique_flag = 'S' THEN
2040:
2054: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2055: END IF;
2056: -- Logging Infra
2057:
2058: p_return_status := FND_API.G_RET_STS_SUCCESS;
2059: p_error_buffer := NULL;
2060: ELSE
2061:
2062: -- Logging Infra: Statement level
2065: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2066: END IF;
2067: -- Logging Infra
2068:
2069: p_return_status := FND_API.G_RET_STS_ERROR;
2070: p_error_buffer := 'ZX_REG_NUM_INVALID';
2071: --
2072: END IF;
2073: ELSE
2078: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2079: END IF;
2080: -- Logging Infra
2081:
2082: p_return_status := FND_API.G_RET_STS_ERROR;
2083: p_error_buffer := 'ZX_REG_NUM_INVALID';
2084:
2085: --
2086: END IF;
2093: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2094: -- END IF;
2095: -- Logging Infra
2096:
2097: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2098:
2099: --END IF;
2100:
2101: END IF;
2145: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2146: END IF;
2147: -- Logging Infra
2148:
2149: p_return_status := FND_API.G_RET_STS_ERROR;
2150: p_error_buffer := 'ZX_REG_NUM_INVALID';
2151:
2152: ELSIF p_check_unique_flag = 'S' THEN
2153:
2163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2164: END IF;
2165: -- Logging Infra
2166:
2167: p_return_status := FND_API.G_RET_STS_SUCCESS;
2168: p_error_buffer := NULL;
2169: ELSE
2170:
2171: -- Logging Infra: Statement level
2174: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2175: END IF;
2176: -- Logging Infra
2177:
2178: p_return_status := FND_API.G_RET_STS_ERROR;
2179: p_error_buffer := 'ZX_REG_NUM_INVALID';
2180: --
2181: END IF;
2182: --ELSE
2187: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2188: -- END IF;
2189: -- Logging Infra
2190:
2191: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2192:
2193: --END IF;
2194:
2195: END IF;
2248: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2249: END IF;
2250: -- Logging Infra
2251:
2252: p_return_status := FND_API.G_RET_STS_ERROR;
2253: p_error_buffer := 'ZX_REG_NUM_INVALID';
2254:
2255: ELSIF p_check_unique_flag = 'S' THEN
2256:
2285: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2286: END IF;
2287: -- Logging Infra
2288:
2289: p_return_status := FND_API.G_RET_STS_SUCCESS;
2290: p_error_buffer := NULL;
2291: ELSE
2292:
2293: -- Logging Infra: Statement level
2296: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2297: END IF;
2298: -- Logging Infra
2299:
2300: p_return_status := FND_API.G_RET_STS_ERROR;
2301: p_error_buffer := 'ZX_REG_NUM_INVALID';
2302: --
2303: END IF;
2304: ELSE
2309: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2310: END IF;
2311: -- Logging Infra
2312:
2313: p_return_status := FND_API.G_RET_STS_ERROR;
2314: p_error_buffer := 'ZX_REG_NUM_INVALID';
2315: --
2316: END IF;
2317:
2323: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2324: -- END IF;
2325: -- Logging Infra
2326:
2327: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2328:
2329: --END IF;
2330:
2331: END IF;
2396: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2397: END IF;
2398: -- Logging Infra
2399:
2400: p_return_status := FND_API.G_RET_STS_ERROR;
2401: p_error_buffer := 'ZX_REG_NUM_INVALID';
2402:
2403: ELSIF p_check_unique_flag = 'S' THEN
2404:
2416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2417: END IF;
2418: -- Logging Infra
2419:
2420: p_return_status := FND_API.G_RET_STS_SUCCESS;
2421: p_error_buffer := NULL;
2422: ELSIF common_check_numeric(p_trn_value,4,length(p_trn_value)-5) = '0' and
2423: check_letter(p_trn_value,1) = '0' THEN
2424: --
2429: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2430: END IF;
2431: -- Logging Infra
2432:
2433: p_return_status := FND_API.G_RET_STS_SUCCESS;
2434: p_error_buffer := NULL;
2435:
2436: ELSIF common_check_numeric(p_trn_value,5,length(p_trn_value)-5) = '0' and
2437: check_letter(p_trn_value,1) = '0' THEN
2442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2443: END IF;
2444: -- Logging Infra
2445:
2446: p_return_status := FND_API.G_RET_STS_SUCCESS;
2447: p_error_buffer := NULL;
2448:
2449: ELSE
2450:
2454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2455: END IF;
2456: -- Logging Infra
2457:
2458: p_return_status := FND_API.G_RET_STS_ERROR;
2459: p_error_buffer := 'ZX_REG_NUM_INVALID';
2460: --
2461: END IF;
2462: ELSE
2467: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2468: END IF;
2469: -- Logging Infra
2470:
2471: p_return_status := FND_API.G_RET_STS_ERROR;
2472: p_error_buffer := 'ZX_REG_NUM_INVALID';
2473: --
2474: END IF;
2475:
2481: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2482: -- END IF;
2483: -- Logging Infra
2484:
2485: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2486:
2487: --END IF;
2488:
2489: END IF;
2530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2531: END IF;
2532: -- Logging Infra
2533:
2534: p_return_status := FND_API.G_RET_STS_ERROR;
2535: p_error_buffer := 'ZX_REG_NUM_INVALID';
2536: end fail_uniqueness;
2537:
2538: procedure fail_check is
2544: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2545: END IF;
2546: -- Logging Infra
2547:
2548: p_return_status := FND_API.G_RET_STS_ERROR;
2549: p_error_buffer := 'ZX_REG_NUM_INVALID';
2550: end fail_check;
2551:
2552: PROCEDURE pass_check IS
2558: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2559: END IF;
2560: -- Logging Infra
2561:
2562: p_return_status := FND_API.G_RET_STS_SUCCESS;
2563: p_error_buffer := NULL;
2564: END pass_check;
2565:
2566: /** procedure to check that the chars sent are numeric only **/
2581: ), '0'
2582: );
2583:
2584: IF num_check <> '0' THEN
2585: flag1 := FND_API.G_RET_STS_ERROR;
2586: output_val := '0';
2587: ELSE
2588: flag1 := FND_API.G_RET_STS_SUCCESS;
2589: output_val := var1;
2584: IF num_check <> '0' THEN
2585: flag1 := FND_API.G_RET_STS_ERROR;
2586: output_val := '0';
2587: ELSE
2588: flag1 := FND_API.G_RET_STS_SUCCESS;
2589: output_val := var1;
2590: END IF;
2591:
2592: END check_numeric;
2623: IF common_check_numeric(p_trn_value,1,2) <> '0' THEN
2624: --
2625: IF substr(p_trn_value,1,2) <> 'IT' THEN
2626: --
2627: p_return_status := FND_API.G_RET_STS_ERROR;
2628: p_error_buffer := 'ZX_REG_NUM_INVALID';
2629: ELSE
2630: --
2631: trn_string := substr(p_trn_value,3, length(p_trn_value));
2712: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2713: -- END IF;
2714: -- Logging Infra
2715:
2716: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2717:
2718: --END IF;
2719:
2720: ELSE
2768: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2769: END IF;
2770: -- Logging Infra
2771:
2772: p_return_status := FND_API.G_RET_STS_ERROR;
2773: p_error_buffer := 'ZX_REG_NUM_INVALID';
2774:
2775: ELSIF p_check_unique_flag = 'S' THEN
2776:
2788: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2789: END IF;
2790: -- Logging Infra
2791:
2792: p_return_status := FND_API.G_RET_STS_SUCCESS;
2793: p_error_buffer := NULL;
2794: ELSE
2795:
2796: -- Logging Infra: Statement level
2799: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2800: END IF;
2801: -- Logging Infra
2802:
2803: p_return_status := FND_API.G_RET_STS_ERROR;
2804: p_error_buffer := 'ZX_REG_NUM_INVALID';
2805: --
2806: END IF;
2807:
2813: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2814: -- END IF;
2815: -- Logging Infra
2816:
2817: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2818:
2819: --END IF;
2820:
2821: END IF;
2857: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2858: END IF;
2859: -- Logging Infra
2860:
2861: IF p_check_unique_flag = FND_API.G_RET_STS_ERROR THEN
2862:
2863: -- Logging Infra: Statement level
2864: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2865: l_log_msg := 'The Tax Registration Number is already used.';
2866: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2867: END IF;
2868: -- Logging Infra
2869:
2870: p_return_status := FND_API.G_RET_STS_ERROR;
2871: p_error_buffer := 'ZX_REG_NUM_INVALID';
2872:
2873: ELSIF p_check_unique_flag = 'S' THEN
2874:
2888: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2889: END IF;
2890: -- Logging Infra
2891:
2892: p_return_status := FND_API.G_RET_STS_SUCCESS;
2893: p_error_buffer := NULL;
2894:
2895: ELSIF (substr(trn_value,1,2) = 'SK') and
2896: (common_check_numeric(p_trn_value,3,length(p_trn_value)) = '0') THEN
2901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2902: END IF;
2903: -- Logging Infra
2904:
2905: p_return_status := FND_API.G_RET_STS_SUCCESS;
2906: p_error_buffer := NULL;
2907: ELSE
2908:
2909: -- Logging Infra: Statement level
2912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2913: END IF;
2914: -- Logging Infra
2915:
2916: p_return_status := FND_API.G_RET_STS_ERROR;
2917: p_error_buffer := 'ZX_REG_NUM_INVALID';
2918: --
2919: END IF;
2920:
2926: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2927: -- END IF;
2928: -- Logging Infra
2929:
2930: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
2931:
2932: --END IF;
2933:
2934: END IF;
2971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2972: END IF;
2973: -- Logging Infra
2974:
2975: p_return_status := FND_API.G_RET_STS_ERROR;
2976: p_error_buffer := 'ZX_REG_NUM_INVALID';
2977: end fail_uniqueness;
2978:
2979: procedure fail_check is
2984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2985: END IF;
2986: -- Logging Infra
2987:
2988: p_return_status := FND_API.G_RET_STS_ERROR;
2989: p_error_buffer := 'ZX_REG_NUM_INVALID';
2990: end fail_check;
2991:
2992: procedure pass_check is
2997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2998: END IF;
2999: -- Logging Infra
3000:
3001: p_return_status := FND_API.G_RET_STS_SUCCESS;
3002: p_error_buffer := NULL;
3003: end pass_check;
3004:
3005: procedure check_numeric (check_numeric_result OUT NOCOPY VARCHAR2) is
3022: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3023: END IF;
3024: -- Logging Infra
3025:
3026: check_numeric_result := FND_API.G_RET_STS_ERROR;
3027: p_error_buffer := 'ZX_REG_NUM_INVALID';
3028: ELSE
3029:
3030: -- Logging Infra: Statement level
3033: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3034: END IF;
3035: -- Logging Infra
3036:
3037: check_numeric_result := FND_API.G_RET_STS_SUCCESS;
3038: p_error_buffer := NULL;
3039: END IF;
3040: end check_numeric;
3041:
3119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3120: END IF;
3121: -- Logging Infra
3122:
3123: p_return_status := FND_API.G_RET_STS_ERROR;
3124: p_error_buffer := 'ZX_REG_NUM_INVALID';
3125: END IF;
3126:
3127: ELSE
3131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3132: END IF;
3133: -- Logging Infra
3134:
3135: p_return_status := FND_API.G_RET_STS_ERROR;
3136: p_error_buffer := 'ZX_REG_NUM_INVALID';
3137: END IF;
3138:
3139: ELSE
3143: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3144: END IF;
3145: -- Logging Infra
3146:
3147: p_return_status := FND_API.G_RET_STS_ERROR;
3148: p_error_buffer := 'ZX_REG_NUM_INVALID';
3149: END IF;
3150:
3151: ELSE
3155: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3156: END IF;
3157: -- Logging Infra
3158:
3159: p_return_status := FND_API.G_RET_STS_ERROR;
3160: p_error_buffer := 'ZX_REG_NUM_INVALID';
3161: END IF;
3162:
3163: ELSE
3167: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3168: END IF;
3169: -- Logging Infra
3170: IF length(p_trn_value) > 14 THEN
3171: p_return_status := FND_API.G_RET_STS_ERROR;
3172: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
3173: ELSE
3174: p_return_status := FND_API.G_RET_STS_ERROR;
3175: p_error_buffer := 'ZX_REG_NUM_INVALID';
3170: IF length(p_trn_value) > 14 THEN
3171: p_return_status := FND_API.G_RET_STS_ERROR;
3172: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
3173: ELSE
3174: p_return_status := FND_API.G_RET_STS_ERROR;
3175: p_error_buffer := 'ZX_REG_NUM_INVALID';
3176: END IF;
3177: END IF;
3178:
3183: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3184: END IF;
3185: -- Logging Infra
3186:
3187: p_return_status := FND_API.G_RET_STS_ERROR;
3188: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
3189: END IF;
3190:
3191: --ELSE
3196: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3197: -- END IF;
3198: -- Logging Infra
3199:
3200: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3201:
3202: --END IF;
3203:
3204: END IF;
3256: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3257: END IF;
3258: -- Logging Infra
3259:
3260: p_return_status := FND_API.G_RET_STS_ERROR;
3261: p_error_buffer := 'ZX_REG_NUM_INVALID';
3262:
3263: ELSIF p_check_unique_flag = 'S' THEN
3264:
3280: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3281: END IF;
3282: -- Logging Infra
3283:
3284: p_return_status := FND_API.G_RET_STS_SUCCESS;
3285: p_error_buffer := NULL;
3286: ELSE
3287:
3288: -- Logging Infra: Statement level
3291: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3292: END IF;
3293: -- Logging Infra
3294:
3295: p_return_status := FND_API.G_RET_STS_ERROR;
3296: p_error_buffer := 'ZX_REG_NUM_INVALID';
3297: --
3298: END IF;
3299: ELSIF (substr(trn_value,1,2) = 'PL') and
3305: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3306: END IF;
3307: -- Logging Infra
3308:
3309: p_return_status := FND_API.G_RET_STS_SUCCESS;
3310: p_error_buffer := NULL;
3311:
3312: ELSE
3313:
3317: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3318: END IF;
3319: -- Logging Infra
3320:
3321: p_return_status := FND_API.G_RET_STS_ERROR;
3322: p_error_buffer := 'ZX_REG_NUM_INVALID';
3323: --
3324: END IF;
3325:
3331: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3332: -- END IF;
3333: -- Logging Infra
3334:
3335: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3336:
3337: --END IF;
3338:
3339: END IF;
3387:
3388: check_digit := substr(p_trn_value, length(p_trn_value));
3389: TRN_STRING := substr(p_trn_value,3,length(p_trn_value));
3390:
3391: IF p_check_unique_flag = FND_API.G_RET_STS_ERROR THEN
3392: --
3393:
3394: -- Logging Infra: Statement level
3395: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3397: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3398: END IF;
3399: -- Logging Infra
3400:
3401: p_return_status := FND_API.G_RET_STS_ERROR;
3402: p_error_buffer := 'ZX_REG_NUM_INVALID';
3403:
3404: ELSIF p_check_unique_flag = 'S' THEN
3405: --
3445: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3446: END IF;
3447: -- Logging Infra
3448:
3449: p_return_status := FND_API.G_RET_STS_SUCCESS;
3450: p_error_buffer := NULL;
3451: ELSE
3452:
3453: -- Logging Infra: Statement level
3456: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3457: END IF;
3458: -- Logging Infra
3459:
3460: p_return_status := FND_API.G_RET_STS_ERROR;
3461: p_error_buffer := 'ZX_REG_NUM_INVALID';
3462: --
3463: END IF;
3464: --
3471: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3472: END IF;
3473: -- Logging Infra
3474:
3475: p_return_status := FND_API.G_RET_STS_ERROR;
3476: p_error_buffer := 'ZX_REG_NUM_INVALID';
3477: --
3478: END IF;
3479:
3485: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3486: -- END IF;
3487: -- Logging Infra
3488:
3489: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3490:
3491: --END IF;
3492:
3493: --
3532: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3533: END IF;
3534: -- Logging Infra
3535:
3536: p_return_status := FND_API.G_RET_STS_ERROR;
3537: p_error_buffer := 'ZX_REG_NUM_INVALID';
3538: end fail_uniqueness;
3539:
3540: procedure fail_check is
3546: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3547: END IF;
3548: -- Logging Infra
3549:
3550: p_return_status := FND_API.G_RET_STS_ERROR;
3551: p_error_buffer := 'ZX_REG_NUM_INVALID';
3552: end fail_check;
3553:
3554: procedure pass_check is
3560: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3561: END IF;
3562: -- Logging Infra
3563:
3564: p_return_status := FND_API.G_RET_STS_SUCCESS;
3565: p_error_buffer := NULL;
3566: end pass_check;
3567:
3568: /****************/
3665: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3666: END IF;
3667: -- Logging Infra
3668:
3669: p_return_status := FND_API.G_RET_STS_ERROR;
3670: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
3671: END IF; /* end of numeric check */
3672:
3673: ELSE
3692: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3693: END IF;
3694: -- Logging Infra
3695:
3696: p_return_status := FND_API.G_RET_STS_ERROR;
3697: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
3698: END IF; /* end of numeric check */
3699:
3700: END IF;
3755: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3756: END IF;
3757: -- Logging Infra
3758:
3759: p_return_status := FND_API.G_RET_STS_ERROR;
3760: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
3761: END IF; /* end of numeric check */
3762: ELSE
3763: fail_check;
3773: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3774: END IF;
3775: -- Logging Infra
3776:
3777: p_return_status := FND_API.G_RET_STS_ERROR;
3778: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
3779: END IF; /* end of length check */
3780:
3781: ELSE
3794: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3795: -- END IF;
3796: -- Logging Infra
3797:
3798: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3799:
3800: --END IF;
3801:
3802: ELSE
3851: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3852: END IF;
3853: -- Logging Infra
3854:
3855: p_return_status := FND_API.G_RET_STS_ERROR;
3856: p_error_buffer := 'ZX_REG_NUM_INVALID';
3857:
3858: ELSIF p_check_unique_flag = 'S' THEN
3859: --
3873: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3874: END IF;
3875: -- Logging Infra
3876:
3877: p_return_status := FND_API.G_RET_STS_SUCCESS;
3878: p_error_buffer := NULL;
3879: ELSE
3880:
3881: -- Logging Infra: Statement level
3884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3885: END IF;
3886: -- Logging Infra
3887:
3888: p_return_status := FND_API.G_RET_STS_ERROR;
3889: p_error_buffer := 'ZX_REG_NUM_INVALID';
3890: --
3891: END IF;
3892: --
3899: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3900: -- END IF;
3901: -- Logging Infra
3902:
3903: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
3904:
3905: --END IF;
3906:
3907: END IF;
3961: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3962: END IF;
3963: -- Logging Infra
3964:
3965: p_return_status := FND_API.G_RET_STS_ERROR;
3966: p_error_buffer := 'ZX_REG_NUM_INVALID';
3967:
3968: ELSIF p_check_unique_flag = 'S' THEN
3969: --
3998: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3999: END IF;
4000: -- Logging Infra
4001:
4002: p_return_status := FND_API.G_RET_STS_SUCCESS;
4003: p_error_buffer := NULL;
4004: ELSE
4005:
4006: -- Logging Infra: Statement level
4009: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4010: END IF;
4011: -- Logging Infra
4012:
4013: p_return_status := FND_API.G_RET_STS_ERROR;
4014: p_error_buffer := 'ZX_REG_NUM_INVALID';
4015: --
4016: END IF;
4017: ELSE
4022: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4023: END IF;
4024: -- Logging Infra
4025:
4026: p_return_status := FND_API.G_RET_STS_SUCCESS;
4027: p_error_buffer := NULL;
4028: --
4029: END IF;
4030: ELSE
4035: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4036: END IF;
4037: -- Logging Infra
4038:
4039: p_return_status := FND_API.G_RET_STS_ERROR;
4040: p_error_buffer := 'ZX_REG_NUM_INVALID';
4041: --
4042: END IF;
4043:
4049: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4050: -- END IF;
4051: -- Logging Infra
4052:
4053: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4054:
4055: --END IF;
4056:
4057: END IF;
4101: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4102: END IF;
4103: -- Logging Infra
4104:
4105: p_return_status := FND_API.G_RET_STS_ERROR;
4106: p_error_buffer := 'ZX_REG_NUM_INVALID';
4107:
4108: ELSIF p_check_unique_flag = 'S' THEN
4109:
4120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4121: END IF;
4122: -- Logging Infra
4123:
4124: p_return_status := FND_API.G_RET_STS_SUCCESS;
4125: p_error_buffer := NULL;
4126: ELSE
4127:
4128: -- Logging Infra: Statement level
4131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4132: END IF;
4133: -- Logging Infra
4134:
4135: p_return_status := FND_API.G_RET_STS_ERROR;
4136: p_error_buffer := 'ZX_REG_NUM_INVALID';
4137: --
4138: END IF;
4139:
4145: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4146: -- END IF;
4147: -- Logging Infra
4148:
4149: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4150:
4151: --END IF;
4152:
4153: END IF;
4198: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4199: END IF;
4200: -- Logging Infra
4201:
4202: p_return_status := FND_API.G_RET_STS_ERROR;
4203: p_error_buffer := 'ZX_REG_NUM_INVALID';
4204:
4205: ELSIF p_check_unique_flag = 'S' THEN
4206:
4218: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4219: END IF;
4220: -- Logging Infra
4221:
4222: p_return_status := FND_API.G_RET_STS_SUCCESS;
4223: p_error_buffer := NULL;
4224: ELSE
4225:
4226: -- Logging Infra: Statement level
4229: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4230: END IF;
4231: -- Logging Infra
4232:
4233: p_return_status := FND_API.G_RET_STS_ERROR;
4234: p_error_buffer := 'ZX_REG_NUM_INVALID';
4235: --
4236: END IF;
4237:
4243: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4244: -- END IF;
4245: -- Logging Infra
4246:
4247: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4248:
4249: --END IF;
4250:
4251: END IF;
4299: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4300: END IF;
4301: -- Logging Infra
4302:
4303: p_return_status := FND_API.G_RET_STS_ERROR;
4304: p_error_buffer := 'ZX_REG_NUM_INVALID';
4305:
4306: ELSIF p_check_unique_flag = 'S' THEN
4307:
4325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4326: END IF;
4327: -- Logging Infra
4328:
4329: p_return_status := FND_API.G_RET_STS_SUCCESS;
4330: p_error_buffer := NULL;
4331: ELSE
4332:
4333: -- Logging Infra: Statement level
4336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4337: END IF;
4338: -- Logging Infra
4339:
4340: p_return_status := FND_API.G_RET_STS_ERROR;
4341: p_error_buffer := 'ZX_REG_NUM_INVALID';
4342: END IF;
4343:
4344: --ELSE
4349: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4350: -- END IF;
4351: -- Logging Infra
4352:
4353: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
4354:
4355: --END IF;
4356:
4357: END IF;
4429: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4430: END IF;
4431: -- Logging Infra
4432:
4433: p_return_status := FND_API.G_RET_STS_ERROR;
4434: p_error_buffer := 'ZX_REG_NUM_INVALID';
4435: ELSE
4436: /* Calculate two digit controls of tax registration number CPF type */
4437:
4480: END IF;
4481: -- Logging Infra
4482:
4483: /* Digit controls do not match */
4484: p_return_status:= FND_API.G_RET_STS_ERROR;
4485: p_error_buffer := 'ZX_REG_NUM_INVALID';
4486: ELSE
4487:
4488: -- Logging Infra: Statement level
4491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4492: END IF;
4493: -- Logging Infra
4494:
4495: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4496: p_error_buffer := NULL;
4497: END IF;
4498: END IF;
4499:
4506: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4507: END IF;
4508: -- Logging Infra
4509:
4510: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4511: p_error_buffer := NULL;
4512:
4513: --ELSIF p_trn_type = 'CNPJ'
4514: --THEN
4567: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4568: END IF;
4569: -- Logging Infra
4570:
4571: p_return_status:= FND_API.G_RET_STS_ERROR;
4572: p_error_buffer := 'ZX_REG_NUM_INVALID';
4573: ELSE
4574:
4575: -- Logging Infra: Statement level
4578: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4579: END IF;
4580: -- Logging Infra
4581:
4582: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4583: p_error_buffer := NULL;
4584: END IF;
4585: --ELSE
4586:
4590: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4591: -- END IF;
4592: -- Logging Infra
4593:
4594: -- p_return_status:= FND_API.G_RET_STS_ERROR;
4595: -- p_error_buffer := 'ZX_REG_NUM_INVALID';
4596: END IF;
4597:
4598: END VALIDATE_TRN_BR;
4690: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4691: END IF;
4692: -- Logging Infra
4693:
4694: p_return_status := FND_API.G_RET_STS_ERROR;
4695: p_error_buffer := 'ZX_REG_NUM_INVALID';
4696: ELSE
4697:
4698: -- Logging Infra: Statement level
4701: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4702: END IF;
4703: -- Logging Infra
4704:
4705: p_return_status := FND_API.G_RET_STS_SUCCESS;
4706: p_error_buffer := NULL;
4707: END IF;
4708:
4709: ELSE
4714: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4715: END IF;
4716: -- Logging Infra
4717:
4718: p_return_status := FND_API.G_RET_STS_ERROR;
4719: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
4720: END IF;
4721:
4722: ELSE
4727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4728: END IF;
4729: -- Logging Infra
4730: IF length(trn_value) > 11 THEN
4731: p_return_status := FND_API.G_RET_STS_ERROR;
4732: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
4733: ELSE
4734: p_return_status := FND_API.G_RET_STS_ERROR;
4735: p_error_buffer := 'ZX_REG_NUM_INVALID';
4730: IF length(trn_value) > 11 THEN
4731: p_return_status := FND_API.G_RET_STS_ERROR;
4732: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
4733: ELSE
4734: p_return_status := FND_API.G_RET_STS_ERROR;
4735: p_error_buffer := 'ZX_REG_NUM_INVALID';
4736: END IF;
4737: END IF;
4738:
4829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4830: END IF;
4831: -- Logging Infra
4832:
4833: p_return_status := FND_API.G_RET_STS_ERROR;
4834: p_error_buffer := 'ZX_REG_NUM_INVALID';
4835: ELSE
4836:
4837: -- Logging Infra: Statement level
4840: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4841: END IF;
4842: -- Logging Infra
4843:
4844: p_return_status := FND_API.G_RET_STS_SUCCESS;
4845: p_error_buffer := NULL;
4846: END IF;
4847:
4848: ELSE
4853: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4854: END IF;
4855: -- Logging Infra
4856:
4857: p_return_status := FND_API.G_RET_STS_ERROR;
4858: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
4859: END IF;
4860:
4861: ELSE
4866: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4867: END IF;
4868: -- Logging Infra
4869: IF length(trn_value) > 11 THEN
4870: p_return_status := FND_API.G_RET_STS_ERROR;
4871: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
4872: ELSE
4873: p_return_status := FND_API.G_RET_STS_ERROR;
4874: p_error_buffer := 'ZX_REG_NUM_INVALID';
4869: IF length(trn_value) > 11 THEN
4870: p_return_status := FND_API.G_RET_STS_ERROR;
4871: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
4872: ELSE
4873: p_return_status := FND_API.G_RET_STS_ERROR;
4874: p_error_buffer := 'ZX_REG_NUM_INVALID';
4875: END IF;
4876: END IF;
4877:
4973: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4974: END IF;
4975: -- Logging Infra
4976:
4977: p_return_status := FND_API.G_RET_STS_ERROR;
4978: p_error_buffer := 'ZX_REG_NUM_INVALID';
4979: ELSE
4980:
4981: -- Logging Infra: Statement level
4984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4985: END IF;
4986: -- Logging Infra
4987:
4988: p_return_status := FND_API.G_RET_STS_SUCCESS;
4989: p_error_buffer := NULL;
4990: END IF;
4991:
4992: ELSE
4998: END IF;
4999: -- Logging Infra
5000:
5001: IF length(trn_value) > 16 THEN
5002: p_return_status := FND_API.G_RET_STS_ERROR;
5003: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5004: ELSE
5005: p_return_status := FND_API.G_RET_STS_ERROR;
5006: p_error_buffer := 'ZX_REG_NUM_INVALID';
5001: IF length(trn_value) > 16 THEN
5002: p_return_status := FND_API.G_RET_STS_ERROR;
5003: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5004: ELSE
5005: p_return_status := FND_API.G_RET_STS_ERROR;
5006: p_error_buffer := 'ZX_REG_NUM_INVALID';
5007: END IF;
5008:
5009: END IF;
5016: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5017: END IF;
5018: -- Logging Infra
5019:
5020: p_return_status := FND_API.G_RET_STS_ERROR;
5021: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5022:
5023: END IF;
5024:
5081: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5082: END IF;
5083: -- Logging Infra
5084:
5085: p_return_status := FND_API.G_RET_STS_SUCCESS;
5086: p_error_buffer := NULL;
5087: ELSE
5088:
5089: -- Logging Infra: Statement level
5092: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5093: END IF;
5094: -- Logging Infra
5095:
5096: p_return_status := FND_API.G_RET_STS_ERROR;
5097: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5098: END IF;
5099:
5100: ELSE
5106: END IF;
5107: -- Logging Infra
5108:
5109: IF length(trn_value) > 10 THEN
5110: p_return_status := FND_API.G_RET_STS_ERROR;
5111: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5112: ELSE
5113: p_return_status := FND_API.G_RET_STS_ERROR;
5114: p_error_buffer := 'ZX_REG_NUM_INVALID';
5109: IF length(trn_value) > 10 THEN
5110: p_return_status := FND_API.G_RET_STS_ERROR;
5111: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5112: ELSE
5113: p_return_status := FND_API.G_RET_STS_ERROR;
5114: p_error_buffer := 'ZX_REG_NUM_INVALID';
5115: END IF;
5116: END IF;
5117:
5168: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5169: END IF;
5170: -- Logging Infra
5171:
5172: p_return_status := FND_API.G_RET_STS_ERROR;
5173: p_error_buffer := 'ZX_REG_NUM_INVALID';
5174:
5175: ELSIF p_check_unique_flag = 'S' THEN
5176:
5190: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5191: END IF;
5192: -- Logging Infra
5193:
5194: p_return_status := FND_API.G_RET_STS_SUCCESS;
5195: p_error_buffer := NULL;
5196: ELSE
5197:
5198: -- Logging Infra: Statement level
5201: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5202: END IF;
5203: -- Logging Infra
5204:
5205: p_return_status := FND_API.G_RET_STS_ERROR;
5206: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5207:
5208: END IF;
5209:
5216: END IF;
5217: -- Logging Infra
5218:
5219: IF length(trn_value) > 10 THEN
5220: p_return_status := FND_API.G_RET_STS_ERROR;
5221: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5222: ELSE
5223: p_return_status := FND_API.G_RET_STS_ERROR;
5224: p_error_buffer := 'ZX_REG_NUM_INVALID';
5219: IF length(trn_value) > 10 THEN
5220: p_return_status := FND_API.G_RET_STS_ERROR;
5221: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5222: ELSE
5223: p_return_status := FND_API.G_RET_STS_ERROR;
5224: p_error_buffer := 'ZX_REG_NUM_INVALID';
5225: END IF;
5226: --
5227: END IF;
5240: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5241: END IF;
5242: -- Logging Infra
5243:
5244: p_return_status := FND_API.G_RET_STS_SUCCESS;
5245: p_error_buffer := NULL;
5246: ELSE
5247:
5248: -- Logging Infra: Statement level
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5252: END IF;
5253: -- Logging Infra
5254:
5255: p_return_status := FND_API.G_RET_STS_ERROR;
5256: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5257:
5258: END IF;
5259:
5266: END IF;
5267: -- Logging Infra
5268:
5269: IF length(trn_value) > 8 THEN
5270: p_return_status := FND_API.G_RET_STS_ERROR;
5271: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5272: ELSE
5273: p_return_status := FND_API.G_RET_STS_ERROR;
5274: p_error_buffer := 'ZX_REG_NUM_INVALID';
5269: IF length(trn_value) > 8 THEN
5270: p_return_status := FND_API.G_RET_STS_ERROR;
5271: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5272: ELSE
5273: p_return_status := FND_API.G_RET_STS_ERROR;
5274: p_error_buffer := 'ZX_REG_NUM_INVALID';
5275: END IF;
5276:
5277: END IF;
5286: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5287: -- END IF;
5288: -- Logging Infra
5289:
5290: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5291:
5292: --END IF;
5293:
5294: END IF;
5345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5346: END IF;
5347: -- Logging Infra
5348:
5349: p_return_status := FND_API.G_RET_STS_ERROR;
5350: p_error_buffer := 'ZX_REG_NUM_INVALID';
5351:
5352: ELSIF p_check_unique_flag = 'S' THEN
5353:
5367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5368: END IF;
5369: -- Logging Infra
5370:
5371: p_return_status := FND_API.G_RET_STS_SUCCESS;
5372: p_error_buffer := NULL;
5373: ELSE
5374:
5375: -- Logging Infra: Statement level
5378: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5379: END IF;
5380: -- Logging Infra
5381:
5382: p_return_status := FND_API.G_RET_STS_ERROR;
5383: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5384:
5385: END IF;
5386:
5392: END IF;
5393: -- Logging Infra
5394:
5395: IF length(trn_value) > 13 THEN
5396: p_return_status := FND_API.G_RET_STS_ERROR;
5397: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5398: ELSE
5399: p_return_status := FND_API.G_RET_STS_ERROR;
5400: p_error_buffer := 'ZX_REG_NUM_INVALID';
5395: IF length(trn_value) > 13 THEN
5396: p_return_status := FND_API.G_RET_STS_ERROR;
5397: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5398: ELSE
5399: p_return_status := FND_API.G_RET_STS_ERROR;
5400: p_error_buffer := 'ZX_REG_NUM_INVALID';
5401: END IF;
5402:
5403: END IF;
5416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5417: END IF;
5418: -- Logging Infra
5419:
5420: p_return_status := FND_API.G_RET_STS_SUCCESS;
5421: p_error_buffer := NULL;
5422: ELSE
5423:
5424: -- Logging Infra: Statement level
5427: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5428: END IF;
5429: -- Logging Infra
5430:
5431: p_return_status := FND_API.G_RET_STS_ERROR;
5432: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5433:
5434: END IF;
5435:
5441: END IF;
5442: -- Logging Infra
5443:
5444: IF length(trn_value) > 11 THEN
5445: p_return_status := FND_API.G_RET_STS_ERROR;
5446: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5447: ELSE
5448: p_return_status := FND_API.G_RET_STS_ERROR;
5449: p_error_buffer := 'ZX_REG_NUM_INVALID';
5444: IF length(trn_value) > 11 THEN
5445: p_return_status := FND_API.G_RET_STS_ERROR;
5446: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5447: ELSE
5448: p_return_status := FND_API.G_RET_STS_ERROR;
5449: p_error_buffer := 'ZX_REG_NUM_INVALID';
5450: END IF;
5451:
5452:
5462: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5463: -- END IF;
5464: -- Logging Infra
5465:
5466: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5467:
5468: --END IF;
5469:
5470: END IF;
5521: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5522: END IF;
5523: -- Logging Infra
5524:
5525: p_return_status := FND_API.G_RET_STS_ERROR;
5526: p_error_buffer := 'ZX_REG_NUM_INVALID';
5527:
5528: ELSIF p_check_unique_flag = 'S' THEN
5529:
5543: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5544: END IF;
5545: -- Logging Infra
5546:
5547: p_return_status := FND_API.G_RET_STS_SUCCESS;
5548: p_error_buffer := NULL;
5549: ELSE
5550:
5551: -- Logging Infra: Statement level
5554: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5555: END IF;
5556: -- Logging Infra
5557:
5558: p_return_status := FND_API.G_RET_STS_ERROR;
5559: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5560:
5561: END IF;
5562:
5569: END IF;
5570: -- Logging Infra
5571:
5572: IF length(trn_value) > 10 THEN
5573: p_return_status := FND_API.G_RET_STS_ERROR;
5574: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5575: ELSE
5576: p_return_status := FND_API.G_RET_STS_ERROR;
5577: p_error_buffer := 'ZX_REG_NUM_INVALID';
5572: IF length(trn_value) > 10 THEN
5573: p_return_status := FND_API.G_RET_STS_ERROR;
5574: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5575: ELSE
5576: p_return_status := FND_API.G_RET_STS_ERROR;
5577: p_error_buffer := 'ZX_REG_NUM_INVALID';
5578: END IF;
5579:
5580: END IF;
5593: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5594: END IF;
5595: -- Logging Infra
5596:
5597: p_return_status := FND_API.G_RET_STS_SUCCESS;
5598: p_error_buffer := NULL;
5599: ELSE
5600:
5601: -- Logging Infra: Statement level
5604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5605: END IF;
5606: -- Logging Infra
5607:
5608: p_return_status := FND_API.G_RET_STS_ERROR;
5609: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5610:
5611: END IF;
5612:
5619: END IF;
5620: -- Logging Infra
5621:
5622: IF length(trn_value) > 8 THEN
5623: p_return_status := FND_API.G_RET_STS_ERROR;
5624: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5625: ELSE
5626: p_return_status := FND_API.G_RET_STS_ERROR;
5627: p_error_buffer := 'ZX_REG_NUM_INVALID';
5622: IF length(trn_value) > 8 THEN
5623: p_return_status := FND_API.G_RET_STS_ERROR;
5624: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5625: ELSE
5626: p_return_status := FND_API.G_RET_STS_ERROR;
5627: p_error_buffer := 'ZX_REG_NUM_INVALID';
5628: END IF;
5629:
5630: END IF;
5639: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5640: -- END IF;
5641: -- Logging Infra
5642:
5643: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5644:
5645: --END IF;
5646:
5647: END IF;
5697: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5698: END IF;
5699: -- Logging Infra
5700:
5701: p_return_status := FND_API.G_RET_STS_ERROR;
5702: p_error_buffer := 'ZX_REG_NUM_INVALID';
5703:
5704: ELSIF p_check_unique_flag = 'S' THEN
5705:
5719: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5720: END IF;
5721: -- Logging Infra
5722:
5723: p_return_status := FND_API.G_RET_STS_SUCCESS;
5724: p_error_buffer := NULL;
5725: ELSE
5726:
5727: -- Logging Infra: Statement level
5730: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5731: END IF;
5732: -- Logging Infra
5733:
5734: p_return_status := FND_API.G_RET_STS_ERROR;
5735: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5736:
5737: END IF;
5738:
5745: END IF;
5746: -- Logging Infra
5747:
5748: IF length(trn_value) > 11 AND length(trn_value) < 14 THEN
5749: p_return_status := FND_API.G_RET_STS_ERROR;
5750: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5751: ELSIF length(trn_value) > 14 THEN
5752: p_return_status := FND_API.G_RET_STS_ERROR;
5753: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5748: IF length(trn_value) > 11 AND length(trn_value) < 14 THEN
5749: p_return_status := FND_API.G_RET_STS_ERROR;
5750: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5751: ELSIF length(trn_value) > 14 THEN
5752: p_return_status := FND_API.G_RET_STS_ERROR;
5753: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5754: ELSE
5755: p_return_status := FND_API.G_RET_STS_ERROR;
5756: p_error_buffer := 'ZX_REG_NUM_INVALID';
5751: ELSIF length(trn_value) > 14 THEN
5752: p_return_status := FND_API.G_RET_STS_ERROR;
5753: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5754: ELSE
5755: p_return_status := FND_API.G_RET_STS_ERROR;
5756: p_error_buffer := 'ZX_REG_NUM_INVALID';
5757: END IF;
5758:
5759:
5773: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5774: END IF;
5775: -- Logging Infra
5776:
5777: p_return_status := FND_API.G_RET_STS_SUCCESS;
5778: p_error_buffer := NULL;
5779: ELSE
5780:
5781: -- Logging Infra: Statement level
5784: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5785: END IF;
5786: -- Logging Infra
5787:
5788: p_return_status := FND_API.G_RET_STS_ERROR;
5789: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5790:
5791: END IF;
5792:
5799: END IF;
5800: -- Logging Infra
5801:
5802: IF length(trn_value) > 9 AND length(trn_value) < 12 THEN
5803: p_return_status := FND_API.G_RET_STS_ERROR;
5804: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5805: ELSIF length(trn_value) > 12 THEN
5806: p_return_status := FND_API.G_RET_STS_ERROR;
5807: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5802: IF length(trn_value) > 9 AND length(trn_value) < 12 THEN
5803: p_return_status := FND_API.G_RET_STS_ERROR;
5804: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5805: ELSIF length(trn_value) > 12 THEN
5806: p_return_status := FND_API.G_RET_STS_ERROR;
5807: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5808: ELSE
5809: p_return_status := FND_API.G_RET_STS_ERROR;
5810: p_error_buffer := 'ZX_REG_NUM_INVALID';
5805: ELSIF length(trn_value) > 12 THEN
5806: p_return_status := FND_API.G_RET_STS_ERROR;
5807: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5808: ELSE
5809: p_return_status := FND_API.G_RET_STS_ERROR;
5810: p_error_buffer := 'ZX_REG_NUM_INVALID';
5811: END IF;
5812:
5813: END IF;
5822: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5823: -- END IF;
5824: -- Logging Infra
5825:
5826: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
5827:
5828: --END IF;
5829:
5830: END IF;
5882: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5883: END IF;
5884: -- Logging Infra
5885:
5886: p_return_status := FND_API.G_RET_STS_ERROR;
5887: p_error_buffer := 'ZX_REG_NUM_INVALID';
5888:
5889: ELSIF p_check_unique_flag = 'S' THEN
5890:
5906: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5907: END IF;
5908: -- Logging Infra
5909:
5910: p_return_status := FND_API.G_RET_STS_SUCCESS;
5911: p_error_buffer := NULL;
5912:
5913: ELSE
5914:
5918: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5919: END IF;
5920: -- Logging Infra
5921:
5922: p_return_status := FND_API.G_RET_STS_ERROR;
5923: p_error_buffer := 'ZX_REG_NUM_INVALID';
5924:
5925: END IF;
5926: ELSE
5931: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5932: END IF;
5933: -- Logging Infra
5934:
5935: p_return_status := FND_API.G_RET_STS_ERROR;
5936: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5937:
5938: END IF;
5939:
5946: END IF;
5947: -- Logging Infra
5948:
5949: IF length(trn_value) > 11 THEN
5950: p_return_status := FND_API.G_RET_STS_ERROR;
5951: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5952: ELSE
5953: p_return_status := FND_API.G_RET_STS_ERROR;
5954: p_error_buffer := 'ZX_REG_NUM_INVALID';
5949: IF length(trn_value) > 11 THEN
5950: p_return_status := FND_API.G_RET_STS_ERROR;
5951: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5952: ELSE
5953: p_return_status := FND_API.G_RET_STS_ERROR;
5954: p_error_buffer := 'ZX_REG_NUM_INVALID';
5955: END IF;
5956: END IF;
5957:
5971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5972: END IF;
5973: -- Logging Infra
5974:
5975: p_return_status := FND_API.G_RET_STS_SUCCESS;
5976: p_error_buffer := NULL;
5977:
5978: ELSE
5979:
5983: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5984: END IF;
5985: -- Logging Infra
5986:
5987: p_return_status := FND_API.G_RET_STS_ERROR;
5988: p_error_buffer := 'ZX_REG_NUM_INVALID';
5989:
5990: END IF;
5991: ELSE
5996: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5997: END IF;
5998: -- Logging Infra
5999:
6000: p_return_status := FND_API.G_RET_STS_ERROR;
6001: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6002:
6003: END IF;
6004:
6011: END IF;
6012: -- Logging Infra
6013:
6014: IF length(trn_value) > 9 THEN
6015: p_return_status := FND_API.G_RET_STS_ERROR;
6016: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6017: ELSE
6018: p_return_status := FND_API.G_RET_STS_ERROR;
6019: p_error_buffer := 'ZX_REG_NUM_INVALID';
6014: IF length(trn_value) > 9 THEN
6015: p_return_status := FND_API.G_RET_STS_ERROR;
6016: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6017: ELSE
6018: p_return_status := FND_API.G_RET_STS_ERROR;
6019: p_error_buffer := 'ZX_REG_NUM_INVALID';
6020: END IF;
6021:
6022: END IF;
6031: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
6032: -- END IF;
6033: -- Logging Infra
6034:
6035: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
6036:
6037: --END IF;
6038:
6039: END IF;