[Home] [Help]
PACKAGE BODY: APPS.ARP_PROCESS_CREDIT_LOCK_COVER
Source
1 PACKAGE BODY ARP_PROCESS_CREDIT_LOCK_COVER AS
2 /* $Header: ARTCCMLB.pls 115.4 2003/10/10 14:27:35 mraymond ship $ */
3
4 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5
6 PROCEDURE lock_header_cover(
7 p_form_name IN varchar2,
8 p_form_version IN number,
9 p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
10 p_trx_number IN ra_customer_trx.trx_number%type,
11 p_batch_id IN ra_batches.batch_id%type,
12 p_trx_date IN ra_customer_trx.trx_date%type,
13 p_complete_flag IN ra_customer_trx.complete_flag%type,
14 p_prev_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
15 p_batch_source_id IN ra_batch_sources.batch_source_id%type,
16 p_cust_trx_type_id IN ra_cust_trx_types.cust_trx_type_id%type,
17 p_currency_code IN fnd_currencies.currency_code%type,
18 p_exchange_date IN ra_customer_trx.exchange_date%type,
19 p_exchange_rate_type IN ra_customer_trx.exchange_rate_type%type,
20 p_exchange_rate IN ra_customer_trx.exchange_rate%type,
21 p_invoicing_rule_id IN ra_customer_trx.invoicing_rule_id%type,
22 p_method_for_rules IN
23 ra_customer_trx.credit_method_for_rules%type,
24 p_split_term_method IN
25 ra_customer_trx.credit_method_for_installments%type,
26 p_initial_customer_trx_id IN
27 ra_customer_trx.initial_customer_trx_id%type,
28 p_primary_salesrep_id IN ra_customer_trx.primary_salesrep_id%type,
29 p_bill_to_customer_id IN ra_customer_trx.bill_to_customer_id%type,
30 p_bill_to_address_id IN ra_customer_trx.bill_to_address_id%type,
31 p_bill_to_site_use_id IN ra_customer_trx.bill_to_site_use_id%type,
32 p_bill_to_contact_id IN ra_customer_trx.bill_to_contact_id%type,
33 p_ship_to_customer_id IN ra_customer_trx.ship_to_customer_id%type,
34 p_ship_to_address_id IN ra_customer_trx.ship_to_address_id%type,
35 p_ship_to_site_use_id IN ra_customer_trx.ship_to_site_use_id%type,
36 p_ship_to_contact_id IN ra_customer_trx.ship_to_contact_id%type,
37 p_receipt_method_id IN ra_customer_trx.receipt_method_id%type,
38 p_paying_customer_id IN ra_customer_trx.paying_customer_id%type,
39 p_paying_site_use_id IN ra_customer_trx.paying_site_use_id%type,
40 p_customer_bank_account_id IN
41 ra_customer_trx.customer_bank_account_id%type,
42 p_printing_option IN ra_customer_trx.printing_option%type,
43 p_printing_last_printed IN ra_customer_trx.printing_last_printed%type,
44 p_printing_pending IN ra_customer_trx.printing_pending%type,
45 p_doc_sequence_value IN ra_customer_trx.doc_sequence_value%type,
46 p_doc_sequence_id IN ra_customer_trx.doc_sequence_id%type,
47 p_reason_code IN ra_customer_trx.reason_code%type,
48 p_customer_reference IN ra_customer_trx.customer_reference%type,
49 p_customer_reference_date IN
50 ra_customer_trx.customer_reference_date%type,
51 p_internal_notes IN ra_customer_trx.internal_notes%type,
52 p_set_of_books_id IN ra_customer_trx.set_of_books_id%type,
53 p_created_from IN ra_customer_trx.created_from%type,
54 p_old_trx_number IN ra_customer_trx.old_trx_number%type,
55 p_attribute_category IN ra_customer_trx.attribute_category%type,
56 p_attribute1 IN ra_customer_trx.attribute1%type,
57 p_attribute2 IN ra_customer_trx.attribute2%type,
58 p_attribute3 IN ra_customer_trx.attribute3%type,
59 p_attribute4 IN ra_customer_trx.attribute4%type,
60 p_attribute5 IN ra_customer_trx.attribute5%type,
61 p_attribute6 IN ra_customer_trx.attribute6%type,
62 p_attribute7 IN ra_customer_trx.attribute7%type,
63 p_attribute8 IN ra_customer_trx.attribute8%type,
64 p_attribute9 IN ra_customer_trx.attribute9%type,
65 p_attribute10 IN ra_customer_trx.attribute10%type,
66 p_attribute11 IN ra_customer_trx.attribute11%type,
67 p_attribute12 IN ra_customer_trx.attribute12%type,
68 p_attribute13 IN ra_customer_trx.attribute13%type,
69 p_attribute14 IN ra_customer_trx.attribute14%type,
70 p_attribute15 IN ra_customer_trx.attribute15%type,
71 p_interface_header_context IN
72 ra_customer_trx.interface_header_context%type,
73 p_interface_header_attribute1 IN
74 ra_customer_trx.interface_header_attribute1%type,
75 p_interface_header_attribute2 IN
76 ra_customer_trx.interface_header_attribute2%type,
77 p_interface_header_attribute3 IN
78 ra_customer_trx.interface_header_attribute3%type,
79 p_interface_header_attribute4 IN
80 ra_customer_trx.interface_header_attribute4%type,
81 p_interface_header_attribute5 IN
82 ra_customer_trx.interface_header_attribute5%type,
83 p_interface_header_attribute6 IN
84 ra_customer_trx.interface_header_attribute6%type,
85 p_interface_header_attribute7 IN
86 ra_customer_trx.interface_header_attribute7%type,
87 p_interface_header_attribute8 IN
88 ra_customer_trx.interface_header_attribute8%type,
89 p_interface_header_attribute9 IN
90 ra_customer_trx.interface_header_attribute9%type,
91 p_interface_header_attribute10 IN
92 ra_customer_trx.interface_header_attribute10%type,
93 p_interface_header_attribute11 IN
94 ra_customer_trx.interface_header_attribute11%type,
95 p_interface_header_attribute12 IN
96 ra_customer_trx.interface_header_attribute12%type,
97 p_interface_header_attribute13 IN
98 ra_customer_trx.interface_header_attribute13%type,
99 p_interface_header_attribute14 IN
100 ra_customer_trx.interface_header_attribute14%type,
101 p_interface_header_attribute15 IN
102 ra_customer_trx.interface_header_attribute15%type,
103 p_default_ussgl_trx_code IN
104 ra_customer_trx.default_ussgl_transaction_code%type)
105 IS
106 l_cm_header ra_customer_trx%rowtype;
107 BEGIN
108 IF PG_DEBUG in ('Y', 'C') THEN
109 arp_util.debug('arp_process_credit_cover.lock_header_cover()+');
110 END IF;
111
112 arp_ct_pkg.set_to_dummy(l_cm_header);
113 --
114 -- populate the record with only the required columns
115 --
116 l_cm_header.batch_id := p_batch_id;
117 l_cm_header.trx_number := p_trx_number;
118 l_cm_header.trx_date := p_trx_date;
119 l_cm_header.complete_flag := p_complete_flag;
120 l_cm_header.previous_customer_trx_id := p_prev_customer_trx_id;
121 l_cm_header.batch_source_id := p_batch_source_id;
122 l_cm_header.cust_trx_type_id := p_cust_trx_type_id;
123 l_cm_header.invoice_currency_code := p_currency_code;
124 l_cm_header.exchange_date := p_exchange_date;
125 l_cm_header.exchange_rate_type := p_exchange_rate_type;
126 l_cm_header.exchange_rate := p_exchange_rate;
127 l_cm_header.credit_method_for_rules := p_method_for_rules;
128 l_cm_header.credit_method_for_installments := p_split_term_method;
129 l_cm_header.initial_customer_trx_id := p_initial_customer_trx_id;
130 l_cm_header.reason_code := p_reason_code;
131 l_cm_header.doc_sequence_value := p_doc_sequence_value;
132 l_cm_header.customer_reference := p_customer_reference;
133 l_cm_header.internal_notes := p_internal_notes;
134 l_cm_header.set_of_books_id := p_set_of_books_id;
135 l_cm_header.created_from := p_created_from;
136 l_cm_header.old_trx_number := p_old_trx_number;
137 l_cm_header.attribute_category := p_attribute_category;
138 l_cm_header.attribute1 := p_attribute1;
139 l_cm_header.attribute2 := p_attribute2;
140 l_cm_header.attribute3 := p_attribute3;
141 l_cm_header.attribute4 := p_attribute4;
142 l_cm_header.attribute5 := p_attribute5;
143 l_cm_header.attribute6 := p_attribute6;
144 l_cm_header.attribute7 := p_attribute7;
145 l_cm_header.attribute8 := p_attribute8;
146 l_cm_header.attribute9 := p_attribute9;
147 l_cm_header.attribute10 := p_attribute10;
148 l_cm_header.attribute11 := p_attribute11;
149 l_cm_header.attribute12 := p_attribute12;
150 l_cm_header.attribute13 := p_attribute13;
151 l_cm_header.attribute14 := p_attribute14;
152 l_cm_header.attribute15 := p_attribute15;
153 l_cm_header.interface_header_context := p_interface_header_context;
154 l_cm_header.interface_header_attribute1 := p_interface_header_attribute1;
155 l_cm_header.interface_header_attribute2 := p_interface_header_attribute2;
156 l_cm_header.interface_header_attribute3 := p_interface_header_attribute3;
157 l_cm_header.interface_header_attribute4 := p_interface_header_attribute4;
158 l_cm_header.interface_header_attribute5 := p_interface_header_attribute5;
159 l_cm_header.interface_header_attribute6 := p_interface_header_attribute6;
160 l_cm_header.interface_header_attribute7 := p_interface_header_attribute7;
161 l_cm_header.interface_header_attribute8 := p_interface_header_attribute8;
162 l_cm_header.interface_header_attribute9 := p_interface_header_attribute9;
163 l_cm_header.interface_header_attribute10 := p_interface_header_attribute10;
164 l_cm_header.interface_header_attribute11 := p_interface_header_attribute11;
165 l_cm_header.interface_header_attribute12 := p_interface_header_attribute12;
166 l_cm_header.interface_header_attribute13 := p_interface_header_attribute13;
167 l_cm_header.interface_header_attribute14 := p_interface_header_attribute14;
168 l_cm_header.interface_header_attribute15 := p_interface_header_attribute15;
169 l_cm_header.default_ussgl_transaction_code :=
170 p_default_ussgl_trx_code;
171
172 --
173 -- call the entity handler
174 --
175 arp_ct_pkg.lock_compare_p(
176 l_cm_header,
177 p_customer_trx_id);
178
179 IF PG_DEBUG in ('Y', 'C') THEN
180 arp_util.debug('arp_process_credit_cover.lock_header_cover()-');
181 END IF;
182
183 EXCEPTION
184 WHEN OTHERS THEN
185 IF PG_DEBUG in ('Y', 'C') THEN
186 arp_util.debug('arp_process_credit_cover.lock_header_cover');
187 END IF;
188 RAISE;
189 END lock_header_cover;
190
191
192 END arp_process_credit_lock_cover;
193