1 package body zx_tax_vertex_pkg as
2 /* $Header: zxvertexpkgb.pls 120.2 2006/06/24 01:25:21 svaze ship $ */
3
4 /* ======================================================================*
5 | FND Logging infrastructure |
6 * ======================================================================*/
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_TAX_VERTEX_PKG';
8 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15 G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_TAX_VERTEX_PKG.';
16
17
18
19 FUNCTION IS_GEOCODE_VALID(p_geocode IN VARCHAR2) return BOOLEAN is
20 l_api_name CONSTANT VARCHAR2(30) := 'IS_GEOCODE_VALID';
21
22 BEGIN
23
24 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
25 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
26 END IF;
27
28 IF (p_geocode between '000000000' and '999999999') THEN
29 IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
30 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Gecode is Valid.');
31 END IF;
32 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
33 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' ||l_api_name||'(-)');
34 END IF;
35 return TRUE;
36 ELSE
37 IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
38 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Gecode is invalid.');
39 END IF;
40 FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
41 FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','The GEOCODE for VERTEX must be between ''000000000'' and ''999999999''');
42 FND_MSG_PUB.ADD(); -- Bug 5331410
43 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
44 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' ||l_api_name||'(-)');
45 END IF;
46 return FALSE;
47 END IF;
48 END;
49
50 FUNCTION IS_CITY_LIMIT_VALID(p_city_limit IN VARCHAR2)return BOOLEAN is
51 l_api_name CONSTANT VARCHAR2(30) := 'IS_CITY_LIMIT_VALID';
52 BEGIN
53
54 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
55 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
56 END IF;
57
58 IF (p_city_limit = '1' or p_city_limit = '0') THEN
59 IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
60 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'City limit is valid.');
61 END IF;
62 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
63 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' ||l_api_name||'(-)');
64 END IF;
65 return TRUE;
66 ELSE
67 IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
68 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'City limit is invalid.');
69 END IF;
70 FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
71 FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','The City Limit should be either ''0'' or ''1''');
72 FND_MSG_PUB.ADD(); -- Bug 5331410
73 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
74 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' ||l_api_name||'(-)');
75 END IF;
76 return FALSE;
77 END IF;
78 END;
79
80 /* Bug 5139634: This function checks if Vertex has been installed in the customer instance
81 and accordingly return the existence of Vertex to api (TAX_VENDOR_EXTENSION).
82 */
83 FUNCTION INSTALLED return BOOLEAN is
84 l_return_status VARCHAR2(1);
85 version_rec ZX_TAX_VERTEX_QSU.tQSUVersionRecord;
86 context_rec ZX_TAX_VERTEX_QSU.tQSUContextRecord;
87 l_api_name CONSTANT VARCHAR2(30) := 'INSTALLED';
88
89
90 BEGIN
91 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
92 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
93 END IF;
94
95 ZX_TAX_VERTEX_REV.GET_RELEASE(context_rec,version_rec,l_return_status);
96
97 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
98 IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
99 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Vertex is not installed.');
100 END IF;
101 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
102 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' ||l_api_name||'(-)');
103 END IF;
104 return FALSE;
105 END IF;
106
107 IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
108 FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Vertex is installed.');
109 END IF;
110 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
111 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' ||l_api_name||'(-)');
112 END IF;
113 return TRUE;
114
115 END; -- Function INSTALLED
116
117 End zx_tax_vertex_pkg;