[Home] [Help]
PACKAGE BODY: APPS.ARP_DELETE_DIST_COVER
Source
1 PACKAGE BODY ARP_DELETE_DIST_COVER AS
2 /* $Header: ARTLGDDB.pls 115.4 2003/10/10 14:29:21 mraymond ship $ */
3
4 pg_msg_level_debug binary_integer;
5
6 /*===========================================================================+
7 | PROCEDURE |
8 | delete_dist_cover |
12 | delete a dist line. |
9 | |
10 | DESCRIPTION |
11 | Converts column parameters to a dist record and |
13 | |
14 | SCOPE - PUBLIC |
15 | |
16 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
17 | arp_util.debug |
18 | |
19 | ARGUMENTS : IN: |
20 | p_form_name |
21 | p_form_version |
22 | p_cust_trx_line_gl_dist_id |
23 | p_customer_trx_id |
24 | p_customer_trx_line_id |
25 | p_cust_trx_line_salesrep_id |
26 | p_account_class |
27 | p_percent |
28 | p_amount |
29 | p_acctd_amount |
30 | p_gl_date |
31 | p_original_gl_date |
32 | p_gl_posted_date |
33 | p_code_combination_id |
34 | p_concatenated_segments |
35 | p_collected_tax_ccid |
36 | p_collected_tax_concat_seg |
37 | p_comments |
38 | p_account_set_flag |
39 | p_latest_rec_flag |
40 | p_ussgl_transaction_code |
41 | p_ussgl_trx_code_context |
42 | p_attribute_category |
43 | p_attribute1 |
44 | p_attribute2 |
45 | p_attribute3 |
46 | p_attribute4 |
47 | p_attribute5 |
48 | p_attribute6 |
49 | p_attribute7 |
50 | p_attribute8 |
51 | p_attribute9 |
52 | p_attribute10 |
53 | p_attribute11 |
54 | p_attribute12 |
55 | p_attribute13 |
56 | p_attribute14 |
57 | p_attribute15 |
58 | p_posting_control_id |
59 | OUT: |
60 | None |
61 | IN/ OUT: |
62 | None |
63 | |
64 | RETURNS : NONE |
65 | |
66 | NOTES |
67 | |
68 | MODIFICATION HISTORY |
69 | 12-OCT-95 Martin Johnson Created |
70 | 05-JAN-99 Tasman Tang Added new parameters collected_tax_ccid|
71 | and collected_tax_concat_seg for |
72 | deferred tax |
73 | |
74 +===========================================================================*/
75
76 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
77
78 PROCEDURE delete_dist_cover(
79 p_form_name IN varchar2,
80 p_form_version IN number,
81 p_cust_trx_line_gl_dist_id IN
82 ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
83 p_customer_trx_id IN
84 ra_cust_trx_line_gl_dist.customer_trx_id%type,
85 p_customer_trx_line_id IN
86 ra_cust_trx_line_gl_dist.customer_trx_line_id %type,
87 p_cust_trx_line_salesrep_id IN
88 ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
89 p_account_class IN
90 ra_cust_trx_line_gl_dist.account_class%type,
91 p_percent IN
92 ra_cust_trx_line_gl_dist.percent%type,
93 p_amount IN
97 p_original_gl_date IN
94 ra_cust_trx_line_gl_dist.amount%type,
95 p_gl_date IN
96 ra_cust_trx_line_gl_dist.gl_date%type,
98 ra_cust_trx_line_gl_dist.original_gl_date%type,
99 p_gl_posted_date IN
100 ra_cust_trx_line_gl_dist.gl_posted_date%type,
101 p_code_combination_id IN
102 ra_cust_trx_line_gl_dist.code_combination_id%type,
103 p_concatenated_segments IN
104 ra_cust_trx_line_gl_dist.concatenated_segments%type,
105 p_collected_tax_ccid IN
106 ra_cust_trx_line_gl_dist.collected_tax_ccid%type,
107 p_collected_tax_concat_seg IN
108 ra_cust_trx_line_gl_dist.collected_tax_concat_seg%type,
109 p_comments IN
110 ra_cust_trx_line_gl_dist.comments%type,
111 p_account_set_flag IN
112 ra_cust_trx_line_gl_dist.account_set_flag%type,
113 p_latest_rec_flag IN
114 ra_cust_trx_line_gl_dist.latest_rec_flag%type,
115 p_ussgl_transaction_code IN
116 ra_cust_trx_line_gl_dist.ussgl_transaction_code%type,
117 p_ussgl_trx_code_context IN
118 ra_cust_trx_line_gl_dist.ussgl_transaction_code_context%type,
119 p_attribute_category IN
120 ra_cust_trx_line_gl_dist.attribute_category%type,
121 p_attribute1 IN
122 ra_cust_trx_line_gl_dist.attribute1%type,
123 p_attribute2 IN
124 ra_cust_trx_line_gl_dist.attribute2%type,
125 p_attribute3 IN
126 ra_cust_trx_line_gl_dist.attribute3%type,
127 p_attribute4 IN
128 ra_cust_trx_line_gl_dist.attribute4%type,
129 p_attribute5 IN
130 ra_cust_trx_line_gl_dist.attribute5%type,
131 p_attribute6 IN
132 ra_cust_trx_line_gl_dist.attribute6%type,
133 p_attribute7 IN
134 ra_cust_trx_line_gl_dist.attribute7%type,
135 p_attribute8 IN
136 ra_cust_trx_line_gl_dist.attribute8%type,
137 p_attribute9 IN
138 ra_cust_trx_line_gl_dist.attribute9%type,
139 p_attribute10 IN
140 ra_cust_trx_line_gl_dist.attribute10%type,
141 p_attribute11 IN
142 ra_cust_trx_line_gl_dist.attribute11%type,
143 p_attribute12 IN
144 ra_cust_trx_line_gl_dist.attribute12%type,
145 p_attribute13 IN
146 ra_cust_trx_line_gl_dist.attribute13%type,
147 p_attribute14 IN
148 ra_cust_trx_line_gl_dist.attribute14%type,
149 p_attribute15 IN
150 ra_cust_trx_line_gl_dist.attribute15%type,
151 p_posting_control_id IN
152 ra_cust_trx_line_gl_dist.posting_control_id%type )
153 IS
154
155 l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
156
157 BEGIN
158
159 IF PG_DEBUG in ('Y', 'C') THEN
160 arp_util.debug('arp_process_dist.delete_dist_cover()+',
161 pg_msg_level_debug);
162 END IF;
163
164 /*------------------------------------------------+
165 | Populate the dist record group with |
166 | the values passed in as parameters. |
167 +------------------------------------------------*/
168
169 l_dist_rec.customer_trx_id := p_customer_trx_id;
170 l_dist_rec.customer_trx_line_id := p_customer_trx_line_id;
171 l_dist_rec.cust_trx_line_salesrep_id := p_cust_trx_line_salesrep_id;
172 l_dist_rec.account_class := p_account_class;
173 l_dist_rec.percent := p_percent;
174 l_dist_rec.amount := p_amount;
175 l_dist_rec.gl_date := p_gl_date;
176 l_dist_rec.original_gl_date := p_original_gl_date;
177 l_dist_rec.gl_posted_date := p_gl_posted_date;
178 l_dist_rec.code_combination_id := p_code_combination_id;
179 l_dist_rec.concatenated_segments := p_concatenated_segments;
180 l_dist_rec.collected_tax_ccid := p_collected_tax_ccid;
181 l_dist_rec.collected_tax_concat_seg := p_collected_tax_concat_seg;
182 l_dist_rec.comments := p_comments;
183 l_dist_rec.account_set_flag := p_account_set_flag;
184 l_dist_rec.latest_rec_flag := p_latest_rec_flag;
185 l_dist_rec.ussgl_transaction_code := p_ussgl_transaction_code;
186 l_dist_rec.ussgl_transaction_code_context := p_ussgl_trx_code_context;
187 l_dist_rec.attribute_category := p_attribute_category;
188 l_dist_rec.attribute1 := p_attribute1;
189 l_dist_rec.attribute2 := p_attribute2;
190 l_dist_rec.attribute3 := p_attribute3;
191 l_dist_rec.attribute4 := p_attribute4;
192 l_dist_rec.attribute5 := p_attribute5;
193 l_dist_rec.attribute6 := p_attribute6;
194 l_dist_rec.attribute7 := p_attribute7;
195 l_dist_rec.attribute8 := p_attribute8;
196 l_dist_rec.attribute9 := p_attribute9;
197 l_dist_rec.attribute10 := p_attribute10;
198 l_dist_rec.attribute11 := p_attribute11;
202 l_dist_rec.attribute15 := p_attribute15;
199 l_dist_rec.attribute12 := p_attribute12;
200 l_dist_rec.attribute13 := p_attribute13;
201 l_dist_rec.attribute14 := p_attribute14;
203 l_dist_rec.posting_control_id := p_posting_control_id;
204
205 /*----------------------------------------+
206 | Call the standard dist entity handler |
207 +----------------------------------------*/
208
209 arp_process_dist.delete_dist(
210 p_form_name,
211 p_form_version,
212 p_cust_trx_line_gl_dist_id,
213 p_customer_trx_id,
214 l_dist_rec );
215
216 IF PG_DEBUG in ('Y', 'C') THEN
217 arp_util.debug('arp_process_dist.delete_dist_cover()-',
218 pg_msg_level_debug);
219 END IF;
220
221 EXCEPTION
222 WHEN OTHERS THEN
223
224 IF PG_DEBUG in ('Y', 'C') THEN
225 arp_util.debug('EXCEPTION: arp_process_dist.delete_dist_cover()',
226 pg_msg_level_debug);
227 arp_util.debug('------- parameters for delete_dist_cover() ' ||
228 '---------',
229 pg_msg_level_debug);
230 arp_util.debug('delete_dist_cover: ' || 'p_form_name = ' || p_form_name,
231 pg_msg_level_debug);
232 arp_util.debug('delete_dist_cover: ' || 'p_form_version = ' || p_form_version,
233 pg_msg_level_debug);
234 arp_util.debug('delete_dist_cover: ' || 'p_cust_trx_line_gl_dist_id = ' ||
235 p_cust_trx_line_gl_dist_id,
236 pg_msg_level_debug);
237 arp_util.debug('delete_dist_cover: ' || 'p_customer_trx_id = ' || p_customer_trx_id,
238 pg_msg_level_debug);
239 arp_util.debug('delete_dist_cover: ' || 'p_customer_trx_line_id = ' || p_customer_trx_line_id,
240 pg_msg_level_debug);
241 arp_util.debug('delete_dist_cover: ' || 'p_cust_trx_line_salesrep_id = ' ||
242 p_cust_trx_line_salesrep_id,
243 pg_msg_level_debug);
244 arp_util.debug('delete_dist_cover: ' || 'p_account_class = ' || p_account_class,
245 pg_msg_level_debug);
246 arp_util.debug('delete_dist_cover: ' || 'p_percent = ' || p_percent,
247 pg_msg_level_debug);
248 arp_util.debug('delete_dist_cover: ' || 'p_amount = ' || p_amount,
249 pg_msg_level_debug);
250 arp_util.debug('delete_dist_cover: ' || 'p_gl_date = ' || p_gl_date,
251 pg_msg_level_debug);
252 arp_util.debug('delete_dist_cover: ' || 'p_gl_posted_date = ' || p_gl_posted_date,
253 pg_msg_level_debug);
254 arp_util.debug('delete_dist_cover: ' || 'p_original_gl_date = ' || p_original_gl_date,
255 pg_msg_level_debug);
256 arp_util.debug('delete_dist_cover: ' || 'p_code_combination_id = ' || p_code_combination_id,
257 pg_msg_level_debug);
258 arp_util.debug('delete_dist_cover: ' || 'p_concatenated_segments = ' || p_concatenated_segments,
259 pg_msg_level_debug);
260 arp_util.debug('delete_dist_cover: ' || 'p_collected_tax_ccid = ' || p_collected_tax_ccid,
261 pg_msg_level_debug);
262 arp_util.debug('delete_dist_cover: ' || 'p_collected_tax_concat_seg = ' || p_collected_tax_concat_seg,
263 pg_msg_level_debug);
264 arp_util.debug('delete_dist_cover: ' || 'p_comments = ' || p_comments,
265 pg_msg_level_debug);
266 arp_util.debug('delete_dist_cover: ' || 'p_account_set_flag = ' || p_account_set_flag,
267 pg_msg_level_debug);
268 arp_util.debug('delete_dist_cover: ' || 'p_latest_rec_flag = ' || p_latest_rec_flag,
269 pg_msg_level_debug);
270 arp_util.debug('delete_dist_cover: ' || 'p_ussgl_transaction_code = ' ||
271 p_ussgl_transaction_code,
272 pg_msg_level_debug);
273 arp_util.debug('delete_dist_cover: ' || 'p_ussgl_trx_code_context = ' ||
274 p_ussgl_trx_code_context,
275 pg_msg_level_debug);
276 arp_util.debug('delete_dist_cover: ' || 'p_attribute_category = ' || p_attribute_category,
277 pg_msg_level_debug);
278 arp_util.debug('delete_dist_cover: ' || 'p_attribute1 = ' || p_attribute1,
279 pg_msg_level_debug);
280 arp_util.debug('delete_dist_cover: ' || 'p_attribute2 = ' || p_attribute2,
281 pg_msg_level_debug);
282 arp_util.debug('delete_dist_cover: ' || 'p_attribute3 = ' || p_attribute3,
283 pg_msg_level_debug);
284 arp_util.debug('delete_dist_cover: ' || 'p_attribute4 = ' || p_attribute4,
285 pg_msg_level_debug);
286 arp_util.debug('delete_dist_cover: ' || 'p_attribute5 = ' || p_attribute5,
287 pg_msg_level_debug);
288 arp_util.debug('delete_dist_cover: ' || 'p_attribute6 = ' || p_attribute6,
289 pg_msg_level_debug);
290 arp_util.debug('delete_dist_cover: ' || 'p_attribute7 = ' || p_attribute7,
291 pg_msg_level_debug);
292 arp_util.debug('delete_dist_cover: ' || 'p_attribute8 = ' || p_attribute8,
293 pg_msg_level_debug);
294 arp_util.debug('delete_dist_cover: ' || 'p_attribute9 = ' || p_attribute9,
295 pg_msg_level_debug);
296 arp_util.debug('delete_dist_cover: ' || 'p_attribute10 = ' || p_attribute10,
297 pg_msg_level_debug);
298 arp_util.debug('delete_dist_cover: ' || 'p_attribute11 = ' || p_attribute11,
299 pg_msg_level_debug);
300 arp_util.debug('delete_dist_cover: ' || 'p_attribute12 = ' || p_attribute12,
301 pg_msg_level_debug);
302 arp_util.debug('delete_dist_cover: ' || 'p_attribute13 = ' || p_attribute13,
303 pg_msg_level_debug);
304 arp_util.debug('delete_dist_cover: ' || 'p_attribute14 = ' || p_attribute14,
305 pg_msg_level_debug);
306 arp_util.debug('delete_dist_cover: ' || 'p_attribute15 = ' || p_attribute15,
307 pg_msg_level_debug);
308 arp_util.debug('delete_dist_cover: ' || 'p_posting_control_id = ' || p_posting_control_id,
309 pg_msg_level_debug);
310 END IF;
311
312 RAISE;
313
314 END delete_dist_cover;
315
316 /*---------------------------------------------+
317 | Package initialization section. |
318 +---------------------------------------------*/
319
320 BEGIN
321
322 pg_msg_level_debug := arp_global.MSG_LEVEL_DEBUG;
323
324 END ARP_DELETE_DIST_COVER;