[Home] [Help]
138: -- Use: Determines cause of the instrument assignments view returning no
139: -- data
140: FUNCTION Get_Payer_Instr_Assgn_Fail
141: (p_instr_assign_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
142: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type
143: )
144: RETURN VARCHAR2
145: IS
146: l_msg VARCHAR2(100);
203: -- Use: Determine the reason extension lookup failed in the auth API
204: --
205: FUNCTION Get_Extension_Auth_Fail
206: (p_trxn_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
207: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type
208: )
209: RETURN VARCHAR2
210: IS
211: l_msg VARCHAR2(100);
365: l_return_status VARCHAR2(1);
366: l_msg_count NUMBER;
367: l_msg_data VARCHAR2(100);
368: l_channel_attribs IBY_FNDCPT_SETUP_PUB.PmtChannel_AttribUses_rec_type;
369: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
370:
371: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Extension_Valid';
372: BEGIN
373:
377: IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs
378: (1.0, FND_API.G_FALSE, l_return_status, l_msg_count, l_msg_data,
379: p_pmt_channel, l_channel_attribs, l_response);
380:
381: IF (l_response.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
382: RETURN FALSE;
383: END IF;
384:
385: IF ( (l_channel_attribs.Instr_SecCode_Use =
535: -- the given payer or an equivalent must be assigned this payment
536: -- channel
537: --
538: FUNCTION Payer_Channel_Valid
539: (p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
540: p_payer_level IN VARCHAR2,
541: p_payer_equiv IN VARCHAR2,
542: p_pmt_channel IN iby_fndcpt_pmt_chnnls_b.payment_channel_code%TYPE
543: )
545: IS
546: l_channel_instr iby_fndcpt_pmt_chnnls_b.instrument_type%TYPE;
547:
548: CURSOR c_trxn_channel
549: (ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
550: ci_payer_level IN VARCHAR2,
551: ci_payer_equiv IN VARCHAR2,
552: ci_channel_code IN iby_fndcpt_pmt_chnnls_b.payment_channel_code%TYPE)
553: IS
563: SELECT ext_payer_id
564: FROM iby_external_payers_all
565: WHERE (payment_function = ci_payer.Payment_Function)
566: AND (party_id = ci_payer.Party_Id)
567: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
568: (ci_payer.org_type, ci_payer.org_id,
569: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
570: ci_payer_level,ci_payer_equiv,org_type,org_id,
571: cust_account_id,acct_site_use_id) = 'T')
654: CLOSE c_channel_assign;
655:
656: l_assign_appl := Channel_InstrAssignment_Appl(p_channel);
657:
658: IF ((x_channel_instr = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_MANUAL)
659: AND (l_assign_id IS NULL))
660: THEN
661: RETURN TRUE;
662: ELSIF (l_assign_appl = IBY_FNDCPT_SETUP_PUB.G_CHNNL_ATTRIB_USE_OPTIONAL)
672: --
673: -- USE: Validates the payment instrument assignment for the given payer
674: --
675: FUNCTION Payer_InstrAssignment_Valid
676: (p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
677: p_payer_level IN VARCHAR2,
678: p_payer_equiv IN VARCHAR2,
679: p_channel_code IN iby_fndcpt_pmt_chnnls_b.payment_channel_code%TYPE,
680: p_instr_assign IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
690: l_single_use iby_fndcpt_payer_assgn_instr_v.card_single_use_flag%TYPE;
691: l_auth_flag iby_trxn_extensions_v.authorized_flag%TYPE;
692:
693: CURSOR c_instr_assigns
694: (ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
695: ci_payer_level IN VARCHAR2,
696: ci_payer_equiv IN VARCHAR2,
697: ci_instr_assign IN iby_fndcpt_payer_assgn_instr_v.instr_assignment_id%TYPE
698: )
707: SELECT ext_payer_id
708: FROM iby_external_payers_all
709: WHERE (payment_function = ci_payer.Payment_Function)
710: AND (party_id = ci_payer.Party_Id)
711: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
712: (ci_payer.org_type, ci_payer.org_id,
713: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
714: ci_payer_level,ci_payer_equiv,org_type,org_id,
715: cust_account_id,acct_site_use_id) = 'T')
807: p_commit IN VARCHAR2 := FND_API.G_TRUE,
808: x_return_status OUT NOCOPY VARCHAR2,
809: x_msg_count OUT NOCOPY NUMBER,
810: x_msg_data OUT NOCOPY VARCHAR2,
811: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
812: p_payer_equivalency IN VARCHAR2 :=
813: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
814: p_pmt_channel IN VARCHAR2,
815: p_instr_assignment IN NUMBER,
809: x_msg_count OUT NOCOPY NUMBER,
810: x_msg_data OUT NOCOPY VARCHAR2,
811: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
812: p_payer_equivalency IN VARCHAR2 :=
813: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
814: p_pmt_channel IN VARCHAR2,
815: p_instr_assignment IN NUMBER,
816: p_trxn_attribs IN TrxnExtension_rec_type,
817: x_entity_id OUT NOCOPY NUMBER,
814: p_pmt_channel IN VARCHAR2,
815: p_instr_assignment IN NUMBER,
816: p_trxn_attribs IN TrxnExtension_rec_type,
817: x_entity_id OUT NOCOPY NUMBER,
818: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
819: )
820: IS
821: l_api_version CONSTANT NUMBER := 1.0;
822: l_module CONSTANT VARCHAR2(30) := 'Create_Transaction_Extension';
835: l_segment_id NUMBER;
836:
837: lx_channel_instr iby_fndcpt_pmt_chnnls_b.instrument_type%TYPE;
838:
839: lx_result IBY_FNDCPT_COMMON_PUB.Result_rec_type;
840:
841: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
842: BEGIN
843: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
867:
868: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
869: l_payer_level,l_payer_id,l_payer_attribs);
870:
871: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
872: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
873: ELSE
874: -- We do not need to check against the MAX_TANGIBLEID_LEN, because
875: -- we now generate the tangibleid using
868: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
869: l_payer_level,l_payer_id,l_payer_attribs);
870:
871: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
872: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
873: ELSE
874: -- We do not need to check against the MAX_TANGIBLEID_LEN, because
875: -- we now generate the tangibleid using
876: IF (p_trxn_attribs.Order_Id IS NULL)
884: -- test_debug('invalid order id');
885: iby_debug_pub.add('invalid order id',
886: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
887: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
888: iby_fndcpt_common_pub.Prepare_Result
889: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
890: RETURN;
891: END IF;
892:
895: IF (NOT Payer_Channel_Valid(p_payer,l_payer_level,
896: p_payer_equivalency,p_pmt_channel))
897: THEN
898: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_CHNNL;
899: iby_fndcpt_common_pub.Prepare_Result
900: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
901: RETURN;
902: END IF;
903:
911: -- test_debug('instrument asssignment not valid for channel');
912: iby_debug_pub.add('instrument asssignment not valid for channel',
913: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
914: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
915: iby_fndcpt_common_pub.Prepare_Result
916: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
917: RETURN;
918: END IF;
919:
928: --test_debug('instrument asssignment not valid payer');
929: iby_debug_pub.add('instrument asssignment not valid payer',
930: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
931: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
932: iby_fndcpt_common_pub.Prepare_Result
933: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
934: RETURN;
935: END IF;
936:
934: RETURN;
935: END IF;
936:
937: -- validate bank end-dates
938: IF (lx_channel_instr = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT) THEN
939: null;
940: END IF;
941:
942: IF (NOT Extension_Valid(p_pmt_channel,p_trxn_attribs,FALSE,FALSE)) THEN
953: x_return_status, x_msg_count, x_msg_data,
954: p_payer, l_payer_attribs, l_payer_id, lx_result
955: );
956:
957: IF (lx_result.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
958: -- test_debug('could not set payer attributes');
959: iby_debug_pub.add('could not set payer attributes',
960: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
961: x_response := lx_result;
1034: fnd_global.user_id, SYSDATE, fnd_global.user_id, SYSDATE,
1035: fnd_global.login_id, 1
1036: );
1037:
1038: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1039: END IF;
1040: END IF;
1041:
1042: iby_fndcpt_common_pub.Prepare_Result
1038: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1039: END IF;
1040: END IF;
1041:
1042: iby_fndcpt_common_pub.Prepare_Result
1043: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1044:
1045: IF FND_API.To_Boolean(p_commit) THEN
1046: COMMIT;
1073: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1074: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1075: module => G_DEBUG_MODULE || l_module);
1076:
1077: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1078:
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1080: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1081: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1093: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1094: x_return_status OUT NOCOPY VARCHAR2,
1095: x_msg_count OUT NOCOPY NUMBER,
1096: x_msg_data OUT NOCOPY VARCHAR2,
1097: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1098: p_payer_equivalency IN VARCHAR2 :=
1099: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1100: p_entity_id IN NUMBER,
1101: p_pmt_channel IN VARCHAR2,
1095: x_msg_count OUT NOCOPY NUMBER,
1096: x_msg_data OUT NOCOPY VARCHAR2,
1097: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1098: p_payer_equivalency IN VARCHAR2 :=
1099: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1100: p_entity_id IN NUMBER,
1101: p_pmt_channel IN VARCHAR2,
1102: p_instr_assignment IN NUMBER,
1103: p_trxn_attribs IN TrxnExtension_rec_type,
1100: p_entity_id IN NUMBER,
1101: p_pmt_channel IN VARCHAR2,
1102: p_instr_assignment IN NUMBER,
1103: p_trxn_attribs IN TrxnExtension_rec_type,
1104: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1105: )
1106: IS
1107: l_api_version CONSTANT NUMBER := 1.0;
1108: l_module CONSTANT VARCHAR2(30) := 'Update_Transaction_Extension';
1134: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || l_module;
1135:
1136: CURSOR c_extension
1137: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
1138: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1139: ci_payer_level IN VARCHAR2,
1140: ci_payer_equiv IN VARCHAR2
1141: )
1142: IS
1147: FROM iby_fndcpt_tx_extensions x, iby_external_payers_all p
1148: WHERE (x.ext_payer_id = p.ext_payer_id)
1149: AND (x.trxn_extension_id = ci_extension_id)
1150: AND (p.party_id = ci_payer.Party_Id)
1151: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
1152: (ci_payer.org_type, ci_payer.org_id,
1153: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
1154: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
1155: p.cust_account_id,p.acct_site_use_id) = 'T');
1183: l_dbg_mod);
1184: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1185: l_payer_level,l_payer_id,l_payer_attribs);
1186:
1187: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1188: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1189: ELSE
1190: -- verify the transaction id is for a payer equivalent to the
1191: -- given one
1184: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1185: l_payer_level,l_payer_id,l_payer_attribs);
1186:
1187: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1188: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1189: ELSE
1190: -- verify the transaction id is for a payer equivalent to the
1191: -- given one
1192: OPEN c_extension(p_entity_id,p_payer,l_payer_level,p_payer_equivalency);
1206: THEN
1207: iby_debug_pub.add('invalid order id',
1208: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1209: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1210: iby_fndcpt_common_pub.Prepare_Result
1211: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1212: RETURN;
1213: END IF;
1214:
1244: THEN
1245: iby_debug_pub.add('invalid payment channel for payer',
1246: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1247: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_CHNNL;
1248: iby_fndcpt_common_pub.Prepare_Result
1249: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,
1250: x_response);
1251: RETURN;
1252: END IF;
1261: THEN
1262: iby_debug_pub.add('invalid payment channel for instrument or payer',
1263: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1264: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1265: iby_fndcpt_common_pub.Prepare_Result
1266: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,
1267: x_response);
1268: RETURN;
1269: END IF;
1382: DELETE FROM iby_security_segments
1383: WHERE (sec_segment_id = l_segment_id);
1384: END IF;
1385:
1386: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1387: END IF;
1388: ELSE
1389: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1390: END IF;
1393: IF FND_API.To_Boolean(p_commit) THEN
1394: COMMIT;
1395: END IF;
1396:
1397: iby_fndcpt_common_pub.Prepare_Result
1398: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1399:
1400: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
1401:
1424: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1425: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1426: module => G_DEBUG_MODULE || l_module);
1427:
1428: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1429:
1430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1431: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1432: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1445: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1446: x_return_status OUT NOCOPY VARCHAR2,
1447: x_msg_count OUT NOCOPY NUMBER,
1448: x_msg_data OUT NOCOPY VARCHAR2,
1449: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1450: p_entity_id IN NUMBER,
1451: x_trxn_attribs OUT NOCOPY TrxnExtension_rec_type,
1452: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1453: )
1448: x_msg_data OUT NOCOPY VARCHAR2,
1449: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1450: p_entity_id IN NUMBER,
1451: x_trxn_attribs OUT NOCOPY TrxnExtension_rec_type,
1452: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1453: )
1454: IS
1455: l_api_version CONSTANT NUMBER := 1.0;
1456: l_module CONSTANT VARCHAR2(30) := 'Get_Transaction_Extension';
1501: iby_debug_pub.add('checking payer contxt',iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
1502: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1503: l_payer_level,l_payer_id,l_payer_attribs);
1504:
1505: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1506: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1507: ELSE
1508: OPEN c_extension(p_entity_id);
1509: FETCH c_extension INTO
1502: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1503: l_payer_level,l_payer_id,l_payer_attribs);
1504:
1505: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1506: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1507: ELSE
1508: OPEN c_extension(p_entity_id);
1509: FETCH c_extension INTO
1510: x_trxn_attribs.Originating_Application_Id,
1514: x_trxn_attribs.PO_Number, x_trxn_attribs.PO_Line_Number,
1515: x_trxn_attribs.Trxn_Ref_Number1, x_trxn_attribs.Trxn_Ref_Number2,
1516: x_trxn_attribs.Additional_Info;
1517:
1518: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1519: IF (c_extension%NOTFOUND) THEN
1520: iby_debug_pub.add('could not find extension',
1521: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1522: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1520: iby_debug_pub.add('could not find extension',
1521: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1522: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1523: ELSE
1524: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1525: END IF;
1526: CLOSE c_extension;
1527: END IF;
1528:
1525: END IF;
1526: CLOSE c_extension;
1527: END IF;
1528:
1529: iby_fndcpt_common_pub.Prepare_Result
1530: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1531:
1532: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
1533: EXCEPTION
1555: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1556: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1557: module => G_DEBUG_MODULE || l_module);
1558:
1559: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1560:
1561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1562: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1563: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1584: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1585: x_return_status OUT NOCOPY VARCHAR2,
1586: x_msg_count OUT NOCOPY NUMBER,
1587: x_msg_data OUT NOCOPY VARCHAR2,
1588: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1589: p_payer_equivalency IN VARCHAR2 :=
1590: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1591: p_entity_id IN NUMBER,
1592: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1586: x_msg_count OUT NOCOPY NUMBER,
1587: x_msg_data OUT NOCOPY VARCHAR2,
1588: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1589: p_payer_equivalency IN VARCHAR2 :=
1590: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1591: p_entity_id IN NUMBER,
1592: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1593: )
1594: IS
1588: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1589: p_payer_equivalency IN VARCHAR2 :=
1590: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1591: p_entity_id IN NUMBER,
1592: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1593: )
1594: IS
1595: l_api_version CONSTANT NUMBER := 1.0;
1596: l_module CONSTANT VARCHAR2(30) := 'Delete_Transaction_Extension';
1606: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || l_module;
1607:
1608: CURSOR c_extension
1609: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
1610: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1611: ci_payer_level IN VARCHAR2,
1612: ci_payer_equiv IN VARCHAR2
1613: )
1614: IS
1618: WHERE (x.trxn_extension_id = ci_extension_id)
1619: AND (x.instr_assignment_id = i.instrument_payment_use_id(+))
1620: AND (NVL(x.ext_payer_id,i.ext_pmt_party_id) = p.ext_payer_id)
1621: AND (p.party_id = ci_payer.Party_Id)
1622: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
1623: (ci_payer.org_type, ci_payer.org_id,
1624: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
1625: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
1626: p.cust_account_id,p.acct_site_use_id) = 'T');
1653: iby_debug_pub.add('checking payer contxt',iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
1654: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1655: l_payer_level,l_payer_id,l_payer_attribs);
1656:
1657: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1658: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1659: ELSE
1660: -- verify the transaction id is for a payer equivalent to the
1661: -- given one
1654: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1655: l_payer_level,l_payer_id,l_payer_attribs);
1656:
1657: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1658: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1659: ELSE
1660: -- verify the transaction id is for a payer equivalent to the
1661: -- given one
1662: OPEN c_extension(p_entity_id,p_payer,l_payer_level,p_payer_equivalency);
1679: WHERE (copy_trxn_extension_id = p_entity_id);
1680:
1681: DELETE iby_fndcpt_tx_extensions
1682: WHERE (trxn_extension_id = p_entity_id);
1683: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1684: END IF;
1685: ELSE
1686: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1687: END IF;
1691: IF FND_API.To_Boolean(p_commit) THEN
1692: COMMIT;
1693: END IF;
1694:
1695: iby_fndcpt_common_pub.Prepare_Result
1696: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1697:
1698: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
1699: EXCEPTION
1722: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1723: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1724: module => G_DEBUG_MODULE || l_module);
1725:
1726: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1727:
1728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1729: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1730: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1750: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1751: x_return_status OUT NOCOPY VARCHAR2,
1752: x_msg_count OUT NOCOPY NUMBER,
1753: x_msg_data OUT NOCOPY VARCHAR2,
1754: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1755: p_payer_equivalency IN VARCHAR2 :=
1756: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1757: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
1758: p_trxn_attribs IN TrxnExtension_rec_type,
1752: x_msg_count OUT NOCOPY NUMBER,
1753: x_msg_data OUT NOCOPY VARCHAR2,
1754: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1755: p_payer_equivalency IN VARCHAR2 :=
1756: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1757: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
1758: p_trxn_attribs IN TrxnExtension_rec_type,
1759: x_entity_id OUT NOCOPY NUMBER,
1760: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1753: x_msg_data OUT NOCOPY VARCHAR2,
1754: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1755: p_payer_equivalency IN VARCHAR2 :=
1756: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1757: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
1758: p_trxn_attribs IN TrxnExtension_rec_type,
1759: x_entity_id OUT NOCOPY NUMBER,
1760: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1761: )
1756: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1757: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
1758: p_trxn_attribs IN TrxnExtension_rec_type,
1759: x_entity_id OUT NOCOPY NUMBER,
1760: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1761: )
1762: IS
1763: l_api_version CONSTANT NUMBER := 1.0;
1764: l_module CONSTANT VARCHAR2(30) := 'Copy_Transaction_Extension';
1789: l_persist_auth VARCHAR2(1);
1790:
1791: l_segment_id NUMBER;
1792:
1793: lx_result IBY_FNDCPT_COMMON_PUB.Result_rec_type;
1794:
1795: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || l_module;
1796:
1797: CURSOR c_extension
1795: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || l_module;
1796:
1797: CURSOR c_extension
1798: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
1799: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1800: ci_payer_level IN VARCHAR2,
1801: ci_payer_equiv IN VARCHAR2,
1802: ci_copy_instr_assign_id IN
1803: iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE
1827: -- not succeed should the new assignment's instrument id not match
1828: -- put its payer does
1829: --
1830: ((p.party_id = ci_payer.Party_Id)
1831: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
1832: (ci_payer.org_type, ci_payer.org_id,
1833: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
1834: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
1835: p.cust_account_id,p.acct_site_use_id) = 'T'
1852: FROM iby_trxn_ext_auths_v x, iby_fndcpt_sys_eft_pf_b sp,
1853: iby_fndcpt_user_eft_pf_b up
1854: WHERE (x.trxn_extension_id = ci_extension_id)
1855: AND (DECODE(x.instrument_type,
1856: IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT,x.process_profile_code,
1857: NULL) = up.user_eft_profile_code(+)
1858: )
1859: AND (up.sys_eft_profile_code = sp.sys_eft_profile_code(+));
1860:
1896:
1897: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1898: l_payer_level,l_payer_id,l_payer_attribs);
1899:
1900: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1901: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1902: ELSE
1903: IF (l_extension.Order_Id IS NULL)
1904: OR (LENGTH(Get_Tangible_Id(l_extension.Originating_Application_Id,
1897: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1898: l_payer_level,l_payer_id,l_payer_attribs);
1899:
1900: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1901: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1902: ELSE
1903: IF (l_extension.Order_Id IS NULL)
1904: OR (LENGTH(Get_Tangible_Id(l_extension.Originating_Application_Id,
1905: l_extension.Order_Id,
1909: )
1910: THEN
1911: iby_debug_pub.add('order id invalid',iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1912: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1913: iby_fndcpt_common_pub.Prepare_Result
1914: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1915: RETURN;
1916: END IF;
1917:
1926: x_return_status, x_msg_count, x_msg_data,
1927: p_payer, l_payer_attribs, l_payer_id, lx_result
1928: );
1929:
1930: IF (lx_result.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
1931: x_response := lx_result;
1932: RETURN;
1933: END IF;
1934: END IF;
1974: ' for channel ' || l_pmt_channel,
1975: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1976: x_response.Result_Code :=
1977: IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1978: iby_fndcpt_common_pub.Prepare_Result
1979: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1980: RETURN;
1981: END IF;
1982: l_instr_assign_id := p_trxn_attribs.Copy_Instr_Assign_Id;
1985: IF (l_x_not_found) THEN
1986: iby_debug_pub.add('extension invalid for payer, or non-existant',
1987: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1988: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1989: iby_fndcpt_common_pub.Prepare_Result
1990: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1991: RETURN;
1992: ELSIF ( (l_pmt_channel<>lc_pmt_channel)
1993: -- instr assignment may change;
1996: THEN
1997: iby_debug_pub.add('incompatible pmt chanenel ' || l_pmt_channel,
1998: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
1999: x_response.Result_Code := G_RC_INCMP_EXTENSION_GROUP;
2000: iby_fndcpt_common_pub.Prepare_Result
2001: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2002: RETURN;
2003: /*
2004: ELSIF (l_copy_count>0) THEN
2002: RETURN;
2003: /*
2004: ELSIF (l_copy_count>0) THEN
2005: x_response.Result_Code := G_RC_DUP_EXTENSION_COPY;
2006: iby_fndcpt_common_pub.Prepare_Result
2007: (x_return_status,x_msg_count,x_msg_data,x_response);
2008: RETURN;
2009: */
2010: ELSE
2046: IF (l_persist_auth = 'Y') THEN
2047: iby_debug_pub.add('persistent auth; cannot do 1-to-many copy',
2048: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
2049: x_response.Result_Code := G_RC_INCMP_EXTENSION_GROUP;
2050: iby_fndcpt_common_pub.Prepare_Result
2051: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2052: RETURN;
2053: END IF;
2054: END IF;
2129: WHERE trxn_extension_id = p_entities(i);
2130: END IF;
2131: END LOOP;
2132:
2133: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
2134: END IF;
2135:
2136: END IF;
2137:
2134: END IF;
2135:
2136: END IF;
2137:
2138: iby_fndcpt_common_pub.Prepare_Result
2139: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2140:
2141: IF FND_API.To_Boolean(p_commit) THEN
2142: COMMIT;
2170: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
2171: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2172: module => G_DEBUG_MODULE || l_module);
2173:
2174: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
2175:
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2177: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2178: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
2277: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2278: x_return_status OUT NOCOPY VARCHAR2,
2279: x_msg_count OUT NOCOPY NUMBER,
2280: x_msg_data OUT NOCOPY VARCHAR2,
2281: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2282: p_payer_equivalency IN VARCHAR2 :=
2283: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2284: p_payee IN PayeeContext_rec_type,
2285: p_trxn_entity_id IN NUMBER,
2279: x_msg_count OUT NOCOPY NUMBER,
2280: x_msg_data OUT NOCOPY VARCHAR2,
2281: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2282: p_payer_equivalency IN VARCHAR2 :=
2283: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2284: p_payee IN PayeeContext_rec_type,
2285: p_trxn_entity_id IN NUMBER,
2286: p_auth_attribs IN AuthAttribs_rec_type,
2287: p_amount IN Amount_rec_type,
2285: p_trxn_entity_id IN NUMBER,
2286: p_auth_attribs IN AuthAttribs_rec_type,
2287: p_amount IN Amount_rec_type,
2288: x_auth_result OUT NOCOPY AuthResult_rec_type,
2289: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2290: )
2291: IS
2292: l_api_version CONSTANT NUMBER := 1.0;
2293: l_module CONSTANT VARCHAR2(30) := 'Create_Authorization';
2327: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
2328:
2329: CURSOR c_extension
2330: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
2331: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2332: ci_payer_level IN VARCHAR2,
2333: ci_payer_equiv IN VARCHAR2
2334: )
2335: IS
2350: -- can assume this assignment is for funds capture
2351: AND (x.ext_payer_id = p.ext_payer_id)
2352: AND (x.trxn_extension_id = ci_extension_id)
2353: AND (p.party_id = ci_payer.Party_Id)
2354: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
2355: (ci_payer.org_type, ci_payer.org_id,
2356: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
2357: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
2358: p.cust_account_id,p.acct_site_use_id) = 'T');
2414: iby_debug_pub.add('checking payer context',iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
2415: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2416: l_payer_level,l_payer_id,l_payer_attribs);
2417:
2418: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2419: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2420: ELSE
2421: -- verify transaction entity is for a payer equivalent to the
2422: -- given one
2415: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2416: l_payer_level,l_payer_id,l_payer_attribs);
2417:
2418: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2419: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2420: ELSE
2421: -- verify transaction entity is for a payer equivalent to the
2422: -- given one
2423: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,p_payer_equivalency);
2449:
2450: IF (l_payee.Payee_Id IS NULL) THEN
2451: x_response.Result_Code := G_RC_INVALID_PAYEE;
2452:
2453: iby_fndcpt_common_pub.Prepare_Result
2454: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2455: RETURN;
2456: -- cannot do operations on a trxn entity already copied
2457: ELSIF (l_copy_count>0) THEN
2457: ELSIF (l_copy_count>0) THEN
2458: iby_debug_pub.add('extension has been copied ' || l_copy_count
2459: || ' times; cannot auth',iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
2460: x_response.Result_Code := G_RC_EXTENSION_IMMUTABLE;
2461: iby_fndcpt_common_pub.Prepare_Result
2462: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2463: RETURN;
2464: END IF;
2465:
2469: --l_tangible.Tangible_Id :=
2470: -- Get_Tangible_Id(l_app_short_name,l_order_id,l_trxn_ref1,l_trxn_ref2);
2471:
2472: IF (l_pmt_instr.PmtInstr_Type =
2473: IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT)
2474: THEN
2475: l_pmt_trxn.Auth_Type := IBY_PAYMENT_ADAPTER_PUB.G_AUTHTYPE_VERIFY;
2476: ELSE
2477: l_pmt_trxn.Auth_Type := IBY_PAYMENT_ADAPTER_PUB.G_AUTHTYPE_AUTHONLY;
2504: IF (NVL(l_instr_auth_flag,'N') = 'Y') THEN
2505: iby_debug_pub.add('single use instrument cannot be reused',
2506: iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
2507: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTRUMENT;
2508: iby_fndcpt_common_pub.Prepare_Result
2509: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2510: RETURN;
2511: END IF;
2512: END IF;
2714:
2715: IF (l_reqresp.Response.Status = 0) THEN
2716: x_response.Result_Code := G_RC_AUTH_SUCCESS;
2717: ELSE
2718: --x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
2719:
2720: -- check if the result code is seeded in the result definitions
2721: -- table
2722: --
2719:
2720: -- check if the result code is seeded in the result definitions
2721: -- table
2722: --
2723: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
2724: THEN
2725: x_response.Result_Code := 'COMMUNICATION_ERROR';
2726: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
2727: END IF;
2722: --
2723: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
2724: THEN
2725: x_response.Result_Code := 'COMMUNICATION_ERROR';
2726: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
2727: END IF;
2728:
2729: IF ( (NOT l_reqresp.Response.ErrMessage IS NULL)
2730: OR (NOT l_reqresp.Response.ErrCode IS NULL) )
2733: l_reqresp.Response.ErrMessage || ' (' ||
2734: l_reqresp.Response.ErrCode || ')';
2735: END IF;
2736:
2737: iby_fndcpt_common_pub.Prepare_Result(
2738: iby_payment_adapter_pub.G_INTERFACE_CODE,
2739: l_reqresp.Response.ErrMessage,
2740: l_prev_msg_count,
2741: x_return_status,
2757: IF (NOT l_fail_msg IS NULL) THEN
2758: FND_MESSAGE.SET_NAME('IBY',l_fail_msg);
2759: l_fail_msg := FND_MESSAGE.GET();
2760:
2761: iby_fndcpt_common_pub.Prepare_Result
2762: (iby_payment_adapter_pub.G_INTERFACE_CODE,
2763: l_fail_msg,l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,
2764: x_response);
2765:
2767: END IF;
2768: END IF;
2769: END IF;
2770:
2771: iby_fndcpt_common_pub.Prepare_Result
2772: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2773:
2774: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
2775: EXCEPTION
2798: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
2799: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2800: module => G_DEBUG_MODULE || l_module);
2801:
2802: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
2803:
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2805: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2806: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
2821: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2822: x_return_status OUT NOCOPY VARCHAR2,
2823: x_msg_count OUT NOCOPY NUMBER,
2824: x_msg_data OUT NOCOPY VARCHAR2,
2825: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2826: p_trxn_entity_id IN NUMBER,
2827: x_auth_result OUT NOCOPY AuthResult_rec_type,
2828: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2829: )
2824: x_msg_data OUT NOCOPY VARCHAR2,
2825: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2826: p_trxn_entity_id IN NUMBER,
2827: x_auth_result OUT NOCOPY AuthResult_rec_type,
2828: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2829: )
2830: IS
2831: l_api_version CONSTANT NUMBER := 1.0;
2832: l_module CONSTANT VARCHAR2(30) := 'Get_Authorization';
2872: x_auth_result.PaymentSys_Msg;
2873: IF (c_auth%NOTFOUND) THEN
2874: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
2875: ELSE
2876: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
2877: END IF;
2878:
2879: iby_fndcpt_common_pub.Prepare_Result
2880: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2875: ELSE
2876: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
2877: END IF;
2878:
2879: iby_fndcpt_common_pub.Prepare_Result
2880: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2881:
2882: EXCEPTION
2883:
2905: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
2906: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2907: module => G_DEBUG_MODULE || l_module);
2908:
2909: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
2910:
2911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2913: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
2926: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2927: x_return_status OUT NOCOPY VARCHAR2,
2928: x_msg_count OUT NOCOPY NUMBER,
2929: x_msg_data OUT NOCOPY VARCHAR2,
2930: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2931: p_auth_id IN NUMBER,
2932: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2933: )
2934: IS
2928: x_msg_count OUT NOCOPY NUMBER,
2929: x_msg_data OUT NOCOPY VARCHAR2,
2930: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2931: p_auth_id IN NUMBER,
2932: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2933: )
2934: IS
2935: l_api_version CONSTANT NUMBER := 1.0;
2936: l_module CONSTANT VARCHAR2(30) := 'Cancel_Authorization';
2956: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
2957:
2958: x_response.Result_Code := G_RC_AUTH_CANCEL_UNSUPPORTED;
2959:
2960: iby_fndcpt_common_pub.Prepare_Result
2961: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2962:
2963: EXCEPTION
2964:
2986: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
2987: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2988: module => G_DEBUG_MODULE || l_module);
2989:
2990: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
2991:
2992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2993: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2994: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
3009: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3010: x_return_status OUT NOCOPY VARCHAR2,
3011: x_msg_count OUT NOCOPY NUMBER,
3012: x_msg_data OUT NOCOPY VARCHAR2,
3013: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3014: p_payer_equivalency IN VARCHAR2 :=
3015: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3016: p_trxn_entity_id IN NUMBER,
3017: p_amount IN Amount_rec_type,
3011: x_msg_count OUT NOCOPY NUMBER,
3012: x_msg_data OUT NOCOPY VARCHAR2,
3013: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3014: p_payer_equivalency IN VARCHAR2 :=
3015: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3016: p_trxn_entity_id IN NUMBER,
3017: p_amount IN Amount_rec_type,
3018: p_receipt_attribs IN ReceiptAttribs_rec_type,
3019: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3015: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3016: p_trxn_entity_id IN NUMBER,
3017: p_amount IN Amount_rec_type,
3018: p_receipt_attribs IN ReceiptAttribs_rec_type,
3019: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3020: )
3021: IS
3022: l_api_version CONSTANT NUMBER := 1.0;
3023: l_module CONSTANT VARCHAR2(30) := 'Create_Settlement';
3057: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
3058:
3059: CURSOR c_extension
3060: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
3061: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3062: ci_payer_level IN VARCHAR2,
3063: ci_payer_equiv IN VARCHAR2
3064: )
3065: IS
3079: AND (x.ext_payer_id = p.ext_payer_id)
3080: AND (x.trxn_extension_id = ci_extension_id)
3081: AND (x.origin_application_id = a.application_id)
3082: AND (p.party_id = ci_payer.Party_Id)
3083: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
3084: (ci_payer.org_type, ci_payer.org_id,
3085: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
3086: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
3087: p.cust_account_id,p.acct_site_use_id) = 'T');
3142:
3143: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
3144: l_payer_level,l_payer_id,l_payer_attribs);
3145:
3146: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
3147: iby_debug_pub.add('invalid payer',iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
3148: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
3149: ELSE
3150: iby_debug_pub.add('Create Settlemnet- Valid Payer',iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
3144: l_payer_level,l_payer_id,l_payer_attribs);
3145:
3146: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
3147: iby_debug_pub.add('invalid payer',iby_debug_pub.G_LEVEL_ERROR,l_dbg_mod);
3148: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
3149: ELSE
3150: iby_debug_pub.add('Create Settlemnet- Valid Payer',iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
3151: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,p_payer_equivalency);
3152: FETCH c_extension INTO l_pmt_instr.PmtInstr_Type,
3168: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
3169: ELSE
3170:
3171: iby_debug_pub.add('Create Settlemnet. l_ecapp_id is not null. l_pmt_instr.PmtInstr_Type ' || l_pmt_instr.PmtInstr_Type,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
3172: IF (l_pmt_instr.PmtInstr_Type = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT) THEN
3173:
3174: iby_debug_pub.add('Create Settlemnet. Entered Bank Account flow. p_trxn_entity_id ' || p_trxn_entity_id,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
3175:
3176: OPEN C_PAYEE(p_trxn_entity_id);
3181: iby_debug_pub.add('Invalid Payee ',iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
3182:
3183: x_response.Result_Code := G_RC_INVALID_PAYEE;
3184:
3185: iby_fndcpt_common_pub.Prepare_Result
3186: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3187: RETURN;
3188:
3189: END IF;
3276: IF (l_reqresp.Response.Status = 0) THEN
3277: --x_response.Result_Code := G_RC_AUTH_SUCCESS;
3278: x_response.Result_Code := 'SETTLEMENT_SUCCESS';
3279: ELSE
3280: --x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
3281:
3282: -- check if the result code is seeded in the result definitions
3283: -- table
3284: --
3281:
3282: -- check if the result code is seeded in the result definitions
3283: -- table
3284: --
3285: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
3286: THEN
3287: x_response.Result_Code := 'COMMUNICATION_ERROR';
3288: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
3289: END IF;
3284: --
3285: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
3286: THEN
3287: x_response.Result_Code := 'COMMUNICATION_ERROR';
3288: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
3289: END IF;
3290:
3291: IF ( (NOT l_reqresp.Response.ErrMessage IS NULL)
3292: OR (NOT l_reqresp.Response.ErrCode IS NULL) )
3295: l_reqresp.Response.ErrMessage || ' (' ||
3296: l_reqresp.Response.ErrCode || ')';
3297: END IF;
3298:
3299: iby_fndcpt_common_pub.Prepare_Result(
3300: iby_payment_adapter_pub.G_INTERFACE_CODE,
3301: l_reqresp.Response.ErrMessage,
3302: l_prev_msg_count,
3303: x_return_status,
3425: WHERE transactionid = l_reqresp.Trxn_Id
3426: AND reqtype = 'ORAPMTCAPTURE';
3427:
3428: IF (lx_capresp.Response.Status = 0) THEN
3429: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
3430: ELSE
3431: x_response.Result_Code :=
3432: NVL(lx_capresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
3433: -- check if the result code is seeded in the result definitions
3428: IF (lx_capresp.Response.Status = 0) THEN
3429: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
3430: ELSE
3431: x_response.Result_Code :=
3432: NVL(lx_capresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
3433: -- check if the result code is seeded in the result definitions
3434: -- table
3435: --
3436: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
3432: NVL(lx_capresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
3433: -- check if the result code is seeded in the result definitions
3434: -- table
3435: --
3436: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
3437: THEN
3438: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
3439: END IF;
3440:
3434: -- table
3435: --
3436: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
3437: THEN
3438: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
3439: END IF;
3440:
3441: IF ( (NOT lx_capresp.Response.ErrMessage IS NULL)
3442: OR (NOT lx_capresp.Response.ErrCode IS NULL) )
3445: lx_capresp.Response.ErrMessage || ' (' ||
3446: lx_capresp.Response.ErrCode || ')';
3447: END IF;
3448:
3449: iby_fndcpt_common_pub.Prepare_Result(
3450: iby_payment_adapter_pub.G_INTERFACE_CODE,
3451: lx_capresp.Response.ErrMessage,
3452: l_prev_msg_count,
3453: x_return_status,
3464: END IF;
3465:
3466:
3467:
3468: iby_fndcpt_common_pub.Prepare_Result
3469: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3470:
3471:
3472:
3496: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
3497: debug_level => FND_LOG.LEVEL_UNEXPECTED,
3498: module => G_DEBUG_MODULE || l_module);
3499:
3500: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
3501:
3502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3503: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3504: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
3518: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3519: x_return_status OUT NOCOPY VARCHAR2,
3520: x_msg_count OUT NOCOPY NUMBER,
3521: x_msg_data OUT NOCOPY VARCHAR2,
3522: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3523: p_payer_equivalency IN VARCHAR2 :=
3524: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3525: p_trxn_entity_id IN NUMBER,
3526: p_amount IN Amount_rec_type,
3520: x_msg_count OUT NOCOPY NUMBER,
3521: x_msg_data OUT NOCOPY VARCHAR2,
3522: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3523: p_payer_equivalency IN VARCHAR2 :=
3524: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3525: p_trxn_entity_id IN NUMBER,
3526: p_amount IN Amount_rec_type,
3527: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3528: )
3523: p_payer_equivalency IN VARCHAR2 :=
3524: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3525: p_trxn_entity_id IN NUMBER,
3526: p_amount IN Amount_rec_type,
3527: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3528: )
3529: IS
3530: p_receipt_attribs ReceiptAttribs_rec_type;
3531: l_module CONSTANT VARCHAR2(30) := 'Create_Settlement(2)';
4388: * Fix for bug 4770275. Set the result code
4389: * and result message before exiting the loop.
4390: */
4391: x_responses(l).Result.Result_Code :=
4392: IBY_FNDCPT_COMMON_PUB.G_RC_SETTLE_PENDING;
4393: IBY_FNDCPT_COMMON_PUB.Prepare_Result
4394: (
4395: l_prev_msg_count,
4396: x_return_status,
4389: * and result message before exiting the loop.
4390: */
4391: x_responses(l).Result.Result_Code :=
4392: IBY_FNDCPT_COMMON_PUB.G_RC_SETTLE_PENDING;
4393: IBY_FNDCPT_COMMON_PUB.Prepare_Result
4394: (
4395: l_prev_msg_count,
4396: x_return_status,
4397: x_msg_count,
4520: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4521: x_return_status OUT NOCOPY VARCHAR2,
4522: x_msg_count OUT NOCOPY NUMBER,
4523: x_msg_data OUT NOCOPY VARCHAR2,
4524: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
4525: p_payer_equivalency IN VARCHAR2 :=
4526: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4527: p_trxn_entity_id IN NUMBER,
4528: p_amount IN Amount_rec_type,
4522: x_msg_count OUT NOCOPY NUMBER,
4523: x_msg_data OUT NOCOPY VARCHAR2,
4524: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
4525: p_payer_equivalency IN VARCHAR2 :=
4526: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4527: p_trxn_entity_id IN NUMBER,
4528: p_amount IN Amount_rec_type,
4529: p_receipt_attribs IN ReceiptAttribs_rec_type,
4530: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
4526: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4527: p_trxn_entity_id IN NUMBER,
4528: p_amount IN Amount_rec_type,
4529: p_receipt_attribs IN ReceiptAttribs_rec_type,
4530: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
4531: )
4532: IS
4533: l_api_version CONSTANT NUMBER := 1.0;
4534: l_module CONSTANT VARCHAR2(30) := 'Create_Return';
4564: l_return_pson VARCHAR2(100);
4565:
4566: CURSOR c_extension
4567: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
4568: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
4569: ci_payer_level IN VARCHAR2,
4570: ci_payer_equiv IN VARCHAR2
4571: )
4572: IS
4582: AND (x.origin_application_id = a.application_id)
4583: AND (i.ext_pmt_party_id = p.ext_payer_id)
4584: AND (x.trxn_extension_id = ci_extension_id)
4585: AND (p.party_id = ci_payer.Party_Id)
4586: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
4587: (ci_payer.org_type, ci_payer.org_id,
4588: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
4589: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
4590: p.cust_account_id,p.acct_site_use_id) = 'T');
4621:
4622: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
4623: l_payer_level,l_payer_id,l_payer_attribs);
4624:
4625: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
4626: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
4627: ELSE
4628: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,
4629: p_payer_equivalency);
4622: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
4623: l_payer_level,l_payer_id,l_payer_attribs);
4624:
4625: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
4626: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
4627: ELSE
4628: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,
4629: p_payer_equivalency);
4630: FETCH c_extension INTO l_settled_flag, l_returned_flag,
4716: COMMIT;
4717: END IF;
4718:
4719: IF (lx_creditresp.Response.Status = 0) THEN
4720: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
4721: ELSE
4722: x_response.Result_Code :=
4723: NVL(lx_creditresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
4724: END IF;
4719: IF (lx_creditresp.Response.Status = 0) THEN
4720: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
4721: ELSE
4722: x_response.Result_Code :=
4723: NVL(lx_creditresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
4724: END IF;
4725: ELSE
4726:
4727: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,iby_debug_pub.G_LEVEL_INFO,G_DEBUG_MODULE || l_module);
4737: l_ecapp_id, l_return_trxn, lx_return_status, lx_msg_count,
4738: lx_msg_data, lx_returnresp
4739: );
4740:
4741: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4742: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
4743:
4744: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
4745: -- IBY_FNDCPT_TX_EXTENSIONS table
4738: lx_msg_data, lx_returnresp
4739: );
4740:
4741: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4742: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
4743:
4744: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
4745: -- IBY_FNDCPT_TX_EXTENSIONS table
4746: iby_debug_pub.add( 'Stamping the PSON on the extension as '||
4761: WHERE transactionid = lx_returnresp.Trxn_Id
4762: AND reqtype = 'ORAPMTRETURN';
4763:
4764: IF (lx_returnresp.Response.Status = 0) THEN
4765: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
4766: ELSIF (NOT lx_returnresp.Response.ErrCode IS NULL) THEN
4767: x_response.Result_Code := lx_returnresp.Response.ErrCode;
4768: l_interface_code := iby_payment_adapter_pub.G_INTERFACE_CODE;
4769: END IF;
4770: END IF;
4771:
4772: IF (l_interface_code = iby_payment_adapter_pub.G_INTERFACE_CODE) THEN
4773: l_result_category :=
4774: IBY_FNDCPT_COMMON_PUB.Get_Result_Category
4775: (x_response.Result_Code,l_interface_code);
4776: -- check if the result code is seeded in the result definitions
4777: -- table
4778: --
4776: -- check if the result code is seeded in the result definitions
4777: -- table
4778: --
4779: IF (l_result_category IS NULL) THEN
4780: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4781: ELSIF (l_result_category = IBY_FNDCPT_COMMON_PUB.G_RCAT_DUP_REQ) THEN
4782: x_response.Result_Code := G_RC_DUPLICATE_RETURN;
4783: END IF;
4784: END IF;
4777: -- table
4778: --
4779: IF (l_result_category IS NULL) THEN
4780: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4781: ELSIF (l_result_category = IBY_FNDCPT_COMMON_PUB.G_RCAT_DUP_REQ) THEN
4782: x_response.Result_Code := G_RC_DUPLICATE_RETURN;
4783: END IF;
4784: END IF;
4785: END IF;
4784: END IF;
4785: END IF;
4786: END IF;
4787:
4788: iby_fndcpt_common_pub.Prepare_Result
4789: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
4790:
4791: EXCEPTION
4792:
4814: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
4815: debug_level => FND_LOG.LEVEL_UNEXPECTED,
4816: module => G_DEBUG_MODULE || l_module);
4817:
4818: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
4819:
4820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4821: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4822: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
4834: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4835: x_return_status OUT NOCOPY VARCHAR2,
4836: x_msg_count OUT NOCOPY NUMBER,
4837: x_msg_data OUT NOCOPY VARCHAR2,
4838: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
4839: p_payer_equivalency IN VARCHAR2 :=
4840: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4841: p_trxn_entity_id IN NUMBER,
4842: p_amount IN Amount_rec_type,
4836: x_msg_count OUT NOCOPY NUMBER,
4837: x_msg_data OUT NOCOPY VARCHAR2,
4838: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
4839: p_payer_equivalency IN VARCHAR2 :=
4840: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4841: p_trxn_entity_id IN NUMBER,
4842: p_amount IN Amount_rec_type,
4843: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
4844: )
4839: p_payer_equivalency IN VARCHAR2 :=
4840: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4841: p_trxn_entity_id IN NUMBER,
4842: p_amount IN Amount_rec_type,
4843: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
4844: )
4845: IS
4846: p_receipt_attribs ReceiptAttribs_rec_type;
4847: l_module CONSTANT VARCHAR2(30) := 'Create_Return(2)';