90:
91: BEGIN
92: --
93: IF PG_DEBUG in ('Y', 'C') THEN
94: arp_standard.debug('arp_process_payinfo.copy_payment_ext_id()+ ');
95: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
96: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
97: END IF;
98: --
91: BEGIN
92: --
93: IF PG_DEBUG in ('Y', 'C') THEN
94: arp_standard.debug('arp_process_payinfo.copy_payment_ext_id()+ ');
95: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
96: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
97: END IF;
98: --
99: l_payer.Org_Type := null;
92: --
93: IF PG_DEBUG in ('Y', 'C') THEN
94: arp_standard.debug('arp_process_payinfo.copy_payment_ext_id()+ ');
95: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
96: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
97: END IF;
98: --
99: l_payer.Org_Type := null;
100: l_payer.Org_id := null;
105: <
106: FOR c01_rec IN c01 LOOP
107: --
108: IF PG_DEBUG in ('Y', 'C') THEN
109: arp_standard.debug('INV Customer Trx ID [' || c01_rec.customer_trx_id || ']');
110: END IF;
111: --
112: -- Get Payment extension entity IDs for given transaction
113: --
125: --
126: -- Copy Extension entity
127: --
128: IF PG_DEBUG in ('Y', 'C') THEN
129: arp_standard.debug('copying Transaction Extension....');
130: FOR i IN l_ext_entity_tab.FIRST..l_ext_entity_tab.LAST LOOP
131: arp_standard.debug('[' || i || '] :<' || l_ext_entity_tab(i)|| '>');
132: END LOOP;
133: END IF;
127: --
128: IF PG_DEBUG in ('Y', 'C') THEN
129: arp_standard.debug('copying Transaction Extension....');
130: FOR i IN l_ext_entity_tab.FIRST..l_ext_entity_tab.LAST LOOP
131: arp_standard.debug('[' || i || '] :<' || l_ext_entity_tab(i)|| '>');
132: END LOOP;
133: END IF;
134: --
135: l_payer.Payment_Function := 'CUSTOMER_PAYMENT';
140: l_trxn_attribs.trxn_ref_number2 := c01_rec.customer_trx_id;
141:
142: --
143: IF PG_DEBUG in ('Y', 'C') THEN
144: arp_standard.debug('l_payer.payment_function :<' ||
145: l_payer.payment_function || '>');
146: arp_standard.debug('l_payer.Party_Id :<' || l_payer.Party_Id || '>');
147: arp_standard.debug('l_payer.Org_Type :<' || l_payer.Org_Type || '>');
148: arp_standard.debug('l_payer.Org_id :<' || l_payer.Org_id || '>');
142: --
143: IF PG_DEBUG in ('Y', 'C') THEN
144: arp_standard.debug('l_payer.payment_function :<' ||
145: l_payer.payment_function || '>');
146: arp_standard.debug('l_payer.Party_Id :<' || l_payer.Party_Id || '>');
147: arp_standard.debug('l_payer.Org_Type :<' || l_payer.Org_Type || '>');
148: arp_standard.debug('l_payer.Org_id :<' || l_payer.Org_id || '>');
149: arp_standard.debug('l_payer.Cust_Account_Id :<' ||
150: l_payer.Cust_Account_Id || '>');
143: IF PG_DEBUG in ('Y', 'C') THEN
144: arp_standard.debug('l_payer.payment_function :<' ||
145: l_payer.payment_function || '>');
146: arp_standard.debug('l_payer.Party_Id :<' || l_payer.Party_Id || '>');
147: arp_standard.debug('l_payer.Org_Type :<' || l_payer.Org_Type || '>');
148: arp_standard.debug('l_payer.Org_id :<' || l_payer.Org_id || '>');
149: arp_standard.debug('l_payer.Cust_Account_Id :<' ||
150: l_payer.Cust_Account_Id || '>');
151: arp_standard.debug('l_trxn_attribs.Originating_Application_Id :<'
144: arp_standard.debug('l_payer.payment_function :<' ||
145: l_payer.payment_function || '>');
146: arp_standard.debug('l_payer.Party_Id :<' || l_payer.Party_Id || '>');
147: arp_standard.debug('l_payer.Org_Type :<' || l_payer.Org_Type || '>');
148: arp_standard.debug('l_payer.Org_id :<' || l_payer.Org_id || '>');
149: arp_standard.debug('l_payer.Cust_Account_Id :<' ||
150: l_payer.Cust_Account_Id || '>');
151: arp_standard.debug('l_trxn_attribs.Originating_Application_Id :<'
152: || l_trxn_attribs.Originating_Application_Id || '>');
145: l_payer.payment_function || '>');
146: arp_standard.debug('l_payer.Party_Id :<' || l_payer.Party_Id || '>');
147: arp_standard.debug('l_payer.Org_Type :<' || l_payer.Org_Type || '>');
148: arp_standard.debug('l_payer.Org_id :<' || l_payer.Org_id || '>');
149: arp_standard.debug('l_payer.Cust_Account_Id :<' ||
150: l_payer.Cust_Account_Id || '>');
151: arp_standard.debug('l_trxn_attribs.Originating_Application_Id :<'
152: || l_trxn_attribs.Originating_Application_Id || '>');
153: arp_standard.debug('l_trxn_attribs.Instrument_Security_Code :<'
147: arp_standard.debug('l_payer.Org_Type :<' || l_payer.Org_Type || '>');
148: arp_standard.debug('l_payer.Org_id :<' || l_payer.Org_id || '>');
149: arp_standard.debug('l_payer.Cust_Account_Id :<' ||
150: l_payer.Cust_Account_Id || '>');
151: arp_standard.debug('l_trxn_attribs.Originating_Application_Id :<'
152: || l_trxn_attribs.Originating_Application_Id || '>');
153: arp_standard.debug('l_trxn_attribs.Instrument_Security_Code :<'
154: || l_trxn_attribs.Instrument_Security_Code || '>');
155: arp_standard.debug('l_trxn_attribs.order_id :<'
149: arp_standard.debug('l_payer.Cust_Account_Id :<' ||
150: l_payer.Cust_Account_Id || '>');
151: arp_standard.debug('l_trxn_attribs.Originating_Application_Id :<'
152: || l_trxn_attribs.Originating_Application_Id || '>');
153: arp_standard.debug('l_trxn_attribs.Instrument_Security_Code :<'
154: || l_trxn_attribs.Instrument_Security_Code || '>');
155: arp_standard.debug('l_trxn_attribs.order_id :<'
156: || l_trxn_attribs.order_id || '>');
157: END IF;
151: arp_standard.debug('l_trxn_attribs.Originating_Application_Id :<'
152: || l_trxn_attribs.Originating_Application_Id || '>');
153: arp_standard.debug('l_trxn_attribs.Instrument_Security_Code :<'
154: || l_trxn_attribs.Instrument_Security_Code || '>');
155: arp_standard.debug('l_trxn_attribs.order_id :<'
156: || l_trxn_attribs.order_id || '>');
157: END IF;
158: --
159: IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
176: -- Print out variables
177: --
178: IF PG_DEBUG in ('Y', 'C') THEN
179: --
180: arp_standard.debug('x_return_status :<' || l_return_status || '>');
181: arp_standard.debug('x_entity_id :<' || l_extension_id || '>');
182: arp_standard.debug('x_msg_count :<' || l_msg_count || '>');
183: --
184: END IF;
177: --
178: IF PG_DEBUG in ('Y', 'C') THEN
179: --
180: arp_standard.debug('x_return_status :<' || l_return_status || '>');
181: arp_standard.debug('x_entity_id :<' || l_extension_id || '>');
182: arp_standard.debug('x_msg_count :<' || l_msg_count || '>');
183: --
184: END IF;
185:
178: IF PG_DEBUG in ('Y', 'C') THEN
179: --
180: arp_standard.debug('x_return_status :<' || l_return_status || '>');
181: arp_standard.debug('x_entity_id :<' || l_extension_id || '>');
182: arp_standard.debug('x_msg_count :<' || l_msg_count || '>');
183: --
184: END IF;
185:
186: <
189: l_msg := SUBSTR(fnd_msg_pub.get(p_msg_index => i,
190: p_encoded => FND_API.G_FALSE),1,150);
191: --
192: IF PG_DEBUG in ('Y', 'C') THEN
193: arp_standard.debug('x_msg #' || TO_CHAR(i) || ' = <' ||
194: l_msg || '>');
195: END IF;
196: --
197: -- If unable to copy ext entities then insert into
199: --
200: IF l_return_status <> 'S' THEN
201: --
202: IF PG_DEBUG in ('Y', 'C') THEN
203: arp_standard.debug('Inserting into errors...');
204: END IF;
205: --
206: INSERT INTO ra_interface_errors
207: (
242: --
243: END LOOP inv_loop;
244: --
245: IF PG_DEBUG in ('Y', 'C') THEN
246: arp_standard.debug('arp_process_payinfo.copy_payment_ext_id()- ');
247: END IF;
248: EXCEPTION
249: WHEN OTHERS THEN
250: arp_standard.debug('EXCEPTION : arp_process_payinfo.copy_payment_ext_id ' ||': ' || SQLERRM(SQLCODE));
246: arp_standard.debug('arp_process_payinfo.copy_payment_ext_id()- ');
247: END IF;
248: EXCEPTION
249: WHEN OTHERS THEN
250: arp_standard.debug('EXCEPTION : arp_process_payinfo.copy_payment_ext_id ' ||': ' || SQLERRM(SQLCODE));
251: RAISE;
252: END copy_payment_ext_id;
253:
254: /*========================================================================
285: l_msg_count NUMBER;
286: l_msg_data VARCHAR2(2000);
287: BEGIN
288: IF PG_DEBUG in ('Y', 'C') THEN
289: arp_standard.debug('arp_process_payinfo.default_payment_attributes()+ ');
290: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
291: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
292: END IF;
293: --
286: l_msg_data VARCHAR2(2000);
287: BEGIN
288: IF PG_DEBUG in ('Y', 'C') THEN
289: arp_standard.debug('arp_process_payinfo.default_payment_attributes()+ ');
290: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
291: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
292: END IF;
293: --
294: -- Update transaction header with payment attributes for grouping
287: BEGIN
288: IF PG_DEBUG in ('Y', 'C') THEN
289: arp_standard.debug('arp_process_payinfo.default_payment_attributes()+ ');
290: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
291: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
292: END IF;
293: --
294: -- Update transaction header with payment attributes for grouping
295: --
335: WHERE request_id = fnd_global.conc_request_id
336: AND payment_trxn_extension_id IS NOT NULL;
337: --
338: IF PG_DEBUG in ('Y', 'C') THEN
339: arp_standard.debug('arp_process_payinfo.default_payment_attributes()- ');
340: END IF;
341: EXCEPTION
342: WHEN OTHERS THEN
343: arp_standard.debug('EXCEPTION : arp_process_payinfo.default_payment_attributes : ' || SQLERRM(SQLCODE));
339: arp_standard.debug('arp_process_payinfo.default_payment_attributes()- ');
340: END IF;
341: EXCEPTION
342: WHEN OTHERS THEN
343: arp_standard.debug('EXCEPTION : arp_process_payinfo.default_payment_attributes : ' || SQLERRM(SQLCODE));
344: RAISE;
345: END default_payment_attributes;
346: /*========================================================================
347: | Procedure validate_payment_ext_id()
377: l_msg_count NUMBER;
378: l_msg_data VARCHAR2(2000);
379: BEGIN
380: IF PG_DEBUG in ('Y', 'C') THEN
381: arp_standard.debug('arp_process_payinfo.validate_payment_ext_id()+ ');
382: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
383: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
384: END IF;
385: --
378: l_msg_data VARCHAR2(2000);
379: BEGIN
380: IF PG_DEBUG in ('Y', 'C') THEN
381: arp_standard.debug('arp_process_payinfo.validate_payment_ext_id()+ ');
382: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
383: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
384: END IF;
385: --
386: -- Validate payment_trxn_ext_id
379: BEGIN
380: IF PG_DEBUG in ('Y', 'C') THEN
381: arp_standard.debug('arp_process_payinfo.validate_payment_ext_id()+ ');
382: arp_standard.debug('Req Id : [' || arp_global.request_id || ']');
383: arp_standard.debug('FND Req Id : [' || fnd_global.conc_request_id || ']');
384: END IF;
385: --
386: -- Validate payment_trxn_ext_id
387: --
394: SELECT /*+ cardinality(L,10) leading(L) use_nl(rm,rc, P,X) */
395: L.INTERFACE_LINE_ID,
396: CASE
397: WHEN l.receipt_method_id IS NULL THEN
398: arp_standard.fnd_message('AR_REC_MTHD_REQD_FOR_EXT_ID')
399: WHEN rc.creation_method_code NOT IN ('AUTOMATIC', 'BR') THEN
400: arp_standard.fnd_message('AR_RECEIPT_METHOD_AUTO_OR_BR')
401: WHEN NVL(rm.payment_channel_code, 'BILLS_RECEIVABLE')
402: <> p.payment_channel_code THEN
396: CASE
397: WHEN l.receipt_method_id IS NULL THEN
398: arp_standard.fnd_message('AR_REC_MTHD_REQD_FOR_EXT_ID')
399: WHEN rc.creation_method_code NOT IN ('AUTOMATIC', 'BR') THEN
400: arp_standard.fnd_message('AR_RECEIPT_METHOD_AUTO_OR_BR')
401: WHEN NVL(rm.payment_channel_code, 'BILLS_RECEIVABLE')
402: <> p.payment_channel_code THEN
403: arp_standard.fnd_message('AR_PMT_CHNL_MISMTCH_REC_MTHD')
404: ELSE
399: WHEN rc.creation_method_code NOT IN ('AUTOMATIC', 'BR') THEN
400: arp_standard.fnd_message('AR_RECEIPT_METHOD_AUTO_OR_BR')
401: WHEN NVL(rm.payment_channel_code, 'BILLS_RECEIVABLE')
402: <> p.payment_channel_code THEN
403: arp_standard.fnd_message('AR_PMT_CHNL_MISMTCH_REC_MTHD')
404: ELSE
405: 'VALIDATE_EXT_ID:NO_MSG'
406: END,
407: L.PAYMENT_TRXN_EXTENSION_ID,
421: NVL(rm.payment_channel_code, 'BILLS_RECEIVABLE') <> p.payment_channel_code )
422: AND l.PAYMENT_TRXN_EXTENSION_ID = X.TRXN_EXTENSION_ID
423: AND x.payment_channel_code = p.payment_channel_code;
424: IF PG_DEBUG in ('Y', 'C') THEN
425: arp_standard.debug('arp_process_payinfo.validate_payment_ext_id()- ');
426: END IF;
427: EXCEPTION
428: WHEN OTHERS THEN
429: arp_standard.debug('EXCEPTION : arp_process_payinfo.validate_payment_ext_id : ' || SQLERRM(SQLCODE));
425: arp_standard.debug('arp_process_payinfo.validate_payment_ext_id()- ');
426: END IF;
427: EXCEPTION
428: WHEN OTHERS THEN
429: arp_standard.debug('EXCEPTION : arp_process_payinfo.validate_payment_ext_id : ' || SQLERRM(SQLCODE));
430: RAISE;
431: END validate_payment_ext_id;
432:
433: