21: | |
22: | SCOPE - PRIVATE |
23: | |
24: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
25: | arp_util.debug |
26: | |
27: | ARGUMENTS : IN: |
28: | OUT: |
29: | IN/ OUT: |
52: l_allow_overapp_flag varchar2(1);
53:
54: BEGIN
55:
56: arp_util.debug('arp_process_adjustment.validate_insert_adjustment()+');
57:
58: SELECT ps.amount_due_original,
59: ps.amount_due_remaining,
60: ctt.creation_sign,
68: , ar_payment_schedules ps
69: WHERE ps.payment_schedule_id = p_payment_schedule_id
70: AND ps.cust_trx_type_id = ctt.cust_trx_type_id;
71:
72: arp_util.debug( 'p_type = ' || p_type);
73: arp_util.debug('adj amount = ' || p_adj_amount);
74: arp_util.debug('amount due rem ' || l_amount_due_remaining);
75:
76: IF ( p_type = 'INVOICE'
69: WHERE ps.payment_schedule_id = p_payment_schedule_id
70: AND ps.cust_trx_type_id = ctt.cust_trx_type_id;
71:
72: arp_util.debug( 'p_type = ' || p_type);
73: arp_util.debug('adj amount = ' || p_adj_amount);
74: arp_util.debug('amount due rem ' || l_amount_due_remaining);
75:
76: IF ( p_type = 'INVOICE'
77: and p_adj_amount <> (0 - l_amount_due_remaining)) then
70: AND ps.cust_trx_type_id = ctt.cust_trx_type_id;
71:
72: arp_util.debug( 'p_type = ' || p_type);
73: arp_util.debug('adj amount = ' || p_adj_amount);
74: arp_util.debug('amount due rem ' || l_amount_due_remaining);
75:
76: IF ( p_type = 'INVOICE'
77: and p_adj_amount <> (0 - l_amount_due_remaining)) then
78:
93: 0,
94: l_amount_due_remaining,
95: l_amount_due_original );
96: END IF;
97: arp_util.debug('arp_process_adjustment.validate_insert_adjustment()-');
98:
99: EXCEPTION
100: WHEN OTHERS THEN
101: arp_util.debug(
97: arp_util.debug('arp_process_adjustment.validate_insert_adjustment()-');
98:
99: EXCEPTION
100: WHEN OTHERS THEN
101: arp_util.debug(
102: 'EXCEPTION: arp_process_adjustment.validate_insert_adjustment()');
103: RAISE;
104:
105: END;
113: | |
114: | SCOPE - PRIVATE |
115: | |
116: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
117: | arp_util.debug |
118: | |
119: | ARGUMENTS : IN: |
120: | OUT: |
121: | IN/ OUT: |
151: l_tax_original number;
152:
153: BEGIN
154:
155: arp_util.debug('arp_process_adjustment.validate_update_adjustment()+');
156:
157: IF ( p_status_changed_flag ) AND
158: ( p_status = 'A' )
159: THEN
262: END IF;
263:
264: END IF;
265:
266: arp_util.debug('arp_process_adjustment.validate_update_adjustment()-');
267:
268: EXCEPTION
269: WHEN OTHERS THEN
270: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
268: EXCEPTION
269: WHEN OTHERS THEN
270: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
271: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_non_db_pkg.check_natural_application exception: '||SQLERRM );
272: arp_util.debug(
273: 'EXCEPTION: arp_process_adjustment.validate_update_adjustment()');
274: RAISE;
275:
276: END;
284: | |
285: | SCOPE - PRIVATE |
286: | |
287: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
288: | arp_util.debug |
289: | |
290: | ARGUMENTS : IN: |
291: | p_adjustment_id |
292: | p_new_adj_rec |
313: IS
314:
315: BEGIN
316:
317: arp_util.debug('ar_process_adjustment.set_flags()+',
318: pg_msg_level_debug);
319:
320: arp_util.debug('p_old_adj_rec.status: ' || p_old_adj_rec.status );
321: arp_util.debug('p_new_adj_rec.status: ' || p_new_adj_rec.status );
316:
317: arp_util.debug('ar_process_adjustment.set_flags()+',
318: pg_msg_level_debug);
319:
320: arp_util.debug('p_old_adj_rec.status: ' || p_old_adj_rec.status );
321: arp_util.debug('p_new_adj_rec.status: ' || p_new_adj_rec.status );
322: arp_util.debug('pg_text_dummy: ' || pg_text_dummy );
323:
324: IF (
317: arp_util.debug('ar_process_adjustment.set_flags()+',
318: pg_msg_level_debug);
319:
320: arp_util.debug('p_old_adj_rec.status: ' || p_old_adj_rec.status );
321: arp_util.debug('p_new_adj_rec.status: ' || p_new_adj_rec.status );
322: arp_util.debug('pg_text_dummy: ' || pg_text_dummy );
323:
324: IF (
325: nvl(p_old_adj_rec.status, '!@#$%') <>
318: pg_msg_level_debug);
319:
320: arp_util.debug('p_old_adj_rec.status: ' || p_old_adj_rec.status );
321: arp_util.debug('p_new_adj_rec.status: ' || p_new_adj_rec.status );
322: arp_util.debug('pg_text_dummy: ' || pg_text_dummy );
323:
324: IF (
325: nvl(p_old_adj_rec.status, '!@#$%') <>
326: nvl(p_new_adj_rec.status, '!@#$%')
330: THEN p_status_changed_flag := TRUE;
331: ELSE p_status_changed_flag := FALSE;
332: END IF;
333:
334: arp_util.debug('ar_process_adjustment.set_flags()-',
335: pg_msg_level_debug);
336:
337: EXCEPTION
338: WHEN OTHERS THEN
340: /*---------------------------------------------+
341: | Display parameters and raise the exception |
342: +---------------------------------------------*/
343:
344: arp_util.debug('EXCEPTION: arp_process_adjustment.set_flags()');
345:
346: arp_util.debug('');
347: arp_util.debug('---------- parameters for set_flags() ---------');
348:
342: +---------------------------------------------*/
343:
344: arp_util.debug('EXCEPTION: arp_process_adjustment.set_flags()');
345:
346: arp_util.debug('');
347: arp_util.debug('---------- parameters for set_flags() ---------');
348:
349: arp_util.debug('p_adjustment_id = ' || p_adjustment_id);
350: arp_util.debug('');
343:
344: arp_util.debug('EXCEPTION: arp_process_adjustment.set_flags()');
345:
346: arp_util.debug('');
347: arp_util.debug('---------- parameters for set_flags() ---------');
348:
349: arp_util.debug('p_adjustment_id = ' || p_adjustment_id);
350: arp_util.debug('');
351:
345:
346: arp_util.debug('');
347: arp_util.debug('---------- parameters for set_flags() ---------');
348:
349: arp_util.debug('p_adjustment_id = ' || p_adjustment_id);
350: arp_util.debug('');
351:
352: arp_util.debug('---------- new adjustment record ----------');
353: arp_adjustments_pkg.display_adj_rec( p_new_adj_rec );
346: arp_util.debug('');
347: arp_util.debug('---------- parameters for set_flags() ---------');
348:
349: arp_util.debug('p_adjustment_id = ' || p_adjustment_id);
350: arp_util.debug('');
351:
352: arp_util.debug('---------- new adjustment record ----------');
353: arp_adjustments_pkg.display_adj_rec( p_new_adj_rec );
354: arp_util.debug('');
348:
349: arp_util.debug('p_adjustment_id = ' || p_adjustment_id);
350: arp_util.debug('');
351:
352: arp_util.debug('---------- new adjustment record ----------');
353: arp_adjustments_pkg.display_adj_rec( p_new_adj_rec );
354: arp_util.debug('');
355:
356: RAISE;
350: arp_util.debug('');
351:
352: arp_util.debug('---------- new adjustment record ----------');
353: arp_adjustments_pkg.display_adj_rec( p_new_adj_rec );
354: arp_util.debug('');
355:
356: RAISE;
357:
358: END;
367: | |
368: | SCOPE - PRIVATE |
369: | |
370: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
371: | arp_util.debug |
372: | |
373: | ARGUMENTS : IN: |
374: | p_adj_rec |
375: | p_ps_rec |
401:
402:
403: BEGIN
404:
405: arp_util.debug('arp_process_adjustment.validate_inv_line_amount()+',
406: pg_msg_level_debug);
407:
408: /*----------------------------------------------------------------+
409: | IF the line number is filled in |
492: WHERE
493: ra.applied_customer_trx_id = p_adj_rec.customer_trx_id
494: AND ra.applied_customer_trx_line_id= p_adj_rec.customer_trx_line_id;
495:
496: arp_util.debug('Adj Amt: ' || p_adj_rec.amount ||
497: ' Line Orig: ' || l_line_original ||
498: ' Adj : ' || l_sum_line_adj ||' Cred: ' ||
499: l_line_credited || ' Appl: ' || l_line_applied ||
500: ' Net: ' || TO_CHAR(p_adj_rec.amount +
515: l_line_credited -
516: l_line_applied < 0
517: )
518: THEN
519: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
520: 'validate_inv_line_amount ()',
521: pg_msg_level_debug);
522: arp_util.debug( 'Adjustments cannot be more than available ' ||
523: 'invoiced line amount.',
518: THEN
519: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
520: 'validate_inv_line_amount ()',
521: pg_msg_level_debug);
522: arp_util.debug( 'Adjustments cannot be more than available ' ||
523: 'invoiced line amount.',
524: pg_msg_level_debug);
525: FND_MESSAGE.set_name('AR', 'AR_VAL_ADJ_INV_LINE_AMT');
526: APP_EXCEPTION.raise_exception;
533: l_line_credited -
534: l_line_applied > 0
535: )
536: THEN
537: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
538: 'validate_inv_line_amount ()',
539: pg_msg_level_debug);
540: arp_util.debug( 'Adjustments cannot be more than available ' ||
541: 'invoiced line amount.',
536: THEN
537: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
538: 'validate_inv_line_amount ()',
539: pg_msg_level_debug);
540: arp_util.debug( 'Adjustments cannot be more than available ' ||
541: 'invoiced line amount.',
542: pg_msg_level_debug);
543: FND_MESSAGE.set_name('AR', 'AR_VAL_ADJ_INV_LINE_AMT');
544: APP_EXCEPTION.raise_exception;
546: END IF;
547: END IF; -- end not approved or adjusted and line specified case
548:
549:
550: arp_util.debug('arp_process_adjustment.validate_inv_line_amount()-',
551: pg_msg_level_debug);
552:
553: EXCEPTION
554: WHEN OTHERS THEN
551: pg_msg_level_debug);
552:
553: EXCEPTION
554: WHEN OTHERS THEN
555: arp_util.debug('EXCEPTION: arp_process_adjustment.' ||
556: 'validate_inv_line_amount()',
557: pg_msg_level_debug);
558:
559: arp_util.debug('', pg_msg_level_debug);
555: arp_util.debug('EXCEPTION: arp_process_adjustment.' ||
556: 'validate_inv_line_amount()',
557: pg_msg_level_debug);
558:
559: arp_util.debug('', pg_msg_level_debug);
560: arp_util.debug('---------- parameters for validate_inv_line_amount()' ||
561: ' ---------',
562: pg_msg_level_debug);
563:
556: 'validate_inv_line_amount()',
557: pg_msg_level_debug);
558:
559: arp_util.debug('', pg_msg_level_debug);
560: arp_util.debug('---------- parameters for validate_inv_line_amount()' ||
561: ' ---------',
562: pg_msg_level_debug);
563:
564: arp_adjustments_pkg.display_adj_rec( p_adj_rec );
577: | |
578: | SCOPE - PRIVATE |
579: | |
580: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
581: | arp_util.debug |
582: | |
583: | ARGUMENTS : IN: |
584: | p_customer_trx_line_id |
585: | p_customer_trx_id |
608: l_ps_rec ar_payment_schedules%rowtype;
609:
610: BEGIN
611:
612: arp_util.debug('arp_process_adjustment.validate_inv_line_amount_cover()+',
613: pg_msg_level_debug);
614:
615: l_adj_rec.customer_trx_line_id := p_customer_trx_line_id;
616: l_adj_rec.customer_trx_id := p_customer_trx_id;
628: WHERE payment_schedule_id = p_payment_schedule_id;
629:
630: validate_inv_line_amount( l_adj_rec, l_ps_rec );
631:
632: arp_util.debug('arp_process_adjustment.validate_inv_line_amount_cover()-',
633: pg_msg_level_debug);
634:
635: EXCEPTION
636: WHEN OTHERS THEN
633: pg_msg_level_debug);
634:
635: EXCEPTION
636: WHEN OTHERS THEN
637: arp_util.debug('EXCEPTION: arp_process_adjustment.' ||
638: 'validate_inv_line_amount_cover()',
639: pg_msg_level_debug);
640:
641: arp_util.debug('', pg_msg_level_debug);
637: arp_util.debug('EXCEPTION: arp_process_adjustment.' ||
638: 'validate_inv_line_amount_cover()',
639: pg_msg_level_debug);
640:
641: arp_util.debug('', pg_msg_level_debug);
642: arp_util.debug('---------- parameters for ' ||
643: 'validate_inv_line_amount_cover()' ||
644: ' ---------',
645: pg_msg_level_debug);
638: 'validate_inv_line_amount_cover()',
639: pg_msg_level_debug);
640:
641: arp_util.debug('', pg_msg_level_debug);
642: arp_util.debug('---------- parameters for ' ||
643: 'validate_inv_line_amount_cover()' ||
644: ' ---------',
645: pg_msg_level_debug);
646:
643: 'validate_inv_line_amount_cover()' ||
644: ' ---------',
645: pg_msg_level_debug);
646:
647: arp_util.debug('p_customer_trx_line_id = ' ||
648: TO_CHAR(p_customer_trx_line_id), pg_msg_level_debug);
649: arp_util.debug('p_customer_trx_id = ' ||
650: TO_CHAR(p_customer_trx_id), pg_msg_level_debug);
651: arp_util.debug('p_payment_schedule_id = ' ||
645: pg_msg_level_debug);
646:
647: arp_util.debug('p_customer_trx_line_id = ' ||
648: TO_CHAR(p_customer_trx_line_id), pg_msg_level_debug);
649: arp_util.debug('p_customer_trx_id = ' ||
650: TO_CHAR(p_customer_trx_id), pg_msg_level_debug);
651: arp_util.debug('p_payment_schedule_id = ' ||
652: TO_CHAR(p_payment_schedule_id), pg_msg_level_debug);
653: arp_util.debug('p_amount = ' ||
647: arp_util.debug('p_customer_trx_line_id = ' ||
648: TO_CHAR(p_customer_trx_line_id), pg_msg_level_debug);
649: arp_util.debug('p_customer_trx_id = ' ||
650: TO_CHAR(p_customer_trx_id), pg_msg_level_debug);
651: arp_util.debug('p_payment_schedule_id = ' ||
652: TO_CHAR(p_payment_schedule_id), pg_msg_level_debug);
653: arp_util.debug('p_amount = ' ||
654: TO_CHAR(p_amount), pg_msg_level_debug);
655:
649: arp_util.debug('p_customer_trx_id = ' ||
650: TO_CHAR(p_customer_trx_id), pg_msg_level_debug);
651: arp_util.debug('p_payment_schedule_id = ' ||
652: TO_CHAR(p_payment_schedule_id), pg_msg_level_debug);
653: arp_util.debug('p_amount = ' ||
654: TO_CHAR(p_amount), pg_msg_level_debug);
655:
656: RAISE;
657:
667: | |
668: | SCOPE - PRIVATE |
669: | |
670: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
671: | arp_util.debug |
672: | |
673: | ARGUMENTS : IN: |
674: | p_adj_rec |
675: | p_ps_rec |
707: l_approval_amount_from ar_approval_user_limits.amount_from%type;
708:
709: BEGIN
710:
711: arp_util.debug('arp_process_adjustment.validate_update_approve_adj()+',
712: pg_msg_level_debug);
713:
714:
715: IF ( p_adjustment_code = 'A' )
731:
732: IF ( l_closing_status not in ('O', 'F' ) )
733: THEN
734:
735: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
736: 'validate_update_approve_adj ()',
737: pg_msg_level_debug);
738: arp_util.debug( 'Invalid date. Enter a GL date in an open or' ||
739: ' future enterable period.',
734:
735: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
736: 'validate_update_approve_adj ()',
737: pg_msg_level_debug);
738: arp_util.debug( 'Invalid date. Enter a GL date in an open or' ||
739: ' future enterable period.',
740: pg_msg_level_debug);
741: FND_MESSAGE.set_name('AR', 'AR_VAL_GL_DATE_OPEN');
742: APP_EXCEPTION.raise_exception;
748:
749: IF ( p_adj_rec.gl_date < p_ps_rec.gl_date )
750: THEN
751:
752: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
753: 'validate_update_approve_adj ()',
754: pg_msg_level_debug);
755: arp_util.debug( 'The GL date should not be prior to the ' ||
756: 'invoice''s GL date.',
751:
752: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
753: 'validate_update_approve_adj ()',
754: pg_msg_level_debug);
755: arp_util.debug( 'The GL date should not be prior to the ' ||
756: 'invoice''s GL date.',
757: pg_msg_level_debug);
758: FND_MESSAGE.set_name('AR', 'AR_VAL_GL_INV_GL');
759: APP_EXCEPTION.raise_exception;
783: AND aul.document_type = 'ADJ';
784:
785: EXCEPTION
786: WHEN NO_DATA_FOUND THEN
787: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
788: 'validate_update_approve_adj ()',
789: pg_msg_level_debug);
790: arp_util.debug( 'You do not have approval limits for currency ' ||
791: p_ps_rec.invoice_currency_code,
786: WHEN NO_DATA_FOUND THEN
787: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
788: 'validate_update_approve_adj ()',
789: pg_msg_level_debug);
790: arp_util.debug( 'You do not have approval limits for currency ' ||
791: p_ps_rec.invoice_currency_code,
792: pg_msg_level_debug);
793: FND_MESSAGE.set_name('AR', 'AR_VAL_USER_LIMIT');
794: FND_MESSAGE.set_token( 'CURRENCY',
804: ( p_adj_rec.amount < l_approval_amount_from )
805: )
806: THEN
807:
808: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
809: 'validate_update_approve_adj ()',
810: pg_msg_level_debug);
811: arp_util.debug( 'User ID: ' || arp_adjustments_pkg.pg_user_id ||
812: ' Amount: ' ||
807:
808: arp_util.debug( 'EXCEPTION: arp_process_adjustment.' ||
809: 'validate_update_approve_adj ()',
810: pg_msg_level_debug);
811: arp_util.debug( 'User ID: ' || arp_adjustments_pkg.pg_user_id ||
812: ' Amount: ' ||
813: p_adj_rec.amount || ' From: ' ||
814: l_approval_amount_from || ' To: ' ||
815: l_approval_amount_to,
813: p_adj_rec.amount || ' From: ' ||
814: l_approval_amount_from || ' To: ' ||
815: l_approval_amount_to,
816: pg_msg_level_debug);
817: arp_util.debug( 'Amount exceeded approval limit.',
818: pg_msg_level_debug);
819: FND_MESSAGE.set_name('AR', 'AR_VAL_AMT_APPROVAL_LIMIT');
820: APP_EXCEPTION.raise_exception;
821:
828:
829: END IF; -- end approved case
830:
831:
832: arp_util.debug('arp_process_adjustment.validate_update_approve_adj()-',
833: pg_msg_level_debug);
834:
835: EXCEPTION
836: WHEN OTHERS THEN
833: pg_msg_level_debug);
834:
835: EXCEPTION
836: WHEN OTHERS THEN
837: arp_util.debug('EXCEPTION: arp_process_adjustment.' ||
838: 'validate_update_approve_adj()',
839: pg_msg_level_debug);
840:
841: arp_util.debug('', pg_msg_level_debug);
837: arp_util.debug('EXCEPTION: arp_process_adjustment.' ||
838: 'validate_update_approve_adj()',
839: pg_msg_level_debug);
840:
841: arp_util.debug('', pg_msg_level_debug);
842: arp_util.debug('---------- parameters for validate_update_approve_adj()'
843: || ' ---------',
844: pg_msg_level_debug);
845:
838: 'validate_update_approve_adj()',
839: pg_msg_level_debug);
840:
841: arp_util.debug('', pg_msg_level_debug);
842: arp_util.debug('---------- parameters for validate_update_approve_adj()'
843: || ' ---------',
844: pg_msg_level_debug);
845:
846: arp_util.debug('p_adjustment_code = ' || p_adjustment_code );
842: arp_util.debug('---------- parameters for validate_update_approve_adj()'
843: || ' ---------',
844: pg_msg_level_debug);
845:
846: arp_util.debug('p_adjustment_code = ' || p_adjustment_code );
847: arp_adjustments_pkg.display_adj_rec( p_adj_rec );
848:
849: RAISE;
850:
859: | |
860: | SCOPE - PUBLIC |
861: | |
862: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
863: | arp_util.debug |
864: | |
865: | ARGUMENTS : IN: |
866: | p_form_name |
867: | p_form_version |
959: l_line_id NUMBER;
960:
961: BEGIN
962:
963: arp_util.debug('ar_process_adjustment.insert_adjustment()+');
964:
965: p_adjustment_number := NULL;
966: p_adjustment_id := NULL;
967:
984: /*--------------------+
985: | pre-insert logic |
986: +--------------------*/
987:
988: arp_util.debug( 'p_app_level = ' || p_app_level);
989: arp_util.debug( 'p_type = ' || p_adj_rec.type);
990: arp_util.debug('adj amount = ' || p_adj_rec.amount);
991:
992: /*----------------------------------------------------+
985: | pre-insert logic |
986: +--------------------*/
987:
988: arp_util.debug( 'p_app_level = ' || p_app_level);
989: arp_util.debug( 'p_type = ' || p_adj_rec.type);
990: arp_util.debug('adj amount = ' || p_adj_rec.amount);
991:
992: /*----------------------------------------------------+
993: | BOE change |
986: +--------------------*/
987:
988: arp_util.debug( 'p_app_level = ' || p_app_level);
989: arp_util.debug( 'p_type = ' || p_adj_rec.type);
990: arp_util.debug('adj amount = ' || p_adj_rec.amount);
991:
992: /*----------------------------------------------------+
993: | BOE change |
994: | For a reverse adjustment the validation on insert |
1039: l_ae_doc_rec.source_id_old := p_adj_rec.code_combination_id;
1040: p_adj_rec.type := 'INVOICE';
1041:
1042: ELSE
1043: arp_util.debug( 'before update_adj_related_adjustment');
1044: arp_util.debug( 'line adjusted = ' || p_adj_rec.line_adjusted);
1045: arp_util.debug( 'tax adjusted = ' || p_adj_rec.tax_adjusted);
1046: arp_util.debug( 'freight adjusted = ' || p_adj_rec.freight_adjusted);
1047:
1040: p_adj_rec.type := 'INVOICE';
1041:
1042: ELSE
1043: arp_util.debug( 'before update_adj_related_adjustment');
1044: arp_util.debug( 'line adjusted = ' || p_adj_rec.line_adjusted);
1045: arp_util.debug( 'tax adjusted = ' || p_adj_rec.tax_adjusted);
1046: arp_util.debug( 'freight adjusted = ' || p_adj_rec.freight_adjusted);
1047:
1048: /*-------------------------------------------------------------+
1041:
1042: ELSE
1043: arp_util.debug( 'before update_adj_related_adjustment');
1044: arp_util.debug( 'line adjusted = ' || p_adj_rec.line_adjusted);
1045: arp_util.debug( 'tax adjusted = ' || p_adj_rec.tax_adjusted);
1046: arp_util.debug( 'freight adjusted = ' || p_adj_rec.freight_adjusted);
1047:
1048: /*-------------------------------------------------------------+
1049: | If the flag p_check_amount has the value of 'F' ie it is |
1042: ELSE
1043: arp_util.debug( 'before update_adj_related_adjustment');
1044: arp_util.debug( 'line adjusted = ' || p_adj_rec.line_adjusted);
1045: arp_util.debug( 'tax adjusted = ' || p_adj_rec.tax_adjusted);
1046: arp_util.debug( 'freight adjusted = ' || p_adj_rec.freight_adjusted);
1047:
1048: /*-------------------------------------------------------------+
1049: | If the flag p_check_amount has the value of 'F' ie it is |
1050: | an adjustment reversal, then adjustment_type is set to |
1177: -- We store ADR (amount due remaining) values to temporary
1178: -- variables, because we do not update transaction payment
1179: -- schedule when adjustment is not approved.
1180:
1181: arp_util.calc_acctd_amount(
1182: NULL
1183: , NULL
1184: , NULL
1185: , NVL(l_ps_rec.exchange_rate,1) -- Exchange rate
1306: ELSE
1307: l_mode := p_adj_rec.type;
1308: END IF;
1309:
1310: arp_util.debug(' cust trx line id = ' || p_adj_rec.customer_trx_line_id);
1311:
1312: IF (p_app_level = 'LINE') THEN
1313: arp_etax_util.prorate_recoverable(
1314: p_adj_id => l_adjustment_id,
1342: prorated amounts can be ignored from this point
1343: on. */
1344:
1345: /* display results in debug log */
1346: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
1347: arp_util.debug(' l_gt_id = ' || l_gt_id);
1348: arp_util.debug(' l_line_amt = ' || l_line_amt);
1349: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
1350:
1343: on. */
1344:
1345: /* display results in debug log */
1346: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
1347: arp_util.debug(' l_gt_id = ' || l_gt_id);
1348: arp_util.debug(' l_line_amt = ' || l_line_amt);
1349: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
1350:
1351: IF NVL(l_gt_id,0) <> 0
1344:
1345: /* display results in debug log */
1346: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
1347: arp_util.debug(' l_gt_id = ' || l_gt_id);
1348: arp_util.debug(' l_line_amt = ' || l_line_amt);
1349: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
1350:
1351: IF NVL(l_gt_id,0) <> 0
1352: THEN
1345: /* display results in debug log */
1346: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
1347: arp_util.debug(' l_gt_id = ' || l_gt_id);
1348: arp_util.debug(' l_line_amt = ' || l_line_amt);
1349: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
1350:
1351: IF NVL(l_gt_id,0) <> 0
1352: THEN
1353: l_from_llca_call := 'Y';
1473: l_from_llca_call := 'Y';
1474:
1475: END IF;
1476:
1477: arp_util.debug('Before Calling arp_acct_main.Create_Acct_Entry');
1478: arp_util.debug('l_gt_id = ' || l_gt_id);
1479: arp_util.debug('l_from_llca_call = '||l_from_llca_call);
1480:
1481: arp_acct_main.Create_Acct_Entry(p_ae_doc_rec => l_ae_doc_rec,
1474:
1475: END IF;
1476:
1477: arp_util.debug('Before Calling arp_acct_main.Create_Acct_Entry');
1478: arp_util.debug('l_gt_id = ' || l_gt_id);
1479: arp_util.debug('l_from_llca_call = '||l_from_llca_call);
1480:
1481: arp_acct_main.Create_Acct_Entry(p_ae_doc_rec => l_ae_doc_rec,
1482: p_from_llca_call => l_from_llca_call,
1475: END IF;
1476:
1477: arp_util.debug('Before Calling arp_acct_main.Create_Acct_Entry');
1478: arp_util.debug('l_gt_id = ' || l_gt_id);
1479: arp_util.debug('l_from_llca_call = '||l_from_llca_call);
1480:
1481: arp_acct_main.Create_Acct_Entry(p_ae_doc_rec => l_ae_doc_rec,
1482: p_from_llca_call => l_from_llca_call,
1483: p_gt_id => l_gt_id);
1500: l_approval_action_history_id);
1501:
1502: END IF;
1503:
1504: arp_util.debug('ar_process_adjustment.insert_adjustment()-');
1505:
1506: EXCEPTION
1507: WHEN OTHERS THEN
1508: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
1506: EXCEPTION
1507: WHEN OTHERS THEN
1508: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
1509: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.insert_adjustment exception: '||SQLERRM );
1510: arp_util.debug(
1511: 'EXCEPTION: ar_process_adjustment.insert_adjustment()');
1512: RAISE;
1513:
1514: END;
1523: | |
1524: | SCOPE - PUBLIC |
1525: | |
1526: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1527: | arp_util.debug |
1528: | |
1529: | ARGUMENTS : IN: |
1530: | OUT: |
1531: | IN/ OUT: |
1598: l_security xla_events_pub_pkg.t_security;
1599: l_adj_post_to_gl ra_cust_trx_types.adj_post_to_gl%TYPE := 'Y' ;
1600:
1601: BEGIN
1602: arp_util.debug('ar_process_adjustment.update_adjustment()+',
1603: pg_msg_level_debug);
1604:
1605: /*----------------------------------------------------------------+
1606: | check form version to determine if it is compatible with the |
1662: l_status_changed_flag,
1663: l_adj_rec.status,
1664: l_adj_rec.tax_adjusted );
1665:
1666: arp_util.debug(
1667: 'l_status_changed_flag: ' ||
1668: arp_trx_util.boolean_to_varchar2(l_status_changed_flag) );
1669:
1670: IF l_status_changed_flag
1741: WHERE payment_schedule_id=l_adj_rec.payment_schedule_id;
1742: EXCEPTION
1743: WHEN OTHERS THEN
1744: IF PG_DEBUG in ('Y', 'C') THEN
1745: arp_util.debug('Problem in Amount adjusted pending calculation ' ||
1746: 'EXCEPTION: arp_ps_util.update_adj_related_columns' );
1747: END IF;
1748: RAISE;
1749: END;
1757: where ct.customer_trx_id = l_adj_rec.customer_trx_id
1758: and ct.cust_trx_type_id = ctt.cust_trx_type_id ;
1759:
1760: IF PG_DEBUG in ('Y', 'C') THEN
1761: arp_util.debug('l_adj_post_to_gl : '|| l_adj_post_to_gl);
1762: END IF;
1763:
1764: EXCEPTION
1765: WHEN OTHERS THEN
1764: EXCEPTION
1765: WHEN OTHERS THEN
1766:
1767: IF PG_DEBUG in ('Y', 'C') THEN
1768: arp_util.debug('Unable to get post to gl flag for adjustment' );
1769: arp_util.debug('EXCEPTION: arp_ps_util.update_adjustment '|| SQLERRM);
1770: END IF;
1771: RAISE;
1772: END;
1765: WHEN OTHERS THEN
1766:
1767: IF PG_DEBUG in ('Y', 'C') THEN
1768: arp_util.debug('Unable to get post to gl flag for adjustment' );
1769: arp_util.debug('EXCEPTION: arp_ps_util.update_adjustment '|| SQLERRM);
1770: END IF;
1771: RAISE;
1772: END;
1773:
1809: p_security_context => l_security);
1810: EXCEPTION
1811: WHEN OTHERS THEN
1812: IF PG_DEBUG in ('Y', 'C') THEN
1813: arp_util.debug('Unable to get the XLA Entites Data ' ||
1814: 'EXCEPTION: arp_ps_util.update_adjustment' );
1815: END IF;
1816: RAISE;
1817: END;
1957: l_approval_action_history_id,
1958: l_app_ps_status);
1959: END IF;
1960:
1961: arp_util.debug('ar_process_adjustment.update_adjustment()-',
1962: pg_msg_level_debug);
1963:
1964:
1965: EXCEPTION
1965: EXCEPTION
1966: WHEN OTHERS THEN
1967: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
1968: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.update_adjustment exception: '||SQLERRM );
1969: arp_util.debug(
1970: 'EXCEPTION: ar_process_adjustment.update_adjustment()',
1971: pg_msg_level_debug);
1972: RAISE;
1973:
1983: | |
1984: | SCOPE - PUBLIC |
1985: | |
1986: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1987: | arp_util.debug |
1988: | |
1989: | ARGUMENTS : IN: |
1990: | p_form_name |
1991: | p_form_version |
2046:
2047: l_gt_id_temp NUMBER := 0;
2048: BEGIN
2049:
2050: arp_util.debug('ar_process_adjustment.update_approve_adj()+',
2051: pg_msg_level_debug);
2052:
2053:
2054: /*-----------------------------------------------------------------+
2154: prorated amounts can be ignored from this point
2155: on. */
2156:
2157: /* display results in debug log */
2158: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
2159: arp_util.debug(' l_gt_id = ' || l_gt_id);
2160: arp_util.debug(' l_line_amt = ' || l_line_amt);
2161: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
2162:
2155: on. */
2156:
2157: /* display results in debug log */
2158: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
2159: arp_util.debug(' l_gt_id = ' || l_gt_id);
2160: arp_util.debug(' l_line_amt = ' || l_line_amt);
2161: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
2162:
2163: IF l_gt_id <> 0
2156:
2157: /* display results in debug log */
2158: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
2159: arp_util.debug(' l_gt_id = ' || l_gt_id);
2160: arp_util.debug(' l_line_amt = ' || l_line_amt);
2161: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
2162:
2163: IF l_gt_id <> 0
2164: THEN
2157: /* display results in debug log */
2158: arp_util.debug('After return from arp_etax_util.prorate_recoverable');
2159: arp_util.debug(' l_gt_id = ' || l_gt_id);
2160: arp_util.debug(' l_line_amt = ' || l_line_amt);
2161: arp_util.debug(' l_tax_amt = ' || l_tax_amt);
2162:
2163: IF l_gt_id <> 0
2164: THEN
2165: l_from_llca_call := 'Y';
2320: l_aah_rec,
2321: l_approval_action_history_id
2322: );
2323:
2324: arp_util.debug('ar_process_adjustment.update_approve_adj()-',
2325: pg_msg_level_debug);
2326:
2327:
2328: EXCEPTION
2326:
2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: arp_util.debug(
2331: 'EXCEPTION: ar_process_adjustment.update_approve_adj()',
2332: pg_msg_level_debug);
2333: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
2334: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.update_approce_adjustment exception: '||SQLERRM );
2332: pg_msg_level_debug);
2333: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
2334: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.update_approce_adjustment exception: '||SQLERRM );
2335:
2336: arp_util.debug('', pg_msg_level_debug);
2337: arp_util.debug('---------- parameters for update_approve_adj()'
2338: || ' ---------',
2339: pg_msg_level_debug);
2340:
2333: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
2334: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.update_approce_adjustment exception: '||SQLERRM );
2335:
2336: arp_util.debug('', pg_msg_level_debug);
2337: arp_util.debug('---------- parameters for update_approve_adj()'
2338: || ' ---------',
2339: pg_msg_level_debug);
2340:
2341: arp_util.debug('p_form_name = ' || p_form_name );
2337: arp_util.debug('---------- parameters for update_approve_adj()'
2338: || ' ---------',
2339: pg_msg_level_debug);
2340:
2341: arp_util.debug('p_form_name = ' || p_form_name );
2342: arp_util.debug('p_form_version = ' || p_form_version );
2343: arp_util.debug('p_adjustment_code = ' || p_adjustment_code );
2344: arp_util.debug('p_adjustment_id = ' || p_adjustment_id );
2345:
2338: || ' ---------',
2339: pg_msg_level_debug);
2340:
2341: arp_util.debug('p_form_name = ' || p_form_name );
2342: arp_util.debug('p_form_version = ' || p_form_version );
2343: arp_util.debug('p_adjustment_code = ' || p_adjustment_code );
2344: arp_util.debug('p_adjustment_id = ' || p_adjustment_id );
2345:
2346: arp_adjustments_pkg.display_adj_rec( p_adj_rec );
2339: pg_msg_level_debug);
2340:
2341: arp_util.debug('p_form_name = ' || p_form_name );
2342: arp_util.debug('p_form_version = ' || p_form_version );
2343: arp_util.debug('p_adjustment_code = ' || p_adjustment_code );
2344: arp_util.debug('p_adjustment_id = ' || p_adjustment_id );
2345:
2346: arp_adjustments_pkg.display_adj_rec( p_adj_rec );
2347:
2340:
2341: arp_util.debug('p_form_name = ' || p_form_name );
2342: arp_util.debug('p_form_version = ' || p_form_version );
2343: arp_util.debug('p_adjustment_code = ' || p_adjustment_code );
2344: arp_util.debug('p_adjustment_id = ' || p_adjustment_id );
2345:
2346: arp_adjustments_pkg.display_adj_rec( p_adj_rec );
2347:
2348: RAISE;
2361: | |
2362: | SCOPE - PUBLIC |
2363: | |
2364: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
2365: | arp_util.debug |
2366: | |
2367: | ARGUMENTS : IN: |
2368: | None |
2369: | OUT: |
2388:
2389: l_new_ps_rec ar_payment_schedules%rowtype;
2390:
2391: BEGIN
2392: arp_util.debug('test_adj()+');
2393:
2394:
2395: /*---------------------------------------------------+
2396: | Verify that the adjustment was updated properly |
2460: and acctd_amount = p_adj_rec.acctd_amount;
2461:
2462: IF ( p_result = 'A: Fail, ' )
2463: THEN
2464: arp_util.debug('----- database adjustment record -----');
2465: arp_adjustments_pkg.display_adj_p(p_adj_rec.adjustment_id);
2466: arp_util.debug('----- parameter adjustment record -----');
2467: arp_adjustments_pkg.display_adj_rec(p_adj_rec);
2468: END IF;
2462: IF ( p_result = 'A: Fail, ' )
2463: THEN
2464: arp_util.debug('----- database adjustment record -----');
2465: arp_adjustments_pkg.display_adj_p(p_adj_rec.adjustment_id);
2466: arp_util.debug('----- parameter adjustment record -----');
2467: arp_adjustments_pkg.display_adj_rec(p_adj_rec);
2468: END IF;
2469:
2470:
2552: l_new_ps_rec.amount_due_remaining = 0))
2553: );
2554:
2555:
2556: arp_util.debug('test_adj()-');
2557:
2558: EXCEPTION
2559: WHEN OTHERS THEN
2560: arp_util.debug( 'EXCEPTION: ar_process_adjustment.test_adj()',
2556: arp_util.debug('test_adj()-');
2557:
2558: EXCEPTION
2559: WHEN OTHERS THEN
2560: arp_util.debug( 'EXCEPTION: ar_process_adjustment.test_adj()',
2561: pg_msg_level_debug);
2562: RAISE;
2563: END;
2564:
2642: -- This block will update all other adjustments than Approved and
2643: -- Rejected to be Rejected.
2644:
2645: IF PG_DEBUG in ('Y', 'C') THEN
2646: arp_util.debug ( 'before update all other adjustments');
2647: END IF;
2648: BEGIN
2649: SELECT *
2650: INTO l_adj_rec
2695: l_aah_rec.comments :=
2696: fnd_message.get_string ('AR','AR_ADJ_REVERSED');
2697:
2698: IF PG_DEBUG in ('Y', 'C') THEN
2699: arp_util.debug( 'before insert_p for ar_approval_action_history');
2700: END IF;
2701: arp_aa_history_pkg.insert_p( l_aah_rec, l_aah_id );
2702:
2703: -- If status of adj == R, then there is no need to create an opposing
2705: -- Otherwise, create an opposing adj with status = A
2706: -- and amount = (-1)*amount
2707:
2708: IF PG_DEBUG in ('Y', 'C') THEN
2709: arp_util.debug( 'before modify_adj_rec');
2710: END IF;
2711: modify_adj_rec(
2712: p_adj_id
2713: , p_reversal_gl_date
3287: l_le_id NUMBER;
3288:
3289: BEGIN
3290: IF PG_DEBUG in ('Y', 'C') THEN
3291: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()+');
3292: arp_util.debug( 'p_adj_amount = ' || to_char(p_adj_amount));
3293: arp_util.debug( 'p_payment_schedule_id = ' || to_char(p_payment_schedule_id));
3294: arp_util.debug( 'p_type = ' || p_type);
3295: arp_util.debug( 'p_receivables_trx_id = ' || to_char(p_receivables_trx_id));
3288:
3289: BEGIN
3290: IF PG_DEBUG in ('Y', 'C') THEN
3291: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()+');
3292: arp_util.debug( 'p_adj_amount = ' || to_char(p_adj_amount));
3293: arp_util.debug( 'p_payment_schedule_id = ' || to_char(p_payment_schedule_id));
3294: arp_util.debug( 'p_type = ' || p_type);
3295: arp_util.debug( 'p_receivables_trx_id = ' || to_char(p_receivables_trx_id));
3296: arp_util.debug( 'p_apply_date = ' || to_char(p_apply_date));
3289: BEGIN
3290: IF PG_DEBUG in ('Y', 'C') THEN
3291: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()+');
3292: arp_util.debug( 'p_adj_amount = ' || to_char(p_adj_amount));
3293: arp_util.debug( 'p_payment_schedule_id = ' || to_char(p_payment_schedule_id));
3294: arp_util.debug( 'p_type = ' || p_type);
3295: arp_util.debug( 'p_receivables_trx_id = ' || to_char(p_receivables_trx_id));
3296: arp_util.debug( 'p_apply_date = ' || to_char(p_apply_date));
3297: arp_util.debug(' cust trx line id = ' || to_char(p_cust_trx_line_id));
3290: IF PG_DEBUG in ('Y', 'C') THEN
3291: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()+');
3292: arp_util.debug( 'p_adj_amount = ' || to_char(p_adj_amount));
3293: arp_util.debug( 'p_payment_schedule_id = ' || to_char(p_payment_schedule_id));
3294: arp_util.debug( 'p_type = ' || p_type);
3295: arp_util.debug( 'p_receivables_trx_id = ' || to_char(p_receivables_trx_id));
3296: arp_util.debug( 'p_apply_date = ' || to_char(p_apply_date));
3297: arp_util.debug(' cust trx line id = ' || to_char(p_cust_trx_line_id));
3298: END IF;
3291: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()+');
3292: arp_util.debug( 'p_adj_amount = ' || to_char(p_adj_amount));
3293: arp_util.debug( 'p_payment_schedule_id = ' || to_char(p_payment_schedule_id));
3294: arp_util.debug( 'p_type = ' || p_type);
3295: arp_util.debug( 'p_receivables_trx_id = ' || to_char(p_receivables_trx_id));
3296: arp_util.debug( 'p_apply_date = ' || to_char(p_apply_date));
3297: arp_util.debug(' cust trx line id = ' || to_char(p_cust_trx_line_id));
3298: END IF;
3299:
3292: arp_util.debug( 'p_adj_amount = ' || to_char(p_adj_amount));
3293: arp_util.debug( 'p_payment_schedule_id = ' || to_char(p_payment_schedule_id));
3294: arp_util.debug( 'p_type = ' || p_type);
3295: arp_util.debug( 'p_receivables_trx_id = ' || to_char(p_receivables_trx_id));
3296: arp_util.debug( 'p_apply_date = ' || to_char(p_apply_date));
3297: arp_util.debug(' cust trx line id = ' || to_char(p_cust_trx_line_id));
3298: END IF;
3299:
3300: p_error_num := 0;
3293: arp_util.debug( 'p_payment_schedule_id = ' || to_char(p_payment_schedule_id));
3294: arp_util.debug( 'p_type = ' || p_type);
3295: arp_util.debug( 'p_receivables_trx_id = ' || to_char(p_receivables_trx_id));
3296: arp_util.debug( 'p_apply_date = ' || to_char(p_apply_date));
3297: arp_util.debug(' cust trx line id = ' || to_char(p_cust_trx_line_id));
3298: END IF;
3299:
3300: p_error_num := 0;
3301:
3375: AND org_id = arp_global.sysparam.org_id;
3376: EXCEPTION
3377: WHEN NO_DATA_FOUND THEN
3378: l_rounding_rule := NULL;
3379: arp_util.debug('tax_rounding_rule will be defaulted because there is no row in zx_product_options');
3380: arp_util.debug('Ideal Default Tax Rounding Rule will be : NEAREST');
3381: END;
3382: arp_util.debug('tax_rounding_rule = ' || l_rounding_rule);
3383:
3376: EXCEPTION
3377: WHEN NO_DATA_FOUND THEN
3378: l_rounding_rule := NULL;
3379: arp_util.debug('tax_rounding_rule will be defaulted because there is no row in zx_product_options');
3380: arp_util.debug('Ideal Default Tax Rounding Rule will be : NEAREST');
3381: END;
3382: arp_util.debug('tax_rounding_rule = ' || l_rounding_rule);
3383:
3384: fnd_currency.Get_info(l_invoice_currency_code,
3378: l_rounding_rule := NULL;
3379: arp_util.debug('tax_rounding_rule will be defaulted because there is no row in zx_product_options');
3380: arp_util.debug('Ideal Default Tax Rounding Rule will be : NEAREST');
3381: END;
3382: arp_util.debug('tax_rounding_rule = ' || l_rounding_rule);
3383:
3384: fnd_currency.Get_info(l_invoice_currency_code,
3385: l_precision,
3386: l_extended_precision,
3413: l_min_acct_unit,
3414: l_rounding_rule);
3415:
3416: IF PG_DEBUG in ('Y', 'C') THEN
3417: arp_util.debug( 'l_tax_rate = ' || to_char(l_tax_rate));
3418: END IF;
3419: EXCEPTION
3420: WHEN NO_DATA_FOUND THEN
3421: IF PG_DEBUG in ('Y', 'C') THEN
3418: END IF;
3419: EXCEPTION
3420: WHEN NO_DATA_FOUND THEN
3421: IF PG_DEBUG in ('Y', 'C') THEN
3422: arp_util.debug( 'EXCEPTION: Cannot find a tax rate for the receivable activity tax code');
3423: END IF;
3424: p_error_num := 1;
3425: FND_MESSAGE.SET_NAME('AR', 'AR_TW_PRORATE_ADJ_NO_TAX_RATE');
3426: END;
3455: p_prorated_tax := 0;
3456: END IF;
3457:
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_util.debug( 'p_prorated_amt = ' || to_char(p_prorated_amt));
3460: arp_util.debug( 'p_prorated_tax = ' || to_char(p_prorated_tax));
3461: arp_util.debug( 'p_error_num = ' || to_char(p_error_num));
3462: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()-');
3463: END IF;
3456: END IF;
3457:
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_util.debug( 'p_prorated_amt = ' || to_char(p_prorated_amt));
3460: arp_util.debug( 'p_prorated_tax = ' || to_char(p_prorated_tax));
3461: arp_util.debug( 'p_error_num = ' || to_char(p_error_num));
3462: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()-');
3463: END IF;
3464:
3457:
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_util.debug( 'p_prorated_amt = ' || to_char(p_prorated_amt));
3460: arp_util.debug( 'p_prorated_tax = ' || to_char(p_prorated_tax));
3461: arp_util.debug( 'p_error_num = ' || to_char(p_error_num));
3462: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()-');
3463: END IF;
3464:
3465: EXCEPTION
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_util.debug( 'p_prorated_amt = ' || to_char(p_prorated_amt));
3460: arp_util.debug( 'p_prorated_tax = ' || to_char(p_prorated_tax));
3461: arp_util.debug( 'p_error_num = ' || to_char(p_error_num));
3462: arp_util.debug('arp_process_adjustment.cal_prorated_amounts()-');
3463: END IF;
3464:
3465: EXCEPTION
3466: WHEN OTHERS THEN
3464:
3465: EXCEPTION
3466: WHEN OTHERS THEN
3467: IF PG_DEBUG in ('Y', 'C') THEN
3468: arp_util.debug(
3469: 'EXCEPTION: arp_process_adjustment.cal_prorated_amounts()');
3470: END IF;
3471: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
3472: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.cal_prorated_amounts exception: '||SQLERRM );
3490: pg_base_min_acc_unit := arp_global.base_min_acc_unit;
3491:
3492: EXCEPTION
3493: WHEN OTHERS THEN
3494: arp_util.debug('EXCEPTION: arp_process_adjustment.initialization');
3495: RAISE;
3496:
3497:
3498: END ARP_PROCESS_ADJUSTMENT;