[Home] [Help]
PACKAGE BODY: APPS.ARP_TRX_VALIDATE2
Source
1 PACKAGE BODY ARP_TRX_VALIDATE2 AS
2 /* $Header: ARTUVA4B.pls 115.4 2003/10/10 14:29:48 mraymond ship $ */
3 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
4
5
6 /*===========================================================================+
7 | PROCEDURE |
8 | validate_trx_tax_date() |
9 | DESCRIPTION |
10 | Validates that all entities that have date ranges are still valid after|
11 | the transaction date changes. |
12 | |
13 | SCOPE - PUBLIC |
14 | |
15 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
16 | arp_util.debug |
17 | |
18 | ARGUMENTS : IN: |
19 | p_trx_date |
20 | p_customer_trx_id |
21 | p_affect_tax_flag |
22 | OUT: |
23 | p_result_flag |
24 | |
25 | IN / OUT: |
26 | RETURNS : NONE |
27 | |
28 | NOTES |
29 | |
30 | MODIFICATION HISTORY |
31 | |
32 +===========================================================================*/
33
34
35 PROCEDURE validate_trx_tax_date( p_trx_date IN DATE,
36 p_customer_trx_id IN NUMBER,
37 p_result_flag OUT NOCOPY boolean
38 ) IS
39
40 l_temp varchar2(128);
41
42 BEGIN
43
44 arp_util.debug('ARP_TRX_VALIDATE.validate_trx_tax_date()+');
45
46 p_result_flag := TRUE;
47
48
49 /*---------------------+
50 | Validate tax code |
51 +---------------------*/
52
53 arp_util.debug('Validate trx lines tax code');
54
55 BEGIN
56
57 SELECT 'Invalid tax Code'
58 INTO l_temp
59 From Dual
60 Where exists
61 ( Select line.vat_tax_id
62 FROM ra_customer_trx_lines line,
63 ar_vat_tax tax
64 WHERE line.customer_trx_id = p_customer_trx_id
65 AND line.line_type = 'LINE'
66 AND line.vat_tax_id = tax.vat_tax_id
67 AND p_trx_date NOT BETWEEN tax.start_date
68 AND NVL(tax.end_date,
69 p_trx_date));
70
71
72 EXCEPTION
73 WHEN NO_DATA_FOUND THEN
74 p_result_flag := FALSE;
75
76 END;
77
78
79 arp_util.debug('ARP_TRX_VALIDATE.validate_trx_tax_code()-');
80
81
82 EXCEPTION
86
83 WHEN OTHERS THEN
84 arp_util.debug('EXCEPTION: ARP_TRX_VALIDATE.validate_trx_date()');
85 RAISE;
87 END;
88
89 PROCEDURE tax_flag(p_tax_flag IN varchar2) IS
90
91 BEGIN
92
93 pg_tax_flag := p_tax_flag;
94 IF PG_DEBUG in ('Y', 'C') THEN
95 arp_util.debug('Value is '|| p_tax_flag);
96 END IF;
97
98 END tax_flag;
99
100 end arp_TRX_VALIDATE2;