[Home] [Help]
PACKAGE BODY: APPS.AR_TRX_BULK_PROCESS_DIST
Source
1 PACKAGE BODY AR_TRX_BULK_PROCESS_DIST AS
2 /* $Header: ARINBLDB.pls 120.6 2006/07/10 21:13:18 apandit noship $ */
3
4 pg_debug VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'),'N');
5
6 PROCEDURE val_tax_from_revenue (
7 x_errmsg OUT NOCOPY VARCHAR2,
8 x_return_status OUT NOCOPY VARCHAR2 ) IS
9
10 BEGIN
11
12 IF pg_debug = 'Y'
13 THEN
14 ar_invoice_utils.debug ('val_tax_from_revenue (+)');
15 END IF;
16
17 x_return_status := FND_API.G_RET_STS_SUCCESS;
18
19 IF pg_debug = 'Y'
20 THEN
21 ar_invoice_utils.debug ('val_tax_from_revenue (-)');
22 END IF;
23
24 END val_tax_from_revenue;
25
26 PROCEDURE INSERT_ROW (
27 p_trx_dist_id IN NUMBER,
28 x_errmsg OUT NOCOPY VARCHAR2,
29 x_return_status OUT NOCOPY VARCHAR2 ) IS
30
31 BEGIN
32 IF pg_debug = 'Y'
33 THEN
34 ar_invoice_utils.debug ('INSERT_ROW (+)');
35 END IF;
36
37 x_return_status := FND_API.G_RET_STS_SUCCESS;
38
39 INSERT INTO ra_cust_trx_line_gl_dist (
40 CUST_TRX_LINE_GL_DIST_ID ,
41 customer_trx_line_id ,
42 ACCOUNT_CLASS ,
43 AMOUNT ,
44 acctd_amount ,
45 PERCENT ,
46 REQUEST_ID ,
47 CODE_COMBINATION_ID ,
48 CREATED_BY ,
49 CREATION_DATE ,
50 LAST_UPDATED_BY ,
51 LAST_UPDATE_DATE ,
52 LAST_UPDATE_LOGIN ,
53 set_of_books_id ,
54 gl_date ,
55 gl_posted_date ,
56 customer_trx_id ,
57 CUST_TRX_LINE_SALESREP_ID ,
58 account_set_flag ,
59 ATTRIBUTE_CATEGORY ,
60 ATTRIBUTE1 ,
61 ATTRIBUTE2 ,
62 ATTRIBUTE3 ,
63 ATTRIBUTE4 ,
64 ATTRIBUTE5 ,
65 ATTRIBUTE6 ,
66 ATTRIBUTE7 ,
67 ATTRIBUTE8 ,
68 ATTRIBUTE9 ,
69 ATTRIBUTE10 ,
70 ATTRIBUTE11 ,
71 ATTRIBUTE12 ,
72 ATTRIBUTE13 ,
73 ATTRIBUTE14 ,
74 ATTRIBUTE15 ,
75 COMMENTS ,
76 org_id ,
77 ussgl_transaction_code )
78 SELECT RA_CUST_TRX_LINE_GL_DIST_S.NEXTVAL,
79 d.customer_trx_line_id ,
80 d.ACCOUNT_CLASS ,
81 d.AMOUNT ,
82 d.acctd_amount,
83 d.PERCENT ,
84 d.REQUEST_ID ,
85 d.CODE_COMBINATION_ID ,
86 d.CREATED_BY ,
87 d.CREATION_DATE ,
88 d.LAST_UPDATED_BY ,
89 d.LAST_UPDATE_DATE ,
90 d.LAST_UPDATE_LOGIN ,
91 d.set_of_books_id ,
92 trunc(d.gl_date) ,
93 d.gl_posted_date ,
94 d.customer_trx_id ,
95 d.CUST_TRX_LINE_SALESREP_ID ,
96 d.account_set_flag ,
97 d.ATTRIBUTE_CATEGORY ,
98 d.ATTRIBUTE1 ,
99 d.ATTRIBUTE2 ,
100 d.ATTRIBUTE3 ,
101 d.ATTRIBUTE4 ,
102 d.ATTRIBUTE5 ,
103 d.ATTRIBUTE6 ,
104 d.ATTRIBUTE7 ,
105 d.ATTRIBUTE8 ,
106 d.ATTRIBUTE9 ,
107 d.ATTRIBUTE10 ,
108 d.ATTRIBUTE11 ,
109 d.ATTRIBUTE12 ,
110 d.ATTRIBUTE13 ,
111 d.ATTRIBUTE14 ,
112 d.ATTRIBUTE15 ,
113 d.COMMENTS,
114 arp_standard.sysparm.org_id,
115 decode(nvl(d.trx_line_id,-999), -999, h.default_ussgl_transaction_code,
116 decode(l.default_ussgl_transaction_code, null,
117 h.default_ussgl_transaction_code,
118 l.default_ussgl_transaction_code )
119 )
120 FROM ar_trx_dist_gt d,
121 ar_trx_header_gt h,
122 ar_trx_lines_gt l
123 WHERE d.trx_line_id = l.trx_line_id(+)
124 and d.trx_header_id = h.trx_header_id
125 AND d.trx_header_ID NOT IN ( SELECT trx_header_id from
126 ar_trx_errors_gt )
127 AND d.trx_dist_id = nvl(p_trx_dist_id, trx_dist_id)
128 AND d.process_flag = 'N';
129
130 UPDATE ar_trx_dist_gt
131 SET process_flag = 'Y'
132 WHERE trx_dist_id = nvl(p_trx_dist_id, trx_dist_id)
133 AND process_flag = 'N'
134 AND trx_header_ID NOT IN
135 ( SELECT trx_header_id
136 FROM ar_trx_errors_gt );
137
138 IF pg_debug = 'Y' THEN
139 ar_invoice_utils.debug('Rows Updated: ' || SQL%ROWCOUNT);
140 END IF;
141
142 /*----------------------------------------------------+
143 | Validate tax from revenue account. |
144 +----------------------------------------------------*/
145 val_tax_from_revenue (
146 x_errmsg => x_errmsg,
147 x_return_status => x_return_status );
148 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
149 THEN
150 return;
151 END IF;
152 IF pg_debug = 'Y'
153 THEN
154 ar_invoice_utils.debug ('INSERT_ROW (-)');
155 END IF;
156
157 EXCEPTION
158 WHEN OTHERS THEN
159 x_errmsg := 'Error in AR_TRX_BULK_PROCESS_DIST.INSER_ROW '||sqlerrm;
160 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161 return;
162 END INSERT_ROW;
163
164 END AR_TRX_BULK_PROCESS_DIST;