[Home] [Help]
PACKAGE BODY: APPS.ARP_PROCESS_COMMITMENT
Source
1 PACKAGE BODY ARP_PROCESS_COMMITMENT AS
2 /* $Header: ARTECOMB.pls 115.7 2003/08/28 17:22:42 kmahajan ship $ */
3
4 pg_msg_level_debug binary_integer;
5
6 pg_text_dummy varchar2(10);
7 pg_number_dummy number(15);
8
9 pg_base_curr_code gl_sets_of_books.currency_code%type;
10 pg_base_precision fnd_currencies.precision%type;
11 pg_base_min_acc_unit fnd_currencies.minimum_accountable_unit%type;
12
13 TYPE changed_flags_rec_type IS RECORD
14 (
15 inventory_item_id_changed_flag boolean,
16 memo_line_id_changed_flag boolean,
17 description_changed_flag boolean,
18 extended_amount_changed_flag boolean,
19 int_line_attr1_changed_flag boolean,
20 int_line_attr2_changed_flag boolean,
21 int_line_attr3_changed_flag boolean,
22 int_line_attr4_changed_flag boolean,
23 int_line_attr5_changed_flag boolean,
24 int_line_attr6_changed_flag boolean,
25 int_line_attr7_changed_flag boolean,
26 int_line_attr8_changed_flag boolean,
27 int_line_attr9_changed_flag boolean,
28 int_line_attr10_changed_flag boolean,
29 int_line_attr11_changed_flag boolean,
30 int_line_attr12_changed_flag boolean,
31 int_line_attr13_changed_flag boolean,
32 int_line_attr14_changed_flag boolean,
33 int_line_attr15_changed_flag boolean,
34 int_line_context_changed_flag boolean,
35 attr_category_changed_flag boolean,
36 attribute1_changed_flag boolean,
37 attribute2_changed_flag boolean,
38 attribute3_changed_flag boolean,
39 attribute4_changed_flag boolean,
40 attribute5_changed_flag boolean,
41 attribute6_changed_flag boolean,
42 attribute7_changed_flag boolean,
43 attribute8_changed_flag boolean,
44 attribute9_changed_flag boolean,
45 attribute10_changed_flag boolean,
46 attribute11_changed_flag boolean,
47 attribute12_changed_flag boolean,
48 attribute13_changed_flag boolean,
49 attribute14_changed_flag boolean,
50 attribute15_changed_flag boolean,
51 ussgl_trx_code_changed_flag boolean
52 );
53
54 /*===========================================================================+
55 | PROCEDURE |
56 | header_pre_insert |
57 | |
58 | DESCRIPTION |
59 | Header Pre-insert logic for commitments |
60 | |
61 | SCOPE - PRIVATE |
62 | |
63 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
64 | dbms_sql.bind_variable |
65 | arp_util.debug |
66 | |
67 | ARGUMENTS : IN: |
68 | OUT: |
69 | RETURNS : NONE |
70 | |
71 | NOTES |
72 | |
73 | MODIFICATION HISTORY |
74 | 12-JUL-95 Martin Johnson Created |
75 | |
76 +===========================================================================*/
77
78 PROCEDURE header_pre_insert IS
79
80 BEGIN
81
82 arp_util.debug('arp_process_commitment.header_pre_insert()+');
83
84 arp_util.debug('arp_process_commitment.header_pre_insert()-');
85
86 EXCEPTION
87 WHEN OTHERS THEN
88 arp_util.debug('EXCEPTION: arp_process_commitment.header_pre_insert()');
89 RAISE;
90
91 END;
92
93 /*===========================================================================+
94 | PROCEDURE |
95 | insert_line_salescredit |
96 | |
97 | DESCRIPTION |
98 | Inserts line level salescredit for commitments. |
99 | |
100 | SCOPE - PRIVATE |
101 | |
102 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
103 | arp_util.debug |
104 | |
105 | ARGUMENTS : IN: |
106 | OUT: |
107 | RETURNS : NONE |
108 | |
109 | NOTES |
110 | |
111 | MODIFICATION HISTORY |
112 | 07-AUG-95 Martin Johnson Created |
113 | |
114 +===========================================================================*/
115
116 PROCEDURE insert_line_salescredit(
117 p_customer_trx_id IN
118 ra_customer_trx.customer_trx_id%type,
119 p_customer_trx_line_id IN
120 ra_customer_trx_lines.customer_trx_line_id%type,
121 p_salesrep_id IN
122 ra_cust_trx_line_salesreps.salesrep_id%type,
123 p_extended_amount IN
124 ra_customer_trx_lines.extended_amount%type) IS
125
126 l_srep_rec
127 ra_cust_trx_line_salesreps%rowtype;
128 l_cust_trx_line_salesrep_id
129 ra_cust_trx_line_salesreps.cust_trx_line_salesrep_id%type;
130
131 BEGIN
132
133 arp_util.debug('arp_process_commitment.insert_line_salescredit()+',
134 pg_msg_level_debug);
135
136 IF p_salesrep_id is not null THEN
137
138 l_srep_rec.customer_trx_id := p_customer_trx_id;
139 l_srep_rec.customer_trx_line_id := p_customer_trx_line_id;
140 l_srep_rec.salesrep_id := p_salesrep_id;
141 -- kmahajan - 08/25/2003 - added line below for Sales Group project
142 l_srep_rec.revenue_salesgroup_id := arp_util.Get_Default_SalesGroup(p_salesrep_id, p_customer_trx_id);
143 l_srep_rec.revenue_amount_split := p_extended_amount;
144 l_srep_rec.revenue_percent_split := 100;
145
146 arp_ctls_pkg.insert_p(l_srep_rec,
147 l_cust_trx_line_salesrep_id);
148
149 END IF;
150
151 arp_util.debug('arp_process_commitment.insert_line_salescredit()-',
152 pg_msg_level_debug);
153
154
155 EXCEPTION
156 WHEN OTHERS THEN
157 arp_util.debug(
158 'EXCEPTION: arp_process_commitment.insert_line_salescredit()',
159 pg_msg_level_debug);
160 RAISE;
161
162 END;
163
164 /*===========================================================================+
165 | PROCEDURE |
166 | insert_dist_line |
167 | |
168 | DESCRIPTION |
169 | Inserts the revenue distribution for commitments |
170 | |
171 | SCOPE - PRIVATE |
172 | |
173 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
174 | arp_util.debug |
175 | |
176 | ARGUMENTS : IN: |
177 | OUT: |
178 | RETURNS : NONE |
179 | |
180 | NOTES |
181 | |
182 | MODIFICATION HISTORY |
183 | 07-AUG-95 Martin Johnson Created |
184 | |
185 +===========================================================================*/
186
187 PROCEDURE insert_dist_line(p_customer_trx_id IN
188 ra_customer_trx.customer_trx_id%type,
189 p_customer_trx_line_id IN
190 ra_customer_trx_lines.customer_trx_line_id%type,
191 p_gl_date IN
192 ra_cust_trx_line_gl_dist.gl_date%type,
193 p_status OUT NOCOPY varchar2)
194 IS
195
196 l_ccid number;
197 l_concat_segments varchar2(2000);
198 l_num_failed_dist_rows number;
199 l_errorbuf varchar2(200);
200 l_result number;
201 l_comt_dft_acct Varchar2(2);
202 l_passed_ccid number;
203
204
205 BEGIN
206
207 arp_util.debug('arp_process_commitment.insert_dist_line()+',
208 pg_msg_level_debug);
209
210 /*--------------------------------------------------+
211 | Call AutoAccounting to insert the distribution |
212 +--------------------------------------------------*/
213
214 p_status := 'OK';
215
216 BEGIN
217
218
219 l_passed_ccid := null;
220 l_comt_dft_acct := NVL(FND_PROFILE.value('AR_COMMITMENT_DEFAULT_ACCOUNTING'),'A');
221
222 if l_comt_dft_acct = 'T' then
223
224 Begin
225
226 select cust_trx_type.gl_id_rev
227 into l_passed_ccid
228 from ra_customer_trx cust_trx,
229 ra_cust_trx_types cust_trx_type
230 where cust_trx_type.type ='DEP' and
231 cust_trx.cust_trx_type_id =cust_trx_type.cust_trx_type_id and
232 cust_trx.CUSTOMER_TRX_ID = P_CUSTOMER_TRX_ID;
233 arp_auto_accounting.g_deposit_flag := 'Y';
234
235 if l_passed_ccid is null then
236 l_passed_ccid :=-1;
237 end if;
238
239 exception
240 when no_data_found then
241 null;
242 end;
243
244 end if;
245
246
247 arp_auto_accounting.do_autoaccounting(
248 'I',
249 'REV',
250 p_customer_trx_id,
251 p_customer_trx_line_id,
252 null,
253 null,
254 p_gl_date,
255 null,
256 null,
257 l_passed_ccid,
258 null,
259 null,
260 null,
261 null,
262 null,
263 l_ccid,
264 l_concat_segments,
265 l_num_failed_dist_rows);
266 EXCEPTION
267 WHEN arp_auto_accounting.no_ccid THEN
268
269 p_status := 'ARP_AUTO_ACCOUNTING.NO_CCID';
270 arp_util.debug('EXCEPTION: arp_process_commitment.insert_dist_line()- no_ccid',
271 pg_msg_level_debug);
272
273 WHEN NO_DATA_FOUND THEN
274
275 null;
276 arp_util.debug('EXCEPTION: arp_process_commitment.insert_dist_line()- NO_DATA_FOUND',
277 pg_msg_level_debug);
278 WHEN OTHERS THEN
279
280 arp_util.debug('EXCEPTION: arp_process_commitment.insert_dist_line()- OTHERS',
281 pg_msg_level_debug);
282 RAISE;
283 END;
284
285 IF arp_auto_accounting.g_deposit_flag is NOT NULL THEN
286 arp_auto_accounting.g_deposit_flag := '';
287 END IF;
288
289 arp_util.debug('arp_process_commitment.insert_dist_line()-',
290 pg_msg_level_debug);
291
292 EXCEPTION
293 WHEN OTHERS THEN
294 arp_util.debug(
295 'EXCEPTION: arp_process_commitment.insert_dist_line- OTHERS',
296 pg_msg_level_debug);
297
298 IF arp_auto_accounting.g_deposit_flag is NOT NULL THEN
299 arp_auto_accounting.g_deposit_flag := '';
300 END IF;
301
302 RAISE;
303
304 END;
305
306 /*===========================================================================+
307 | PROCEDURE |
308 | header_post_insert |
309 | |
310 | DESCRIPTION |
311 | Header post-insert logic for commitments |
312 | |
313 | SCOPE - PUBLIC |
314 | |
315 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
316 | dbms_sql.bind_variable |
317 | arp_util.debug |
318 | |
319 | ARGUMENTS : IN: |
320 | OUT: |
321 | RETURNS : NONE |
322 | |
323 | NOTES |
324 | |
325 | MODIFICATION HISTORY |
326 | 12-JUL-95 Martin Johnson Created |
327 | |
328 +===========================================================================*/
329
330 PROCEDURE header_post_insert ( p_customer_trx_id IN
331 ra_customer_trx.customer_trx_id%type,
332 p_commitment_rec IN commitment_rec_type,
333 p_primary_salesrep_id IN
334 ra_customer_trx.primary_salesrep_id%type,
335 p_gl_date IN
336 ra_cust_trx_line_gl_dist.gl_date%type,
337 p_customer_trx_line_id OUT NOCOPY
338 ra_customer_trx_lines.customer_trx_line_id%type,
339 p_status OUT NOCOPY varchar2
340 )
341 IS
342
343 l_line_rec ra_customer_trx_lines%rowtype;
344 l_customer_trx_line_id ra_customer_trx_lines.customer_trx_line_id%type;
345
346 BEGIN
347
348 arp_util.debug('arp_process_commitment.header_post_insert()+');
349
350 /*-----------------------------------------+
351 | Insert row into ra_customer_trx_lines |
352 +-----------------------------------------*/
353
354
355 l_line_rec.customer_trx_id := p_customer_trx_id;
356 l_line_rec.line_type := 'LINE';
357 l_line_rec.line_number := 1;
358 l_line_rec.inventory_item_id := p_commitment_rec.inventory_item_id;
359 l_line_rec.memo_line_id := p_commitment_rec.memo_line_id;
360 l_line_rec.description := p_commitment_rec.description;
361 l_line_rec.extended_amount := p_commitment_rec.extended_amount;
362 l_line_rec.revenue_amount := p_commitment_rec.extended_amount;
363 l_line_rec.interface_line_attribute1 :=
364 p_commitment_rec.interface_line_attribute1;
365 l_line_rec.interface_line_attribute2 :=
366 p_commitment_rec.interface_line_attribute2;
367 l_line_rec.interface_line_attribute3 :=
368 p_commitment_rec.interface_line_attribute3;
369 l_line_rec.interface_line_attribute4 :=
370 p_commitment_rec.interface_line_attribute4;
371 l_line_rec.interface_line_attribute5 :=
372 p_commitment_rec.interface_line_attribute5;
373 l_line_rec.interface_line_attribute6 :=
374 p_commitment_rec.interface_line_attribute6;
375 l_line_rec.interface_line_attribute7 :=
376 p_commitment_rec.interface_line_attribute7;
377 l_line_rec.interface_line_attribute8 :=
378 p_commitment_rec.interface_line_attribute8;
379 l_line_rec.interface_line_attribute9 :=
380 p_commitment_rec.interface_line_attribute9;
381 l_line_rec.interface_line_attribute10 :=
382 p_commitment_rec.interface_line_attribute10;
383 l_line_rec.interface_line_attribute11 :=
384 p_commitment_rec.interface_line_attribute11;
385 l_line_rec.interface_line_attribute12 :=
386 p_commitment_rec.interface_line_attribute12;
387 l_line_rec.interface_line_attribute13 :=
388 p_commitment_rec.interface_line_attribute13;
389 l_line_rec.interface_line_attribute14 :=
390 p_commitment_rec.interface_line_attribute14;
391 l_line_rec.interface_line_attribute15 :=
392 p_commitment_rec.interface_line_attribute15;
393 l_line_rec.interface_line_context :=
394 p_commitment_rec.interface_line_context;
395 l_line_rec.attribute_category := p_commitment_rec.attribute_category;
396 l_line_rec.attribute1 := p_commitment_rec.attribute1;
397 l_line_rec.attribute2 := p_commitment_rec.attribute2;
398 l_line_rec.attribute3 := p_commitment_rec.attribute3;
399 l_line_rec.attribute4 := p_commitment_rec.attribute4;
400 l_line_rec.attribute5 := p_commitment_rec.attribute5;
401 l_line_rec.attribute6 := p_commitment_rec.attribute6;
402 l_line_rec.attribute7 := p_commitment_rec.attribute7;
403 l_line_rec.attribute8 := p_commitment_rec.attribute8;
404 l_line_rec.attribute9 := p_commitment_rec.attribute9;
405 l_line_rec.attribute10 := p_commitment_rec.attribute10;
406 l_line_rec.attribute11 := p_commitment_rec.attribute11;
407 l_line_rec.attribute12 := p_commitment_rec.attribute12;
408 l_line_rec.attribute13 := p_commitment_rec.attribute13;
409 l_line_rec.attribute14 := p_commitment_rec.attribute14;
410 l_line_rec.attribute15 := p_commitment_rec.attribute15;
411 l_line_rec.default_ussgl_transaction_code :=
412 p_commitment_rec.default_ussgl_transaction_code;
413
414 arp_ctl_pkg.insert_p(l_line_rec,
415 l_customer_trx_line_id);
416
417 p_customer_trx_line_id := l_customer_trx_line_id;
418
419 /*-----------------------------------+
420 | Insert salescredit for the line |
421 +-----------------------------------*/
422
423 insert_line_salescredit(p_customer_trx_id,
424 l_customer_trx_line_id,
425 p_primary_salesrep_id,
426 p_commitment_rec.extended_amount);
427
428 /*--------------------------------------------+
429 | Insert the REV distribution for the line |
430 +--------------------------------------------*/
431
432 insert_dist_line(p_customer_trx_id,
433 l_customer_trx_line_id,
434 p_gl_date,
435 p_status);
436
437 arp_util.debug('arp_process_commitment.header_post_insert()-');
438
439 EXCEPTION
440 WHEN OTHERS THEN
441 arp_util.debug('EXCEPTION: arp_process_commitment.header_post_insert()');
442 RAISE;
443
444 END;
445
446 /*===========================================================================+
447 | PROCEDURE |
448 | header_pre_update |
449 | |
450 | DESCRIPTION |
451 | Header pre-update logic for commitments |
452 | |
453 | SCOPE - PRIVATE |
454 | |
455 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
456 | dbms_sql.bind_variable |
457 | arp_util.debug |
458 | |
459 | ARGUMENTS : IN: |
460 | OUT: |
461 | RETURNS : NONE |
462 | |
463 | NOTES |
464 | |
465 | MODIFICATION HISTORY |
466 | 12-JUL-95 Martin Johnson Created |
467 | |
468 +===========================================================================*/
469
470 PROCEDURE header_pre_update IS
471
472 BEGIN
473
474 arp_util.debug('arp_process_commitment.header_pre_update()+');
475
476 arp_util.debug('arp_process_commitment.header_pre_update()-');
477
478 EXCEPTION
479 WHEN OTHERS THEN
480 arp_util.debug('EXCEPTION: arp_process_commitment.header_pre_update()');
481 RAISE;
482
483 END;
484
485 /*===========================================================================+
486 | PROCEDURE |
487 | set_flags |
488 | |
489 | DESCRIPTION |
490 | Sets various change and status flags for the current record. |
491 | |
492 | SCOPE - PRIVATE |
493 | |
494 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
495 | arp_util.debug |
496 | |
497 | ARGUMENTS : IN: |
498 | OUT: |
499 | IN/ OUT: |
500 | None |
501 | |
502 | RETURNS : NONE |
503 | |
504 | NOTES |
505 | |
506 | MODIFICATION HISTORY |
507 | 08-AUG-95 Martin Johnson Created |
508 | |
509 +===========================================================================*/
510 PROCEDURE set_flags(p_new_commitment_rec IN commitment_rec_type,
511 p_changed_flags_rec OUT NOCOPY changed_flags_rec_type)
512 IS
513
514 l_old_commitment_rec ra_customer_trx_lines%rowtype;
515
516 BEGIN
517
518 arp_util.debug('arp_process_commitment.set_flags()+',
519 pg_msg_level_debug);
520
521 arp_ctl_pkg.fetch_p( l_old_commitment_rec,
522 p_new_commitment_rec.customer_trx_line_id );
523
524 IF (
525 nvl(l_old_commitment_rec.inventory_item_id, 0) <>
526 nvl(p_new_commitment_rec.inventory_item_id, 0)
527 AND
528 nvl(p_new_commitment_rec.inventory_item_id, 0) <> pg_number_dummy
529 )
530 THEN p_changed_flags_rec.inventory_item_id_changed_flag := TRUE;
531 ELSE p_changed_flags_rec.inventory_item_id_changed_flag := FALSE;
532 END IF;
533
534 IF (
535 nvl(l_old_commitment_rec.memo_line_id, 0) <>
536 nvl(p_new_commitment_rec.memo_line_id, 0)
537 AND
538 nvl(p_new_commitment_rec.memo_line_id, 0) <> pg_number_dummy
539 )
540 THEN p_changed_flags_rec.memo_line_id_changed_flag := TRUE;
541 ELSE p_changed_flags_rec.memo_line_id_changed_flag := FALSE;
542 END IF;
543
544 IF (
545 nvl(l_old_commitment_rec.description, '!@#$%') <>
546 nvl(p_new_commitment_rec.description, '!@#$%')
547 AND
548 nvl(p_new_commitment_rec.description, '!@#$%') <> pg_text_dummy
549 )
550 THEN p_changed_flags_rec.description_changed_flag := TRUE;
551 ELSE p_changed_flags_rec.description_changed_flag := FALSE;
552 END IF;
553
554 IF (
555 nvl(l_old_commitment_rec.extended_amount, -999999.999999) <>
556 nvl(p_new_commitment_rec.extended_amount, -999999.999999)
557 AND
558 nvl(p_new_commitment_rec.extended_amount, -999999.999999)
559 <> pg_number_dummy
560 )
561 THEN p_changed_flags_rec.extended_amount_changed_flag := TRUE;
562 ELSE p_changed_flags_rec.extended_amount_changed_flag := FALSE;
563 END IF;
564
565 IF (
566 nvl(l_old_commitment_rec.interface_line_attribute1, '!@#$%') <>
567 nvl(p_new_commitment_rec.interface_line_attribute1, '!@#$%')
568 AND
569 nvl(p_new_commitment_rec.interface_line_attribute1, '!@#$%') <>
570 pg_text_dummy
571 )
572 THEN p_changed_flags_rec.int_line_attr1_changed_flag := TRUE;
573 ELSE p_changed_flags_rec.int_line_attr1_changed_flag := FALSE;
574 END IF;
575
576 IF (
577 nvl(l_old_commitment_rec.interface_line_attribute2, '!@#$%') <>
578 nvl(p_new_commitment_rec.interface_line_attribute2, '!@#$%')
579 AND
580 nvl(p_new_commitment_rec.interface_line_attribute2, '!@#$%') <>
581 pg_text_dummy
582 )
583 THEN p_changed_flags_rec.int_line_attr2_changed_flag := TRUE;
584 ELSE p_changed_flags_rec.int_line_attr2_changed_flag := FALSE;
585 END IF;
586
587 IF (
588 nvl(l_old_commitment_rec.interface_line_attribute3, '!@#$%') <>
589 nvl(p_new_commitment_rec.interface_line_attribute3, '!@#$%')
590 AND
591 nvl(p_new_commitment_rec.interface_line_attribute3, '!@#$%') <>
592 pg_text_dummy
593 )
594 THEN p_changed_flags_rec.int_line_attr3_changed_flag := TRUE;
595 ELSE p_changed_flags_rec.int_line_attr3_changed_flag := FALSE;
596 END IF;
597
598 IF (
599 nvl(l_old_commitment_rec.interface_line_attribute4, '!@#$%') <>
600 nvl(p_new_commitment_rec.interface_line_attribute4, '!@#$%')
601 AND
602 nvl(p_new_commitment_rec.interface_line_attribute4, '!@#$%') <>
603 pg_text_dummy
604 )
605 THEN p_changed_flags_rec.int_line_attr4_changed_flag := TRUE;
606 ELSE p_changed_flags_rec.int_line_attr4_changed_flag := FALSE;
607 END IF;
608
609 IF (
610 nvl(l_old_commitment_rec.interface_line_attribute5, '!@#$%') <>
611 nvl(p_new_commitment_rec.interface_line_attribute5, '!@#$%')
612 AND
613 nvl(p_new_commitment_rec.interface_line_attribute5, '!@#$%') <>
614 pg_text_dummy
615 )
616 THEN p_changed_flags_rec.int_line_attr5_changed_flag := TRUE;
617 ELSE p_changed_flags_rec.int_line_attr5_changed_flag := FALSE;
618 END IF;
619
620 IF (
621 nvl(l_old_commitment_rec.interface_line_attribute6, '!@#$%') <>
622 nvl(p_new_commitment_rec.interface_line_attribute6, '!@#$%')
623 AND
624 nvl(p_new_commitment_rec.interface_line_attribute6, '!@#$%') <>
625 pg_text_dummy
626 )
627 THEN p_changed_flags_rec.int_line_attr6_changed_flag := TRUE;
628 ELSE p_changed_flags_rec.int_line_attr6_changed_flag := FALSE;
629 END IF;
630
631 IF (
632 nvl(l_old_commitment_rec.interface_line_attribute7, '!@#$%') <>
633 nvl(p_new_commitment_rec.interface_line_attribute7, '!@#$%')
634 AND
635 nvl(p_new_commitment_rec.interface_line_attribute7, '!@#$%') <>
636 pg_text_dummy
637 )
638 THEN p_changed_flags_rec.int_line_attr7_changed_flag := TRUE;
639 ELSE p_changed_flags_rec.int_line_attr7_changed_flag := FALSE;
640 END IF;
641
642 IF (
643 nvl(l_old_commitment_rec.interface_line_attribute8, '!@#$%') <>
644 nvl(p_new_commitment_rec.interface_line_attribute8, '!@#$%')
645 AND
646 nvl(p_new_commitment_rec.interface_line_attribute8, '!@#$%') <>
647 pg_text_dummy
648 )
649 THEN p_changed_flags_rec.int_line_attr8_changed_flag := TRUE;
650 ELSE p_changed_flags_rec.int_line_attr8_changed_flag := FALSE;
651 END IF;
652
653 IF (
654 nvl(l_old_commitment_rec.interface_line_attribute9, '!@#$%') <>
655 nvl(p_new_commitment_rec.interface_line_attribute9, '!@#$%')
656 AND
657 nvl(p_new_commitment_rec.interface_line_attribute9, '!@#$%') <>
658 pg_text_dummy
659 )
660 THEN p_changed_flags_rec.int_line_attr9_changed_flag := TRUE;
661 ELSE p_changed_flags_rec.int_line_attr9_changed_flag := FALSE;
662 END IF;
663
664 IF (
665 nvl(l_old_commitment_rec.interface_line_attribute10, '!@#$%') <>
666 nvl(p_new_commitment_rec.interface_line_attribute10, '!@#$%')
667 AND
668 nvl(p_new_commitment_rec.interface_line_attribute10, '!@#$%') <>
669 pg_text_dummy
670 )
671 THEN p_changed_flags_rec.int_line_attr10_changed_flag := TRUE;
672 ELSE p_changed_flags_rec.int_line_attr10_changed_flag := FALSE;
673 END IF;
674
675 IF (
676 nvl(l_old_commitment_rec.interface_line_attribute11, '!@#$%') <>
677 nvl(p_new_commitment_rec.interface_line_attribute11, '!@#$%')
678 AND
679 nvl(p_new_commitment_rec.interface_line_attribute11, '!@#$%') <>
680 pg_text_dummy
681 )
682 THEN p_changed_flags_rec.int_line_attr11_changed_flag := TRUE;
683 ELSE p_changed_flags_rec.int_line_attr11_changed_flag := FALSE;
684 END IF;
685
686 IF (
687 nvl(l_old_commitment_rec.interface_line_attribute12, '!@#$%') <>
688 nvl(p_new_commitment_rec.interface_line_attribute12, '!@#$%')
689 AND
690 nvl(p_new_commitment_rec.interface_line_attribute12, '!@#$%') <>
691 pg_text_dummy
692 )
693 THEN p_changed_flags_rec.int_line_attr12_changed_flag := TRUE;
694 ELSE p_changed_flags_rec.int_line_attr12_changed_flag := FALSE;
695 END IF;
696
697 IF (
698 nvl(l_old_commitment_rec.interface_line_attribute13, '!@#$%') <>
699 nvl(p_new_commitment_rec.interface_line_attribute13, '!@#$%')
700 AND
701 nvl(p_new_commitment_rec.interface_line_attribute13, '!@#$%') <>
702 pg_text_dummy
703 )
704 THEN p_changed_flags_rec.int_line_attr13_changed_flag := TRUE;
705 ELSE p_changed_flags_rec.int_line_attr13_changed_flag := FALSE;
706 END IF;
707
708 IF (
709 nvl(l_old_commitment_rec.interface_line_attribute14, '!@#$%') <>
710 nvl(p_new_commitment_rec.interface_line_attribute14, '!@#$%')
711 AND
712 nvl(p_new_commitment_rec.interface_line_attribute14, '!@#$%') <>
713 pg_text_dummy
714 )
715 THEN p_changed_flags_rec.int_line_attr14_changed_flag := TRUE;
716 ELSE p_changed_flags_rec.int_line_attr14_changed_flag := FALSE;
717 END IF;
718
719 IF (
720 nvl(l_old_commitment_rec.interface_line_attribute15, '!@#$%') <>
721 nvl(p_new_commitment_rec.interface_line_attribute15, '!@#$%')
722 AND
723 nvl(p_new_commitment_rec.interface_line_attribute15, '!@#$%') <>
724 pg_text_dummy
725 )
726 THEN p_changed_flags_rec.int_line_attr15_changed_flag := TRUE;
727 ELSE p_changed_flags_rec.int_line_attr15_changed_flag := FALSE;
728 END IF;
729
730 IF (
731 nvl(l_old_commitment_rec.interface_line_context, '!@#$%') <>
732 nvl(p_new_commitment_rec.interface_line_context, '!@#$%')
733 AND
734 nvl(p_new_commitment_rec.interface_line_context, '!@#$%') <>
735 pg_text_dummy
736 )
737 THEN p_changed_flags_rec.int_line_context_changed_flag := TRUE;
738 ELSE p_changed_flags_rec.int_line_context_changed_flag := FALSE;
739 END IF;
740
741 IF (
742 nvl(l_old_commitment_rec.attribute_category, '!@#$%') <>
743 nvl(p_new_commitment_rec.attribute_category, '!@#$%')
744 AND
745 nvl(p_new_commitment_rec.attribute_category, '!@#$%') <>
746 pg_text_dummy
747 )
748 THEN p_changed_flags_rec.attr_category_changed_flag := TRUE;
749 ELSE p_changed_flags_rec.attr_category_changed_flag := FALSE;
750 END IF;
751
752 IF (
753 nvl(l_old_commitment_rec.attribute1, '!@#$%') <>
754 nvl(p_new_commitment_rec.attribute1, '!@#$%')
755 AND
756 nvl(p_new_commitment_rec.attribute1, '!@#$%') <>
757 pg_text_dummy
758 )
759 THEN p_changed_flags_rec.attribute1_changed_flag := TRUE;
760 ELSE p_changed_flags_rec.attribute1_changed_flag := FALSE;
761 END IF;
762
763 IF (
764 nvl(l_old_commitment_rec.attribute2, '!@#$%') <>
765 nvl(p_new_commitment_rec.attribute2, '!@#$%')
766 AND
767 nvl(p_new_commitment_rec.attribute2, '!@#$%') <>
768 pg_text_dummy
769 )
770 THEN p_changed_flags_rec.attribute2_changed_flag := TRUE;
771 ELSE p_changed_flags_rec.attribute2_changed_flag := FALSE;
772 END IF;
773
774 IF (
775 nvl(l_old_commitment_rec.attribute3, '!@#$%') <>
776 nvl(p_new_commitment_rec.attribute3, '!@#$%')
777 AND
778 nvl(p_new_commitment_rec.attribute3, '!@#$%') <>
779 pg_text_dummy
780 )
781 THEN p_changed_flags_rec.attribute3_changed_flag := TRUE;
782 ELSE p_changed_flags_rec.attribute3_changed_flag := FALSE;
783 END IF;
784
785 IF (
786 nvl(l_old_commitment_rec.attribute4, '!@#$%') <>
787 nvl(p_new_commitment_rec.attribute4, '!@#$%')
788 AND
789 nvl(p_new_commitment_rec.attribute4, '!@#$%') <>
790 pg_text_dummy
791 )
792 THEN p_changed_flags_rec.attribute4_changed_flag := TRUE;
793 ELSE p_changed_flags_rec.attribute4_changed_flag := FALSE;
794 END IF;
795
796 IF (
797 nvl(l_old_commitment_rec.attribute5, '!@#$%') <>
798 nvl(p_new_commitment_rec.attribute5, '!@#$%')
799 AND
800 nvl(p_new_commitment_rec.attribute5, '!@#$%') <>
801 pg_text_dummy
802 )
803 THEN p_changed_flags_rec.attribute5_changed_flag := TRUE;
804 ELSE p_changed_flags_rec.attribute5_changed_flag := FALSE;
805 END IF;
806
807 IF (
808 nvl(l_old_commitment_rec.attribute6, '!@#$%') <>
809 nvl(p_new_commitment_rec.attribute6, '!@#$%')
810 AND
811 nvl(p_new_commitment_rec.attribute6, '!@#$%') <>
812 pg_text_dummy
813 )
814 THEN p_changed_flags_rec.attribute6_changed_flag := TRUE;
815 ELSE p_changed_flags_rec.attribute6_changed_flag := FALSE;
816 END IF;
817
818 IF (
819 nvl(l_old_commitment_rec.attribute7, '!@#$%') <>
820 nvl(p_new_commitment_rec.attribute7, '!@#$%')
821 AND
822 nvl(p_new_commitment_rec.attribute7, '!@#$%') <>
823 pg_text_dummy
824 )
825 THEN p_changed_flags_rec.attribute7_changed_flag := TRUE;
826 ELSE p_changed_flags_rec.attribute7_changed_flag := FALSE;
827 END IF;
828
829 IF (
830 nvl(l_old_commitment_rec.attribute8, '!@#$%') <>
831 nvl(p_new_commitment_rec.attribute8, '!@#$%')
832 AND
833 nvl(p_new_commitment_rec.attribute8, '!@#$%') <>
834 pg_text_dummy
835 )
836 THEN p_changed_flags_rec.attribute8_changed_flag := TRUE;
837 ELSE p_changed_flags_rec.attribute8_changed_flag := FALSE;
838 END IF;
839
840 IF (
841 nvl(l_old_commitment_rec.attribute9, '!@#$%') <>
842 nvl(p_new_commitment_rec.attribute9, '!@#$%')
843 AND
844 nvl(p_new_commitment_rec.attribute9, '!@#$%') <>
845 pg_text_dummy
846 )
847 THEN p_changed_flags_rec.attribute9_changed_flag := TRUE;
848 ELSE p_changed_flags_rec.attribute9_changed_flag := FALSE;
849 END IF;
850
851 IF (
852 nvl(l_old_commitment_rec.attribute10, '!@#$%') <>
853 nvl(p_new_commitment_rec.attribute10, '!@#$%')
854 AND
855 nvl(p_new_commitment_rec.attribute10, '!@#$%') <>
856 pg_text_dummy
857 )
858 THEN p_changed_flags_rec.attribute10_changed_flag := TRUE;
859 ELSE p_changed_flags_rec.attribute10_changed_flag := FALSE;
860 END IF;
861
862 IF (
863 nvl(l_old_commitment_rec.attribute11, '!@#$%') <>
864 nvl(p_new_commitment_rec.attribute11, '!@#$%')
865 AND
866 nvl(p_new_commitment_rec.attribute11, '!@#$%') <>
867 pg_text_dummy
868 )
869 THEN p_changed_flags_rec.attribute11_changed_flag := TRUE;
870 ELSE p_changed_flags_rec.attribute11_changed_flag := FALSE;
871 END IF;
872
873 IF (
874 nvl(l_old_commitment_rec.attribute12, '!@#$%') <>
875 nvl(p_new_commitment_rec.attribute12, '!@#$%')
876 AND
877 nvl(p_new_commitment_rec.attribute12, '!@#$%') <>
878 pg_text_dummy
879 )
880 THEN p_changed_flags_rec.attribute12_changed_flag := TRUE;
881 ELSE p_changed_flags_rec.attribute12_changed_flag := FALSE;
882 END IF;
883
884 IF (
885 nvl(l_old_commitment_rec.attribute13, '!@#$%') <>
886 nvl(p_new_commitment_rec.attribute13, '!@#$%')
887 AND
888 nvl(p_new_commitment_rec.attribute13, '!@#$%') <>
889 pg_text_dummy
890 )
891 THEN p_changed_flags_rec.attribute13_changed_flag := TRUE;
892 ELSE p_changed_flags_rec.attribute13_changed_flag := FALSE;
893 END IF;
894
895 IF (
896 nvl(l_old_commitment_rec.attribute14, '!@#$%') <>
897 nvl(p_new_commitment_rec.attribute14, '!@#$%')
898 AND
899 nvl(p_new_commitment_rec.attribute14, '!@#$%') <>
900 pg_text_dummy
901 )
902 THEN p_changed_flags_rec.attribute14_changed_flag := TRUE;
903 ELSE p_changed_flags_rec.attribute14_changed_flag := FALSE;
904 END IF;
905
906 IF (
907 nvl(l_old_commitment_rec.attribute15, '!@#$%') <>
908 nvl(p_new_commitment_rec.attribute15, '!@#$%')
909 AND
910 nvl(p_new_commitment_rec.attribute15, '!@#$%') <>
911 pg_text_dummy
912 )
913 THEN p_changed_flags_rec.attribute15_changed_flag := TRUE;
914 ELSE p_changed_flags_rec.attribute15_changed_flag := FALSE;
915 END IF;
916
917 IF (
918 nvl(l_old_commitment_rec.default_ussgl_transaction_code, '!@#$%') <>
919 nvl(p_new_commitment_rec.default_ussgl_transaction_code, '!@#$%')
920 AND
921 nvl(p_new_commitment_rec.default_ussgl_transaction_code, '!@#$%') <>
922 pg_text_dummy
923 )
924 THEN p_changed_flags_rec.ussgl_trx_code_changed_flag := TRUE;
925 ELSE p_changed_flags_rec.ussgl_trx_code_changed_flag := FALSE;
926 END IF;
927
928 arp_util.debug('arp_process_commitment.set_flags()-',
929 pg_msg_level_debug);
930
931 EXCEPTION
932 WHEN OTHERS THEN
933 arp_util.debug(
934 'EXCEPTION: arp_process_commitment.set_flags()',
935 pg_msg_level_debug);
936 RAISE;
937
938
939 END;
940
941 /*===========================================================================+
942 | PROCEDURE |
943 | header_post_update |
944 | |
945 | DESCRIPTION |
946 | Header post-update logic for commitments |
947 | |
948 | SCOPE - PUBLIC |
949 | |
950 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
951 | arp_util.debug |
952 | |
953 | ARGUMENTS : IN: |
954 | OUT: |
955 | RETURNS : NONE |
956 | |
957 | NOTES |
958 | |
959 | MODIFICATION HISTORY |
960 | 12-JUL-95 Martin Johnson Created |
961 | |
962 +===========================================================================*/
963
964 PROCEDURE header_post_update( p_commitment_rec IN commitment_rec_type,
965 p_foreign_currency_code IN
966 fnd_currencies.currency_code%type,
967 p_exchange_rate IN
968 ra_customer_trx.exchange_rate%type,
969 p_rerun_autoacc_flag IN boolean )
970 IS
971
972 l_changed_flags_rec changed_flags_rec_type;
973 l_line_rec ra_customer_trx_lines%rowtype;
974
975 BEGIN
976
977 arp_util.debug('arp_process_commitment.header_post_update()+');
978
979 set_flags( p_commitment_rec,
980 l_changed_flags_rec );
981
982 arp_ctl_pkg.set_to_dummy( l_line_rec );
983
984 IF l_changed_flags_rec.inventory_item_id_changed_flag
985 THEN l_line_rec.inventory_item_id := p_commitment_rec.inventory_item_id;
986 END IF;
987
988 IF l_changed_flags_rec.memo_line_id_changed_flag
989 THEN l_line_rec.memo_line_id := p_commitment_rec.memo_line_id;
990 END IF;
991
992 IF l_changed_flags_rec.description_changed_flag
993 THEN l_line_rec.description := p_commitment_rec.description;
994 END IF;
995
996 IF l_changed_flags_rec.extended_amount_changed_flag
997 THEN l_line_rec.extended_amount := p_commitment_rec.extended_amount;
998 l_line_rec.revenue_amount := p_commitment_rec.extended_amount;
999 END IF;
1000
1001 IF l_changed_flags_rec.int_line_attr1_changed_flag
1002 THEN l_line_rec.interface_line_attribute1 :=
1003 p_commitment_rec.interface_line_attribute1;
1004 END IF;
1005
1006 IF l_changed_flags_rec.int_line_attr2_changed_flag
1007 THEN l_line_rec.interface_line_attribute2 :=
1008 p_commitment_rec.interface_line_attribute2;
1009 END IF;
1010
1011 IF l_changed_flags_rec.int_line_attr3_changed_flag
1012 THEN l_line_rec.interface_line_attribute3 :=
1013 p_commitment_rec.interface_line_attribute3;
1014 END IF;
1015
1016 IF l_changed_flags_rec.int_line_attr4_changed_flag
1017 THEN l_line_rec.interface_line_attribute4 :=
1018 p_commitment_rec.interface_line_attribute4;
1019 END IF;
1020
1021 IF l_changed_flags_rec.int_line_attr5_changed_flag
1022 THEN l_line_rec.interface_line_attribute5 :=
1023 p_commitment_rec.interface_line_attribute5;
1024 END IF;
1025
1026 IF l_changed_flags_rec.int_line_attr6_changed_flag
1027 THEN l_line_rec.interface_line_attribute6 :=
1028 p_commitment_rec.interface_line_attribute6;
1029 END IF;
1030
1031 IF l_changed_flags_rec.int_line_attr7_changed_flag
1032 THEN l_line_rec.interface_line_attribute7 :=
1033 p_commitment_rec.interface_line_attribute7;
1034 END IF;
1035
1036 IF l_changed_flags_rec.int_line_attr8_changed_flag
1037 THEN l_line_rec.interface_line_attribute8 :=
1038 p_commitment_rec.interface_line_attribute8;
1039 END IF;
1040
1041 IF l_changed_flags_rec.int_line_attr9_changed_flag
1042 THEN l_line_rec.interface_line_attribute9 :=
1043 p_commitment_rec.interface_line_attribute9;
1044 END IF;
1045
1046 IF l_changed_flags_rec.int_line_attr10_changed_flag
1047 THEN l_line_rec.interface_line_attribute10 :=
1048 p_commitment_rec.interface_line_attribute10;
1049 END IF;
1050
1051 IF l_changed_flags_rec.int_line_attr11_changed_flag
1052 THEN l_line_rec.interface_line_attribute11 :=
1053 p_commitment_rec.interface_line_attribute11;
1054 END IF;
1055
1056 IF l_changed_flags_rec.int_line_attr12_changed_flag
1057 THEN l_line_rec.interface_line_attribute12 :=
1058 p_commitment_rec.interface_line_attribute12;
1059 END IF;
1060
1061 IF l_changed_flags_rec.int_line_attr13_changed_flag
1062 THEN l_line_rec.interface_line_attribute13 :=
1063 p_commitment_rec.interface_line_attribute13;
1064 END IF;
1065
1066 IF l_changed_flags_rec.int_line_attr14_changed_flag
1067 THEN l_line_rec.interface_line_attribute14 :=
1068 p_commitment_rec.interface_line_attribute14;
1069 END IF;
1070
1071 IF l_changed_flags_rec.int_line_attr15_changed_flag
1072 THEN l_line_rec.interface_line_attribute15 :=
1073 p_commitment_rec.interface_line_attribute15;
1074 END IF;
1075
1076 IF l_changed_flags_rec.int_line_context_changed_flag
1077 THEN l_line_rec.interface_line_context :=
1078 p_commitment_rec.interface_line_context;
1079 END IF;
1080
1081 IF l_changed_flags_rec.attr_category_changed_flag
1082 THEN l_line_rec.attribute_category := p_commitment_rec.attribute_category;
1083 END IF;
1084
1085 IF l_changed_flags_rec.attribute1_changed_flag
1086 THEN l_line_rec.attribute1 := p_commitment_rec.attribute1;
1087 END IF;
1088
1089 IF l_changed_flags_rec.attribute2_changed_flag
1090 THEN l_line_rec.attribute2 := p_commitment_rec.attribute2;
1091 END IF;
1092
1093 IF l_changed_flags_rec.attribute3_changed_flag
1094 THEN l_line_rec.attribute3 := p_commitment_rec.attribute3;
1095 END IF;
1096
1097 IF l_changed_flags_rec.attribute4_changed_flag
1098 THEN l_line_rec.attribute4 := p_commitment_rec.attribute4;
1099 END IF;
1100
1101 IF l_changed_flags_rec.attribute5_changed_flag
1102 THEN l_line_rec.attribute5 := p_commitment_rec.attribute5;
1103 END IF;
1104
1105 IF l_changed_flags_rec.attribute6_changed_flag
1106 THEN l_line_rec.attribute6 := p_commitment_rec.attribute6;
1107 END IF;
1108
1109 IF l_changed_flags_rec.attribute7_changed_flag
1110 THEN l_line_rec.attribute7 := p_commitment_rec.attribute7;
1111 END IF;
1112
1113 IF l_changed_flags_rec.attribute8_changed_flag
1114 THEN l_line_rec.attribute8 := p_commitment_rec.attribute8;
1115 END IF;
1116
1117 IF l_changed_flags_rec.attribute9_changed_flag
1118 THEN l_line_rec.attribute9 := p_commitment_rec.attribute9;
1119 END IF;
1120
1121 IF l_changed_flags_rec.attribute10_changed_flag
1122 THEN l_line_rec.attribute10 := p_commitment_rec.attribute10;
1123 END IF;
1124
1125 IF l_changed_flags_rec.attribute11_changed_flag
1126 THEN l_line_rec.attribute11 := p_commitment_rec.attribute11;
1127 END IF;
1128
1129 IF l_changed_flags_rec.attribute12_changed_flag
1130 THEN l_line_rec.attribute12 := p_commitment_rec.attribute12;
1131 END IF;
1132
1133 IF l_changed_flags_rec.attribute13_changed_flag
1134 THEN l_line_rec.attribute13 := p_commitment_rec.attribute13;
1135 END IF;
1136
1137 IF l_changed_flags_rec.attribute14_changed_flag
1138 THEN l_line_rec.attribute14 := p_commitment_rec.attribute14;
1139 END IF;
1140
1141 IF l_changed_flags_rec.attribute15_changed_flag
1142 THEN l_line_rec.attribute15 := p_commitment_rec.attribute15;
1143 END IF;
1144
1145 IF l_changed_flags_rec.ussgl_trx_code_changed_flag
1146 THEN
1147 l_line_rec.default_ussgl_transaction_code :=
1148 p_commitment_rec.default_ussgl_transaction_code;
1149
1150 END IF;
1151
1152
1153 /*-----------------------------------------------+
1154 | Call lines table handler to update the line |
1155 +-----------------------------------------------*/
1156
1157 arp_ctl_pkg.update_p( l_line_rec,
1158 p_commitment_rec.customer_trx_line_id );
1159
1160
1161 /*-------------------------------------------------------------+
1162 | If commitment amount changed, update the salescredits and |
1163 | distribution amounts |
1164 +-------------------------------------------------------------*/
1165
1166 IF l_changed_flags_rec.extended_amount_changed_flag
1167 THEN
1168 arp_ctls_pkg.update_amounts_f_ctl_id(
1169 p_commitment_rec.customer_trx_line_id,
1170 p_commitment_rec.extended_amount,
1171 p_foreign_currency_code);
1172
1173 -- Don't need to do this update to gl_dist if autoaccounting
1174 -- is going to do it anyway.
1175
1176 IF not p_rerun_autoacc_flag THEN
1177 arp_ctlgd_pkg.update_amount_f_ctl_id(
1178 p_commitment_rec.customer_trx_line_id,
1179 p_commitment_rec.extended_amount,
1180 p_foreign_currency_code,
1181 pg_base_curr_code,
1182 p_exchange_rate,
1183 pg_base_precision,
1184 pg_base_min_acc_unit);
1185 END IF;
1186 END IF;
1187
1188 arp_util.debug('arp_process_commitment.header_post_update()-');
1189
1190 EXCEPTION
1191 WHEN OTHERS THEN
1192 arp_util.debug('EXCEPTION: arp_process_commitment.header_post_update()');
1193 RAISE;
1194
1195 END;
1196
1197 /*===========================================================================+
1198 | PROCEDURE |
1199 | header_pre_delete |
1200 | |
1201 | DESCRIPTION |
1202 | Header pre-delete logic for commitments |
1203 | |
1204 | SCOPE - PRIVATE |
1205 | |
1206 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1207 | dbms_sql.bind_variable |
1208 | arp_util.debug |
1209 | |
1210 | ARGUMENTS : IN: |
1211 | OUT: |
1212 | RETURNS : NONE |
1213 | |
1214 | NOTES |
1215 | |
1216 | MODIFICATION HISTORY |
1217 | 12-JUL-95 Martin Johnson Created |
1218 | |
1219 +===========================================================================*/
1220
1221 PROCEDURE header_pre_delete IS
1222
1223 BEGIN
1224
1225 arp_util.debug('arp_process_commitment.header_pre_delete()+');
1226
1227 arp_util.debug('arp_process_commitment.header_pre_delete()-');
1228
1229 EXCEPTION
1230 WHEN OTHERS THEN
1231 arp_util.debug('EXCEPTION: arp_process_commitment.header_pre_delete()');
1232 RAISE;
1233
1234 END;
1235
1236 /*===========================================================================+
1237 | PROCEDURE |
1238 | set_to_dummy |
1239 | |
1240 | DESCRIPTION |
1241 | This procedure initializes all columns in the commitment record |
1242 | to the appropriate dummy value for its datatype. |
1243 | |
1244 | SCOPE - PUBLIC |
1245 | |
1246 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1247 | arp_util.debug |
1248 | |
1249 | ARGUMENTS : IN: |
1250 | None |
1251 | OUT: |
1252 | p_commitment_rec_rec - The record to initialize |
1253 | |
1254 | RETURNS : NONE |
1255 | |
1256 | NOTES |
1257 | |
1258 | MODIFICATION HISTORY |
1259 | 16-AUG-95 Martin Johnson Created |
1260 | |
1261 +===========================================================================*/
1262
1263 PROCEDURE set_to_dummy( p_commitment_rec OUT NOCOPY commitment_rec_type ) IS
1264
1265 BEGIN
1266
1267 arp_util.debug('arp_process_commitment.set_to_dummy()+',
1268 pg_msg_level_debug);
1269
1270 p_commitment_rec.customer_trx_line_id := pg_number_dummy;
1271 p_commitment_rec.inventory_item_id := pg_number_dummy;
1272 p_commitment_rec.memo_line_id := pg_number_dummy;
1273 p_commitment_rec.description := pg_text_dummy;
1274 p_commitment_rec.extended_amount := pg_number_dummy;
1275 p_commitment_rec.interface_line_attribute1 := pg_text_dummy;
1276 p_commitment_rec.interface_line_attribute2 := pg_text_dummy;
1277 p_commitment_rec.interface_line_attribute3 := pg_text_dummy;
1278 p_commitment_rec.interface_line_attribute4 := pg_text_dummy;
1279 p_commitment_rec.interface_line_attribute5 := pg_text_dummy;
1280 p_commitment_rec.interface_line_attribute6 := pg_text_dummy;
1281 p_commitment_rec.interface_line_attribute7 := pg_text_dummy;
1282 p_commitment_rec.interface_line_attribute8 := pg_text_dummy;
1283 p_commitment_rec.interface_line_attribute9 := pg_text_dummy;
1284 p_commitment_rec.interface_line_attribute10 := pg_text_dummy;
1285 p_commitment_rec.interface_line_attribute11 := pg_text_dummy;
1286 p_commitment_rec.interface_line_attribute12 := pg_text_dummy;
1287 p_commitment_rec.interface_line_attribute13 := pg_text_dummy;
1288 p_commitment_rec.interface_line_attribute14 := pg_text_dummy;
1289 p_commitment_rec.interface_line_attribute15 := pg_text_dummy;
1290 p_commitment_rec.interface_line_context := pg_text_dummy;
1291 p_commitment_rec.attribute_category := pg_text_dummy;
1292 p_commitment_rec.attribute1 := pg_text_dummy;
1293 p_commitment_rec.attribute2 := pg_text_dummy;
1294 p_commitment_rec.attribute3 := pg_text_dummy;
1295 p_commitment_rec.attribute4 := pg_text_dummy;
1296 p_commitment_rec.attribute5 := pg_text_dummy;
1297 p_commitment_rec.attribute6 := pg_text_dummy;
1298 p_commitment_rec.attribute7 := pg_text_dummy;
1299 p_commitment_rec.attribute8 := pg_text_dummy;
1300 p_commitment_rec.attribute9 := pg_text_dummy;
1301 p_commitment_rec.attribute10 := pg_text_dummy;
1302 p_commitment_rec.attribute11 := pg_text_dummy;
1303 p_commitment_rec.attribute12 := pg_text_dummy;
1304 p_commitment_rec.attribute13 := pg_text_dummy;
1305 p_commitment_rec.attribute14 := pg_text_dummy;
1306 p_commitment_rec.attribute15 := pg_text_dummy;
1307
1308 arp_util.debug('arp_process_commitment.set_to_dummy()-',
1309 pg_msg_level_debug);
1310
1311 EXCEPTION
1312 WHEN OTHERS THEN
1313 arp_util.debug(
1314 'EXCEPTION: arp_process_commitment.set_to_dummy()',
1315 pg_msg_level_debug);
1316 RAISE;
1317
1318 END;
1319
1320 /*---------------------------------------------+
1321 | Package initialization section. |
1322 +---------------------------------------------*/
1323
1324 BEGIN
1325
1326 pg_msg_level_debug := arp_global.MSG_LEVEL_DEBUG;
1327
1328 pg_text_dummy := arp_ctl_pkg.get_text_dummy;
1329 pg_number_dummy := arp_ctl_pkg.get_number_dummy;
1330
1331 pg_base_curr_code := arp_global.functional_currency;
1332 pg_base_precision := arp_global.base_precision;
1333 pg_base_min_acc_unit := arp_global.base_min_acc_unit;
1334
1335 EXCEPTION
1336 WHEN OTHERS THEN
1337 arp_util.debug('EXCEPTION: arp_process_commitment.initialization');
1338 RAISE;
1339
1340
1341 END ARP_PROCESS_COMMITMENT;