[Home] [Help]
4736:
4737: l_payment_type VARCHAR2(30);
4738:
4739:
4740: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4741: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4742: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4743: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4744: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4738:
4739:
4740: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4741: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4742: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4743: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4744: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4745: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
4746:
4739:
4740: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4741: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4742: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4743: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4744: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4745: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
4746:
4747:
4740: l_payee_rec IBY_FNDCPT_TRXN_PUB.PayeeContext_rec_type;
4741: l_payer_rec IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
4742: l_auth_attribs IBY_FNDCPT_TRXN_PUB.AuthAttribs_rec_type;
4743: l_amount IBY_FNDCPT_TRXN_PUB.Amount_rec_type;
4744: l_auth_result IBY_FNDCPT_TRXN_PUB.AuthResult_rec_type;
4745: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
4746:
4747:
4748:
4800: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4801: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME || '.' || l_api_name,'Authorization does not exist so creating new one.');
4802: END IF;
4803:
4804: IBY_FNDCPT_TRXN_PUB.Create_Authorization
4805: (p_api_version => 1.0
4806: , p_payee => l_payee_rec
4807: , p_payer => l_payer_rec
4808: , p_payer_equivalency => IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_FULL -- we need full instead of default G_PAYER_EQUIV_UPWARD (bug 5163778)
4834:
4835: --also pick up IBY message in l_response and place onto standard FND message stack
4836: IF NVL(l_response.Result_Category,'x') <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
4837: FND_MSG_PUB.add_exc_msg(
4838: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
4839: p_procedure_name => 'Create_Authorization',
4840: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
4841: END IF;
4842:
4868: PRAGMA AUTONOMOUS_TRANSACTION;
4869: BEGIN
4870:
4871:
4872: IBY_FNDCPT_TRXN_PUB.Create_Authorization
4873: (p_api_version => 1.0
4874: , p_payee => l_payee_rec
4875: , p_payer => l_payer_rec
4876: , p_payer_equivalency => IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_FULL -- we need full instead of default G_PAYER_EQUIV_UPWARD (bug 5163778)
4901:
4902: --also pick up IBY message in l_response and place onto standard FND message stack
4903: IF NVL(l_response.Result_Category,'x') <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
4904: FND_MSG_PUB.add_exc_msg(
4905: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
4906: p_procedure_name => 'Create_Authorization',
4907: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
4908: END IF;
4909:
5027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME || '.' || l_api_name,'Checking to see if authorization already exists');
5028: END IF;
5029:
5030: --first determine whether there is a pre-existing credit card authorization for the payer
5031: IBY_FNDCPT_TRXN_PUB.Get_Authorization
5032: (p_api_version => 1.0
5033: , p_payer => l_payer_rec
5034: , p_trxn_entity_id => l_oks_header_rec.trxn_extension_id
5035: , x_auth_result => l_auth_result
5080:
5081: --also pick up IBY message in l_response and place onto standard FND message stack
5082: IF l_response.Result_Category <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
5083: FND_MSG_PUB.add_exc_msg(
5084: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
5085: p_procedure_name => 'Get_Authorization',
5086: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
5087: END IF;
5088:
5094:
5095:
5096: --Go on to update_Authorization Info of the header
5097: --we directly update instead of using public API to avoid locking issues
5098: --auth code could come from either IBY_FNDCPT_TRXN_PUB.Get_Authorization or IBY_FNDCPT_TRXN_PUB.Create_Authorization
5099: UPDATE oks_k_headers_b
5100: SET cc_auth_code = l_auth_result.auth_code
5101: WHERE id = l_oks_header_rec.id;
5102:
5157: l_payer_rec.party_id := cust_account_rec.party_id;
5158: l_payer_rec.cust_account_id := cust_account_rec.cust_account_id;
5159:
5160: --first determine whether there is a pre-existing credit card authorization for the payer
5161: IBY_FNDCPT_TRXN_PUB.Get_Authorization
5162: (p_api_version => 1.0
5163: , p_payer => l_payer_rec
5164: , p_trxn_entity_id => l_oks_lines_rec.trxn_extension_id
5165: , x_auth_result => l_auth_result
5217:
5218: --also pick up IBY message in l_response and place onto standard FND message stack
5219: IF l_response.Result_Category <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS THEN --'SUCCESS'
5220: FND_MSG_PUB.add_exc_msg(
5221: p_pkg_name => 'IBY_FNDCPT_TRXN_PUB',
5222: p_procedure_name => 'Get_Authorization',
5223: p_error_text => SUBSTR(l_response.Result_Message ||' ('||l_response.Result_Code ||')',1,240));
5224: END IF;
5225:
5230: END IF;
5231:
5232: --Go on to update_Authorization Info of line
5233: --we directly update instead of using public API to avoid locking issues
5234: --auth code could come from either IBY_FNDCPT_TRXN_PUB.Get_Authorization or IBY_FNDCPT_TRXN_PUB.Create_Authorization
5235: UPDATE oks_k_lines_b
5236: SET cc_auth_code = l_auth_result.auth_code
5237: WHERE id = l_oks_lines_rec.id;
5238: