1: PACKAGE BODY ARP_PROCESS_APPLICATION2 AS
2: /* $Header: ARCEAP2B.pls 120.13 2010/11/30 09:13:36 dgaurab ship $ */
3:
4: /* =======================================================================
5: | Global Data Types
163: l_legal_entity_id ar_cash_receipts.legal_entity_id%TYPE;
164:
165: BEGIN
166: IF PG_DEBUG in ('Y', 'C') THEN
167: arp_standard.debug( 'arp_process_application.update_application()+');
168: END IF;
169:
170: IF (p_ra_id IS NULL)
171: THEN
169:
170: IF (p_ra_id IS NULL)
171: THEN
172: APP_EXCEPTION.INVALID_ARGUMENT(
173: 'ARP_PROCESS_APPLICATION.UPDATE_APPLICATION'
174: , 'P_RA_ID'
175: , 'NULL');
176:
177: ELSIF (p_invoice_ps_id IS NULL)
176:
177: ELSIF (p_invoice_ps_id IS NULL)
178: THEN
179: APP_EXCEPTION.INVALID_ARGUMENT(
180: 'ARP_PROCESS_APPLICATION.UPDATE_APPLICATION'
181: , 'p_invoice_ps_id'
182: , 'NULL');
183:
184: END IF;
366: ELSE
367: l_claim_amount := p_amount_due_remaining;
368: END IF;
369:
370: arp_process_application.create_claim(
371: p_amount => l_claim_amount
372: , p_amount_applied => l_rec_ra_rec.amount_applied
373: , p_currency_code => l_currency_code
374: , p_exchange_rate_type => l_exchange_rate_type
431: l_xla_ev_rec.xla_call := 'B';
432: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
433:
434: IF PG_DEBUG in ('Y', 'C') THEN
435: arp_standard.debug( 'arp_process_application.update_application()-');
436: END IF;
437:
438: EXCEPTION
439: when others then
506: l_ae_doc_rec ae_doc_rec_type;
507:
508: BEGIN
509: IF PG_DEBUG in ('Y', 'C') THEN
510: arp_standard.debug( 'arp_process_application.delete_selected_transaction()+');
511: END IF;
512:
513: -- Check that the Application Id, and the Applied Payment Schedule Id
514: -- have been provided.
514: -- have been provided.
515: IF (p_ra_id IS NULL)
516: THEN
517: APP_EXCEPTION.INVALID_ARGUMENT(
518: 'ARP_PROCESS_APPLICATION.DELETE_AUTOMATIC_APPLICATION'
519: , 'P_RA_ID'
520: , 'NULL');
521: ELSIF (p_app_ps_id IS NULL)
522: THEN
520: , 'NULL');
521: ELSIF (p_app_ps_id IS NULL)
522: THEN
523: APP_EXCEPTION.INVALID_ARGUMENT(
524: 'ARP_PROCESS_APPLICATION.DELETE_AUTOMATIC_APPLICATION'
525: , 'P_APP_PS_ID'
526: , 'NULL');
527: END IF;
528:
655: arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
656: END IF;
657:
658: IF PG_DEBUG in ('Y', 'C') THEN
659: arp_standard.debug('delete_selected_transaction: ' || 'arp_process_application.delete_receivable_application()-');
660: END IF;
661:
662: EXCEPTION
663: WHEN OTHERS THEN
705: l_ra_rec ar_receivable_applications%ROWTYPE;
706:
707: Begin
708: IF PG_DEBUG in ('Y', 'C') THEN
709: arp_standard.debug( 'arp_process_application.update_onacct_cust_app()+');
710: END IF;
711: IF (p_ra_id IS NULL)
712: THEN
713: APP_EXCEPTION.INVALID_ARGUMENT(
710: END IF;
711: IF (p_ra_id IS NULL)
712: THEN
713: APP_EXCEPTION.INVALID_ARGUMENT(
714: 'ARP_PROCESS_APPLICATION.UPDATE_ONACCT_CUST_APP'
715: , 'P_RA_ID'
716: , 'NULL');
717: END IF;
718: -- First get the old values
732: -- Dump the data into database
733: arp_app_pkg.update_p(l_ra_rec);
734:
735: IF PG_DEBUG in ('Y', 'C') THEN
736: arp_standard.debug( 'arp_process_application.update_onacct_cust_app()-');
737: END IF;
738: EXCEPTION
739: when others then
740: raise;
739: when others then
740: raise;
741: END update_onacct_cust_app;
742:
743: END arp_process_application2;