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