[Home] [Help]
217: FETCH tax_reg_num_csr into l_party_id ;
218:
219: IF tax_reg_num_csr%NOTFOUND THEN
220: -- No data found. Therfore, new tax registration number will be unique.
221: x_trn_unique_result := FND_API.G_RET_STS_SUCCESS;
222: close tax_reg_num_csr;
223: EXIT;
224: ELSE
225: -- Data found. Therfore, new tax registration number will NOT be unique.
222: close tax_reg_num_csr;
223: EXIT;
224: ELSE
225: -- Data found. Therfore, new tax registration number will NOT be unique.
226: x_trn_unique_result := FND_API.G_RET_STS_ERROR;
227: close tax_reg_num_csr;
228: EXIT;
229: END IF;
230:
529: LOOP
530: FETCH c_third_party_reg_num INTO l_header_reg_num;
531:
532: IF c_third_party_reg_num%NOTFOUND THEN
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: CLOSE c_third_party_reg_num;
535: EXIT;
536:
537: -- Logging Infra: Statement level
541: END IF;
542: -- Logging Infra: Statement level
543:
544: ELSE
545: x_return_status := FND_API.G_RET_STS_SUCCESS;
546: CLOSE c_third_party_reg_num;
547: EXIT;
548: END IF;
549: END LOOP;
554: LOOP
555: FETCH c_establishment_reg_num INTO l_header_reg_num;
556:
557: IF c_establishment_reg_num%NOTFOUND THEN
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: CLOSE c_establishment_reg_num;
560: EXIT;
561:
562: -- Logging Infra: Statement level
566: END IF;
567: -- Logging Infra: Statement level
568:
569: ELSE
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
571: CLOSE c_establishment_reg_num;
572: EXIT;
573: END IF;
574: END LOOP;
573: END IF;
574: END LOOP;
575:
576: ELSE
577: x_return_status := FND_API.G_RET_STS_ERROR;
578: END IF;
579:
580: -- Logging Infra: Procedure level
581: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
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;
629: p_error_buffer := NULL;
630:
631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
632: l_log_msg := 'Parameters ';
667: WHERE lookup_type = 'ZX_PTP_PARTY_TYPE'
668: AND lookup_code = p_party_type_code;
669:
670: IF p_party_type_code = 'THIRD_PARTY' THEN
671: p_return_status := FND_API.G_RET_STS_ERROR;
672: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
673:
674: SELECT party_name
675: INTO l_party_name
713: CLOSE trn_exists_in_reg_tbl;
714: return;
715: END IF;
716:
717: p_return_status := FND_API.G_RET_STS_ERROR;
718: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
719:
720: SELECT distinct p.party_name,
721: nvl(ps.party_site_name, p.address1||' '||p.address2||' '||
768: CLOSE trn_exists_in_reg_tbl;
769: return;
770: END IF;
771:
772: p_return_status := FND_API.G_RET_STS_ERROR;
773: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
774:
775: SELECT distinct establishment_name
776: INTO l_party_name
881: else
882: x_party_site_name_token := x_party_site_name_token ||'; '|| l_party_site_name;
883: end if;
884:
885: p_return_status := FND_API.G_RET_STS_ERROR;
886: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
887: END IF;
888: ELSIF p_party_type_code = 'THIRD_PARTY_SITE' THEN
889: BEGIN
950: x_party_name_token := x_party_name_token ||'; '|| l_party_name;
951: end if;
952: x_party_site_name_token := NULL;
953:
954: p_return_status := FND_API.G_RET_STS_ERROR;
955: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
956: END IF;
957: END IF; -- Party Type Code
958: END IF; -- Total Count
968: x_party_type_token := NULL;
969: x_party_name_token := NULL;
970: x_party_site_name_token := NULL;
971: p_error_buffer := SQLCODE || ': ' || SQLERRM;
972: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: END IF;
974: END chk_dup_trn_with_no_tax_reg;
975:
976:
1018:
1019: -- donot use NVL for p_ptp_id here
1020: IF p_ptp_id = g_ptp_id AND l_trn = g_trn
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;
1042: and not exists(SELECT 1 FROM zx_registrations reg
1043: where reg.party_tax_profile_id = p_ptp_id
1044: and reg.registration_number = p_tax_reg_num);
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;
1070: AND t.tax_regime_code = reg.tax_regime_code
1071: AND t.tax = reg.tax;
1072:
1073: IF NVL(l_allow_regn_num_flag,'N') = 'Y' THEN
1074: p_return_status := FND_API.G_RET_STS_SUCCESS;
1075: p_error_buffer := NULL;
1076: RETURN;
1077: END IF;
1078: EXCEPTION
1091: AND t.tax_regime_code = reg.tax_regime_code
1092: AND t.tax = reg.tax;
1093:
1094: IF NVL(l_allow_regn_num_flag,'N') = 'Y' THEN
1095: p_return_status := FND_API.G_RET_STS_SUCCESS;
1096: p_error_buffer := NULL;
1097: RETURN;
1098: END IF;
1099: EXCEPTION
1115: END IF;
1116: -- Logging Infra
1117:
1118: l_trn := null;
1119: p_return_status := FND_API.G_RET_STS_SUCCESS;
1120: p_error_buffer := NULL;
1121:
1122: ELSE -- f1
1123:
1126: FETCH c_AllowDupRegnNum INTO l_allow_regn_num_flag;
1127: CLOSE c_AllowDupRegnNum;
1128:
1129: IF l_allow_regn_num_flag = 'Y' THEN
1130: l_pass_unique_check := FND_API.G_RET_STS_SUCCESS;
1131: ELSE
1132: unique_trn(l_trn, l_party_type_code, l_tax_regime_code, l_tax, l_tax_jurisdiction_code, l_pass_unique_check);
1133: END IF;
1134: ELSE
1138: IF l_pass_unique_check = 'E' THEN -- f2
1139:
1140: IF l_party_type_code = 'THIRD_PARTY' THEN -- f3
1141:
1142: p_return_status := FND_API.G_RET_STS_ERROR;
1143: display_msg(l_trn
1144: ,'THIRD_PARTY'
1145: ,l_tax_regime_code
1146: ,l_tax
1161:
1162: validate_header_trn('THIRD_PARTY_SITE', G_PTP_ID, p_tax_reg_num, l_header_check);
1163:
1164: IF l_header_check = 'E' THEN
1165: p_return_status := FND_API.G_RET_STS_ERROR;
1166: display_msg(l_trn
1167: ,'THIRD_PARTY_SITE'
1168: ,l_tax_regime_code
1169: ,l_tax
1178:
1179: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
1180: g_trn := null;
1181: ELSE
1182: p_return_status := FND_API.G_RET_STS_SUCCESS;
1183: END IF;
1184:
1185: ELSIF l_party_type_code = 'LEGAL_ESTABLISHMENT' THEN -- f3
1186:
1186:
1187: validate_header_trn('LEGAL_ESTABLISHMENT',G_PTP_ID, p_tax_reg_num, l_header_check);
1188:
1189: IF l_header_check = 'E' THEN
1190: p_return_status := FND_API.G_RET_STS_ERROR;
1191: display_msg(l_trn
1192: ,'LEGAL_ESTABLISHMENT'
1193: ,l_tax_regime_code
1194: ,l_tax
1203:
1204: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
1205: g_trn := null;
1206: ELSE
1207: p_return_status := FND_API.G_RET_STS_SUCCESS;
1208: END IF;
1209:
1210: -- Bug 3650600
1211:
1210: -- Bug 3650600
1211:
1212: ELSE -- f3
1213:
1214: p_return_status := FND_API.G_RET_STS_ERROR;
1215: p_error_buffer := 'ZX_REG_NUM_INVALID';
1216: g_trn := null;
1217: END IF; -- f3
1218:
1288: x_party_type_token := l_party_type;
1289: x_party_name_token := l_party_name;
1290: x_party_site_name_token := l_party_site_name;
1291:
1292: p_return_status := FND_API.G_RET_STS_ERROR;
1293: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
1294: g_trn := null;
1295: ELSE
1296: p_return_status := FND_API.G_RET_STS_SUCCESS;
1292: p_return_status := FND_API.G_RET_STS_ERROR;
1293: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
1294: g_trn := null;
1295: ELSE
1296: p_return_status := FND_API.G_RET_STS_SUCCESS;
1297: p_error_buffer := NULL;
1298: END IF;
1299: ELSIF L_PARTY_TYPE_CODE = 'THIRD_PARTY_SITE' THEN
1300: validate_header_trn('THIRD_PARTY_SITE', G_PTP_ID, p_tax_reg_num, l_header_check);
1312: x_party_type_token := l_party_type;
1313: x_party_name_token := l_party_name;
1314: x_party_site_name_token := l_party_site_name;
1315:
1316: p_return_status := FND_API.G_RET_STS_ERROR;
1317: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
1318: g_trn := null;
1319: ELSE
1320: p_return_status := FND_API.G_RET_STS_SUCCESS;
1316: p_return_status := FND_API.G_RET_STS_ERROR;
1317: p_error_buffer := 'ZX_REG_NUM_DUPLICATE';
1318: g_trn := null;
1319: ELSE
1320: p_return_status := FND_API.G_RET_STS_SUCCESS;
1321: p_error_buffer := NULL;
1322: END IF;
1323: END IF;
1324: ELSE
1321: p_error_buffer := NULL;
1322: END IF;
1323: END IF;
1324: ELSE
1325: p_return_status := FND_API.G_RET_STS_SUCCESS;
1326: p_error_buffer := NULL;
1327: END IF;
1328:
1329: ELSE -- Cross Validation returned 0 rows
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;
1655: p_error_buffer := NULL;
1656: --
1657: END IF; -- f3
1658: END IF;
1670: END IF;
1671:
1672: EXCEPTION
1673: WHEN INVALID_CURSOR THEN
1674: p_return_status := FND_API.G_RET_STS_ERROR;
1675: p_error_buffer := SQLERRM;
1676:
1677: -- Logging Infra:
1678: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1682: END IF;
1683:
1684: WHEN OTHERS THEN
1685: IF ora_error_number(p_error_string => SQLERRM) = 6502 THEN
1686: p_return_status := FND_API.G_RET_STS_ERROR;
1687: p_error_buffer := 'ZX_REG_NUM_INVALID';
1688: ELSE
1689: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1690: p_error_buffer := SQLERRM;
1685: IF ora_error_number(p_error_string => SQLERRM) = 6502 THEN
1686: p_return_status := FND_API.G_RET_STS_ERROR;
1687: p_error_buffer := 'ZX_REG_NUM_INVALID';
1688: ELSE
1689: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1690: p_error_buffer := SQLERRM;
1691: END IF;
1692: -- Logging Infra:
1693: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
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;
1743: p_error_buffer := 'ZX_REG_NUM_INVALID';
1744:
1745: end fail_uniqueness;
1746:
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;
1758: p_error_buffer := 'ZX_REG_NUM_INVALID';
1759: end fail_check;
1760:
1761: procedure pass_check is
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;
1772: p_error_buffer := NULL;
1773: end pass_check;
1774:
1775: procedure check_numeric_AT (check_numeric_result OUT NOCOPY VARCHAR2) is
1783: ' ')
1784: ), '0'
1785: );
1786: IF num_check <> '0' THEN
1787: check_numeric_result := FND_API.G_RET_STS_ERROR;
1788: ELSE
1789: check_numeric_result := FND_API.G_RET_STS_SUCCESS;
1790: END IF;
1791: end check_numeric_AT;
1785: );
1786: IF num_check <> '0' THEN
1787: check_numeric_result := FND_API.G_RET_STS_ERROR;
1788: ELSE
1789: check_numeric_result := FND_API.G_RET_STS_SUCCESS;
1790: END IF;
1791: end check_numeric_AT;
1792:
1793:
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;
1867: p_error_buffer := 'ZX_REG_NUM_INVALID';
1868:
1869: END IF;
1870:
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;
1880: p_error_buffer := 'ZX_REG_NUM_INVALID';
1881:
1882: END IF; -- if3
1883:
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;
1894: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
1895: ELSE
1896: p_return_status := FND_API.G_RET_STS_ERROR;
1897: p_error_buffer := 'ZX_REG_NUM_INVALID';
1892: IF length(trn_value) > 11 THEN
1893: p_return_status := FND_API.G_RET_STS_ERROR;
1894: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
1895: ELSE
1896: p_return_status := FND_API.G_RET_STS_ERROR;
1897: p_error_buffer := 'ZX_REG_NUM_INVALID';
1898: END IF;
1899:
1900: END IF; -- if2
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;
1912: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
1913:
1914: END IF; -- if1
1915:
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;
1926:
1927: --END IF;
1928:
1929: END IF;
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;
1970: p_error_buffer := 'ZX_REG_NUM_INVALID';
1971:
1972: end fail_uniqueness;
1973:
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;
1985: p_error_buffer := 'ZX_REG_NUM_INVALID';
1986: end fail_check;
1987:
1988: procedure pass_check is
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;
1999: p_error_buffer := NULL;
2000: end pass_check;
2001:
2002: /************************************/
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';
2061:
2062: END IF;
2063:
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';
2079:
2080: END IF;
2081:
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;
2092: p_error_buffer := 'ZX_REG_NUM_INVALID';
2093:
2094: END IF;
2095:
2102: END IF;
2103: -- Logging Infra
2104:
2105: IF length(trn_value) > 12 THEN
2106: p_return_status := FND_API.G_RET_STS_ERROR;
2107: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
2108: ELSIF length(trn_value) < 8 THEN
2109: p_return_status := FND_API.G_RET_STS_ERROR;
2110: p_error_buffer := 'ZX_REG_NUM_INVALID';
2105: IF length(trn_value) > 12 THEN
2106: p_return_status := FND_API.G_RET_STS_ERROR;
2107: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
2108: ELSIF length(trn_value) < 8 THEN
2109: p_return_status := FND_API.G_RET_STS_ERROR;
2110: p_error_buffer := 'ZX_REG_NUM_INVALID';
2111: END IF;
2112:
2113: END IF;
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;
2125: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
2126:
2127: END IF;
2128:
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;
2152: p_error_buffer := 'ZX_REG_NUM_INVALID';
2153:
2154: END IF;
2155: ELSE
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';
2165:
2166: END IF;
2167:
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;
2177: p_error_buffer := 'ZX_REG_NUM_INVALID';
2178: END IF;
2179:
2180: ELSE
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;
2190: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
2191:
2192: END IF;
2193:
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;
2206:
2207: --END IF;
2208:
2209: END IF;
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;
2260: p_error_buffer := 'ZX_REG_NUM_INVALID';
2261:
2262: ELSIF p_check_unique_flag = 'S' THEN
2263:
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;
2279: p_error_buffer := NULL;
2280: ELSE
2281:
2282: -- Logging Infra: Statement level
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;
2290: p_error_buffer := 'ZX_REG_NUM_INVALID';
2291: --
2292: END IF;
2293:
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;
2304:
2305: --END IF;
2306:
2307: END IF;
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;
2357: p_error_buffer := 'ZX_REG_NUM_INVALID';
2358:
2359: ELSIF p_check_unique_flag = 'S' THEN
2360:
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;
2376: p_error_buffer := NULL;
2377: ELSE
2378:
2379: -- Logging Infra: Statement level
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;
2387: p_error_buffer := 'ZX_REG_NUM_INVALID';
2388: --
2389: END IF;
2390:
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;
2401:
2402: --END IF;
2403:
2404: END IF;
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;
2453: p_error_buffer := 'ZX_REG_NUM_INVALID';
2454:
2455: ELSIF p_check_unique_flag = 'S' THEN
2456:
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;
2473: p_error_buffer := NULL;
2474: ELSE
2475:
2476: -- Logging Infra: Statement level
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;
2484: p_error_buffer := 'ZX_REG_NUM_INVALID';
2485: --
2486: END IF;
2487:
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;
2498:
2499: --END IF;
2500:
2501: END IF;
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;
2570: p_error_buffer := 'ZX_REG_NUM_INVALID';
2571:
2572: ELSIF p_check_unique_flag = 'S' THEN
2573:
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;
2592: p_error_buffer := NULL;
2593: ELSE
2594:
2595: -- Logging Infra: Statement level
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;
2603: p_error_buffer := 'ZX_REG_NUM_INVALID';
2604: --
2605: END IF;
2606: ELSE
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;
2616: p_error_buffer := 'ZX_REG_NUM_INVALID';
2617:
2618: --
2619: END IF;
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;
2631:
2632: --END IF;
2633:
2634: END IF;
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;
2683: p_error_buffer := 'ZX_REG_NUM_INVALID';
2684:
2685: ELSIF p_check_unique_flag = 'S' THEN
2686:
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;
2701: p_error_buffer := NULL;
2702: ELSE
2703:
2704: -- Logging Infra: Statement level
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;
2712: p_error_buffer := 'ZX_REG_NUM_INVALID';
2713: --
2714: END IF;
2715: --ELSE
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;
2725:
2726: --END IF;
2727:
2728: END IF;
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;
2786: p_error_buffer := 'ZX_REG_NUM_INVALID';
2787:
2788: ELSIF p_check_unique_flag = 'S' THEN
2789:
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;
2823: p_error_buffer := NULL;
2824: ELSE
2825:
2826: -- Logging Infra: Statement level
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;
2834: p_error_buffer := 'ZX_REG_NUM_INVALID';
2835: --
2836: END IF;
2837: ELSE
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;
2847: p_error_buffer := 'ZX_REG_NUM_INVALID';
2848: --
2849: END IF;
2850:
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;
2861:
2862: --END IF;
2863:
2864: END IF;
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;
2934: p_error_buffer := 'ZX_REG_NUM_INVALID';
2935:
2936: ELSIF p_check_unique_flag = 'S' THEN
2937:
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;
2954: p_error_buffer := NULL;
2955: ELSIF common_check_numeric(p_trn_value,4,length(p_trn_value)-5) = '0' and
2956: check_letter(p_trn_value,1) = '0' THEN
2957: --
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;
2967: p_error_buffer := NULL;
2968:
2969: ELSIF common_check_numeric(p_trn_value,5,length(p_trn_value)-5) = '0' and
2970: check_letter(p_trn_value,1) = '0' THEN
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;
2980: p_error_buffer := NULL;
2981:
2982: ELSE
2983:
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;
2992: p_error_buffer := 'ZX_REG_NUM_INVALID';
2993: --
2994: END IF;
2995: ELSE
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;
3005: p_error_buffer := 'ZX_REG_NUM_INVALID';
3006: --
3007: END IF;
3008:
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;
3019:
3020: --END IF;
3021:
3022: END IF;
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;
3068: p_error_buffer := 'ZX_REG_NUM_INVALID';
3069: end fail_uniqueness;
3070:
3071: procedure fail_check is
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;
3082: p_error_buffer := 'ZX_REG_NUM_INVALID';
3083: end fail_check;
3084:
3085: PROCEDURE pass_check IS
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;
3096: p_error_buffer := NULL;
3097: END pass_check;
3098:
3099: /** procedure to check that the chars sent are numeric only **/
3114: ), '0'
3115: );
3116:
3117: IF num_check <> '0' THEN
3118: flag1 := FND_API.G_RET_STS_ERROR;
3119: output_val := '0';
3120: ELSE
3121: flag1 := FND_API.G_RET_STS_SUCCESS;
3122: output_val := var1;
3117: IF num_check <> '0' THEN
3118: flag1 := FND_API.G_RET_STS_ERROR;
3119: output_val := '0';
3120: ELSE
3121: flag1 := FND_API.G_RET_STS_SUCCESS;
3122: output_val := var1;
3123: END IF;
3124:
3125: END check_numeric;
3156: IF common_check_numeric(p_trn_value,1,2) <> '0' THEN
3157: --
3158: IF substr(p_trn_value,1,2) <> 'IT' THEN
3159: --
3160: p_return_status := FND_API.G_RET_STS_ERROR;
3161: p_error_buffer := 'ZX_REG_NUM_INVALID';
3162: ELSE
3163: --
3164: trn_string := substr(p_trn_value,3, length(p_trn_value));
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;
3250:
3251: --END IF;
3252:
3253: ELSE
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;
3306: p_error_buffer := 'ZX_REG_NUM_INVALID';
3307:
3308: ELSIF p_check_unique_flag = 'S' THEN
3309:
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;
3326: p_error_buffer := NULL;
3327: ELSE
3328:
3329: -- Logging Infra: Statement level
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;
3337: p_error_buffer := 'ZX_REG_NUM_INVALID';
3338: --
3339: END IF;
3340:
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;
3351:
3352: --END IF;
3353:
3354: END IF;
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;
3404: p_error_buffer := 'ZX_REG_NUM_INVALID';
3405:
3406: ELSIF p_check_unique_flag = 'S' THEN
3407:
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;
3426: p_error_buffer := NULL;
3427:
3428: ELSIF (substr(trn_value,1,2) = 'SK') and
3429: (common_check_numeric(p_trn_value,3,length(p_trn_value)) = '0') THEN
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;
3439: p_error_buffer := NULL;
3440: ELSE
3441:
3442: -- Logging Infra: Statement level
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;
3450: p_error_buffer := 'ZX_REG_NUM_INVALID';
3451: --
3452: END IF;
3453:
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;
3464:
3465: --END IF;
3466:
3467: END IF;
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;
3509: p_error_buffer := 'ZX_REG_NUM_INVALID';
3510: end fail_uniqueness;
3511:
3512: procedure fail_check is
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;
3522: p_error_buffer := 'ZX_REG_NUM_INVALID';
3523: end fail_check;
3524:
3525: procedure pass_check is
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;
3535: p_error_buffer := NULL;
3536: end pass_check;
3537:
3538: procedure check_numeric (check_numeric_result OUT NOCOPY VARCHAR2) is
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;
3560: p_error_buffer := 'ZX_REG_NUM_INVALID';
3561: ELSE
3562:
3563: -- Logging Infra: Statement level
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;
3571: p_error_buffer := NULL;
3572: END IF;
3573: end check_numeric;
3574:
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;
3656: p_error_buffer := 'ZX_REG_NUM_INVALID';
3657: END IF;
3658:
3659: ELSE
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;
3668: p_error_buffer := 'ZX_REG_NUM_INVALID';
3669: END IF;
3670:
3671: ELSE
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;
3680: p_error_buffer := 'ZX_REG_NUM_INVALID';
3681: END IF;
3682:
3683: ELSE
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;
3692: p_error_buffer := 'ZX_REG_NUM_INVALID';
3693: END IF;
3694:
3695: ELSE
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;
3704: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
3705: ELSE
3706: p_return_status := FND_API.G_RET_STS_ERROR;
3707: p_error_buffer := 'ZX_REG_NUM_INVALID';
3702: IF length(p_trn_value) > 14 THEN
3703: p_return_status := FND_API.G_RET_STS_ERROR;
3704: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
3705: ELSE
3706: p_return_status := FND_API.G_RET_STS_ERROR;
3707: p_error_buffer := 'ZX_REG_NUM_INVALID';
3708: END IF;
3709: END IF;
3710:
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;
3720: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
3721: END IF;
3722:
3723: --ELSE
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;
3733:
3734: --END IF;
3735:
3736: END IF;
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;
3793: p_error_buffer := 'ZX_REG_NUM_INVALID';
3794:
3795: ELSIF p_check_unique_flag = 'S' THEN
3796:
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;
3817: p_error_buffer := NULL;
3818: ELSE
3819:
3820: -- Logging Infra: Statement level
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;
3828: p_error_buffer := 'ZX_REG_NUM_INVALID';
3829: --
3830: END IF;
3831: ELSIF (substr(trn_value,1,2) = 'PL') and
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;
3842: p_error_buffer := NULL;
3843:
3844: ELSE
3845:
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;
3854: p_error_buffer := 'ZX_REG_NUM_INVALID';
3855: --
3856: END IF;
3857:
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;
3868:
3869: --END IF;
3870:
3871: END IF;
3919:
3920: check_digit := substr(p_trn_value, length(p_trn_value));
3921: TRN_STRING := substr(p_trn_value,3,length(p_trn_value));
3922:
3923: IF p_check_unique_flag = FND_API.G_RET_STS_ERROR THEN
3924: --
3925:
3926: -- Logging Infra: Statement level
3927: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
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;
3934: p_error_buffer := 'ZX_REG_NUM_INVALID';
3935:
3936: ELSIF p_check_unique_flag = 'S' THEN
3937: --
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;
3982: p_error_buffer := NULL;
3983: ELSE
3984:
3985: -- Logging Infra: Statement level
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;
3993: p_error_buffer := 'ZX_REG_NUM_INVALID';
3994: --
3995: END IF;
3996: --
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;
4008: p_error_buffer := 'ZX_REG_NUM_INVALID';
4009: --
4010: END IF;
4011:
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;
4022:
4023: --END IF;
4024:
4025: --
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;
4069: p_error_buffer := 'ZX_REG_NUM_INVALID';
4070: end fail_uniqueness;
4071:
4072: procedure fail_check is
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;
4083: p_error_buffer := 'ZX_REG_NUM_INVALID';
4084: end fail_check;
4085:
4086: procedure pass_check is
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;
4097: p_error_buffer := NULL;
4098: end pass_check;
4099:
4100: /****************/
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;
4200: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
4201: END IF; /* end of numeric check */
4202:
4203: ELSE
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;
4227: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
4228: END IF; /* end of numeric check */
4229:
4230: END IF;
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;
4289: p_error_buffer := 'ZX_REG_NUM_INVALID_ALPHA';
4290: END IF; /* end of numeric check */
4291: ELSE
4292: fail_check;
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;
4307: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
4308: END IF; /* end of length check */
4309:
4310: ELSE
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;
4328:
4329: --END IF;
4330:
4331: ELSE
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;
4385: p_error_buffer := 'ZX_REG_NUM_INVALID';
4386:
4387: ELSIF p_check_unique_flag = 'S' THEN
4388: --
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;
4407: p_error_buffer := NULL;
4408: ELSE
4409:
4410: -- Logging Infra: Statement level
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;
4418: p_error_buffer := 'ZX_REG_NUM_INVALID';
4419: --
4420: END IF;
4421: --
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;
4433:
4434: --END IF;
4435:
4436: END IF;
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;
4495: p_error_buffer := 'ZX_REG_NUM_INVALID';
4496:
4497: ELSIF p_check_unique_flag = 'S' THEN
4498: --
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;
4530: ELSE
4531: check_total_55 := check_total + 55;
4532: IF check_total_55 > 0 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';
4552: END IF;
4553: --
4554: END IF;
4553: --
4554: END IF;
4555: ELSE
4556: -- Logging Infra
4557: p_return_status := FND_API.G_RET_STS_SUCCESS;
4558: p_error_buffer := NULL;
4559: l_log_msg := 'The Tax Registration Number is valid.';
4560: --
4561: IF length(TRN_STRING) = 5 AND substr(TRN_STRING,1,2) = 'GD' THEN
4561: IF length(TRN_STRING) = 5 AND substr(TRN_STRING,1,2) = 'GD' THEN
4562: IF common_check_numeric(TRN_STRING,3,length(TRN_STRING)) <> '0' OR
4563: to_number(substr(TRN_STRING,3)) > 499 THEN
4564: l_log_msg := 'The Tax Registration Number is invalid.';
4565: p_return_status := FND_API.G_RET_STS_ERROR;
4566: p_error_buffer := 'ZX_REG_NUM_INVALID';
4567: END IF;
4568: ELSIF length(TRN_STRING) = 5 AND substr(TRN_STRING,1,2) = 'HA' THEN
4569: IF common_check_numeric(TRN_STRING,3,length(TRN_STRING)) <> '0' OR
4568: ELSIF length(TRN_STRING) = 5 AND substr(TRN_STRING,1,2) = 'HA' THEN
4569: IF common_check_numeric(TRN_STRING,3,length(TRN_STRING)) <> '0' OR
4570: to_number(substr(TRN_STRING,3)) not between 500 and 999 THEN
4571: l_log_msg := 'The Tax Registration Number is invalid.';
4572: p_return_status := FND_API.G_RET_STS_ERROR;
4573: p_error_buffer := 'ZX_REG_NUM_INVALID';
4574: END IF;
4575: ELSIF common_check_numeric(TRN_STRING,1,length(TRN_STRING)) <> '0' THEN
4576: l_log_msg := 'The Tax Registration Number is invalid.';
4573: p_error_buffer := 'ZX_REG_NUM_INVALID';
4574: END IF;
4575: ELSIF common_check_numeric(TRN_STRING,1,length(TRN_STRING)) <> '0' THEN
4576: l_log_msg := 'The Tax Registration Number is invalid.';
4577: p_return_status := FND_API.G_RET_STS_ERROR;
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
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';
4594: --
4595: END IF;
4596: --ELSE
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;
4606: END IF;
4607:
4608: END VALIDATE_TRN_GB;
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;
4656: p_error_buffer := 'ZX_REG_NUM_INVALID';
4657:
4658: ELSIF p_check_unique_flag = 'S' THEN
4659:
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;
4675: RETURN;
4676: ELSE
4677: -- we need to check other condition as well
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;
4728: p_error_buffer := NULL;
4729:
4730: ELSE
4731:
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;
4740: p_error_buffer := 'ZX_REG_NUM_INVALID';
4741: END IF;
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;
4751:
4752: END IF;
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;
4770: p_error_buffer := 'ZX_REG_NUM_INVALID';
4771:
4772: END VALIDATE_TRN_CH;
4773:
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;
4820: p_error_buffer := 'ZX_REG_NUM_INVALID';
4821:
4822: ELSIF p_check_unique_flag = 'S' THEN
4823:
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;
4840: p_error_buffer := NULL;
4841: ELSE
4842:
4843: -- Logging Infra: Statement level
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;
4851: p_error_buffer := 'ZX_REG_NUM_INVALID';
4852: --
4853: END IF;
4854:
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;
4865:
4866: --END IF;
4867:
4868: END IF;
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;
4921: p_error_buffer := 'ZX_REG_NUM_INVALID';
4922:
4923: ELSIF p_check_unique_flag = 'S' THEN
4924:
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;
4947: p_error_buffer := NULL;
4948: ELSE
4949:
4950: -- Logging Infra: Statement level
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;
4958: p_error_buffer := 'ZX_REG_NUM_INVALID';
4959: END IF;
4960:
4961: --ELSE
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;
4971:
4972: --END IF;
4973:
4974: END IF;
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;
5060: p_error_buffer := 'ZX_REG_NUM_INVALID';
5061: ELSE
5062: /* Calculate two digit controls of tax registration number CPF type */
5063:
5107: END IF;
5108: -- Logging Infra
5109:
5110: /* Digit controls do not match */
5111: p_return_status:= FND_API.G_RET_STS_ERROR;
5112: p_error_buffer := 'ZX_REG_NUM_INVALID';
5113: ELSE
5114:
5115: -- Logging Infra: Statement level
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;
5123: p_error_buffer := NULL;
5124: END IF;
5125: END IF;
5126:
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;
5138: p_error_buffer := NULL;
5139:
5140: --ELSIF p_trn_type = 'CNPJ'
5141: --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
5206: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5207: l_log_msg := 'The Tax Registration Number is valid.';
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;
5213: END IF;
5214:
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;
5311: p_error_buffer := 'ZX_REG_NUM_INVALID';
5312: ELSE
5313:
5314: -- Logging Infra: Statement level
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;
5322: p_error_buffer := NULL;
5323: END IF;
5324:
5325: ELSE
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;
5335: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5336: END IF;
5337:
5338: ELSE
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;
5348: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5349: ELSE
5350: p_return_status := FND_API.G_RET_STS_ERROR;
5351: p_error_buffer := 'ZX_REG_NUM_INVALID';
5346: IF length(trn_value) > 11 THEN
5347: p_return_status := FND_API.G_RET_STS_ERROR;
5348: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5349: ELSE
5350: p_return_status := FND_API.G_RET_STS_ERROR;
5351: p_error_buffer := 'ZX_REG_NUM_INVALID';
5352: END IF;
5353: END IF;
5354:
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;
5449: p_error_buffer := 'ZX_REG_NUM_INVALID';
5450: ELSE
5451:
5452: -- Logging Infra: Statement level
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;
5460: p_error_buffer := NULL;
5461: END IF;
5462:
5463: ELSE
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;
5473: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5474: END IF;
5475:
5476: ELSE
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;
5486: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5487: ELSE
5488: p_return_status := FND_API.G_RET_STS_ERROR;
5489: p_error_buffer := 'ZX_REG_NUM_INVALID';
5484: IF length(trn_value) > 11 THEN
5485: p_return_status := FND_API.G_RET_STS_ERROR;
5486: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5487: ELSE
5488: p_return_status := FND_API.G_RET_STS_ERROR;
5489: p_error_buffer := 'ZX_REG_NUM_INVALID';
5490: END IF;
5491: END IF;
5492:
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;
5592: p_error_buffer := 'ZX_REG_NUM_INVALID';
5593: ELSE
5594:
5595: -- Logging Infra: Statement level
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;
5603: p_error_buffer := NULL;
5604: END IF;
5605:
5606: ELSE
5612: END IF;
5613: -- Logging Infra
5614:
5615: IF length(trn_value) > 16 THEN
5616: p_return_status := FND_API.G_RET_STS_ERROR;
5617: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5618: ELSE
5619: p_return_status := FND_API.G_RET_STS_ERROR;
5620: p_error_buffer := 'ZX_REG_NUM_INVALID';
5615: IF length(trn_value) > 16 THEN
5616: p_return_status := FND_API.G_RET_STS_ERROR;
5617: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5618: ELSE
5619: p_return_status := FND_API.G_RET_STS_ERROR;
5620: p_error_buffer := 'ZX_REG_NUM_INVALID';
5621: END IF;
5622:
5623: END IF;
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;
5635: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5636:
5637: END IF;
5638:
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;
5699: p_error_buffer := NULL;
5700: ELSE
5701:
5702: -- Logging Infra: Statement level
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;
5710: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5711: END IF;
5712:
5713: ELSE
5719: END IF;
5720: -- Logging Infra
5721:
5722: IF length(trn_value) > 10 THEN
5723: p_return_status := FND_API.G_RET_STS_ERROR;
5724: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5725: ELSE
5726: p_return_status := FND_API.G_RET_STS_ERROR;
5727: p_error_buffer := 'ZX_REG_NUM_INVALID';
5722: IF length(trn_value) > 10 THEN
5723: p_return_status := FND_API.G_RET_STS_ERROR;
5724: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5725: ELSE
5726: p_return_status := FND_API.G_RET_STS_ERROR;
5727: p_error_buffer := 'ZX_REG_NUM_INVALID';
5728: END IF;
5729: END IF;
5730:
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;
5786: p_error_buffer := 'ZX_REG_NUM_INVALID';
5787:
5788: ELSIF p_check_unique_flag = 'S' THEN
5789:
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;
5808: p_error_buffer := NULL;
5809: ELSE
5810:
5811: -- Logging Infra: Statement level
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;
5819: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5820:
5821: END IF;
5822:
5829: END IF;
5830: -- Logging Infra
5831:
5832: IF length(trn_value) > 10 THEN
5833: p_return_status := FND_API.G_RET_STS_ERROR;
5834: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5835: ELSE
5836: p_return_status := FND_API.G_RET_STS_ERROR;
5837: p_error_buffer := 'ZX_REG_NUM_INVALID';
5832: IF length(trn_value) > 10 THEN
5833: p_return_status := FND_API.G_RET_STS_ERROR;
5834: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5835: ELSE
5836: p_return_status := FND_API.G_RET_STS_ERROR;
5837: p_error_buffer := 'ZX_REG_NUM_INVALID';
5838: END IF;
5839:
5840: END IF;
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;
5858: p_error_buffer := NULL;
5859: ELSE
5860:
5861: -- Logging Infra: Statement level
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;
5869: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5870:
5871: END IF;
5872:
5879: END IF;
5880: -- Logging Infra
5881:
5882: IF length(trn_value) > 8 THEN
5883: p_return_status := FND_API.G_RET_STS_ERROR;
5884: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5885: ELSE
5886: p_return_status := FND_API.G_RET_STS_ERROR;
5887: p_error_buffer := 'ZX_REG_NUM_INVALID';
5882: IF length(trn_value) > 8 THEN
5883: p_return_status := FND_API.G_RET_STS_ERROR;
5884: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
5885: ELSE
5886: p_return_status := FND_API.G_RET_STS_ERROR;
5887: p_error_buffer := 'ZX_REG_NUM_INVALID';
5888: END IF;
5889:
5890: END IF;
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;
5904:
5905: --END IF;
5906:
5907: END IF;
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;
5963: p_error_buffer := 'ZX_REG_NUM_INVALID';
5964:
5965: ELSIF p_check_unique_flag = 'S' THEN
5966:
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;
5985: p_error_buffer := NULL;
5986: ELSE
5987:
5988: -- Logging Infra: Statement level
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;
5996: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
5997:
5998: END IF;
5999:
6005: END IF;
6006: -- Logging Infra
6007:
6008: IF length(trn_value) > 13 THEN
6009: p_return_status := FND_API.G_RET_STS_ERROR;
6010: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6011: ELSE
6012: p_return_status := FND_API.G_RET_STS_ERROR;
6013: p_error_buffer := 'ZX_REG_NUM_INVALID';
6008: IF length(trn_value) > 13 THEN
6009: p_return_status := FND_API.G_RET_STS_ERROR;
6010: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6011: ELSE
6012: p_return_status := FND_API.G_RET_STS_ERROR;
6013: p_error_buffer := 'ZX_REG_NUM_INVALID';
6014: END IF;
6015:
6016: END IF;
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;
6034: p_error_buffer := NULL;
6035: ELSE
6036:
6037: -- Logging Infra: Statement level
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;
6045: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6046:
6047: END IF;
6048:
6054: END IF;
6055: -- Logging Infra
6056:
6057: IF length(trn_value) > 11 THEN
6058: p_return_status := FND_API.G_RET_STS_ERROR;
6059: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6060: ELSE
6061: p_return_status := FND_API.G_RET_STS_ERROR;
6062: p_error_buffer := 'ZX_REG_NUM_INVALID';
6057: IF length(trn_value) > 11 THEN
6058: p_return_status := FND_API.G_RET_STS_ERROR;
6059: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6060: ELSE
6061: p_return_status := FND_API.G_RET_STS_ERROR;
6062: p_error_buffer := 'ZX_REG_NUM_INVALID';
6063: END IF;
6064:
6065:
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;
6080:
6081: --END IF;
6082:
6083: END IF;
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;
6139: p_error_buffer := 'ZX_REG_NUM_INVALID';
6140:
6141: ELSIF p_check_unique_flag = 'S' THEN
6142:
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;
6161: p_error_buffer := NULL;
6162: ELSE
6163:
6164: -- Logging Infra: Statement level
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;
6172: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6173:
6174: END IF;
6175:
6182: END IF;
6183: -- Logging Infra
6184:
6185: IF length(trn_value) > 10 THEN
6186: p_return_status := FND_API.G_RET_STS_ERROR;
6187: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6188: ELSE
6189: p_return_status := FND_API.G_RET_STS_ERROR;
6190: p_error_buffer := 'ZX_REG_NUM_INVALID';
6185: IF length(trn_value) > 10 THEN
6186: p_return_status := FND_API.G_RET_STS_ERROR;
6187: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6188: ELSE
6189: p_return_status := FND_API.G_RET_STS_ERROR;
6190: p_error_buffer := 'ZX_REG_NUM_INVALID';
6191: END IF;
6192:
6193: END IF;
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;
6211: p_error_buffer := NULL;
6212: ELSE
6213:
6214: -- Logging Infra: Statement level
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;
6222: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6223:
6224: END IF;
6225:
6232: END IF;
6233: -- Logging Infra
6234:
6235: IF length(trn_value) > 8 THEN
6236: p_return_status := FND_API.G_RET_STS_ERROR;
6237: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6238: ELSE
6239: p_return_status := FND_API.G_RET_STS_ERROR;
6240: p_error_buffer := 'ZX_REG_NUM_INVALID';
6235: IF length(trn_value) > 8 THEN
6236: p_return_status := FND_API.G_RET_STS_ERROR;
6237: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6238: ELSE
6239: p_return_status := FND_API.G_RET_STS_ERROR;
6240: p_error_buffer := 'ZX_REG_NUM_INVALID';
6241: END IF;
6242:
6243: END IF;
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;
6257:
6258: --END IF;
6259:
6260: END IF;
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;
6315: p_error_buffer := 'ZX_REG_NUM_INVALID';
6316:
6317: ELSIF p_check_unique_flag = 'S' THEN
6318:
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;
6337: p_error_buffer := NULL;
6338: ELSE
6339:
6340: -- Logging Infra: Statement level
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;
6348: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6349:
6350: END IF;
6351:
6358: END IF;
6359: -- Logging Infra
6360:
6361: IF length(trn_value) > 11 AND length(trn_value) < 14 THEN
6362: p_return_status := FND_API.G_RET_STS_ERROR;
6363: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6364: ELSIF length(trn_value) > 14 THEN
6365: p_return_status := FND_API.G_RET_STS_ERROR;
6366: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6361: IF length(trn_value) > 11 AND length(trn_value) < 14 THEN
6362: p_return_status := FND_API.G_RET_STS_ERROR;
6363: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6364: ELSIF length(trn_value) > 14 THEN
6365: p_return_status := FND_API.G_RET_STS_ERROR;
6366: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6367: ELSE
6368: p_return_status := FND_API.G_RET_STS_ERROR;
6369: p_error_buffer := 'ZX_REG_NUM_INVALID';
6364: ELSIF length(trn_value) > 14 THEN
6365: p_return_status := FND_API.G_RET_STS_ERROR;
6366: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6367: ELSE
6368: p_return_status := FND_API.G_RET_STS_ERROR;
6369: p_error_buffer := 'ZX_REG_NUM_INVALID';
6370: END IF;
6371:
6372:
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;
6391: p_error_buffer := NULL;
6392: ELSE
6393:
6394: -- Logging Infra: Statement level
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;
6402: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6403:
6404: END IF;
6405:
6412: END IF;
6413: -- Logging Infra
6414:
6415: IF length(trn_value) > 9 AND length(trn_value) < 12 THEN
6416: p_return_status := FND_API.G_RET_STS_ERROR;
6417: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6418: ELSIF length(trn_value) > 12 THEN
6419: p_return_status := FND_API.G_RET_STS_ERROR;
6420: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6415: IF length(trn_value) > 9 AND length(trn_value) < 12 THEN
6416: p_return_status := FND_API.G_RET_STS_ERROR;
6417: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6418: ELSIF length(trn_value) > 12 THEN
6419: p_return_status := FND_API.G_RET_STS_ERROR;
6420: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6421: ELSE
6422: p_return_status := FND_API.G_RET_STS_ERROR;
6423: p_error_buffer := 'ZX_REG_NUM_INVALID';
6418: ELSIF length(trn_value) > 12 THEN
6419: p_return_status := FND_API.G_RET_STS_ERROR;
6420: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6421: ELSE
6422: p_return_status := FND_API.G_RET_STS_ERROR;
6423: p_error_buffer := 'ZX_REG_NUM_INVALID';
6424: END IF;
6425:
6426: END IF;
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;
6440:
6441: --END IF;
6442:
6443: END IF;
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;
6500: p_error_buffer := 'ZX_REG_NUM_INVALID';
6501:
6502: ELSIF p_check_unique_flag = 'S' THEN
6503:
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;
6524: p_error_buffer := NULL;
6525:
6526: ELSE
6527:
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;
6536: p_error_buffer := 'ZX_REG_NUM_INVALID';
6537:
6538: END IF;
6539: ELSE
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;
6549: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6550:
6551: END IF;
6552:
6559: END IF;
6560: -- Logging Infra
6561:
6562: IF length(trn_value) > 11 THEN
6563: p_return_status := FND_API.G_RET_STS_ERROR;
6564: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6565: ELSE
6566: p_return_status := FND_API.G_RET_STS_ERROR;
6567: p_error_buffer := 'ZX_REG_NUM_INVALID';
6562: IF length(trn_value) > 11 THEN
6563: p_return_status := FND_API.G_RET_STS_ERROR;
6564: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6565: ELSE
6566: p_return_status := FND_API.G_RET_STS_ERROR;
6567: p_error_buffer := 'ZX_REG_NUM_INVALID';
6568: END IF;
6569: END IF;
6570:
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;
6589: p_error_buffer := NULL;
6590:
6591: ELSE
6592:
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;
6601: p_error_buffer := 'ZX_REG_NUM_INVALID';
6602:
6603: END IF;
6604: ELSE
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;
6614: p_error_buffer := 'ZX_REG_NUM_MUST_BE_NUMERIC';
6615:
6616: END IF;
6617:
6624: END IF;
6625: -- Logging Infra
6626:
6627: IF length(trn_value) > 9 THEN
6628: p_return_status := FND_API.G_RET_STS_ERROR;
6629: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6630: ELSE
6631: p_return_status := FND_API.G_RET_STS_ERROR;
6632: p_error_buffer := 'ZX_REG_NUM_INVALID';
6627: IF length(trn_value) > 9 THEN
6628: p_return_status := FND_API.G_RET_STS_ERROR;
6629: p_error_buffer := 'ZX_REG_NUM_TOO_BIG';
6630: ELSE
6631: p_return_status := FND_API.G_RET_STS_ERROR;
6632: p_error_buffer := 'ZX_REG_NUM_INVALID';
6633: END IF;
6634:
6635: END IF;
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;
6649:
6650: --END IF;
6651:
6652: END IF;