[Home] [Help]
160: l_mpayeeid iby_payee.mpayeeid%TYPE;
161: l_bank_id ce_bank_accounts_v.bank_id%TYPE;
162:
163: BEGIN
164: iby_debug_pub.add('ENTER',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
165:
166: l_position := -1;
167: x_bepid_out := -1;
168:
197: SELECT a.INSTRUMENT_TYPE INTO l_instr_type
198: FROM IBY_FNDCPT_ALL_PMT_CHANNELS_V a
199: WHERE a.PAYMENT_CHANNEL_CODE = p_payment_channel_code;
200:
201: iby_debug_pub.add('INSTRUMENT_TYPE = '||l_instr_type,
202: iby_debug_pub.G_LEVEL_INFO,l_module_name);
203:
204: --- *** R12 Modification *** ---
205: -- Fetch MPayeeId from PayeeId
198: FROM IBY_FNDCPT_ALL_PMT_CHANNELS_V a
199: WHERE a.PAYMENT_CHANNEL_CODE = p_payment_channel_code;
200:
201: iby_debug_pub.add('INSTRUMENT_TYPE = '||l_instr_type,
202: iby_debug_pub.G_LEVEL_INFO,l_module_name);
203:
204: --- *** R12 Modification *** ---
205: -- Fetch MPayeeId from PayeeId
206: SELECT a.mpayeeid INTO l_mpayeeid
205: -- Fetch MPayeeId from PayeeId
206: SELECT a.mpayeeid INTO l_mpayeeid
207: FROM IBY_PAYEE a
208: WHERE a.payeeid = p_payee_id;
209: iby_debug_pub.add('debug pt 6',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
210: IF (NOT p_int_bank_acct_id IS NULL) THEN
211: SELECT bank_id INTO l_bank_id
212: FROM ce_bank_accounts_v
213: WHERE (bank_account_id = p_int_bank_acct_id);
211: SELECT bank_id INTO l_bank_id
212: FROM ce_bank_accounts_v
213: WHERE (bank_account_id = p_int_bank_acct_id);
214: END IF;
215: iby_debug_pub.add('debug pt 1',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
216: --- *** R12 Note *** ---
217: -- 1. The Instrument Type obtained above is used to populate the Routing fields and
218: -- evaluate the applicable Routing Rules, as in the earlier implementation
219: --- *** ---
227: l_routing_fields.ar_receipt_method_id := p_ar_receipt_mth_id;
228: l_routing_fields.br_drawee_issued_flag := p_br_drawee_issued_flag;
229: l_routing_fields.br_signed_flag := p_br_signed_flag;
230:
231: iby_debug_pub.add('debug pt 2',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
232: IF ((l_pay_op = 'ORAPMTREQ') OR (l_pay_op = 'ORAPMTCREDIT') OR (l_pay_op = 'ORAPMTBATCHREQ')) THEN
233:
234: IF (not iby_payee_pkg.payeeExists(p_ecappid_in, p_payee_id)) THEN
235: raise_application_error(-20000, 'IBY_20515#', FALSE);
233:
234: IF (not iby_payee_pkg.payeeExists(p_ecappid_in, p_payee_id)) THEN
235: raise_application_error(-20000, 'IBY_20515#', FALSE);
236: END IF; -- If payee does not exist
237: iby_debug_pub.add('debug pt 3',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
238: -- Apply routingrules and find the routing rule (pmt
239: -- method name) we should be using based on
240: -- amount, instrument type, not applicable to batch ops
241: -- getPmtName(payment_name_in_out, amount_in, l_instr_type, currency_in);
254: x_bepid_out,
255: x_bep_key_out,
256: x_fndcpt_user_profile_code_out);
257: -- now we have bep id from routing
258: iby_debug_pub.add('debug pt 4',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
259: ELSE
260: -- for ORAPMTCLOSEBATCH, ORAPMTQRYBATCHSTATUS, where rule
261: -- is not specified OR
262: -- no rule match case for ORAPMTREQ and ORAPMTCREDIT
286: raise_application_error(-20000, 'IBY_25002#PAYEENAME='
287: || l_payeename || '#BEPNAME='
288: || l_bepname || '#', FALSE);
289: END IF;
290: iby_debug_pub.add('debug pt 5',iby_debug_pub.G_LEVEL_PROCEDURE,l_module_name);
291: -- now we have default bep id
292: END IF;
293: END IF;
294: --- *** R12 Note *** ---