[Home] [Help]
PACKAGE BODY: APPS.ZX_TAX_VERTEX_REV
Source
1 PACKAGE BODY ZX_TAX_VERTEX_REV AS
2 /* $Header: zxtxvrevb.pls 120.5.12020000.2 2012/07/23 13:07:20 srajapar noship $ */
3
4 /*------------------------
5 | Forward declarations |
6 ------------------------*/
7 --PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('TAX_DEBUG_FLAG'), 'N');
8 --3062098
9 --PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
10
11 PROCEDURE ERROR_EXCEPTION_HANDLE(str varchar2);
12
13 /* ======================================================================*
14 | Global Structure Data Types |
15 * ======================================================================*/
16
17 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_TAX_VERTEX_REV';
18 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
19 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
20 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
24 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25 G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_TAX_VERTEX_REV.';
26
27 g_string Varchar2(200);
28
29 /*** Version Checking Constants ***/
30 MAJOR CONSTANT BINARY_INTEGER :=4; -- Major Vertex version number
31 MINOR CONSTANT BINARY_INTEGER :=0;-- Minor Vertex version number
32 pg_version_check BOOLEAN;
33
34 version_rec ZX_TAX_VERTEX_QSU.tQSUVersionRecord;
35 context_rec ZX_TAX_VERTEX_QSU.tQSUContextRecord;
36 inv_in_rec ZX_TAX_VERTEX_QSU.tQSUInvoiceRecord;
37 line_in_tab ZX_TAX_VERTEX_QSU.tQSULineItemTable;
38
39
40 /*===========================================================================+
41 | FUNCTION |
42 | GET_RELEASE |
43 | |
44 | DESCRIPTION |
45 | This function returns TRUE when package and package body QSU is |
46 | installed. |
47 | |
48 | SCOPE - PUBLIC |
49 | |
50 | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
51 | |
52 | |
53 | NOTES |
54 | |
55 | MODIFICATION HISTORY |
56 | |
57 +===========================================================================*/
58 PROCEDURE GET_RELEASE (p_context_rec OUT NOCOPY ZX_TAX_VERTEX_QSU.tQSUContextRecord,
59 p_version_rec OUT NOCOPY ZX_TAX_VERTEX_QSU.tQSUVersionRecord,
60 x_return_status OUT NOCOPY VARCHAR2) IS
61
62 BEGIN
63
64 x_return_status := FND_API.G_RET_STS_SUCCESS;
65
66 IF (g_level_procedure >= g_current_runtime_level ) THEN
67 FND_LOG.STRING(g_level_procedure,
68 'ZX.PL/SQL.ZX_TAX_VERTEX_REV.GET_RELEASE',
69 'ZX_TAX_VERTEX_REV.GET_RELEASE(+)');
70 END IF;
71
72 /*
73 ARP_TAX_VERTEX_QSU.QSUInitializeInvoice(context_rec,
74 inv_in_rec,
75 line_in_tab); */
76
77
78 /*-----------------------------------------------------------
79 | Retrieve product version information. |
80 -----------------------------------------------------------*/
81 BEGIN
82 IF ( g_level_statement >= g_current_runtime_level) THEN
83 FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
84 'Call ZX_TAX_VERTEX_QSU.QSUGetVersionInfo to get version number');
85 END IF;
86
87 ZX_TAX_VERTEX_QSU.QSUGetVersionInfo(context_rec,version_rec);
88 p_context_rec := context_rec ;
89 p_version_rec := version_rec ;
90
91 EXCEPTION
92 WHEN OTHERS THEN
93 IF ( g_level_exception >= g_current_runtime_level) THEN
94 FND_LOG.STRING(g_level_exception,'ZX_TAX_VERTEX_REV.GET_RELEASE',
95 'Version Error: '||to_char(SQLCODE)||SQLERRM);
96 END IF;
97 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
98 g_string :='Not compaitable to VERTEX Release';
99 error_exception_handle(g_string);
100 return;
101
102 END;
103
104 IF ( g_level_statement >= g_current_runtime_level) THEN
105 FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
106 'Version Number is== '||version_rec.fVersionNumber);
107
108 FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
109 'Release Date is '||to_char(version_rec.fReleaseDate));
110
111 FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
112 'MAJOR: '||substrb(version_rec.fVersionNumber, 1,instrb(version_rec.fVersionNumber, '.')-1));
113
114 FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
115 'MINOR: '||substrb(version_rec.fVersionNumber,
116 instrb(version_rec.fVersionNumber,'.')+1,
117 instrb(version_rec.fVersionNumber, '.', 1, 2)-
118 (instrb(version_rec.fVersionNumber,'.')+1)));
119 END IF;
120
121 IF to_number(substrb(version_rec.fVersionNumber, 1,
122 instrb(version_rec.fVersionNumber, '.')-1)) >MAJOR THEN
123
124 pg_version_check := FALSE;
125 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
126 g_string :='Not compaitable to VERTEX Release';
127 error_exception_handle(g_string);
128 return;
129 ELSIF to_number(substrb(version_rec.fVersionNumber, 1,
130 instrb(version_rec.fVersionNumber, '.')-1)) =MAJOR THEN
131 if to_number(substrb(version_rec.fVersionNumber,
132 instrb(version_rec.fVersionNumber,'.')+1,
133 instrb(version_rec.fVersionNumber, '.', 1, 2)-
134 (instrb(version_rec.fVersionNumber,'.')+1))) > MINOR THEN
135 pg_version_check := FALSE;
136 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137 g_string :='Not compaitable to VERTEX Release';
138 error_exception_handle(g_string);
139 return;
140 else
141 pg_version_check := TRUE;
142 end if;
143 ELSE
144 pg_version_check := TRUE;
145 END IF;
146 IF ( g_level_statement >= g_current_runtime_level) THEN
147 FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
148 'ZX_TAX_VERTEX_REV.GET_RELEASE(TRUE)-');
149 END IF;
150
151 --return TRUE;
152
153 EXCEPTION
154 WHEN OTHERS THEN
155 IF ( g_level_exception >= g_current_runtime_level) THEN
156 FND_LOG.STRING(g_level_exception,'ZX_TAX_VERTEX_REV.GET_RELEASE',
157 'Vertex is not installed.');
158
159 FND_LOG.STRING(g_level_exception,'ZX_TAX_VERTEX_REV.GET_RELEASE',
160 'SQLERRM: '||SQLERRM);
161
162 FND_LOG.STRING(g_level_exception,'ZX_TAX_VERTEX_REV.GET_RELEASE',
163 'ARP_TAX_VERTEX_REV.GET_RELEASE(FALSE)-');
164 END IF;
165
166 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167
168 --return FALSE;
169 END; -- procedure GET_RELEASE
170
171 PROCEDURE ERROR_EXCEPTION_HANDLE(str varchar2) is
172
173 cursor error_exception_cursor is
174 select EVNT_CLS_MAPPING_ID,
175 TRX_ID,
176 TAX_REGIME_CODE
177 from ZX_TRX_PRE_PROC_OPTIONS_GT;
178
179 l_docment_type_id number;
180 l_trasaction_id number;
181 l_tax_regime_code varchar2(80);
182
183 Begin
184 open error_exception_cursor;
185 fetch error_exception_cursor into l_docment_type_id,l_trasaction_id,l_tax_regime_code;
186
187 ZX_VERTEX_TAX_SERVICE_PKG.G_MESSAGES_TBL.DOCUMENT_TYPE_ID(ZX_VERTEX_TAX_SERVICE_PKG.err_count) := l_docment_type_id;
188 ZX_VERTEX_TAX_SERVICE_PKG.G_MESSAGES_TBL.TRANSACTION_ID(ZX_VERTEX_TAX_SERVICE_PKG.err_count) := l_trasaction_id;
189 ZX_VERTEX_TAX_SERVICE_PKG.G_MESSAGES_TBL.COUNTRY_CODE(ZX_VERTEX_TAX_SERVICE_PKG.err_count) := l_tax_regime_code;
190 ZX_VERTEX_TAX_SERVICE_PKG.G_MESSAGES_TBL.ERROR_MESSAGE_TYPE(ZX_VERTEX_TAX_SERVICE_PKG.err_count) := 'ERROR';
191 ZX_VERTEX_TAX_SERVICE_PKG.G_MESSAGES_TBL.ERROR_MESSAGE_STRING(ZX_VERTEX_TAX_SERVICE_PKG.err_count) := str;
192
193 ZX_VERTEX_TAX_SERVICE_PKG.err_count :=ZX_VERTEX_TAX_SERVICE_PKG.err_count+1;
194
195 close error_exception_cursor;
196
197 End ERROR_EXCEPTION_HANDLE;
198
199
200 END ZX_TAX_VERTEX_REV;