[Home] [Help]
PACKAGE BODY: APPS.ZX_TAX_TAXWARE_REV
Source
1 PACKAGE BODY ZX_TAX_TAXWARE_REV AS
2 /* $Header: zxtxtrevb.pls 120.4 2006/08/07 21:24:27 svaze ship $ */
3
4 /* ======================================================================*
5 | Global Structure Data Types |
6 * ======================================================================*/
7
8 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_TAX_TAXWARE_REV';
9 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
10 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
13 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
14 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
16 G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_TAX_TAXWARE_REV.';
17 g_string varchar2(200);
18
19 /*------------------------
20 | Forward declarations |
21 ------------------------*/
22
23 pg_release_number VARCHAR2(50) := NULL;
24
25 -- pg_compatible_release_number VARCHAR2(50) := '3.5';
26 pg_comp_rel_num_major CONSTANT BINARY_INTEGER := 3;
27 pg_comp_rel_num_minor_low CONSTANT BINARY_INTEGER := 1;
28 pg_comp_rel_num_minor_high CONSTANT BINARY_INTEGER := 5;
29 pg_compatible_release BOOLEAN := FALSE;
30
31 PROCEDURE ERROR_EXCEPTION_HANDLE(str varchar2);
32
33 /*----------------------------------------------------------------------------*
34 | PUBLIC FUNCTION |
35 | Get_Release |
36 | |
37 | DESCRIPTION |
38 | |
39 | The function will return ARP_TAX.TAX_SUCCESS on successful completion |
40 | and on error return with ARP_TAX.TAX_RC_OERR |
41 | |
42 +----------------------------------------------------------------------------*/
43 FUNCTION Get_Release RETURN VARCHAR2 IS
44 BEGIN
45
46 IF (g_level_procedure >= g_current_runtime_level ) THEN
47 FND_LOG.STRING(g_level_procedure,
48 'ZX.PL/SQL.ZX_TAX_TAXWARE_REV.GET_RELEASE',
49 'ZX_TAX_TAXWARE_REV.GET_RELEASE(+)');
50 END IF;
51
52 IF ( g_level_statement >= g_current_runtime_level) THEN
53 FND_LOG.STRING(g_level_statement,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
54 'Checking Current release=='||pg_release_number);
55
56 FND_LOG.STRING(g_level_statement,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
57 'Major.Minor=='||pg_comp_rel_num_major||'.'||pg_comp_rel_num_minor_high);
58 END IF;
59
60
61 /******************************************************
62 * Check the release number for Taxware *
63 ******************************************************/
64
65 if not pg_compatible_release then
66 if pg_release_number is null then
67 BEGIN
68 pg_release_number := rtrim(ltrim(ZX_TAX_TAXWARE_010.TAXFN_release_number));
69 EXCEPTION
70 WHEN OTHERS THEN
71
72 IF ( g_level_exception >= g_current_runtime_level) THEN
73 FND_LOG.STRING(g_level_exception,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
74 'Version Error: '||to_char(SQLCODE)||SQLERRM);
75 END IF;
76 --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
77 g_string :='Not compaitable to TAXWARE Release';
78 error_exception_handle(g_string);
79 RETURN ('9');
80 END;
81 end if;
82
83 IF ( g_level_statement >= g_current_runtime_level) THEN
84 FND_LOG.STRING(g_level_statement,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
85 'major: '||substrb(pg_release_number, 1,instrb(pg_release_number, '.')-1));
86
87 FND_LOG.STRING(g_level_statement,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
88 'minor: '||substrb(pg_release_number, instrb(pg_release_number,'.')+1,1));
89 END IF;
90
91
92 IF to_number(substrb(pg_release_number, 1,
93 instrb(pg_release_number, '.')-1)) <> pg_comp_rel_num_major THEN
94
95 pg_compatible_release := FALSE;
96 IF ( g_level_exception >= g_current_runtime_level) THEN
97 FND_LOG.STRING(g_level_exception,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
98 'Version Error: '||to_char(SQLCODE)||SQLERRM);
99 END IF;
100 --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101 g_string :='Release number of Taxware SALES/USE TAX SYSTEM is '||
102 pg_release_number||' on this system. '||
103 'Oracle Application supports only '||pg_comp_rel_num_major||'.'||
104 pg_comp_rel_num_minor_low ||' through '||pg_comp_rel_num_major||'.'||
105 pg_comp_rel_num_minor_high ||'.'||' Please contact Taxware representatives.';
106 error_exception_handle(g_string);
107 RETURN ('9');
108
109 ELSE
110 -- major release = 3, check for minor release
111 IF to_number(substrb(pg_release_number,
112 instrb(pg_release_number,'.')+1,1)) > pg_comp_rel_num_minor_high
113 or
114 to_number(substrb(pg_release_number,
115 instrb(pg_release_number,'.')+1,1)) < pg_comp_rel_num_minor_low
116 THEN
117 pg_compatible_release := FALSE;
118
119 IF ( g_level_exception >= g_current_runtime_level) THEN
120 FND_LOG.STRING(g_level_exception,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
121 'Version Error: '||to_char(SQLCODE)||SQLERRM);
122 END IF;
123 --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124 g_string :='Release number of Taxware SALES/USE TAX SYSTEM is '||
125 pg_release_number||' on this system. '||
126 'Oracle Application supports only '||pg_comp_rel_num_major||'.'||
127 pg_comp_rel_num_minor_low ||' through '||pg_comp_rel_num_major||'.'||
128 pg_comp_rel_num_minor_high ||'.'||' Please contact Taxware representatives.';
129 error_exception_handle(g_string);
130 RETURN ('9');
131
132 ELSE
133 pg_compatible_release := TRUE;
134 END IF;
135
136 END IF;
137
138 else
139 pg_compatible_release := TRUE;
140 end if;
141
142 return('0');
143
144 IF ( g_level_statement >= g_current_runtime_level) THEN
145 FND_LOG.STRING(g_level_statement,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
146 'ZX_TAX_TAXWARE_REV.GET_RELEASE(TRUE)-');
147 END IF;
148
149 EXCEPTION
150 WHEN OTHERS THEN
151 IF ( g_level_exception >= g_current_runtime_level) THEN
152 FND_LOG.STRING(g_level_exception,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
153 'TAXWARE is not installed.');
154
155 FND_LOG.STRING(g_level_exception,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
156 'SQLERRM: '||SQLERRM);
157
158 FND_LOG.STRING(g_level_exception,'ZX_TAX_TAXWARE_REV.GET_RELEASE',
159 'ARP_TAX_TAXWARE_REV.GET_RELEASE(FALSE)-');
160 END IF;
161
162 --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163
164
165 END Get_Release;
166
167 PROCEDURE ERROR_EXCEPTION_HANDLE(str varchar2) is
168
169 cursor error_exception_cursor is
170 select EVNT_CLS_MAPPING_ID,
171 TRX_ID,
172 TAX_REGIME_CODE
173 from ZX_TRX_PRE_PROC_OPTIONS_GT;
174
175 l_docment_type_id number;
176 l_trasaction_id number;
177 l_tax_regime_code varchar2(80);
178
179 Begin
180 open error_exception_cursor;
181 fetch error_exception_cursor into l_docment_type_id,l_trasaction_id,l_tax_regime_code;
182
183 ZX_TAXWARE_TAX_SERVICE_PKG.G_MESSAGES_TBL.DOCUMENT_TYPE_ID(zx_taxware_TAX_SERVICE_PKG.err_count) := l_docment_type_id;
184 zx_taxware_TAX_SERVICE_PKG.G_MESSAGES_TBL.TRANSACTION_ID(zx_taxware_TAX_SERVICE_PKG.err_count) := l_trasaction_id;
185 zx_taxware_TAX_SERVICE_PKG.G_MESSAGES_TBL.COUNTRY_CODE(zx_taxware_TAX_SERVICE_PKG.err_count) := l_tax_regime_code;
186 zx_taxware_TAX_SERVICE_PKG.G_MESSAGES_TBL.ERROR_MESSAGE_TYPE(zx_taxware_TAX_SERVICE_PKG.err_count) := 'ERROR';
187 zx_taxware_TAX_SERVICE_PKG.G_MESSAGES_TBL.ERROR_MESSAGE_STRING(zx_taxware_TAX_SERVICE_PKG.err_count) := str;
188
189 zx_taxware_TAX_SERVICE_PKG.err_count :=zx_taxware_TAX_SERVICE_PKG.err_count+1;
190
191 close error_exception_cursor;
192
193 End ERROR_EXCEPTION_HANDLE;
194
195 END ZX_TAX_TAXWARE_REV;