[Home] [Help]
4883:
4884: l_payment_type VARCHAR2(30);
4885:
4886:
4887: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4888: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4889: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4890: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4891: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4885:
4886:
4887: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4888: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4889: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4890: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4891: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4892: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
4893:
4886:
4887: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4888: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4889: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4890: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4891: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4892: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
4893:
4894:
4887: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4888: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4889: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4890: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4891: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4892: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
4893:
4894:
4895:
4947: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4948: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME || '.' || l_api_name,'Authorization does not exist so creating new one.');
4949: END IF;
4950:
4951: IBY_FNDCPT_TRXN_PUB.Create_Authorization
4952: (p_api_version => 1.0
4953: , p_payee => l_payee_rec
4954: , p_payer => l_payer_rec
4955: , p_payer_equivalency => IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_FULL -- we need full instead of default G_PAYER_EQUIV_UPWARD (bug 5163778)
4981:
4982: --also pick up IBY message in l_response and place onto standard FND message stack
4983: IF NVL(l_response.Result_Category,'x') <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
4984: FND_MSG_PUB.add_exc_msg(
4985: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
4986: p_procedure_name => 'Create_Authorization',
4987: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
4988: END IF;
4989:
5015: PRAGMA AUTONOMOUS_TRANSACTION;
5016: BEGIN
5017:
5018:
5019: IBY_FNDCPT_TRXN_PUB.Create_Authorization
5020: (p_api_version => 1.0
5021: , p_payee => l_payee_rec
5022: , p_payer => l_payer_rec
5023: , p_payer_equivalency => IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_FULL -- we need full instead of default G_PAYER_EQUIV_UPWARD (bug 5163778)
5048:
5049: --also pick up IBY message in l_response and place onto standard FND message stack
5050: IF NVL(l_response.Result_Category,'x') <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
5051: FND_MSG_PUB.add_exc_msg(
5052: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
5053: p_procedure_name => 'Create_Authorization',
5054: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
5055: END IF;
5056:
5174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME || '.' || l_api_name,'Checking to see if authorization already exists');
5175: END IF;
5176:
5177: --first determine whether there is a pre-existing credit card authorization for the payer
5178: IBY_FNDCPT_TRXN_PUB.Get_Authorization
5179: (p_api_version => 1.0
5180: , p_payer => l_payer_rec
5181: , p_trxn_entity_id => l_oks_header_rec.trxn_extension_id
5182: , x_auth_result => l_auth_result
5227:
5228: --also pick up IBY message in l_response and place onto standard FND message stack
5229: IF l_response.Result_Category <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
5230: FND_MSG_PUB.add_exc_msg(
5231: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
5232: p_procedure_name => 'Get_Authorization',
5233: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
5234: END IF;
5235:
5241:
5242:
5243: --Go on to update_Authorization Info of the header
5244: --we directly update instead of using public API to avoid locking issues
5245: --auth code could come from either IBY_FNDCPT_TRXN_PUB.Get_Authorization or IBY_FNDCPT_TRXN_PUB.Create_Authorization
5246: UPDATE oks_k_headers_b
5247: SET cc_auth_code = l_auth_result.auth_code
5248: WHERE id = l_oks_header_rec.id;
5249:
5304: l_payer_rec.party_id := cust_account_rec.party_id;
5305: l_payer_rec.cust_account_id := cust_account_rec.cust_account_id;
5306:
5307: --first determine whether there is a pre-existing credit card authorization for the payer
5308: IBY_FNDCPT_TRXN_PUB.Get_Authorization
5309: (p_api_version => 1.0
5310: , p_payer => l_payer_rec
5311: , p_trxn_entity_id => l_oks_lines_rec.trxn_extension_id
5312: , x_auth_result => l_auth_result
5364:
5365: --also pick up IBY message in l_response and place onto standard FND message stack
5366: IF l_response.Result_Category <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
5367: FND_MSG_PUB.add_exc_msg(
5368: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
5369: p_procedure_name => 'Get_Authorization',
5370: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
5371: END IF;
5372:
5377: END IF;
5378:
5379: --Go on to update_Authorization Info of line
5380: --we directly update instead of using public API to avoid locking issues
5381: --auth code could come from either IBY_FNDCPT_TRXN_PUB.Get_Authorization or IBY_FNDCPT_TRXN_PUB.Create_Authorization
5382: UPDATE oks_k_lines_b
5383: SET cc_auth_code = l_auth_result.auth_code
5384: WHERE id = l_oks_lines_rec.id;
5385: