[Home] [Help]
PACKAGE BODY: APPS.ARP_CTL_FREIGHT_PKG
Source
1 PACKAGE BODY ARP_CTL_FREIGHT_PKG AS
2 /* $Header: ARTCTLFB.pls 115.4 2003/10/10 14:27:40 mraymond ship $ */
3
4 /*===========================================================================+
5 | PROCEDURE |
6 | select_summary_freight |
7 | |
8 | DESCRIPTION |
9 | Selects the total freight amount for a given transaction |
10 | |
11 | SCOPE - PUBLIC |
12 | |
13 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
14 | arp_util.debug |
15 | |
16 | ARGUMENTS : IN: |
17 | p_customer_trx_id |
18 | p_amount_total |
19 | p_amount_total_rtot_db |
20 | OUT: |
21 | None |
22 | IN/ OUT: |
23 | None |
24 | |
25 | RETURNS : NONE |
26 | |
27 | |
28 | NOTES |
29 | |
30 | MODIFICATION HISTORY |
31 | 25-SEP-95 Subash Chadalavada Created |
32 | |
33 +===========================================================================*/
34 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
35
36 PROCEDURE select_summary_freight(
37 p_customer_trx_id IN number,
38 p_amount_total OUT NOCOPY number,
39 p_amount_total_rtot_db OUT NOCOPY number) IS
40 BEGIN
41
42 IF PG_DEBUG in ('Y', 'C') THEN
43 arp_util.debug('arp_ctl_pkg.select_summary_freight()+');
44 END IF;
45
46 SELECT NVL( SUM( NVL(extended_amount, 0 ) ), 0),
47 NVL( SUM( NVL(extended_amount, 0 ) ), 0)
48 INTO p_amount_total,
49 p_amount_total_rtot_db
50 FROM ra_customer_trx_lines
51 WHERE customer_trx_id = p_customer_trx_id
52 AND line_type = 'FREIGHT';
53
54 IF PG_DEBUG in ('Y', 'C') THEN
55 arp_util.debug('arp_ctl_pkg.select_summary_freight()-');
56 END IF;
57
58
59 EXCEPTION
60 WHEN OTHERS THEN
61 IF PG_DEBUG in ('Y', 'C') THEN
62 arp_util.debug('EXCEPTION: arp_ctl_pkg.select_summary_freight()');
63 END IF;
64 RAISE;
65
66 END select_summary_freight;
67
68 /*===========================================================================+
69 | PROCEDURE |
70 | lock_compare_frt_cover |
71 | |
72 | DESCRIPTION |
73 | Selects the total freight amount for a given transaction |
74 | |
75 | SCOPE - PUBLIC |
76 | |
77 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
78 | arp_util.debug |
79 | |
80 | ARGUMENTS : IN: |
81 | p_customer_trx_id |
82 | p_customer_trx_line_id |
83 | p_link_to_cust_trx_line_id |
84 | p_previous_customer_trx_id |
85 | p_previous_cust_trx_line_id |
86 | p_line_number |
87 | p_line_type |
88 | p_extended_amount |
89 | p_attribute_category |
90 | p_attribute1-15 |
91 | p_interface_line_context |
92 | p_interface_line_attribute1-15 |
93 | p_default_ussgl_code_context |
94 | p_default_ussgl_trx_code |
95 | OUT: |
96 | None |
97 | IN/ OUT: |
98 | None |
99 | |
100 | RETURNS : NONE |
101 | |
102 | |
103 | NOTES |
104 | |
105 | MODIFICATION HISTORY |
106 | 10-OCT-95 Subash Chadalavada Created |
107 | |
108 +===========================================================================*/
109 PROCEDURE lock_compare_frt_cover(
110 p_customer_trx_line_id IN
111 ra_customer_trx_lines.customer_trx_line_id%type,
112 p_customer_trx_id IN
113 ra_customer_trx_lines.customer_trx_id%type,
114 p_link_to_cust_trx_line_id IN
115 ra_customer_trx_lines.link_to_cust_trx_line_id%type,
116 p_previous_customer_trx_id IN
117 ra_customer_trx_lines.previous_customer_trx_id%type,
118 p_previous_cust_trx_line_id IN
119 ra_customer_trx_lines.previous_customer_trx_line_id%type,
120 p_line_number IN ra_customer_trx_lines.line_number%type,
121 p_line_type IN ra_customer_trx_lines.line_type%type,
122 p_extended_amount IN ra_customer_trx_lines.extended_amount%type,
123 p_attribute_category IN
124 ra_customer_trx_lines.attribute_category%type,
125 p_attribute1 IN ra_customer_trx_lines.attribute1%type,
126 p_attribute2 IN ra_customer_trx_lines.attribute2%type,
127 p_attribute3 IN ra_customer_trx_lines.attribute3%type,
128 p_attribute4 IN ra_customer_trx_lines.attribute4%type,
129 p_attribute5 IN ra_customer_trx_lines.attribute5%type,
130 p_attribute6 IN ra_customer_trx_lines.attribute6%type,
131 p_attribute7 IN ra_customer_trx_lines.attribute7%type,
132 p_attribute8 IN ra_customer_trx_lines.attribute8%type,
133 p_attribute9 IN ra_customer_trx_lines.attribute9%type,
134 p_attribute10 IN ra_customer_trx_lines.attribute10%type,
135 p_attribute11 IN ra_customer_trx_lines.attribute11%type,
136 p_attribute12 IN ra_customer_trx_lines.attribute12%type,
137 p_attribute13 IN ra_customer_trx_lines.attribute13%type,
138 p_attribute14 IN ra_customer_trx_lines.attribute14%type,
139 p_attribute15 IN ra_customer_trx_lines.attribute15%type,
140 p_interface_line_context IN
141 ra_customer_trx_lines.interface_line_context%type,
142 p_interface_line_attribute1 IN
143 ra_customer_trx_lines.interface_line_attribute1%type,
144 p_interface_line_attribute2 IN
145 ra_customer_trx_lines.interface_line_attribute2%type,
146 p_interface_line_attribute3 IN
147 ra_customer_trx_lines.interface_line_attribute3%type,
148 p_interface_line_attribute4 IN
149 ra_customer_trx_lines.interface_line_attribute4%type,
150 p_interface_line_attribute5 IN
151 ra_customer_trx_lines.interface_line_attribute5%type,
152 p_interface_line_attribute6 IN
153 ra_customer_trx_lines.interface_line_attribute6%type,
154 p_interface_line_attribute7 IN
155 ra_customer_trx_lines.interface_line_attribute7%type,
156 p_interface_line_attribute8 IN
157 ra_customer_trx_lines.interface_line_attribute8%type,
158 p_interface_line_attribute9 IN
159 ra_customer_trx_lines.interface_line_attribute9%type,
160 p_interface_line_attribute10 IN
161 ra_customer_trx_lines.interface_line_attribute10%type,
162 p_interface_line_attribute11 IN
163 ra_customer_trx_lines.interface_line_attribute11%type,
164 p_interface_line_attribute12 IN
165 ra_customer_trx_lines.interface_line_attribute12%type,
166 p_interface_line_attribute13 IN
167 ra_customer_trx_lines.interface_line_attribute13%type,
168 p_interface_line_attribute14 IN
169 ra_customer_trx_lines.interface_line_attribute14%type,
170 p_interface_line_attribute15 IN
171 ra_customer_trx_lines.interface_line_attribute15%type,
172 p_default_ussgl_code_context IN
173 ra_customer_trx_lines.default_ussgl_trx_code_context%type,
174 p_default_ussgl_trx_code IN
175 ra_customer_trx_lines.default_ussgl_transaction_code%type)
176 IS
177 l_frt_rec ra_customer_trx_lines%rowtype;
178 BEGIN
179
180 arp_util.debug('arp_ctl_pkg.lock_compare_frt_cover()+');
181
182 /*------------------------------------------------+
183 | Populate the line record with the values |
184 | passed in as parameters. |
185 +------------------------------------------------*/
186 arp_ctl_pkg.set_to_dummy(l_frt_rec);
187
188 l_frt_rec.customer_trx_id := p_customer_trx_id;
189 l_frt_rec.customer_trx_line_id := p_customer_trx_line_id;
190 l_frt_rec.line_type := p_line_type;
191 l_frt_rec.line_number := p_line_number;
192 l_frt_rec.extended_amount := p_extended_amount;
193 l_frt_rec.previous_customer_trx_id := p_previous_customer_trx_id;
194 l_frt_rec.previous_customer_trx_line_id := p_previous_cust_trx_line_id;
195 l_frt_rec.link_to_cust_trx_line_id := p_link_to_cust_trx_line_id;
196 l_frt_rec.attribute_category := p_attribute_category;
197 l_frt_rec.attribute1 := p_attribute1;
198 l_frt_rec.attribute2 := p_attribute2;
199 l_frt_rec.attribute3 := p_attribute3;
200 l_frt_rec.attribute4 := p_attribute4;
201 l_frt_rec.attribute5 := p_attribute5;
202 l_frt_rec.attribute6 := p_attribute6;
203 l_frt_rec.attribute7 := p_attribute7;
204 l_frt_rec.attribute8 := p_attribute8;
205 l_frt_rec.attribute9 := p_attribute9;
206 l_frt_rec.attribute10 := p_attribute10;
207 l_frt_rec.attribute11 := p_attribute11;
208 l_frt_rec.attribute12 := p_attribute12;
209 l_frt_rec.attribute13 := p_attribute13;
210 l_frt_rec.attribute14 := p_attribute14;
211 l_frt_rec.attribute15 := p_attribute15;
212
213 l_frt_rec.interface_line_context := p_interface_line_context;
214 l_frt_rec.interface_line_attribute1 := p_interface_line_attribute1;
215 l_frt_rec.interface_line_attribute2 := p_interface_line_attribute2;
216 l_frt_rec.interface_line_attribute3 := p_interface_line_attribute3;
217 l_frt_rec.interface_line_attribute4 := p_interface_line_attribute4;
218 l_frt_rec.interface_line_attribute5 := p_interface_line_attribute5;
219 l_frt_rec.interface_line_attribute6 := p_interface_line_attribute6;
220 l_frt_rec.interface_line_attribute7 := p_interface_line_attribute7;
221 l_frt_rec.interface_line_attribute8 := p_interface_line_attribute8;
222 l_frt_rec.interface_line_attribute9 := p_interface_line_attribute9;
223 l_frt_rec.interface_line_attribute10 := p_interface_line_attribute10;
224 l_frt_rec.interface_line_attribute11 := p_interface_line_attribute11;
225 l_frt_rec.interface_line_attribute12 := p_interface_line_attribute12;
226 l_frt_rec.interface_line_attribute13 := p_interface_line_attribute13;
227 l_frt_rec.interface_line_attribute14 := p_interface_line_attribute14;
228 l_frt_rec.interface_line_attribute15 := p_interface_line_attribute15;
229
230 l_frt_rec.default_ussgl_trx_code_context := p_default_ussgl_code_context;
231 l_frt_rec.default_ussgl_transaction_code := p_default_ussgl_trx_code;
232
233 arp_ctl_pkg.lock_compare_p(l_frt_rec, p_customer_trx_line_id);
234
235 arp_util.debug('arp_ctl_pkg.lock_compare_frt_cover()-');
236
237 EXCEPTION
238
239 WHEN OTHERS THEN
240 arp_util.debug('EXCEPTION : arp_ctl_pkg.lock_compare_frt_cover()');
241
242 arp_util.debug('customer_trx_id : '||p_customer_trx_id);
243 arp_util.debug('customer_trx_line_id : '||p_customer_trx_line_id);
244 arp_util.debug('line_type : '||p_line_type);
245 arp_util.debug('line_number : '||p_line_number);
246 arp_util.debug('extended_amount : '||p_extended_amount);
247 arp_util.debug('previous_customer_trx_id : '||
248 p_previous_customer_trx_id);
249 arp_util.debug('previous_customer_trx_line_id : '||
250 p_previous_cust_trx_line_id);
251 arp_util.debug('link_to_cust_trx_line_id : '||
252 p_link_to_cust_trx_line_id);
253 arp_util.debug('attribute_category : '||p_attribute_category);
254 arp_util.debug('attribute1 : '||p_attribute1);
255 arp_util.debug('attribute2 : '||p_attribute2);
256 arp_util.debug('attribute3 : '||p_attribute3);
257 arp_util.debug('attribute4 : '||p_attribute4);
258 arp_util.debug('attribute5 : '||p_attribute5);
259 arp_util.debug('attribute6 : '||p_attribute6);
260 arp_util.debug('attribute7 : '||p_attribute7);
261 arp_util.debug('attribute8 : '||p_attribute8);
262 arp_util.debug('attribute9 : '||p_attribute9);
263 arp_util.debug('attribute10 : '||p_attribute10);
264 arp_util.debug('attribute11 : '||p_attribute11);
265 arp_util.debug('attribute12 : '||p_attribute12);
266 arp_util.debug('attribute13 : '||p_attribute13);
267 arp_util.debug('attribute14 : '||p_attribute14);
268 arp_util.debug('attribute15 : '||p_attribute15);
269
270 arp_util.debug('interface_line_context : '||
271 p_interface_line_context);
272 arp_util.debug('interface_line_attribute1 : '||
273 p_interface_line_attribute1);
274 arp_util.debug('interface_line_attribute2 : '||
275 p_interface_line_attribute2);
276 arp_util.debug('interface_line_attribute3 : '||
277 p_interface_line_attribute3);
278 arp_util.debug('interface_line_attribute4 : '||
279 p_interface_line_attribute4);
280 arp_util.debug('interface_line_attribute5 : '||
281 p_interface_line_attribute5);
282 arp_util.debug('interface_line_attribute6 : '||
283 p_interface_line_attribute6);
284 arp_util.debug('interface_line_attribute7 : '||
285 p_interface_line_attribute7);
286 arp_util.debug('interface_line_attribute8 : '||
287 p_interface_line_attribute8);
288 arp_util.debug('interface_line_attribute9 : '||
289 p_interface_line_attribute9);
290 arp_util.debug('interface_line_attribute10 : '||
291 p_interface_line_attribute10);
292 arp_util.debug('interface_line_attribute11 : '||
293 p_interface_line_attribute11);
294 arp_util.debug('interface_line_attribute12 : '||
295 p_interface_line_attribute12);
296 arp_util.debug('interface_line_attribute13 : '||
297 p_interface_line_attribute13);
298 arp_util.debug('interface_line_attribute14 : '||
299 p_interface_line_attribute14);
300 arp_util.debug('interface_line_attribute15 : '||
301 p_interface_line_attribute15);
302
303 arp_util.debug('default_ussgl_trx_code_context : '||
304 p_default_ussgl_code_context);
305 arp_util.debug('default_ussgl_transaction_code : '||
306 p_default_ussgl_trx_code);
307
308 RAISE;
309
310 END;
311
312 END ARP_CTL_FREIGHT_PKG;