[Home] [Help]
PACKAGE BODY: APPS.AR_VAT_TAX_PKG
Source
1 package body AR_VAT_TAX_PKG as
2 /* $Header: ARPAVTSB.pls 120.12 2006/03/30 02:46:42 sachandr ship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_ORG_ID in NUMBER,
7 X_VAT_TAX_ID in NUMBER,
8 X_TAX_CONSTRAINT_ID in NUMBER,
9 X_TAX_CLASS in VARCHAR2,
10 X_DISPLAYED_FLAG in VARCHAR2,
11 X_ENABLED_FLAG in VARCHAR2,
12 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
13 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
14 X_AMOUNT_INCLUDES_TAX_FLAG in VARCHAR2,
15 X_AMOUNT_INCLUDES_TAX_OVERRIDE in VARCHAR2,
16 X_TAXABLE_BASIS in VARCHAR2,
17 X_TAX_CALCULATION_PLSQL_BLOCK in VARCHAR2,
18 X_INTERIM_TAX_CCID in NUMBER,
19 X_ADJ_CCID in NUMBER,
20 X_EDISC_CCID in NUMBER,
21 X_UNEDISC_CCID in NUMBER,
22 X_FINCHRG_CCID in NUMBER,
23 X_ADJ_NON_REC_TAX_CCID in NUMBER,
24 X_EDISC_NON_REC_TAX_CCID in NUMBER,
25 X_UNEDISC_NON_REC_TAX_CCID in NUMBER,
26 X_FINCHRG_NON_REC_TAX_CCID in NUMBER,
27 X_SET_OF_BOOKS_ID in NUMBER,
28 X_TAX_CODE in VARCHAR2,
29 X_TAX_RATE in NUMBER,
30 X_TAX_TYPE in VARCHAR2,
31 X_VALIDATE_FLAG in VARCHAR2,
32 X_TAX_ACCOUNT_ID in NUMBER,
33 X_START_DATE in DATE,
34 X_END_DATE in DATE,
35 X_ATTRIBUTE_CATEGORY in VARCHAR2,
36 X_ATTRIBUTE1 in VARCHAR2,
37 X_ATTRIBUTE2 in VARCHAR2,
38 X_ATTRIBUTE3 in VARCHAR2,
39 X_ATTRIBUTE4 in VARCHAR2,
40 X_ATTRIBUTE5 in VARCHAR2,
41 X_ATTRIBUTE6 in VARCHAR2,
42 X_ATTRIBUTE7 in VARCHAR2,
43 X_ATTRIBUTE8 in VARCHAR2,
44 X_ATTRIBUTE9 in VARCHAR2,
45 X_ATTRIBUTE10 in VARCHAR2,
46 X_ATTRIBUTE11 in VARCHAR2,
47 X_ATTRIBUTE12 in VARCHAR2,
48 X_ATTRIBUTE13 in VARCHAR2,
49 X_ATTRIBUTE14 in VARCHAR2,
50 X_ATTRIBUTE15 in VARCHAR2,
51 X_UNAPPROVED_EXEMPTION_FLAG in VARCHAR2,
52 X_DESCRIPTION in VARCHAR2,
53 X_VAT_TRANSACTION_TYPE in VARCHAR2,
54 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
55 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
56 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
57 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
58 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
59 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
60 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
61 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
62 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
63 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
64 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
65 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
66 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
67 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
68 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
69 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
70 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
71 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
72 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
73 X_PRINTED_TAX_NAME in VARCHAR2,
74 X_ADJUSTMENT_TAX_CODE in VARCHAR2,
75 X_CREATION_DATE in DATE,
76 X_CREATED_BY in NUMBER,
77 X_LAST_UPDATE_DATE in DATE,
78 X_LAST_UPDATED_BY in NUMBER,
79 X_LAST_UPDATE_LOGIN in NUMBER,
80 X_LEASING_FLAG in VARCHAR2 DEFAULT 'N',
81 X_TAX_REGIME_CODE in VARCHAR2 DEFAULT NULL,
82 X_TAX in VARCHAR2 DEFAULT NULL,
83 X_TAX_STATUS_CODE in VARCHAR2 DEFAULT NULL
84 ) is
85 --X_ORG_ID NUMBER;
86
87 l_lookup_type NUMBER;
88 l_fnd_lkp_rowid VARCHAR2(30);
89
90 cursor C is select ROWID from AR_VAT_TAX_ALL_B
91 where VAT_TAX_ID = X_VAT_TAX_ID
92 ;
93 begin
94
95 /*
96 bug 1722260 : do not nvl(org_id) to -99, rather simply return to_number(null)
97 Why do we need the decode for client_info = ' ' ?
98 Apparently there are situations wherein client_info returns a space rather then null
99 and the decode is necessary to avoid the bug logged in 1328940.
100
101 Commented out the following select for multi-org changes
102
103 select TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),
104 ' ', NULL,
105 SUBSTRB(USERENV('CLIENT_INFO'),1,10)))
106 into X_ORG_ID
107 from dual; */
108
109 insert into AR_VAT_TAX_ALL_B (
110 ORG_ID,
111 TAX_CONSTRAINT_ID,
112 TAX_CLASS,
113 DISPLAYED_FLAG,
114 ENABLED_FLAG,
115 GLOBAL_ATTRIBUTE20,
116 GLOBAL_ATTRIBUTE_CATEGORY,
117 AMOUNT_INCLUDES_TAX_FLAG,
118 AMOUNT_INCLUDES_TAX_OVERRIDE,
119 TAXABLE_BASIS,
120 TAX_CALCULATION_PLSQL_BLOCK,
121 INTERIM_TAX_CCID,
122 ADJ_CCID,
123 EDISC_CCID,
124 UNEDISC_CCID,
125 FINCHRG_CCID,
126 ADJ_NON_REC_TAX_CCID,
127 EDISC_NON_REC_TAX_CCID,
128 UNEDISC_NON_REC_TAX_CCID,
129 FINCHRG_NON_REC_TAX_CCID,
130 VAT_TAX_ID,
131 SET_OF_BOOKS_ID,
132 TAX_CODE,
133 TAX_RATE,
134 TAX_TYPE,
135 VALIDATE_FLAG,
136 TAX_ACCOUNT_ID,
137 START_DATE,
138 END_DATE,
139 ATTRIBUTE_CATEGORY,
140 ATTRIBUTE1,
141 ATTRIBUTE2,
142 ATTRIBUTE3,
143 ATTRIBUTE4,
144 ATTRIBUTE5,
145 ATTRIBUTE6,
146 ATTRIBUTE7,
147 ATTRIBUTE8,
148 ATTRIBUTE9,
149 ATTRIBUTE10,
150 ATTRIBUTE11,
151 ATTRIBUTE12,
152 ATTRIBUTE13,
153 ATTRIBUTE14,
154 ATTRIBUTE15,
155 UNAPPROVED_EXEMPTION_FLAG,
156 DESCRIPTION,
157 VAT_TRANSACTION_TYPE,
158 GLOBAL_ATTRIBUTE1,
159 GLOBAL_ATTRIBUTE2,
160 GLOBAL_ATTRIBUTE3,
161 GLOBAL_ATTRIBUTE4,
162 GLOBAL_ATTRIBUTE5,
163 GLOBAL_ATTRIBUTE6,
164 GLOBAL_ATTRIBUTE7,
165 GLOBAL_ATTRIBUTE8,
166 GLOBAL_ATTRIBUTE9,
167 GLOBAL_ATTRIBUTE10,
168 GLOBAL_ATTRIBUTE11,
169 GLOBAL_ATTRIBUTE12,
170 GLOBAL_ATTRIBUTE13,
171 GLOBAL_ATTRIBUTE14,
172 GLOBAL_ATTRIBUTE15,
173 GLOBAL_ATTRIBUTE16,
174 GLOBAL_ATTRIBUTE17,
175 GLOBAL_ATTRIBUTE18,
176 GLOBAL_ATTRIBUTE19,
177 CREATION_DATE,
178 CREATED_BY,
179 LAST_UPDATE_DATE,
180 LAST_UPDATED_BY,
181 LAST_UPDATE_LOGIN,
182 ADJUSTMENT_TAX_CODE,
183 LEASING_FLAG,
184 TAX_REGIME_CODE,
185 TAX,
186 TAX_STATUS_CODE
187 ) values (
188 X_ORG_ID,
189 X_TAX_CONSTRAINT_ID,
190 X_TAX_CLASS,
191 X_DISPLAYED_FLAG,
192 X_ENABLED_FLAG,
193 X_GLOBAL_ATTRIBUTE20,
194 X_GLOBAL_ATTRIBUTE_CATEGORY,
195 X_AMOUNT_INCLUDES_TAX_FLAG,
196 X_AMOUNT_INCLUDES_TAX_OVERRIDE,
197 X_TAXABLE_BASIS,
198 X_TAX_CALCULATION_PLSQL_BLOCK,
199 X_INTERIM_TAX_CCID,
200 X_ADJ_CCID,
201 X_EDISC_CCID,
202 X_UNEDISC_CCID,
203 X_FINCHRG_CCID,
204 X_ADJ_NON_REC_TAX_CCID,
205 X_EDISC_NON_REC_TAX_CCID,
206 X_UNEDISC_NON_REC_TAX_CCID,
207 X_FINCHRG_NON_REC_TAX_CCID,
208 X_VAT_TAX_ID,
209 X_SET_OF_BOOKS_ID,
210 X_TAX_CODE,
211 X_TAX_RATE,
212 X_TAX_TYPE,
213 X_VALIDATE_FLAG,
214 X_TAX_ACCOUNT_ID,
215 X_START_DATE,
216 X_END_DATE,
217 X_ATTRIBUTE_CATEGORY,
218 X_ATTRIBUTE1,
219 X_ATTRIBUTE2,
220 X_ATTRIBUTE3,
221 X_ATTRIBUTE4,
222 X_ATTRIBUTE5,
223 X_ATTRIBUTE6,
224 X_ATTRIBUTE7,
225 X_ATTRIBUTE8,
226 X_ATTRIBUTE9,
227 X_ATTRIBUTE10,
228 X_ATTRIBUTE11,
229 X_ATTRIBUTE12,
230 X_ATTRIBUTE13,
231 X_ATTRIBUTE14,
232 X_ATTRIBUTE15,
233 X_UNAPPROVED_EXEMPTION_FLAG,
234 X_DESCRIPTION,
235 X_VAT_TRANSACTION_TYPE,
236 X_GLOBAL_ATTRIBUTE1,
237 X_GLOBAL_ATTRIBUTE2,
238 X_GLOBAL_ATTRIBUTE3,
239 X_GLOBAL_ATTRIBUTE4,
240 X_GLOBAL_ATTRIBUTE5,
241 X_GLOBAL_ATTRIBUTE6,
242 X_GLOBAL_ATTRIBUTE7,
243 X_GLOBAL_ATTRIBUTE8,
244 X_GLOBAL_ATTRIBUTE9,
245 X_GLOBAL_ATTRIBUTE10,
246 X_GLOBAL_ATTRIBUTE11,
247 X_GLOBAL_ATTRIBUTE12,
248 X_GLOBAL_ATTRIBUTE13,
249 X_GLOBAL_ATTRIBUTE14,
250 X_GLOBAL_ATTRIBUTE15,
251 X_GLOBAL_ATTRIBUTE16,
252 X_GLOBAL_ATTRIBUTE17,
253 X_GLOBAL_ATTRIBUTE18,
254 X_GLOBAL_ATTRIBUTE19,
255 X_CREATION_DATE,
256 X_CREATED_BY,
257 X_LAST_UPDATE_DATE,
258 X_LAST_UPDATED_BY,
259 X_LAST_UPDATE_LOGIN,
260 X_ADJUSTMENT_TAX_CODE,
261 X_LEASING_FLAG,
262 X_TAX_REGIME_CODE,
263 X_TAX,
264 X_TAX_STATUS_CODE
265 );
266
267 /* bug 1722260 : modify where clause of t.org_id */
268
269 insert into AR_VAT_TAX_ALL_TL (
270 ORG_ID,
271 VAT_TAX_ID,
272 PRINTED_TAX_NAME,
273 LAST_UPDATE_DATE,
274 CREATION_DATE,
275 CREATED_BY,
276 LAST_UPDATED_BY,
277 LAST_UPDATE_LOGIN,
278 LANGUAGE,
279 SOURCE_LANG
280 ) select
281 X_ORG_ID,
282 X_VAT_TAX_ID,
283 X_PRINTED_TAX_NAME,
284 X_LAST_UPDATE_DATE,
285 X_CREATION_DATE,
286 X_CREATED_BY,
287 X_LAST_UPDATED_BY,
288 X_LAST_UPDATE_LOGIN,
289 L.LANGUAGE_CODE,
290 userenv('LANG')
291 from FND_LANGUAGES L
292 where L.INSTALLED_FLAG in ('I', 'B')
293 and not exists
294 (select NULL
295 from AR_VAT_TAX_ALL_TL T
296 where T.VAT_TAX_ID = X_VAT_TAX_ID
297 and T.LANGUAGE = L.LANGUAGE_CODE
298 and T.ORG_ID = X_ORG_ID);
299 /*and NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),
300 ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
301 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),
302 ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99) );*/
303
304 open c;
305 fetch c into X_ROWID;
306 if (c%notfound) then
307 close c;
308 raise no_data_found;
309 end if;
310 close c;
311
312 --
313 -- Bug 3905897 : Activating a call to zx_upgrade_control_pkg
314 -- by removing comment.
315
316 -- Bug 3970600 Temporarily comment out for dependency issue
317
318 -- Bug 3554056
319 -- Implemted eTBax sync procedure
320
321 ZX_UPGRADE_CONTROL_PKG.SYNC_AR_VAT_TAX (
322 P_DML_TYPE => 'I',
323 P_ORG_ID => X_ORG_ID,
324 P_VAT_TAX_ID => X_VAT_TAX_ID,
325 P_TAX_CONSTRAINT_ID => X_TAX_CONSTRAINT_ID,
326 P_TAX_CLASS => X_TAX_CLASS,
327 P_DISPLAYED_FLAG => X_DISPLAYED_FLAG,
328 P_ENABLED_FLAG => X_ENABLED_FLAG,
329 P_AMOUNT_INCLUDES_TAX_FLAG => X_AMOUNT_INCLUDES_TAX_FLAG,
330 P_AMOUNT_INCLUDES_TAX_OVERRIDE => X_AMOUNT_INCLUDES_TAX_OVERRIDE,
331 P_TAXABLE_BASIS => X_TAXABLE_BASIS,
332 P_TAX_CALCULATION_PLSQL_BLOCK => X_TAX_CALCULATION_PLSQL_BLOCK,
333 P_INTERIM_TAX_CCID => X_INTERIM_TAX_CCID,
334 P_ADJ_CCID => X_ADJ_CCID,
335 P_EDISC_CCID => X_EDISC_CCID,
336 P_UNEDISC_CCID => X_UNEDISC_CCID,
337 P_FINCHRG_CCID => X_FINCHRG_CCID,
338 P_ADJ_NON_REC_TAX_CCID => X_ADJ_NON_REC_TAX_CCID,
339 P_EDISC_NON_REC_TAX_CCID => X_EDISC_NON_REC_TAX_CCID,
340 P_UNEDISC_NON_REC_TAX_CCID => X_UNEDISC_NON_REC_TAX_CCID,
341 P_FINCHRG_NON_REC_TAX_CCID => X_FINCHRG_NON_REC_TAX_CCID,
342 P_SET_OF_BOOKS_ID => X_SET_OF_BOOKS_ID,
343 P_TAX_CODE => X_TAX_CODE,
344 P_TAX_RATE => X_TAX_RATE,
345 P_TAX_TYPE => X_TAX_TYPE,
346 P_VALIDATE_FLAG => X_VALIDATE_FLAG,
347 P_TAX_ACCOUNT_ID => X_TAX_ACCOUNT_ID,
348 P_START_DATE => X_START_DATE,
349 P_END_DATE => X_END_DATE,
350 P_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
351 P_ATTRIBUTE1 => X_ATTRIBUTE1,
352 P_ATTRIBUTE2 => X_ATTRIBUTE2,
353 P_ATTRIBUTE3 => X_ATTRIBUTE3,
354 P_ATTRIBUTE4 => X_ATTRIBUTE4,
355 P_ATTRIBUTE5 => X_ATTRIBUTE5,
356 P_ATTRIBUTE6 => X_ATTRIBUTE6,
357 P_ATTRIBUTE7 => X_ATTRIBUTE7,
358 P_ATTRIBUTE8 => X_ATTRIBUTE8,
359 P_ATTRIBUTE9 => X_ATTRIBUTE9,
360 P_ATTRIBUTE10 => X_ATTRIBUTE10,
361 P_ATTRIBUTE11 => X_ATTRIBUTE11,
362 P_ATTRIBUTE12 => X_ATTRIBUTE12,
363 P_ATTRIBUTE13 => X_ATTRIBUTE13,
364 P_ATTRIBUTE14 => X_ATTRIBUTE14,
365 P_ATTRIBUTE15 => X_ATTRIBUTE15,
366 P_UNAPPROVED_EXEMPTION_FLAG => X_UNAPPROVED_EXEMPTION_FLAG,
367 P_DESCRIPTION => X_DESCRIPTION,
368 P_VAT_TRANSACTION_TYPE => X_VAT_TRANSACTION_TYPE,
369 P_GLOBAL_ATTRIBUTE_CATEGORY => X_GLOBAL_ATTRIBUTE_CATEGORY,
370 P_GLOBAL_ATTRIBUTE1 => X_GLOBAL_ATTRIBUTE1,
371 P_GLOBAL_ATTRIBUTE2 => X_GLOBAL_ATTRIBUTE2,
372 P_GLOBAL_ATTRIBUTE3 => X_GLOBAL_ATTRIBUTE3,
373 P_GLOBAL_ATTRIBUTE4 => X_GLOBAL_ATTRIBUTE4,
374 P_GLOBAL_ATTRIBUTE5 => X_GLOBAL_ATTRIBUTE5,
375 P_GLOBAL_ATTRIBUTE6 => X_GLOBAL_ATTRIBUTE6,
376 P_GLOBAL_ATTRIBUTE7 => X_GLOBAL_ATTRIBUTE7,
377 P_GLOBAL_ATTRIBUTE8 => X_GLOBAL_ATTRIBUTE8,
378 P_GLOBAL_ATTRIBUTE9 => X_GLOBAL_ATTRIBUTE9,
379 P_GLOBAL_ATTRIBUTE10 => X_GLOBAL_ATTRIBUTE10,
380 P_GLOBAL_ATTRIBUTE11 => X_GLOBAL_ATTRIBUTE11,
381 P_GLOBAL_ATTRIBUTE12 => X_GLOBAL_ATTRIBUTE12,
382 P_GLOBAL_ATTRIBUTE13 => X_GLOBAL_ATTRIBUTE13,
383 P_GLOBAL_ATTRIBUTE14 => X_GLOBAL_ATTRIBUTE14,
384 P_GLOBAL_ATTRIBUTE15 => X_GLOBAL_ATTRIBUTE15,
385 P_GLOBAL_ATTRIBUTE16 => X_GLOBAL_ATTRIBUTE16,
386 P_GLOBAL_ATTRIBUTE17 => X_GLOBAL_ATTRIBUTE17,
387 P_GLOBAL_ATTRIBUTE18 => X_GLOBAL_ATTRIBUTE18,
388 P_GLOBAL_ATTRIBUTE19 => X_GLOBAL_ATTRIBUTE19,
389 P_GLOBAL_ATTRIBUTE20 => X_GLOBAL_ATTRIBUTE20,
390 P_PRINTED_TAX_NAME => X_PRINTED_TAX_NAME,
391 P_CREATION_DATE => X_CREATION_DATE,
392 P_CREATED_BY => X_CREATED_BY,
393 P_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
394 P_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
395 P_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN,
396 P_TAX_REGIME_CODE => X_TAX_REGIME_CODE,
397 P_TAX => X_TAX,
398 P_TAX_STATUS_CODE => X_TAX_STATUS_CODE);
399
400 SELECT COUNT(*)
401 INTO l_lookup_type
402 FROM FND_LOOKUP_TYPES
403 WHERE LOOKUP_TYPE = 'ZX_OUTPUT_CLASSIFICATIONS';
404
405 IF x_tax_type = 'TAX_GROUP' THEN
406 IF l_lookup_type = 0 THEN
407
408 INSERT INTO FND_LOOKUP_TYPES (APPLICATION_ID,
409 LOOKUP_TYPE,
410 CUSTOMIZATION_LEVEL,
411 CREATED_BY,
415 LAST_UPDATE_LOGIN,
412 CREATION_DATE,
413 LAST_UPDATED_BY,
414 LAST_UPDATE_DATE,
416 SECURITY_GROUP_ID,
417 VIEW_APPLICATION_ID)
418 VALUES (7004,
419 'ZX_OUTPUT_CLASSIFICATIONS',
420 'E',
421 X_CREATED_BY,
422 X_CREATION_DATE,
423 X_LAST_UPDATED_BY,
424 X_LAST_UPDATE_DATE,
425 X_LAST_UPDATE_LOGIN,
426 0,
427 0);
428 END IF;
429
430 /*
431 INSERT INTO FND_LOOKUPS (LOOKUP_TYPE,
432 LOOKUP_CODE,
433 MEANING,
434 DESCRIPTION,
435 ENABLED_FLAG,
436 START_DATE_ACTIVE,
437 END_DATE_ACTIVE)
438 VALUES ('ZX_OUTPUT_CLASSIFICATIONS',
439 X_TAX_CODE,
440 X_DESCRIPTION,
441 X_PRINTED_TAX_NAME,
442 'Y',
443 X_CREATION_DATE,
444 NULL);
445 */
446
447 -- Bug#4684687
448
449 FND_LOOKUP_VALUES_PKG.INSERT_ROW (
450 X_Rowid => l_fnd_lkp_rowid,
451 X_lookup_type => 'ZX_OUTPUT_CLASSIFICATIONS',
452 X_lookup_code => X_TAX_CODE,
453 X_enabled_flag => 'Y',
454 X_START_DATE_ACTIVE => X_CREATION_DATE,
455 X_END_DATE_ACTIVE => NULL,
456 X_meaning => X_DESCRIPTION,
457 X_description => X_PRINTED_TAX_NAME,
458 X_CREATION_DATE => X_CREATION_DATE ,
459 X_CREATED_BY => X_CREATED_BY ,
460 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE ,
461 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY ,
462 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN ,
463 X_SECURITY_GROUP_ID => 0,
464 X_VIEW_APPLICATION_ID => 0,
465 X_TAG => NULL, --X_TAG ,
466 X_TERRITORY_CODE => NULL, --X_TERRITORY_CODE ,
467 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY ,
468 X_ATTRIBUTE1 => X_ATTRIBUTE1 ,
469 X_ATTRIBUTE2 => X_ATTRIBUTE2 ,
470 X_ATTRIBUTE3 => X_ATTRIBUTE3 ,
471 X_ATTRIBUTE4 => X_ATTRIBUTE4 ,
472 X_ATTRIBUTE5 => X_ATTRIBUTE5 ,
473 X_ATTRIBUTE6 => X_ATTRIBUTE6 ,
474 X_ATTRIBUTE7 => X_ATTRIBUTE7 ,
475 X_ATTRIBUTE8 => X_ATTRIBUTE8 ,
476 X_ATTRIBUTE9 => X_ATTRIBUTE9 ,
477 X_ATTRIBUTE10 => X_ATTRIBUTE10 ,
478 X_ATTRIBUTE11 => X_ATTRIBUTE11 ,
479 X_ATTRIBUTE12 => X_ATTRIBUTE12 ,
480 X_ATTRIBUTE13 => X_ATTRIBUTE13 ,
481 X_ATTRIBUTE14 => X_ATTRIBUTE14 ,
482 X_ATTRIBUTE15 => X_ATTRIBUTE15);
483
484 END IF;
485
486 end INSERT_ROW;
487
488 procedure LOCK_ROW (
489 X_ORG_ID in NUMBER,
490 X_VAT_TAX_ID in NUMBER,
491 X_TAX_CONSTRAINT_ID in NUMBER,
492 X_TAX_CLASS in VARCHAR2,
493 X_DISPLAYED_FLAG in VARCHAR2,
494 X_ENABLED_FLAG in VARCHAR2,
495 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
496 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
497 X_AMOUNT_INCLUDES_TAX_FLAG in VARCHAR2,
498 X_AMOUNT_INCLUDES_TAX_OVERRIDE in VARCHAR2,
499 X_TAXABLE_BASIS in VARCHAR2,
500 X_TAX_CALCULATION_PLSQL_BLOCK in VARCHAR2,
501 X_INTERIM_TAX_CCID in NUMBER,
502 X_ADJ_CCID in NUMBER,
503 X_EDISC_CCID in NUMBER,
504 X_UNEDISC_CCID in NUMBER,
505 X_FINCHRG_CCID in NUMBER,
506 X_ADJ_NON_REC_TAX_CCID in NUMBER,
507 X_EDISC_NON_REC_TAX_CCID in NUMBER,
508 X_UNEDISC_NON_REC_TAX_CCID in NUMBER,
509 X_FINCHRG_NON_REC_TAX_CCID in NUMBER,
510 X_SET_OF_BOOKS_ID in NUMBER,
511 X_TAX_CODE in VARCHAR2,
512 X_TAX_RATE in NUMBER,
513 X_TAX_TYPE in VARCHAR2,
514 X_VALIDATE_FLAG in VARCHAR2,
515 X_TAX_ACCOUNT_ID in NUMBER,
516 X_START_DATE in DATE,
517 X_END_DATE in DATE,
518 X_ATTRIBUTE_CATEGORY in VARCHAR2,
519 X_ATTRIBUTE1 in VARCHAR2,
520 X_ATTRIBUTE2 in VARCHAR2,
521 X_ATTRIBUTE3 in VARCHAR2,
522 X_ATTRIBUTE4 in VARCHAR2,
523 X_ATTRIBUTE5 in VARCHAR2,
524 X_ATTRIBUTE6 in VARCHAR2,
525 X_ATTRIBUTE7 in VARCHAR2,
526 X_ATTRIBUTE8 in VARCHAR2,
527 X_ATTRIBUTE9 in VARCHAR2,
528 X_ATTRIBUTE10 in VARCHAR2,
529 X_ATTRIBUTE11 in VARCHAR2,
530 X_ATTRIBUTE12 in VARCHAR2,
531 X_ATTRIBUTE13 in VARCHAR2,
535 X_DESCRIPTION in VARCHAR2,
532 X_ATTRIBUTE14 in VARCHAR2,
533 X_ATTRIBUTE15 in VARCHAR2,
534 X_UNAPPROVED_EXEMPTION_FLAG in VARCHAR2,
536 X_VAT_TRANSACTION_TYPE in VARCHAR2,
537 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
538 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
539 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
540 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
541 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
542 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
543 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
544 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
545 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
546 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
547 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
548 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
549 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
550 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
551 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
552 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
553 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
554 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
555 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
556 X_PRINTED_TAX_NAME in VARCHAR2,
557 X_ADJUSTMENT_TAX_CODE in VARCHAR2,
558 X_LEASING_FLAG in VARCHAR2 DEFAULT 'N',
559 X_TAX_REGIME_CODE in VARCHAR2 DEFAULT NULL,
560 X_TAX in VARCHAR2 DEFAULT NULL,
561 X_TAX_STATUS_CODE in VARCHAR2 DEFAULT NULL
562 ) is
563 cursor c is select
564 TAX_CONSTRAINT_ID,
565 TAX_CLASS,
566 DISPLAYED_FLAG,
567 ENABLED_FLAG,
568 GLOBAL_ATTRIBUTE20,
569 GLOBAL_ATTRIBUTE_CATEGORY,
570 AMOUNT_INCLUDES_TAX_FLAG,
571 AMOUNT_INCLUDES_TAX_OVERRIDE,
572 TAXABLE_BASIS,
573 TAX_CALCULATION_PLSQL_BLOCK,
574 INTERIM_TAX_CCID,
575 ADJ_CCID,
576 EDISC_CCID,
577 UNEDISC_CCID,
578 FINCHRG_CCID,
579 ADJ_NON_REC_TAX_CCID,
580 EDISC_NON_REC_TAX_CCID,
581 UNEDISC_NON_REC_TAX_CCID,
582 FINCHRG_NON_REC_TAX_CCID,
583 SET_OF_BOOKS_ID,
584 TAX_CODE,
585 TAX_RATE,
586 TAX_TYPE,
587 VALIDATE_FLAG,
588 TAX_ACCOUNT_ID,
589 START_DATE,
590 END_DATE,
591 ATTRIBUTE_CATEGORY,
592 ATTRIBUTE1,
593 ATTRIBUTE2,
594 ATTRIBUTE3,
595 ATTRIBUTE4,
596 ATTRIBUTE5,
597 ATTRIBUTE6,
598 ATTRIBUTE7,
599 ATTRIBUTE8,
600 ATTRIBUTE9,
601 ATTRIBUTE10,
602 ATTRIBUTE11,
603 ATTRIBUTE12,
604 ATTRIBUTE13,
605 ATTRIBUTE14,
606 ATTRIBUTE15,
607 UNAPPROVED_EXEMPTION_FLAG,
608 DESCRIPTION,
609 VAT_TRANSACTION_TYPE,
610 GLOBAL_ATTRIBUTE1,
611 GLOBAL_ATTRIBUTE2,
612 GLOBAL_ATTRIBUTE3,
613 GLOBAL_ATTRIBUTE4,
614 GLOBAL_ATTRIBUTE5,
615 GLOBAL_ATTRIBUTE6,
616 GLOBAL_ATTRIBUTE7,
617 GLOBAL_ATTRIBUTE8,
618 GLOBAL_ATTRIBUTE9,
619 GLOBAL_ATTRIBUTE10,
620 GLOBAL_ATTRIBUTE11,
621 GLOBAL_ATTRIBUTE12,
622 GLOBAL_ATTRIBUTE13,
623 GLOBAL_ATTRIBUTE14,
624 GLOBAL_ATTRIBUTE15,
625 GLOBAL_ATTRIBUTE16,
626 GLOBAL_ATTRIBUTE17,
627 GLOBAL_ATTRIBUTE18,
628 GLOBAL_ATTRIBUTE19,
629 ORG_ID,
630 TAX_REGIME_CODE,
631 TAX,
632 TAX_STATUS_CODE
633 from AR_VAT_TAX_ALL_B
634 where VAT_TAX_ID = X_VAT_TAX_ID
635 /* and ORG_ID = X_ORG_ID
636 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
637 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
638 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
639 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)*/
640 for update of VAT_TAX_ID nowait;
641 recinfo c%rowtype;
642
643 cursor c1 is select
644 PRINTED_TAX_NAME,
645 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
646 from AR_VAT_TAX_ALL_TL
647 where VAT_TAX_ID = X_VAT_TAX_ID
648 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
649 /* and ORG_ID = X_ORG_ID
650 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
651 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
652 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
653 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)*/
654 for update of VAT_TAX_ID nowait;
655 begin
656 open c;
657 fetch c into recinfo;
658 if (c%notfound) then
659 close c;
660 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
661 app_exception.raise_exception;
662 end if;
663 close c;
664 if ( ((recinfo.TAX_CONSTRAINT_ID = X_TAX_CONSTRAINT_ID)
665 OR ((recinfo.TAX_CONSTRAINT_ID is null) AND (X_TAX_CONSTRAINT_ID is null)))
666 AND ((recinfo.TAX_CLASS = X_TAX_CLASS)
667 OR ((recinfo.TAX_CLASS is null) AND (X_TAX_CLASS is null)))
668 AND ((recinfo.DISPLAYED_FLAG = X_DISPLAYED_FLAG)
669 OR ((recinfo.DISPLAYED_FLAG is null) AND (X_DISPLAYED_FLAG is null)))
670 AND ((recinfo.ENABLED_FLAG = X_ENABLED_FLAG)
671 OR ((recinfo.ENABLED_FLAG is null) AND (X_ENABLED_FLAG is null)))
672 AND ((recinfo.GLOBAL_ATTRIBUTE20 = X_GLOBAL_ATTRIBUTE20)
673 OR ((recinfo.GLOBAL_ATTRIBUTE20 is null) AND (X_GLOBAL_ATTRIBUTE20 is null)))
677 OR ((recinfo.AMOUNT_INCLUDES_TAX_FLAG is null) AND (X_AMOUNT_INCLUDES_TAX_FLAG is null)))
674 AND ((recinfo.GLOBAL_ATTRIBUTE_CATEGORY = X_GLOBAL_ATTRIBUTE_CATEGORY)
675 OR ((recinfo.GLOBAL_ATTRIBUTE_CATEGORY is null) AND (X_GLOBAL_ATTRIBUTE_CATEGORY is null)))
676 AND ((recinfo.AMOUNT_INCLUDES_TAX_FLAG = X_AMOUNT_INCLUDES_TAX_FLAG)
678 AND ((recinfo.AMOUNT_INCLUDES_TAX_OVERRIDE = X_AMOUNT_INCLUDES_TAX_OVERRIDE)
679 OR ((recinfo.AMOUNT_INCLUDES_TAX_OVERRIDE is null) AND (X_AMOUNT_INCLUDES_TAX_OVERRIDE is null)))
680 AND ((recinfo.TAXABLE_BASIS = X_TAXABLE_BASIS)
681 OR ((recinfo.TAXABLE_BASIS is null) AND (X_TAXABLE_BASIS is null)))
682 AND ((recinfo.TAX_CALCULATION_PLSQL_BLOCK = X_TAX_CALCULATION_PLSQL_BLOCK)
683 OR ((recinfo.TAX_CALCULATION_PLSQL_BLOCK is null) AND (X_TAX_CALCULATION_PLSQL_BLOCK is null)))
684 AND ((recinfo.INTERIM_TAX_CCID = X_INTERIM_TAX_CCID)
685 OR ((recinfo.INTERIM_TAX_CCID is null) AND (X_INTERIM_TAX_CCID is null)))
686 AND ((recinfo.ADJ_CCID = X_ADJ_CCID)
687 OR ((recinfo.ADJ_CCID is null) AND (X_ADJ_CCID is null)))
688 AND ((recinfo.EDISC_CCID = X_EDISC_CCID)
689 OR ((recinfo.EDISC_CCID is null) AND (X_EDISC_CCID is null)))
690 AND ((recinfo.UNEDISC_CCID = X_UNEDISC_CCID)
691 OR ((recinfo.UNEDISC_CCID is null) AND (X_UNEDISC_CCID is null)))
692 AND ((recinfo.FINCHRG_CCID = X_FINCHRG_CCID)
693 OR ((recinfo.FINCHRG_CCID is null) AND (X_FINCHRG_CCID is null)))
694 AND ((recinfo.ADJ_NON_REC_TAX_CCID = X_ADJ_NON_REC_TAX_CCID)
695 OR ((recinfo.ADJ_NON_REC_TAX_CCID is null) AND (X_ADJ_NON_REC_TAX_CCID is null)))
696 AND ((recinfo.EDISC_NON_REC_TAX_CCID = X_EDISC_NON_REC_TAX_CCID)
697 OR ((recinfo.EDISC_NON_REC_TAX_CCID is null) AND (X_EDISC_NON_REC_TAX_CCID is null)))
698 AND ((recinfo.UNEDISC_NON_REC_TAX_CCID = X_UNEDISC_NON_REC_TAX_CCID)
699 OR ((recinfo.UNEDISC_NON_REC_TAX_CCID is null) AND (X_UNEDISC_NON_REC_TAX_CCID is null)))
700 AND ((recinfo.FINCHRG_NON_REC_TAX_CCID = X_FINCHRG_NON_REC_TAX_CCID)
701 OR ((recinfo.FINCHRG_NON_REC_TAX_CCID is null) AND (X_FINCHRG_NON_REC_TAX_CCID is null)))
702 AND (recinfo.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID)
703 AND (recinfo.TAX_CODE = X_TAX_CODE)
704 AND ((recinfo.TAX_RATE = X_TAX_RATE)
705 OR ((recinfo.TAX_RATE is null) AND (X_TAX_RATE is null)))
706 AND (recinfo.TAX_TYPE = X_TAX_TYPE)
707 AND ((recinfo.VALIDATE_FLAG = X_VALIDATE_FLAG)
708 OR ((recinfo.VALIDATE_FLAG is null) AND (X_VALIDATE_FLAG is null)))
709 AND ((recinfo.TAX_ACCOUNT_ID = X_TAX_ACCOUNT_ID)
710 OR ((recinfo.TAX_ACCOUNT_ID is null) AND (X_TAX_ACCOUNT_ID is null)))
711 AND (recinfo.START_DATE = X_START_DATE)
712 AND ((recinfo.END_DATE = X_END_DATE)
713 OR ((recinfo.END_DATE is null) AND (X_END_DATE is null)))
714 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
715 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
716 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
717 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
718 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
719 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
720 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
721 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
722 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
723 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
724 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
725 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
726 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
727 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
728 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
729 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
730 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
731 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
732 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
733 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
734 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
735 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
736 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
737 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
738 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
739 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
740 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
741 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
742 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
743 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
744 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
745 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
746 AND ((recinfo.UNAPPROVED_EXEMPTION_FLAG = X_UNAPPROVED_EXEMPTION_FLAG)
747 OR ((recinfo.UNAPPROVED_EXEMPTION_FLAG is null) AND (X_UNAPPROVED_EXEMPTION_FLAG is null)))
748 AND ((recinfo.DESCRIPTION = X_DESCRIPTION)
749 OR ((recinfo.DESCRIPTION is null) AND (X_DESCRIPTION is null)))
750 AND ((recinfo.VAT_TRANSACTION_TYPE = X_VAT_TRANSACTION_TYPE)
751 OR ((recinfo.VAT_TRANSACTION_TYPE is null) AND (X_VAT_TRANSACTION_TYPE is null)))
752 AND ((recinfo.GLOBAL_ATTRIBUTE1 = X_GLOBAL_ATTRIBUTE1)
753 OR ((recinfo.GLOBAL_ATTRIBUTE1 is null) AND (X_GLOBAL_ATTRIBUTE1 is null)))
754 AND ((recinfo.GLOBAL_ATTRIBUTE2 = X_GLOBAL_ATTRIBUTE2)
755 OR ((recinfo.GLOBAL_ATTRIBUTE2 is null) AND (X_GLOBAL_ATTRIBUTE2 is null)))
759 OR ((recinfo.GLOBAL_ATTRIBUTE4 is null) AND (X_GLOBAL_ATTRIBUTE4 is null)))
756 AND ((recinfo.GLOBAL_ATTRIBUTE3 = X_GLOBAL_ATTRIBUTE3)
757 OR ((recinfo.GLOBAL_ATTRIBUTE3 is null) AND (X_GLOBAL_ATTRIBUTE3 is null)))
758 AND ((recinfo.GLOBAL_ATTRIBUTE4 = X_GLOBAL_ATTRIBUTE4)
760 AND ((recinfo.GLOBAL_ATTRIBUTE5 = X_GLOBAL_ATTRIBUTE5)
761 OR ((recinfo.GLOBAL_ATTRIBUTE5 is null) AND (X_GLOBAL_ATTRIBUTE5 is null)))
762 AND ((recinfo.GLOBAL_ATTRIBUTE6 = X_GLOBAL_ATTRIBUTE6)
763 OR ((recinfo.GLOBAL_ATTRIBUTE6 is null) AND (X_GLOBAL_ATTRIBUTE6 is null)))
764 AND ((recinfo.GLOBAL_ATTRIBUTE7 = X_GLOBAL_ATTRIBUTE7)
765 OR ((recinfo.GLOBAL_ATTRIBUTE7 is null) AND (X_GLOBAL_ATTRIBUTE7 is null)))
766 AND ((recinfo.GLOBAL_ATTRIBUTE8 = X_GLOBAL_ATTRIBUTE8)
767 OR ((recinfo.GLOBAL_ATTRIBUTE8 is null) AND (X_GLOBAL_ATTRIBUTE8 is null)))
768 AND ((recinfo.GLOBAL_ATTRIBUTE9 = X_GLOBAL_ATTRIBUTE9)
769 OR ((recinfo.GLOBAL_ATTRIBUTE9 is null) AND (X_GLOBAL_ATTRIBUTE9 is null)))
770 AND ((recinfo.GLOBAL_ATTRIBUTE10 = X_GLOBAL_ATTRIBUTE10)
771 OR ((recinfo.GLOBAL_ATTRIBUTE10 is null) AND (X_GLOBAL_ATTRIBUTE10 is null)))
772 AND ((recinfo.GLOBAL_ATTRIBUTE11 = X_GLOBAL_ATTRIBUTE11)
773 OR ((recinfo.GLOBAL_ATTRIBUTE11 is null) AND (X_GLOBAL_ATTRIBUTE11 is null)))
774 AND ((recinfo.GLOBAL_ATTRIBUTE12 = X_GLOBAL_ATTRIBUTE12)
775 OR ((recinfo.GLOBAL_ATTRIBUTE12 is null) AND (X_GLOBAL_ATTRIBUTE12 is null)))
776 AND ((recinfo.GLOBAL_ATTRIBUTE13 = X_GLOBAL_ATTRIBUTE13)
777 OR ((recinfo.GLOBAL_ATTRIBUTE13 is null) AND (X_GLOBAL_ATTRIBUTE13 is null)))
778 AND ((recinfo.GLOBAL_ATTRIBUTE14 = X_GLOBAL_ATTRIBUTE14)
779 OR ((recinfo.GLOBAL_ATTRIBUTE14 is null) AND (X_GLOBAL_ATTRIBUTE14 is null)))
780 AND ((recinfo.GLOBAL_ATTRIBUTE15 = X_GLOBAL_ATTRIBUTE15)
781 OR ((recinfo.GLOBAL_ATTRIBUTE15 is null) AND (X_GLOBAL_ATTRIBUTE15 is null)))
782 AND ((recinfo.GLOBAL_ATTRIBUTE16 = X_GLOBAL_ATTRIBUTE16)
783 OR ((recinfo.GLOBAL_ATTRIBUTE16 is null) AND (X_GLOBAL_ATTRIBUTE16 is null)))
784 AND ((recinfo.GLOBAL_ATTRIBUTE17 = X_GLOBAL_ATTRIBUTE17)
785 OR ((recinfo.GLOBAL_ATTRIBUTE17 is null) AND (X_GLOBAL_ATTRIBUTE17 is null)))
786 AND ((recinfo.GLOBAL_ATTRIBUTE18 = X_GLOBAL_ATTRIBUTE18)
787 OR ((recinfo.GLOBAL_ATTRIBUTE18 is null) AND (X_GLOBAL_ATTRIBUTE18 is null)))
788 AND ((recinfo.GLOBAL_ATTRIBUTE19 = X_GLOBAL_ATTRIBUTE19)
789 OR ((recinfo.GLOBAL_ATTRIBUTE19 is null) AND (X_GLOBAL_ATTRIBUTE19 is null)))
790 --moac change
791 AND ((recinfo.ORG_ID = X_ORG_ID)
792 OR ((recinfo.ORG_ID is null) AND (X_ORG_ID is null)))
793 AND ((recinfo.TAX_REGIME_CODE = X_TAX_REGIME_CODE)
794 OR ((recinfo.TAX_REGIME_CODE is null) AND (X_TAX_REGIME_CODE is null)))
795 AND ((recinfo.TAX = X_TAX)
796 OR ((recinfo.TAX is null) AND (X_TAX is null)))
797 AND ((recinfo.TAX_STATUS_CODE = X_TAX_STATUS_CODE)
798 OR ((recinfo.TAX_STATUS_CODE is null) AND (X_TAX_STATUS_CODE is null)))
799 ) then
800 null;
801 else
802 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
803 app_exception.raise_exception;
804 end if;
805
806 for tlinfo in c1 loop
807 if (tlinfo.BASELANG = 'Y') then
808 if ( ((tlinfo.PRINTED_TAX_NAME = X_PRINTED_TAX_NAME)
809 OR ((tlinfo.PRINTED_TAX_NAME is null) AND (X_PRINTED_TAX_NAME is null)))
810 ) then
811 null;
812 else
813 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
814 app_exception.raise_exception;
815 end if;
816 end if;
817 end loop;
818 return;
819 end LOCK_ROW;
820
821 procedure UPDATE_ROW (
822 X_ORG_ID in NUMBER,
823 X_VAT_TAX_ID in NUMBER,
824 X_TAX_CONSTRAINT_ID in NUMBER,
825 X_TAX_CLASS in VARCHAR2,
826 X_DISPLAYED_FLAG in VARCHAR2,
827 X_ENABLED_FLAG in VARCHAR2,
828 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
829 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
830 X_AMOUNT_INCLUDES_TAX_FLAG in VARCHAR2,
831 X_AMOUNT_INCLUDES_TAX_OVERRIDE in VARCHAR2,
832 X_TAXABLE_BASIS in VARCHAR2,
833 X_TAX_CALCULATION_PLSQL_BLOCK in VARCHAR2,
834 X_INTERIM_TAX_CCID in NUMBER,
835 X_ADJ_CCID in NUMBER,
836 X_EDISC_CCID in NUMBER,
837 X_UNEDISC_CCID in NUMBER,
838 X_FINCHRG_CCID in NUMBER,
839 X_ADJ_NON_REC_TAX_CCID in NUMBER,
840 X_EDISC_NON_REC_TAX_CCID in NUMBER,
841 X_UNEDISC_NON_REC_TAX_CCID in NUMBER,
842 X_FINCHRG_NON_REC_TAX_CCID in NUMBER,
843 X_SET_OF_BOOKS_ID in NUMBER,
844 X_TAX_CODE in VARCHAR2,
845 X_TAX_RATE in NUMBER,
846 X_TAX_TYPE in VARCHAR2,
847 X_VALIDATE_FLAG in VARCHAR2,
848 X_TAX_ACCOUNT_ID in NUMBER,
849 X_START_DATE in DATE,
850 X_END_DATE in DATE,
851 X_ATTRIBUTE_CATEGORY in VARCHAR2,
852 X_ATTRIBUTE1 in VARCHAR2,
853 X_ATTRIBUTE2 in VARCHAR2,
854 X_ATTRIBUTE3 in VARCHAR2,
855 X_ATTRIBUTE4 in VARCHAR2,
856 X_ATTRIBUTE5 in VARCHAR2,
857 X_ATTRIBUTE6 in VARCHAR2,
858 X_ATTRIBUTE7 in VARCHAR2,
859 X_ATTRIBUTE8 in VARCHAR2,
860 X_ATTRIBUTE9 in VARCHAR2,
861 X_ATTRIBUTE10 in VARCHAR2,
862 X_ATTRIBUTE11 in VARCHAR2,
863 X_ATTRIBUTE12 in VARCHAR2,
864 X_ATTRIBUTE13 in VARCHAR2,
865 X_ATTRIBUTE14 in VARCHAR2,
866 X_ATTRIBUTE15 in VARCHAR2,
867 X_UNAPPROVED_EXEMPTION_FLAG in VARCHAR2,
868 X_DESCRIPTION in VARCHAR2,
869 X_VAT_TRANSACTION_TYPE in VARCHAR2,
870 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
874 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
871 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
872 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
873 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
875 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
876 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
877 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
878 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
879 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
880 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
881 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
882 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
883 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
884 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
885 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
886 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
887 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
888 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
889 X_PRINTED_TAX_NAME in VARCHAR2,
890 X_ADJUSTMENT_TAX_CODE in VARCHAR2,
891 X_LAST_UPDATE_DATE in DATE,
892 X_LAST_UPDATED_BY in NUMBER,
893 X_LAST_UPDATE_LOGIN in NUMBER,
894 X_LEASING_FLAG in VARCHAR2 DEFAULT 'N',
895 X_TAX_REGIME_CODE in VARCHAR2 DEFAULT NULL,
896 X_TAX in VARCHAR2 DEFAULT NULL,
897 X_TAX_STATUS_CODE in VARCHAR2 DEFAULT NULL
898 ) is
899 begin
900 update AR_VAT_TAX_ALL_B set
901 TAX_CONSTRAINT_ID = X_TAX_CONSTRAINT_ID,
902 TAX_CLASS = X_TAX_CLASS,
903 DISPLAYED_FLAG = X_DISPLAYED_FLAG,
904 ENABLED_FLAG = X_ENABLED_FLAG,
905 GLOBAL_ATTRIBUTE20 = X_GLOBAL_ATTRIBUTE20,
906 GLOBAL_ATTRIBUTE_CATEGORY = X_GLOBAL_ATTRIBUTE_CATEGORY,
907 AMOUNT_INCLUDES_TAX_FLAG = X_AMOUNT_INCLUDES_TAX_FLAG,
908 AMOUNT_INCLUDES_TAX_OVERRIDE = X_AMOUNT_INCLUDES_TAX_OVERRIDE,
909 TAXABLE_BASIS = X_TAXABLE_BASIS,
910 TAX_CALCULATION_PLSQL_BLOCK = X_TAX_CALCULATION_PLSQL_BLOCK,
911 INTERIM_TAX_CCID = X_INTERIM_TAX_CCID,
912 ADJ_CCID = X_ADJ_CCID,
913 EDISC_CCID = X_EDISC_CCID,
914 UNEDISC_CCID = X_UNEDISC_CCID,
915 FINCHRG_CCID = X_FINCHRG_CCID,
916 ADJ_NON_REC_TAX_CCID = X_ADJ_NON_REC_TAX_CCID,
917 EDISC_NON_REC_TAX_CCID = X_EDISC_NON_REC_TAX_CCID,
918 UNEDISC_NON_REC_TAX_CCID = X_UNEDISC_NON_REC_TAX_CCID,
919 FINCHRG_NON_REC_TAX_CCID = X_FINCHRG_NON_REC_TAX_CCID,
920 SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
921 TAX_CODE = X_TAX_CODE,
922 TAX_RATE = X_TAX_RATE,
923 TAX_TYPE = X_TAX_TYPE,
924 VALIDATE_FLAG = X_VALIDATE_FLAG,
925 TAX_ACCOUNT_ID = X_TAX_ACCOUNT_ID,
926 START_DATE = X_START_DATE,
927 END_DATE = X_END_DATE,
928 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
929 ATTRIBUTE1 = X_ATTRIBUTE1,
930 ATTRIBUTE2 = X_ATTRIBUTE2,
931 ATTRIBUTE3 = X_ATTRIBUTE3,
932 ATTRIBUTE4 = X_ATTRIBUTE4,
933 ATTRIBUTE5 = X_ATTRIBUTE5,
934 ATTRIBUTE6 = X_ATTRIBUTE6,
935 ATTRIBUTE7 = X_ATTRIBUTE7,
936 ATTRIBUTE8 = X_ATTRIBUTE8,
937 ATTRIBUTE9 = X_ATTRIBUTE9,
938 ATTRIBUTE10 = X_ATTRIBUTE10,
939 ATTRIBUTE11 = X_ATTRIBUTE11,
940 ATTRIBUTE12 = X_ATTRIBUTE12,
941 ATTRIBUTE13 = X_ATTRIBUTE13,
942 ATTRIBUTE14 = X_ATTRIBUTE14,
943 ATTRIBUTE15 = X_ATTRIBUTE15,
944 UNAPPROVED_EXEMPTION_FLAG = X_UNAPPROVED_EXEMPTION_FLAG,
945 DESCRIPTION = X_DESCRIPTION,
946 VAT_TRANSACTION_TYPE = X_VAT_TRANSACTION_TYPE,
947 GLOBAL_ATTRIBUTE1 = X_GLOBAL_ATTRIBUTE1,
948 GLOBAL_ATTRIBUTE2 = X_GLOBAL_ATTRIBUTE2,
949 GLOBAL_ATTRIBUTE3 = X_GLOBAL_ATTRIBUTE3,
950 GLOBAL_ATTRIBUTE4 = X_GLOBAL_ATTRIBUTE4,
951 GLOBAL_ATTRIBUTE5 = X_GLOBAL_ATTRIBUTE5,
952 GLOBAL_ATTRIBUTE6 = X_GLOBAL_ATTRIBUTE6,
953 GLOBAL_ATTRIBUTE7 = X_GLOBAL_ATTRIBUTE7,
954 GLOBAL_ATTRIBUTE8 = X_GLOBAL_ATTRIBUTE8,
955 GLOBAL_ATTRIBUTE9 = X_GLOBAL_ATTRIBUTE9,
956 GLOBAL_ATTRIBUTE10 = X_GLOBAL_ATTRIBUTE10,
957 GLOBAL_ATTRIBUTE11 = X_GLOBAL_ATTRIBUTE11,
958 GLOBAL_ATTRIBUTE12 = X_GLOBAL_ATTRIBUTE12,
959 GLOBAL_ATTRIBUTE13 = X_GLOBAL_ATTRIBUTE13,
960 GLOBAL_ATTRIBUTE14 = X_GLOBAL_ATTRIBUTE14,
961 GLOBAL_ATTRIBUTE15 = X_GLOBAL_ATTRIBUTE15,
962 GLOBAL_ATTRIBUTE16 = X_GLOBAL_ATTRIBUTE16,
963 GLOBAL_ATTRIBUTE17 = X_GLOBAL_ATTRIBUTE17,
964 GLOBAL_ATTRIBUTE18 = X_GLOBAL_ATTRIBUTE18,
965 GLOBAL_ATTRIBUTE19 = X_GLOBAL_ATTRIBUTE19,
966 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
967 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
968 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
969 ORG_ID = X_ORG_ID,
970 TAX_REGIME_CODE = X_TAX_REGIME_CODE,
971 TAX = X_TAX,
972 TAX_STATUS_CODE = X_TAX_STATUS_CODE
973 where VAT_TAX_ID = X_VAT_TAX_ID;
974
975 if (sql%notfound) then
976 raise no_data_found;
977 end if;
978
979 update AR_VAT_TAX_ALL_TL set
980 PRINTED_TAX_NAME = X_PRINTED_TAX_NAME,
981 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
982 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
983 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
984 SOURCE_LANG = userenv('LANG')
985 where VAT_TAX_ID = X_VAT_TAX_ID
986 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
987 /* and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
988 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
989 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
990 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99); */
991
992 if (sql%notfound) then
993 raise no_data_found;
994 end if;
995
996 --
1000 -- Bug 3970600 Temporarily comment out for dependency issue
997 -- Bug 3905897 : Activating a call to zx_upgrade_control_pkg
998 -- by removing comment.
999
1001 -- Bug 3554056
1002 -- Implemted eTBax sync procedure
1003 ZX_UPGRADE_CONTROL_PKG.SYNC_AR_VAT_TAX (
1004 P_DML_TYPE => 'U',
1005 P_ORG_ID => NULL,
1006 P_VAT_TAX_ID => X_VAT_TAX_ID,
1007 P_TAX_CONSTRAINT_ID => X_TAX_CONSTRAINT_ID,
1008 P_TAX_CLASS => X_TAX_CLASS,
1009 P_DISPLAYED_FLAG => X_DISPLAYED_FLAG,
1010 P_ENABLED_FLAG => X_ENABLED_FLAG,
1011 P_AMOUNT_INCLUDES_TAX_FLAG => X_AMOUNT_INCLUDES_TAX_FLAG,
1012 P_AMOUNT_INCLUDES_TAX_OVERRIDE => X_AMOUNT_INCLUDES_TAX_OVERRIDE,
1013 P_TAXABLE_BASIS => X_TAXABLE_BASIS,
1014 P_TAX_CALCULATION_PLSQL_BLOCK => X_TAX_CALCULATION_PLSQL_BLOCK,
1015 P_INTERIM_TAX_CCID => X_INTERIM_TAX_CCID,
1016 P_ADJ_CCID => X_ADJ_CCID,
1017 P_EDISC_CCID => X_EDISC_CCID,
1018 P_UNEDISC_CCID => X_UNEDISC_CCID,
1019 P_FINCHRG_CCID => X_FINCHRG_CCID,
1020 P_ADJ_NON_REC_TAX_CCID => X_ADJ_NON_REC_TAX_CCID,
1021 P_EDISC_NON_REC_TAX_CCID => X_EDISC_NON_REC_TAX_CCID,
1022 P_UNEDISC_NON_REC_TAX_CCID => X_UNEDISC_NON_REC_TAX_CCID,
1023 P_FINCHRG_NON_REC_TAX_CCID => X_FINCHRG_NON_REC_TAX_CCID,
1024 P_SET_OF_BOOKS_ID => X_SET_OF_BOOKS_ID,
1025 P_TAX_CODE => X_TAX_CODE,
1026 P_TAX_RATE => X_TAX_RATE,
1027 P_TAX_TYPE => X_TAX_TYPE,
1028 P_VALIDATE_FLAG => X_VALIDATE_FLAG,
1029 P_TAX_ACCOUNT_ID => X_TAX_ACCOUNT_ID,
1030 P_START_DATE => X_START_DATE,
1031 P_END_DATE => X_END_DATE,
1032 P_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
1033 P_ATTRIBUTE1 => X_ATTRIBUTE1,
1034 P_ATTRIBUTE2 => X_ATTRIBUTE2,
1035 P_ATTRIBUTE3 => X_ATTRIBUTE3,
1036 P_ATTRIBUTE4 => X_ATTRIBUTE4,
1037 P_ATTRIBUTE5 => X_ATTRIBUTE5,
1038 P_ATTRIBUTE6 => X_ATTRIBUTE6,
1039 P_ATTRIBUTE7 => X_ATTRIBUTE7,
1040 P_ATTRIBUTE8 => X_ATTRIBUTE8,
1041 P_ATTRIBUTE9 => X_ATTRIBUTE9,
1042 P_ATTRIBUTE10 => X_ATTRIBUTE10,
1043 P_ATTRIBUTE11 => X_ATTRIBUTE11,
1044 P_ATTRIBUTE12 => X_ATTRIBUTE12,
1045 P_ATTRIBUTE13 => X_ATTRIBUTE13,
1046 P_ATTRIBUTE14 => X_ATTRIBUTE14,
1047 P_ATTRIBUTE15 => X_ATTRIBUTE15,
1048 P_UNAPPROVED_EXEMPTION_FLAG => X_UNAPPROVED_EXEMPTION_FLAG,
1049 P_DESCRIPTION => X_DESCRIPTION,
1050 P_VAT_TRANSACTION_TYPE => X_VAT_TRANSACTION_TYPE,
1051 P_GLOBAL_ATTRIBUTE_CATEGORY => X_GLOBAL_ATTRIBUTE_CATEGORY,
1052 P_GLOBAL_ATTRIBUTE1 => X_GLOBAL_ATTRIBUTE1,
1053 P_GLOBAL_ATTRIBUTE2 => X_GLOBAL_ATTRIBUTE2,
1054 P_GLOBAL_ATTRIBUTE3 => X_GLOBAL_ATTRIBUTE3,
1055 P_GLOBAL_ATTRIBUTE4 => X_GLOBAL_ATTRIBUTE4,
1056 P_GLOBAL_ATTRIBUTE5 => X_GLOBAL_ATTRIBUTE5,
1057 P_GLOBAL_ATTRIBUTE6 => X_GLOBAL_ATTRIBUTE6,
1058 P_GLOBAL_ATTRIBUTE7 => X_GLOBAL_ATTRIBUTE7,
1059 P_GLOBAL_ATTRIBUTE8 => X_GLOBAL_ATTRIBUTE8,
1060 P_GLOBAL_ATTRIBUTE9 => X_GLOBAL_ATTRIBUTE9,
1061 P_GLOBAL_ATTRIBUTE10 => X_GLOBAL_ATTRIBUTE10,
1062 P_GLOBAL_ATTRIBUTE11 => X_GLOBAL_ATTRIBUTE11,
1063 P_GLOBAL_ATTRIBUTE12 => X_GLOBAL_ATTRIBUTE12,
1064 P_GLOBAL_ATTRIBUTE13 => X_GLOBAL_ATTRIBUTE13,
1065 P_GLOBAL_ATTRIBUTE14 => X_GLOBAL_ATTRIBUTE14,
1066 P_GLOBAL_ATTRIBUTE15 => X_GLOBAL_ATTRIBUTE15,
1067 P_GLOBAL_ATTRIBUTE16 => X_GLOBAL_ATTRIBUTE16,
1068 P_GLOBAL_ATTRIBUTE17 => X_GLOBAL_ATTRIBUTE17,
1069 P_GLOBAL_ATTRIBUTE18 => X_GLOBAL_ATTRIBUTE18,
1070 P_GLOBAL_ATTRIBUTE19 => X_GLOBAL_ATTRIBUTE19,
1071 P_GLOBAL_ATTRIBUTE20 => X_GLOBAL_ATTRIBUTE20,
1072 P_PRINTED_TAX_NAME => X_PRINTED_TAX_NAME,
1073 P_CREATION_DATE => NULL,
1074 P_CREATED_BY => NULL,
1075 P_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
1076 P_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
1077 P_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN,
1078 P_TAX_REGIME_CODE => X_TAX_REGIME_CODE,
1079 P_TAX => X_TAX,
1080 P_TAX_STATUS_CODE => X_TAX_STATUS_CODE);
1081
1082
1083 end UPDATE_ROW;
1084
1085 procedure DELETE_ROW (
1086 X_VAT_TAX_ID in NUMBER
1087 ) is
1088 begin
1089 delete from AR_VAT_TAX_ALL_TL
1090 where VAT_TAX_ID = X_VAT_TAX_ID;
1091 /* moac yk and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1092 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
1093 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1094 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99); */
1095
1096 if (sql%notfound) then
1097 raise no_data_found;
1098 end if;
1099
1100 delete from AR_VAT_TAX_ALL_B
1101 where VAT_TAX_ID = X_VAT_TAX_ID;
1102 /* moac yk and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1103 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
1104 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1105 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99); */
1106
1107 if (sql%notfound) then
1108 raise no_data_found;
1109 end if;
1110 end DELETE_ROW;
1111
1112 procedure ADD_LANGUAGE
1113 is
1114 begin
1115 delete from AR_VAT_TAX_ALL_TL T
1116 where not exists
1117 (select NULL
1118 from AR_VAT_TAX_ALL_B B
1119 where B.VAT_TAX_ID = T.VAT_TAX_ID
1120 /* moac yk2 and NVL(B.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1121 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
1122 NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1123 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) */
1127 PRINTED_TAX_NAME
1124 );
1125
1126 update AR_VAT_TAX_ALL_TL T set (
1128 ) = (select
1129 B.PRINTED_TAX_NAME
1130 from AR_VAT_TAX_ALL_TL B
1131 where B.VAT_TAX_ID = T.VAT_TAX_ID
1132 and B.LANGUAGE = T.SOURCE_LANG
1133 /* moac yk3 and NVL(B.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1134 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
1135 NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1136 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) */ )
1137 where (
1138 T.VAT_TAX_ID,
1139 T.LANGUAGE
1140 ) in (select
1141 SUBT.VAT_TAX_ID,
1142 SUBT.LANGUAGE
1143 from AR_VAT_TAX_ALL_TL SUBB, AR_VAT_TAX_ALL_TL SUBT
1144 where SUBB.VAT_TAX_ID = SUBT.VAT_TAX_ID
1145 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1146 /* moac yk4 and NVL(SUBB.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1147 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
1148 NVL(SUBT.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1149 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) */
1150 and (SUBB.PRINTED_TAX_NAME <> SUBT.PRINTED_TAX_NAME
1151 or (SUBB.PRINTED_TAX_NAME is null and SUBT.PRINTED_TAX_NAME is not null)
1152 or (SUBB.PRINTED_TAX_NAME is not null and SUBT.PRINTED_TAX_NAME is null)
1153 ));
1154
1155 insert into AR_VAT_TAX_ALL_TL (
1156 ORG_ID,
1157 VAT_TAX_ID,
1158 PRINTED_TAX_NAME,
1159 LAST_UPDATE_DATE,
1160 CREATION_DATE,
1161 CREATED_BY,
1162 LAST_UPDATED_BY,
1163 LAST_UPDATE_LOGIN,
1164 LANGUAGE,
1165 SOURCE_LANG
1166 ) select
1167 B.ORG_ID,
1168 B.VAT_TAX_ID,
1169 B.PRINTED_TAX_NAME,
1170 B.LAST_UPDATE_DATE,
1171 B.CREATION_DATE,
1172 B.CREATED_BY,
1173 B.LAST_UPDATED_BY,
1174 B.LAST_UPDATE_LOGIN,
1175 L.LANGUAGE_CODE,
1176 B.SOURCE_LANG
1177 from AR_VAT_TAX_ALL_TL B, FND_LANGUAGES L
1178 where L.INSTALLED_FLAG in ('I', 'B')
1179 and B.LANGUAGE = userenv('LANG')
1180 and not exists
1181 (select NULL
1182 from AR_VAT_TAX_ALL_TL T
1183 where T.VAT_TAX_ID = B.VAT_TAX_ID
1184 and T.LANGUAGE = L.LANGUAGE_CODE
1185 /* moac yk5 and NVL(T.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1186 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
1187 NVL(B.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
1188 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99))*/ );
1189 end ADD_LANGUAGE;
1190
1191
1192 procedure LOAD_ROW (
1193 X_ORG_ID in NUMBER,
1194 X_VAT_TAX_ID in NUMBER,
1195 X_TAX_CONSTRAINT_ID in NUMBER,
1196 X_TAX_CLASS in VARCHAR2,
1197 X_DISPLAYED_FLAG in VARCHAR2,
1198 X_ENABLED_FLAG in VARCHAR2,
1199 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
1200 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
1201 X_AMOUNT_INCLUDES_TAX_FLAG in VARCHAR2,
1202 X_AMOUNT_INCLUDES_TAX_OVERRIDE in VARCHAR2,
1203 X_TAXABLE_BASIS in VARCHAR2,
1204 X_TAX_CALCULATION_PLSQL_BLOCK in VARCHAR2,
1205 X_INTERIM_TAX_CCID in NUMBER,
1206 X_ADJ_CCID in NUMBER,
1207 X_EDISC_CCID in NUMBER,
1208 X_UNEDISC_CCID in NUMBER,
1209 X_FINCHRG_CCID in NUMBER,
1210 X_ADJ_NON_REC_TAX_CCID in NUMBER,
1211 X_EDISC_NON_REC_TAX_CCID in NUMBER,
1212 X_UNEDISC_NON_REC_TAX_CCID in NUMBER,
1213 X_FINCHRG_NON_REC_TAX_CCID in NUMBER,
1214 X_SET_OF_BOOKS_ID in NUMBER,
1215 X_TAX_CODE in VARCHAR2,
1216 X_TAX_RATE in NUMBER,
1217 X_TAX_TYPE in VARCHAR2,
1218 X_VALIDATE_FLAG in VARCHAR2,
1219 X_TAX_ACCOUNT_ID in NUMBER,
1220 X_START_DATE in DATE,
1221 X_END_DATE in DATE,
1222 X_ATTRIBUTE_CATEGORY in VARCHAR2,
1223 X_ATTRIBUTE1 in VARCHAR2,
1224 X_ATTRIBUTE2 in VARCHAR2,
1225 X_ATTRIBUTE3 in VARCHAR2,
1226 X_ATTRIBUTE4 in VARCHAR2,
1227 X_ATTRIBUTE5 in VARCHAR2,
1228 X_ATTRIBUTE6 in VARCHAR2,
1229 X_ATTRIBUTE7 in VARCHAR2,
1230 X_ATTRIBUTE8 in VARCHAR2,
1231 X_ATTRIBUTE9 in VARCHAR2,
1232 X_ATTRIBUTE10 in VARCHAR2,
1233 X_ATTRIBUTE11 in VARCHAR2,
1234 X_ATTRIBUTE12 in VARCHAR2,
1235 X_ATTRIBUTE13 in VARCHAR2,
1236 X_ATTRIBUTE14 in VARCHAR2,
1237 X_ATTRIBUTE15 in VARCHAR2,
1238 X_UNAPPROVED_EXEMPTION_FLAG in VARCHAR2,
1239 X_DESCRIPTION in VARCHAR2,
1240 X_VAT_TRANSACTION_TYPE in VARCHAR2,
1241 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
1242 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
1243 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
1244 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
1245 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
1246 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
1247 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
1248 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
1249 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
1250 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
1251 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
1252 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
1253 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
1254 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
1255 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
1256 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
1257 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
1258 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
1262 X_OWNER in VARCHAR2,
1259 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
1260 X_PRINTED_TAX_NAME in VARCHAR2,
1261 X_ADJUSTMENT_TAX_CODE in VARCHAR2,
1263 X_LEASING_FLAG in VARCHAR2 DEFAULT 'N',
1264 X_TAX_REGIME_CODE in VARCHAR2 DEFAULT NULL,
1265 X_TAX in VARCHAR2 DEFAULT NULL,
1266 X_TAX_STATUS_CODE in VARCHAR2 DEFAULT NULL
1267 ) IS
1268 begin
1269 declare
1270 user_id number := 0;
1271 row_id varchar2(64);
1272
1273 begin
1274
1275 if (X_OWNER = 'SEED') then
1276 user_id := -1;
1277 end if;
1278
1279 begin
1280 AR_VAT_TAX_PKG.UPDATE_ROW (
1281 X_ORG_ID => X_ORG_ID,
1282 X_VAT_TAX_ID => X_VAT_TAX_ID,
1283 X_TAX_CONSTRAINT_ID => X_TAX_CONSTRAINT_ID,
1284 X_TAX_CLASS => X_TAX_CLASS,
1285 X_DISPLAYED_FLAG => X_DISPLAYED_FLAG,
1286 X_ENABLED_FLAG => X_ENABLED_FLAG ,
1287 X_GLOBAL_ATTRIBUTE20 => X_GLOBAL_ATTRIBUTE20,
1288 X_GLOBAL_ATTRIBUTE_CATEGORY => X_GLOBAL_ATTRIBUTE_CATEGORY,
1289 X_AMOUNT_INCLUDES_TAX_FLAG => X_AMOUNT_INCLUDES_TAX_FLAG,
1290 X_AMOUNT_INCLUDES_TAX_OVERRIDE => X_AMOUNT_INCLUDES_TAX_OVERRIDE ,
1291 X_TAXABLE_BASIS => X_TAXABLE_BASIS,
1292 X_TAX_CALCULATION_PLSQL_BLOCK => X_TAX_CALCULATION_PLSQL_BLOCK,
1293 X_INTERIM_TAX_CCID => X_INTERIM_TAX_CCID,
1294 X_ADJ_CCID => X_ADJ_CCID,
1295 X_EDISC_CCID => X_EDISC_CCID,
1296 X_UNEDISC_CCID => X_UNEDISC_CCID,
1297 X_FINCHRG_CCID => X_FINCHRG_CCID,
1298 X_ADJ_NON_REC_TAX_CCID => X_ADJ_NON_REC_TAX_CCID,
1299 X_EDISC_NON_REC_TAX_CCID => X_EDISC_NON_REC_TAX_CCID,
1300 X_UNEDISC_NON_REC_TAX_CCID => X_UNEDISC_NON_REC_TAX_CCID,
1301 X_FINCHRG_NON_REC_TAX_CCID => X_FINCHRG_NON_REC_TAX_CCID,
1302 X_SET_OF_BOOKS_ID => X_SET_OF_BOOKS_ID,
1303 X_TAX_CODE => X_TAX_CODE,
1304 X_TAX_RATE => X_TAX_RATE,
1305 X_TAX_TYPE => X_TAX_TYPE,
1306 X_VALIDATE_FLAG => X_VALIDATE_FLAG,
1307 X_TAX_ACCOUNT_ID => X_TAX_ACCOUNT_ID,
1308 X_START_DATE => X_START_DATE,
1309 X_END_DATE => X_END_DATE,
1310 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
1311 X_ATTRIBUTE1 => X_ATTRIBUTE1,
1312 X_ATTRIBUTE2 => X_ATTRIBUTE2,
1313 X_ATTRIBUTE3 => X_ATTRIBUTE3,
1314 X_ATTRIBUTE4 => X_ATTRIBUTE4,
1315 X_ATTRIBUTE5 => X_ATTRIBUTE5,
1316 X_ATTRIBUTE6 => X_ATTRIBUTE6,
1317 X_ATTRIBUTE7 => X_ATTRIBUTE7,
1318 X_ATTRIBUTE8 => X_ATTRIBUTE8,
1319 X_ATTRIBUTE9 => X_ATTRIBUTE9,
1320 X_ATTRIBUTE10 => X_ATTRIBUTE10,
1321 X_ATTRIBUTE11 => X_ATTRIBUTE11,
1322 X_ATTRIBUTE12 => X_ATTRIBUTE12,
1323 X_ATTRIBUTE13 => X_ATTRIBUTE13,
1324 X_ATTRIBUTE14 => X_ATTRIBUTE14,
1325 X_ATTRIBUTE15 => X_ATTRIBUTE15,
1326 X_UNAPPROVED_EXEMPTION_FLAG => X_UNAPPROVED_EXEMPTION_FLAG,
1327 X_DESCRIPTION => X_DESCRIPTION,
1328 X_VAT_TRANSACTION_TYPE => X_VAT_TRANSACTION_TYPE,
1329 X_GLOBAL_ATTRIBUTE1 => X_GLOBAL_ATTRIBUTE1,
1330 X_GLOBAL_ATTRIBUTE2 => X_GLOBAL_ATTRIBUTE2,
1331 X_GLOBAL_ATTRIBUTE3 => X_GLOBAL_ATTRIBUTE3,
1332 X_GLOBAL_ATTRIBUTE4 => X_GLOBAL_ATTRIBUTE4,
1333 X_GLOBAL_ATTRIBUTE5 => X_GLOBAL_ATTRIBUTE5,
1334 X_GLOBAL_ATTRIBUTE6 => X_GLOBAL_ATTRIBUTE6,
1335 X_GLOBAL_ATTRIBUTE7 => X_GLOBAL_ATTRIBUTE7,
1336 X_GLOBAL_ATTRIBUTE8 => X_GLOBAL_ATTRIBUTE8,
1337 X_GLOBAL_ATTRIBUTE9 => X_GLOBAL_ATTRIBUTE9,
1338 X_GLOBAL_ATTRIBUTE10 => X_GLOBAL_ATTRIBUTE10,
1339 X_GLOBAL_ATTRIBUTE11 => X_GLOBAL_ATTRIBUTE11,
1340 X_GLOBAL_ATTRIBUTE12 => X_GLOBAL_ATTRIBUTE12,
1341 X_GLOBAL_ATTRIBUTE13 => X_GLOBAL_ATTRIBUTE13,
1342 X_GLOBAL_ATTRIBUTE14 => X_GLOBAL_ATTRIBUTE14,
1343 X_GLOBAL_ATTRIBUTE15 => X_GLOBAL_ATTRIBUTE15,
1344 X_GLOBAL_ATTRIBUTE16 => X_GLOBAL_ATTRIBUTE16,
1345 X_GLOBAL_ATTRIBUTE17 => X_GLOBAL_ATTRIBUTE17,
1346 X_GLOBAL_ATTRIBUTE18 => X_GLOBAL_ATTRIBUTE18,
1347 X_GLOBAL_ATTRIBUTE19 => X_GLOBAL_ATTRIBUTE19,
1348 X_PRINTED_TAX_NAME => X_PRINTED_TAX_NAME,
1349 X_ADJUSTMENT_TAX_CODE => X_ADJUSTMENT_TAX_CODE,
1350 X_LAST_UPDATE_DATE => sysdate,
1351 X_LAST_UPDATED_BY => user_id,
1352 X_LAST_UPDATE_LOGIN => 0,
1353 X_LEASING_FLAG => X_LEASING_FLAG,
1354 X_TAX_REGIME_CODE => X_TAX_REGIME_CODE,
1355 X_TAX => X_TAX,
1356 X_TAX_STATUS_CODE => X_TAX_STATUS_CODE
1357 );
1358
1359 exception
1360 when NO_DATA_FOUND then
1361 AR_VAT_TAX_PKG.INSERT_ROW (
1362 X_ROWID => row_id,
1363 X_ORG_ID => X_ORG_ID,
1364 X_VAT_TAX_ID => X_VAT_TAX_ID,
1365 X_TAX_CONSTRAINT_ID => X_TAX_CONSTRAINT_ID,
1366 X_TAX_CLASS => X_TAX_CLASS,
1367 X_DISPLAYED_FLAG => X_DISPLAYED_FLAG,
1368 X_ENABLED_FLAG => X_ENABLED_FLAG,
1369 X_GLOBAL_ATTRIBUTE20 => X_GLOBAL_ATTRIBUTE20,
1370 X_GLOBAL_ATTRIBUTE_CATEGORY => X_GLOBAL_ATTRIBUTE_CATEGORY,
1371 X_AMOUNT_INCLUDES_TAX_FLAG => X_AMOUNT_INCLUDES_TAX_FLAG,
1372 X_AMOUNT_INCLUDES_TAX_OVERRIDE => X_AMOUNT_INCLUDES_TAX_OVERRIDE,
1373 X_TAXABLE_BASIS => X_TAXABLE_BASIS,
1374 X_TAX_CALCULATION_PLSQL_BLOCK => X_TAX_CALCULATION_PLSQL_BLOCK,
1375 X_INTERIM_TAX_CCID => X_INTERIM_TAX_CCID,
1376 X_ADJ_CCID => X_ADJ_CCID,
1377 X_EDISC_CCID => X_EDISC_CCID ,
1378 X_UNEDISC_CCID => X_UNEDISC_CCID,
1379 X_FINCHRG_CCID => X_FINCHRG_CCID,
1380 X_ADJ_NON_REC_TAX_CCID => X_ADJ_NON_REC_TAX_CCID,
1381 X_EDISC_NON_REC_TAX_CCID => X_EDISC_NON_REC_TAX_CCID,
1382 X_UNEDISC_NON_REC_TAX_CCID => X_UNEDISC_NON_REC_TAX_CCID,
1383 X_FINCHRG_NON_REC_TAX_CCID => X_FINCHRG_NON_REC_TAX_CCID,
1384 X_SET_OF_BOOKS_ID => X_SET_OF_BOOKS_ID,
1385 X_TAX_CODE => X_TAX_CODE,
1386 X_TAX_RATE => X_TAX_RATE,
1387 X_TAX_TYPE => X_TAX_TYPE,
1388 X_VALIDATE_FLAG => X_VALIDATE_FLAG,
1389 X_TAX_ACCOUNT_ID => X_TAX_ACCOUNT_ID,
1390 X_START_DATE => X_START_DATE,
1391 X_END_DATE => X_END_DATE,
1392 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
1393 X_ATTRIBUTE1 => X_ATTRIBUTE1,
1394 X_ATTRIBUTE2 => X_ATTRIBUTE2,
1395 X_ATTRIBUTE3 => X_ATTRIBUTE3,
1396 X_ATTRIBUTE4 => X_ATTRIBUTE4,
1397 X_ATTRIBUTE5 => X_ATTRIBUTE5,
1398 X_ATTRIBUTE6 => X_ATTRIBUTE6,
1399 X_ATTRIBUTE7 => X_ATTRIBUTE7,
1400 X_ATTRIBUTE8 => X_ATTRIBUTE8,
1401 X_ATTRIBUTE9 => X_ATTRIBUTE9,
1402 X_ATTRIBUTE10 => X_ATTRIBUTE10,
1403 X_ATTRIBUTE11 => X_ATTRIBUTE11,
1404 X_ATTRIBUTE12 => X_ATTRIBUTE12,
1405 X_ATTRIBUTE13 => X_ATTRIBUTE13,
1406 X_ATTRIBUTE14 => X_ATTRIBUTE14,
1407 X_ATTRIBUTE15 => X_ATTRIBUTE15,
1408 X_UNAPPROVED_EXEMPTION_FLAG => X_UNAPPROVED_EXEMPTION_FLAG,
1409 X_DESCRIPTION => X_DESCRIPTION,
1410 X_VAT_TRANSACTION_TYPE => X_VAT_TRANSACTION_TYPE,
1411 X_GLOBAL_ATTRIBUTE1 => X_GLOBAL_ATTRIBUTE1,
1412 X_GLOBAL_ATTRIBUTE2 => X_GLOBAL_ATTRIBUTE2,
1413 X_GLOBAL_ATTRIBUTE3 => X_GLOBAL_ATTRIBUTE3,
1414 X_GLOBAL_ATTRIBUTE4 => X_GLOBAL_ATTRIBUTE4,
1415 X_GLOBAL_ATTRIBUTE5 => X_GLOBAL_ATTRIBUTE5,
1416 X_GLOBAL_ATTRIBUTE6 => X_GLOBAL_ATTRIBUTE6,
1417 X_GLOBAL_ATTRIBUTE7 => X_GLOBAL_ATTRIBUTE7,
1418 X_GLOBAL_ATTRIBUTE8 => X_GLOBAL_ATTRIBUTE8,
1419 X_GLOBAL_ATTRIBUTE9 => X_GLOBAL_ATTRIBUTE9,
1420 X_GLOBAL_ATTRIBUTE10 => X_GLOBAL_ATTRIBUTE10,
1421 X_GLOBAL_ATTRIBUTE11 => X_GLOBAL_ATTRIBUTE11,
1422 X_GLOBAL_ATTRIBUTE12 => X_GLOBAL_ATTRIBUTE12,
1423 X_GLOBAL_ATTRIBUTE13 => X_GLOBAL_ATTRIBUTE13,
1424 X_GLOBAL_ATTRIBUTE14 => X_GLOBAL_ATTRIBUTE14,
1425 X_GLOBAL_ATTRIBUTE15 => X_GLOBAL_ATTRIBUTE15,
1426 X_GLOBAL_ATTRIBUTE16 => X_GLOBAL_ATTRIBUTE16,
1427 X_GLOBAL_ATTRIBUTE17 => X_GLOBAL_ATTRIBUTE17,
1428 X_GLOBAL_ATTRIBUTE18 => X_GLOBAL_ATTRIBUTE18,
1429 X_GLOBAL_ATTRIBUTE19 => X_GLOBAL_ATTRIBUTE19,
1430 X_PRINTED_TAX_NAME => X_PRINTED_TAX_NAME,
1431 X_ADJUSTMENT_TAX_CODE => X_ADJUSTMENT_TAX_CODE,
1432 X_CREATION_DATE => sysdate,
1433 X_CREATED_BY => user_id,
1434 X_LAST_UPDATE_DATE => sysdate,
1435 X_LAST_UPDATED_BY => user_id,
1436 X_LAST_UPDATE_LOGIN => 0,
1437 X_LEASING_FLAG => X_LEASING_FLAG,
1438 X_TAX_REGIME_CODE => X_TAX_REGIME_CODE,
1439 X_TAX => X_TAX,
1440 X_TAX_STATUS_CODE => X_TAX_STATUS_CODE);
1441 end;
1442 end;
1443 end LOAD_ROW;
1444
1445 procedure TRANSLATE_ROW (
1446 X_VAT_TAX_ID in NUMBER,
1447 X_PRINTED_TAX_NAME in VARCHAR2,
1448 X_OWNER in VARCHAR2) IS
1449 begin
1450
1451 -- note org_id is not used here because in NLS mode it is important
1452 -- update a line id across all orgs because data will be translated
1453 -- only once for a single org
1454
1455 update AR_VAT_TAX_ALL_TL
1456 set PRINTED_TAX_NAME = X_PRINTED_TAX_NAME,
1457 source_lang = userenv('LANG'),
1458 last_update_date = sysdate,
1459 last_updated_by = decode(X_OWNER, 'SEED', -1, 0),
1460 last_update_login = 0
1461 where vat_tax_id = X_VAT_TAX_ID
1462 and userenv('LANG') in (language, source_lang);
1463
1464 end TRANSLATE_ROW;
1465
1466 end AR_VAT_TAX_PKG;