PACKAGE BODY: APPS.ARP_PROCESS_RECUR

Source

1 PACKAGE BODY ARP_PROCESS_RECUR AS
2 /* $Header: ARTERECB.pls 120.2 2002/11/18 22:42:26 anukumar ship $ */
3 
4 FUNCTION create_inv_conc_req(p_create_flag IN varchar2) return
5 NUMBER is
6 l_request_id number ;
7 Begin
8   arp_util.debug(' arp_process_recur.create_inv_conc_req()+');
9   l_request_id := fnd_request.submit_request('AR','ARXREC',NULL,SYSDATE,FALSE,'Y');
10   return(l_request_id);
11   arp_util.debug(' arp_process_recur.create_inv_conc_req()-');
12 End;
13 
14 
15 FUNCTION get_due_date(p_term_id IN NUMBER,p_trx_date IN date) return
16 DATE is
17 l_due_date DATE;
18 Begin
19 
20   arp_util.debug(' arp_process_recur.get_due_date()+');
21   l_due_date := arpt_sql_func_util.Get_First_Due_Date(p_term_id,p_trx_date);
22   return(l_due_date);
23   arp_util.debug(' arp_process_recur.get_due_date()-');
24 End;
25 
26 
27 FUNCTION get_auto_trx_numbering_flag(p_batch_source_id IN NUMBER) return
28 VARCHAR2 is
29 l_auto_trx_numbering_flag VARCHAR2(1) ;
30 Begin
31   arp_util.debug(' arp_process_recur.get_auto_trx_numbering_flag()+');
32       IF    ( p_batch_source_id  IS NULL )
33       THEN  RETURN( 'N' );
34       ELSE
35             SELECT  auto_trx_numbering_flag
36             INTO   l_auto_trx_numbering_flag
37             FROM   RA_BATCH_SOURCES
38             WHERE  batch_source_id = p_batch_source_id;
39 
40             RETURN(l_auto_trx_numbering_flag);
41       END IF;
42   arp_util.debug(' arp_process_recur.get_auto_trx_numbering_flag()-');
43 EXCEPTION
44 WHEN OTHERS THEN
45 arp_util.debug(' EXCEPTION :arp_process_recur.get_auto_trx_numbering_flag()-');
46 RAISE;
47 End;
48 
49 
50 FUNCTION get_transaction_amount(
51    p_customer_trx_id        IN  number,
52    p_line_type              IN  varchar2)
53 return NUMBER is
54    l_amount NUMBER ;
55    l_amount_trx NUMBER;
56    l_amount_trx_total_rtot_db NUMBER;
57 Begin
58    arp_util.debug(' arp_process_recur.get_transaction_amount()+');
59    arp_ctl_sum_pkg.select_summary(p_customer_trx_id ,
60                                   p_line_type,
61                                   l_amount_trx,
62                                   l_amount_trx_total_rtot_db);
63    l_amount := l_amount_trx;
64    arp_util.debug(' arp_process_recur.get_transaction_amount()-');
65    RETURN(l_amount);
66 
67 EXCEPTION
68 WHEN OTHERS THEN
69 RAISE;
70 End;
71 
72 PROCEDURE insert_recur(    p_form_name         IN varchar2,
73                            p_form_version      IN number,
74                            p_rec_rec           IN ra_recur_interim%rowtype,
75                            p_batch_source_id   IN ra_batch_sources.batch_source_id%type,
76                            p_cust_trx_type_id  IN number,
77                            p_trx_no  OUT NOCOPY ra_recur_interim.trx_number%type) IS
78 
79     l_trx_no ra_recur_interim.trx_number%type;
80 
81 Begin
82 
83      -- validate that the transaction and document numbers are unique
84 
85      arp_trx_validate.validate_trx_number( p_batch_source_id,
86                                            p_rec_rec.trx_number,
87                                            p_rec_rec.new_customer_trx_id);
88 
89      arp_trx_validate.validate_doc_number( p_cust_trx_type_id,
90                                            p_rec_rec.doc_sequence_value,
91                                            p_rec_rec.new_customer_trx_id);
92 
93 
94        -- call table handler
95      ARP_RECUR_PKG.insert_p(p_rec_rec, p_batch_source_id,l_trx_no);
96      p_trx_no := l_trx_no;
97      arp_util.debug('  p_form_name            : '||p_form_name );
98      arp_util.debug('  insert_recur            : '||l_trx_no );
99 
100 EXCEPTION
101    when OTHERS THEN
102      -- display all relevent information
103      arp_util.debug('EXCEPTION: arp_process_recur.insert_recur()');
104      arp_util.debug('  p_form_name            : '||p_form_name );
105      arp_util.debug('  p_form_version         : '||p_form_version);
106      RAISE;
107 
108 END;
109 
110 END ARP_PROCESS_RECUR;