[Home] [Help]
156: -- Use: Determines cause of the instrument assignments view returning no
157: -- data
158: FUNCTION Get_Payer_Instr_Assgn_Fail
159: (p_instr_assign_id IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
160: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type
161: )
162: RETURN VARCHAR2
163: IS
164: l_msg VARCHAR2(100);
235: -- Use: Determine the reason extension lookup failed in the auth API
236: --
237: FUNCTION Get_Extension_Auth_Fail
238: (p_trxn_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
239: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type
240: )
241: RETURN VARCHAR2
242: IS
243: l_msg VARCHAR2(100);
515: l_return_status VARCHAR2(1);
516: l_msg_count NUMBER;
517: l_msg_data VARCHAR2(100);
518: l_channel_attribs IBY_FNDCPT_SETUP_PUB.PmtChannel_AttribUses_rec_type;
519: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
520:
521: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.Extension_Valid';
522: BEGIN
523: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
540: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
541: iby_debug_pub.add('Return from IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs',
542: G_LEVEL_STATEMENT,l_dbg_mod);
543: END IF;
544: IF (l_response.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
545: RETURN FALSE;
546: END IF;
547:
548: IF ( (l_channel_attribs.Instr_SecCode_Use =
702: -- the given payer or an equivalent must be assigned this payment
703: -- channel
704: --
705: FUNCTION Payer_Channel_Valid
706: (p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
707: p_payer_level IN VARCHAR2,
708: p_payer_equiv IN VARCHAR2,
709: p_pmt_channel IN iby_fndcpt_pmt_chnnls_b.payment_channel_code%TYPE
710: )
712: IS
713: l_channel_instr iby_fndcpt_pmt_chnnls_b.instrument_type%TYPE;
714:
715: CURSOR c_trxn_channel
716: (ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
717: ci_payer_level IN VARCHAR2,
718: ci_payer_equiv IN VARCHAR2,
719: ci_channel_code IN iby_fndcpt_pmt_chnnls_b.payment_channel_code%TYPE)
720: IS
730: SELECT ext_payer_id
731: FROM iby_external_payers_all
732: WHERE (payment_function = ci_payer.Payment_Function)
733: AND (party_id = ci_payer.Party_Id)
734: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
735: (ci_payer.org_type, ci_payer.org_id,
736: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
737: ci_payer_level,ci_payer_equiv,org_type,org_id,
738: cust_account_id,acct_site_use_id) = 'T')
850: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
851: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
852: END IF;
853:
854: IF ((x_channel_instr = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_MANUAL)
855: AND (l_assign_id IS NULL))
856: THEN
857: RETURN TRUE;
858: ELSIF (l_assign_appl = IBY_FNDCPT_SETUP_PUB.G_CHNNL_ATTRIB_USE_OPTIONAL)
868: --
869: -- USE: Validates the payment instrument assignment for the given payer
870: --
871: FUNCTION Payer_InstrAssignment_Valid
872: (p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
873: p_payer_level IN VARCHAR2,
874: p_payer_equiv IN VARCHAR2,
875: p_channel_code IN iby_fndcpt_pmt_chnnls_b.payment_channel_code%TYPE,
876: p_instr_assign IN iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE,
886: l_single_use iby_fndcpt_payer_assgn_instr_v.card_single_use_flag%TYPE;
887: l_auth_flag iby_trxn_extensions_v.authorized_flag%TYPE;
888:
889: CURSOR c_instr_assigns
890: (ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
891: ci_payer_level IN VARCHAR2,
892: ci_payer_equiv IN VARCHAR2,
893: ci_instr_assign IN iby_fndcpt_payer_assgn_instr_v.instr_assignment_id%TYPE
894: )
903: SELECT ext_payer_id
904: FROM iby_external_payers_all
905: WHERE (payment_function = ci_payer.Payment_Function)
906: AND (party_id = ci_payer.Party_Id)
907: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
908: (ci_payer.org_type, ci_payer.org_id,
909: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
910: ci_payer_level,ci_payer_equiv,org_type,org_id,
911: cust_account_id,acct_site_use_id) = 'T')
1024: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1025: x_return_status OUT NOCOPY VARCHAR2,
1026: x_msg_count OUT NOCOPY NUMBER,
1027: x_msg_data OUT NOCOPY VARCHAR2,
1028: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1029: p_payer_equivalency IN VARCHAR2 :=
1030: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1031: p_pmt_channel IN VARCHAR2,
1032: p_instr_assignment IN NUMBER,
1026: x_msg_count OUT NOCOPY NUMBER,
1027: x_msg_data OUT NOCOPY VARCHAR2,
1028: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1029: p_payer_equivalency IN VARCHAR2 :=
1030: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1031: p_pmt_channel IN VARCHAR2,
1032: p_instr_assignment IN NUMBER,
1033: p_trxn_attribs IN TrxnExtension_rec_type,
1034: x_entity_id OUT NOCOPY NUMBER,
1031: p_pmt_channel IN VARCHAR2,
1032: p_instr_assignment IN NUMBER,
1033: p_trxn_attribs IN TrxnExtension_rec_type,
1034: x_entity_id OUT NOCOPY NUMBER,
1035: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1036: )
1037: IS
1038: l_api_version CONSTANT NUMBER := 1.0;
1039: l_module CONSTANT VARCHAR2(30) := 'Create_Transaction_Extension';
1052: l_segment_id NUMBER;
1053:
1054: lx_channel_instr iby_fndcpt_pmt_chnnls_b.instrument_type%TYPE;
1055:
1056: lx_result IBY_FNDCPT_COMMON_PUB.Result_rec_type;
1057:
1058: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
1059: BEGIN
1060: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1098:
1099: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
1100: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
1101:
1102: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1103: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1104: ELSE
1105: -- We do not need to check against the MAX_TANGIBLEID_LEN, because
1106: -- we now generate the tangibleid using
1099: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
1100: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
1101:
1102: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1103: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1104: ELSE
1105: -- We do not need to check against the MAX_TANGIBLEID_LEN, because
1106: -- we now generate the tangibleid using
1107: IF (p_trxn_attribs.Order_Id IS NULL)
1116: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1117: iby_debug_pub.add('invalid order id',G_LEVEL_ERROR,l_dbg_mod);
1118: END IF;
1119: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1120: iby_fndcpt_common_pub.Prepare_Result
1121: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1122: RETURN;
1123: END IF;
1124:
1127: IF (NOT Payer_Channel_Valid(p_payer,l_payer_level,
1128: p_payer_equivalency,p_pmt_channel))
1129: THEN
1130: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_CHNNL;
1131: iby_fndcpt_common_pub.Prepare_Result
1132: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1133: RETURN;
1134: END IF;
1135:
1147: iby_debug_pub.add('instrument asssignment not valid for channel',
1148: G_LEVEL_ERROR,l_dbg_mod);
1149: END IF;
1150: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1151: iby_fndcpt_common_pub.Prepare_Result
1152: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1153: RETURN;
1154: END IF;
1155:
1166: iby_debug_pub.add('instrument asssignment not valid payer',
1167: G_LEVEL_ERROR,l_dbg_mod);
1168: END IF;
1169: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1170: iby_fndcpt_common_pub.Prepare_Result
1171: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1172: RETURN;
1173: END IF;
1174:
1172: RETURN;
1173: END IF;
1174:
1175: -- validate bank end-dates
1176: IF (lx_channel_instr = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT) THEN
1177: null;
1178: END IF;
1179:
1180: IF (NOT Extension_Valid(p_pmt_channel,p_trxn_attribs,FALSE,FALSE)) THEN
1193: x_return_status, x_msg_count, x_msg_data,
1194: p_payer, l_payer_attribs, l_payer_id, lx_result
1195: );
1196:
1197: IF (lx_result.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
1198: --test_debug('could not set payer attributes');
1199: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1200: iby_debug_pub.add('could not set payer attributes',
1201: G_LEVEL_ERROR,l_dbg_mod);
1307: fnd_global.login_id, 1, p_trxn_attribs.seq_type_last
1308: );
1309: END IF;
1310:
1311: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1312: END IF;
1313:
1314: iby_fndcpt_common_pub.Prepare_Result
1315: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1310:
1311: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1312: END IF;
1313:
1314: iby_fndcpt_common_pub.Prepare_Result
1315: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1316:
1317: IF FND_API.To_Boolean(p_commit) THEN
1318: COMMIT;
1348: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1349: debug_level => G_LEVEL_UNEXPECTED,
1350: module => G_DEBUG_MODULE || l_module);
1351:
1352: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1353:
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1355: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1356: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1368: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1369: x_return_status OUT NOCOPY VARCHAR2,
1370: x_msg_count OUT NOCOPY NUMBER,
1371: x_msg_data OUT NOCOPY VARCHAR2,
1372: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1373: p_payer_equivalency IN VARCHAR2 :=
1374: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1375: p_entity_id IN NUMBER,
1376: p_pmt_channel IN VARCHAR2,
1370: x_msg_count OUT NOCOPY NUMBER,
1371: x_msg_data OUT NOCOPY VARCHAR2,
1372: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1373: p_payer_equivalency IN VARCHAR2 :=
1374: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1375: p_entity_id IN NUMBER,
1376: p_pmt_channel IN VARCHAR2,
1377: p_instr_assignment IN NUMBER,
1378: p_trxn_attribs IN TrxnExtension_rec_type,
1375: p_entity_id IN NUMBER,
1376: p_pmt_channel IN VARCHAR2,
1377: p_instr_assignment IN NUMBER,
1378: p_trxn_attribs IN TrxnExtension_rec_type,
1379: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1380: )
1381: IS
1382: l_api_version CONSTANT NUMBER := 1.0;
1383: l_module CONSTANT VARCHAR2(30) := 'Update_Transaction_Extension';
1411: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || l_module;
1412:
1413: CURSOR c_extension
1414: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
1415: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1416: ci_payer_level IN VARCHAR2,
1417: ci_payer_equiv IN VARCHAR2
1418: )
1419: IS
1424: FROM iby_fndcpt_tx_extensions x, iby_external_payers_all p
1425: WHERE (x.ext_payer_id = p.ext_payer_id)
1426: AND (x.trxn_extension_id = ci_extension_id)
1427: AND (p.party_id = ci_payer.Party_Id)
1428: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
1429: (ci_payer.org_type, ci_payer.org_id,
1430: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
1431: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
1432: p.cust_account_id,p.acct_site_use_id) = 'T');
1465: END IF;
1466: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1467: l_payer_level,l_payer_id,l_payer_attribs);
1468:
1469: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1470: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1471: ELSE
1472: -- verify the transaction id is for a payer equivalent to the
1473: -- given one
1466: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1467: l_payer_level,l_payer_id,l_payer_attribs);
1468:
1469: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1470: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1471: ELSE
1472: -- verify the transaction id is for a payer equivalent to the
1473: -- given one
1474: OPEN c_extension(p_entity_id,p_payer,l_payer_level,p_payer_equivalency);
1489: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1490: iby_debug_pub.add('invalid order id',G_LEVEL_ERROR,l_dbg_mod);
1491: END IF;
1492: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
1493: iby_fndcpt_common_pub.Prepare_Result
1494: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1495: RETURN;
1496: END IF;
1497:
1554: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1555: iby_debug_pub.add('invalid payment channel for payer',G_LEVEL_ERROR,l_dbg_mod);
1556: END IF;
1557: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_CHNNL;
1558: iby_fndcpt_common_pub.Prepare_Result
1559: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,
1560: x_response);
1561: RETURN;
1562: END IF;
1573: iby_debug_pub.add('invalid payment channel for instrument or payer',
1574: G_LEVEL_ERROR,l_dbg_mod);
1575: END IF;
1576: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
1577: iby_fndcpt_common_pub.Prepare_Result
1578: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,
1579: x_response);
1580: RETURN;
1581: END IF;
1748: DELETE FROM iby_security_segments
1749: WHERE (sec_segment_id = l_seg_id_old);
1750: END IF;
1751:
1752: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1753: END IF;
1754: ELSE
1755: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1756: END IF;
1759: IF FND_API.To_Boolean(p_commit) THEN
1760: COMMIT;
1761: END IF;
1762:
1763: iby_fndcpt_common_pub.Prepare_Result
1764: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1765:
1766: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1767: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
1792: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1793: debug_level => G_LEVEL_UNEXPECTED,
1794: module => G_DEBUG_MODULE || l_module);
1795:
1796: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1797:
1798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1799: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1800: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1813: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1814: x_return_status OUT NOCOPY VARCHAR2,
1815: x_msg_count OUT NOCOPY NUMBER,
1816: x_msg_data OUT NOCOPY VARCHAR2,
1817: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1818: p_entity_id IN NUMBER,
1819: x_trxn_attribs OUT NOCOPY TrxnExtension_rec_type,
1820: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1821: )
1816: x_msg_data OUT NOCOPY VARCHAR2,
1817: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1818: p_entity_id IN NUMBER,
1819: x_trxn_attribs OUT NOCOPY TrxnExtension_rec_type,
1820: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1821: )
1822: IS
1823: l_api_version CONSTANT NUMBER := 1.0;
1824: l_module CONSTANT VARCHAR2(30) := 'Get_Transaction_Extension';
1875: END IF;
1876: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1877: l_payer_level,l_payer_id,l_payer_attribs);
1878:
1879: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1880: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1881: ELSE
1882: OPEN c_extension(p_entity_id);
1883: FETCH c_extension INTO
1876: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
1877: l_payer_level,l_payer_id,l_payer_attribs);
1878:
1879: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
1880: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
1881: ELSE
1882: OPEN c_extension(p_entity_id);
1883: FETCH c_extension INTO
1884: x_trxn_attribs.Originating_Application_Id,
1888: x_trxn_attribs.PO_Number, x_trxn_attribs.PO_Line_Number,
1889: x_trxn_attribs.Trxn_Ref_Number1, x_trxn_attribs.Trxn_Ref_Number2,
1890: x_trxn_attribs.Additional_Info;
1891:
1892: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1893: IF (c_extension%NOTFOUND) THEN
1894: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1895: iby_debug_pub.add('could not find extension',G_LEVEL_ERROR,l_dbg_mod);
1896: END IF;
1895: iby_debug_pub.add('could not find extension',G_LEVEL_ERROR,l_dbg_mod);
1896: END IF;
1897: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
1898: ELSE
1899: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
1900: END IF;
1901: CLOSE c_extension;
1902: END IF;
1903:
1900: END IF;
1901: CLOSE c_extension;
1902: END IF;
1903:
1904: iby_fndcpt_common_pub.Prepare_Result
1905: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
1906:
1907: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1908: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
1938: debug_level => G_LEVEL_UNEXPECTED,
1939: module => G_DEBUG_MODULE || l_module);
1940: END IF;
1941:
1942: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
1943:
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1945: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1946: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
1969: p_commit IN VARCHAR2 := FND_API.G_TRUE,
1970: x_return_status OUT NOCOPY VARCHAR2,
1971: x_msg_count OUT NOCOPY NUMBER,
1972: x_msg_data OUT NOCOPY VARCHAR2,
1973: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1974: p_payer_equivalency IN VARCHAR2 :=
1975: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1976: p_entity_id IN NUMBER,
1977: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1971: x_msg_count OUT NOCOPY NUMBER,
1972: x_msg_data OUT NOCOPY VARCHAR2,
1973: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1974: p_payer_equivalency IN VARCHAR2 :=
1975: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1976: p_entity_id IN NUMBER,
1977: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1978: )
1979: IS
1973: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1974: p_payer_equivalency IN VARCHAR2 :=
1975: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
1976: p_entity_id IN NUMBER,
1977: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
1978: )
1979: IS
1980: l_api_version CONSTANT NUMBER := 1.0;
1981: l_module CONSTANT VARCHAR2(30) := 'Delete_Transaction_Extension';
1991: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || l_module;
1992:
1993: CURSOR c_extension
1994: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
1995: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
1996: ci_payer_level IN VARCHAR2,
1997: ci_payer_equiv IN VARCHAR2
1998: )
1999: IS
2003: WHERE (x.trxn_extension_id = ci_extension_id)
2004: AND (x.instr_assignment_id = i.instrument_payment_use_id(+))
2005: AND (NVL(x.ext_payer_id,i.ext_pmt_party_id) = p.ext_payer_id)
2006: AND (p.party_id = ci_payer.Party_Id)
2007: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
2008: (ci_payer.org_type, ci_payer.org_id,
2009: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
2010: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
2011: p.cust_account_id,p.acct_site_use_id) = 'T');
2044: END IF;
2045: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2046: l_payer_level,l_payer_id,l_payer_attribs);
2047:
2048: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2049: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2050: ELSE
2051: -- verify the transaction id is for a payer equivalent to the
2052: -- given one
2045: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
2046: l_payer_level,l_payer_id,l_payer_attribs);
2047:
2048: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2049: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2050: ELSE
2051: -- verify the transaction id is for a payer equivalent to the
2052: -- given one
2053: OPEN c_extension(p_entity_id,p_payer,l_payer_level,p_payer_equivalency);
2072: WHERE (copy_trxn_extension_id = p_entity_id);
2073:
2074: DELETE iby_fndcpt_tx_extensions
2075: WHERE (trxn_extension_id = p_entity_id);
2076: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
2077: END IF;
2078: ELSE
2079: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
2080: END IF;
2084: IF FND_API.To_Boolean(p_commit) THEN
2085: COMMIT;
2086: END IF;
2087:
2088: iby_fndcpt_common_pub.Prepare_Result
2089: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2090:
2091: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2092: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
2123: debug_level => G_LEVEL_UNEXPECTED,
2124: module => G_DEBUG_MODULE || l_module);
2125: END IF;
2126:
2127: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
2128:
2129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2130: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2131: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
2153: p_commit IN VARCHAR2 := FND_API.G_TRUE,
2154: x_return_status OUT NOCOPY VARCHAR2,
2155: x_msg_count OUT NOCOPY NUMBER,
2156: x_msg_data OUT NOCOPY VARCHAR2,
2157: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2158: p_payer_equivalency IN VARCHAR2 :=
2159: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2160: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
2161: p_trxn_attribs IN TrxnExtension_rec_type,
2155: x_msg_count OUT NOCOPY NUMBER,
2156: x_msg_data OUT NOCOPY VARCHAR2,
2157: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2158: p_payer_equivalency IN VARCHAR2 :=
2159: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2160: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
2161: p_trxn_attribs IN TrxnExtension_rec_type,
2162: x_entity_id OUT NOCOPY NUMBER,
2163: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2156: x_msg_data OUT NOCOPY VARCHAR2,
2157: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2158: p_payer_equivalency IN VARCHAR2 :=
2159: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2160: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
2161: p_trxn_attribs IN TrxnExtension_rec_type,
2162: x_entity_id OUT NOCOPY NUMBER,
2163: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2164: )
2159: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2160: p_entities IN IBY_FNDCPT_COMMON_PUB.Id_tbl_type,
2161: p_trxn_attribs IN TrxnExtension_rec_type,
2162: x_entity_id OUT NOCOPY NUMBER,
2163: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2164: )
2165: IS
2166: l_api_version CONSTANT NUMBER := 1.0;
2167: l_module CONSTANT VARCHAR2(30) := 'Copy_Transaction_Extension';
2190: l_consumed_cvv2 BOOLEAN;
2191: l_copy_count NUMBER;
2192: l_persist_auth VARCHAR2(1);
2193:
2194: lx_result IBY_FNDCPT_COMMON_PUB.Result_rec_type;
2195:
2196: -- Variables to be used for IMMEDIATE security code
2197: -- Encryption
2198: l_msg_count NUMBER;
2211: -- Bug : 8612180
2212: -- Changing cursor to get PSON Number with other information.
2213: CURSOR c_extension
2214: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
2215: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2216: ci_payer_level IN VARCHAR2,
2217: ci_payer_equiv IN VARCHAR2,
2218: ci_copy_instr_assign_id IN
2219: iby_pmt_instr_uses_all.instrument_payment_use_id%TYPE
2245: -- not succeed should the new assignment's instrument id not match
2246: -- put its payer does
2247: --
2248: ((p.party_id = ci_payer.Party_Id)
2249: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
2250: (ci_payer.org_type, ci_payer.org_id,
2251: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
2252: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
2253: p.cust_account_id,p.acct_site_use_id) = 'T'
2270: FROM iby_trxn_ext_auths_v x, iby_fndcpt_sys_eft_pf_b sp,
2271: iby_fndcpt_user_eft_pf_b up
2272: WHERE (x.trxn_extension_id = ci_extension_id)
2273: AND (DECODE(x.instrument_type,
2274: IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT,x.process_profile_code,
2275: NULL) = up.user_eft_profile_code(+)
2276: )
2277: AND (up.sys_eft_profile_code = sp.sys_eft_profile_code(+));
2278:
2323: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
2324: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2325:
2326:
2327: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2328: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2329: ELSE
2330: IF (l_extension.Order_Id IS NULL)
2331: OR (LENGTH(Get_Tangible_Id(l_extension.Originating_Application_Id,
2324: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2325:
2326:
2327: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2328: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2329: ELSE
2330: IF (l_extension.Order_Id IS NULL)
2331: OR (LENGTH(Get_Tangible_Id(l_extension.Originating_Application_Id,
2332: l_extension.Order_Id,
2338: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2339: iby_debug_pub.add('order id invalid',G_LEVEL_ERROR,l_dbg_mod);
2340: END IF;
2341: x_response.Result_Code := G_RC_INVALID_EXTENSION_ATTRIB;
2342: iby_fndcpt_common_pub.Prepare_Result
2343: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2344: RETURN;
2345: END IF;
2346:
2359: x_return_status, x_msg_count, x_msg_data,
2360: p_payer, l_payer_attribs, l_payer_id, lx_result
2361: );
2362:
2363: IF (lx_result.Result_Code <> IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS) THEN
2364: x_response := lx_result;
2365: RETURN;
2366: END IF;
2367: END IF;
2414: --IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2415: --iby_debug_pub.add('payer instr assignment invalid ' || p_trxn_attribs.Copy_Instr_Assign_Id || ' for channel ' || l_pmt_channel, G_LEVEL_ERROR,l_dbg_mod);
2416: --END IF;
2417: --x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
2418: --iby_fndcpt_common_pub.Prepare_Result (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2419: --RETURN;
2420: --END IF;
2421: --l_instr_assign_id := p_trxn_attribs.Copy_Instr_Assign_Id;
2422: --l_val_instr := FALSE;
2432: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2433: iby_debug_pub.add('payer instr assignment invalid ' || l_instr_assign_id || ' for channel ' || l_pmt_channel, G_LEVEL_ERROR,l_dbg_mod);
2434: END IF;
2435: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTR_ASSIGN;
2436: iby_fndcpt_common_pub.Prepare_Result (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2437: RETURN;
2438: END IF;
2439: l_instr_assign_id := p_trxn_attribs.Copy_Instr_Assign_Id;
2440: l_val_instr := FALSE;
2447: iby_debug_pub.add('extension invalid for payer, or non-existant',
2448: G_LEVEL_ERROR,l_dbg_mod);
2449: END IF;
2450: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
2451: iby_fndcpt_common_pub.Prepare_Result
2452: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2453: RETURN;
2454: ELSIF ( (l_pmt_channel<>lc_pmt_channel)
2455: -- instr assignment may change;
2460: iby_debug_pub.add('incompatible pmt chanenel ' || l_pmt_channel,
2461: G_LEVEL_ERROR,l_dbg_mod);
2462: END IF;
2463: x_response.Result_Code := G_RC_INCMP_EXTENSION_GROUP;
2464: iby_fndcpt_common_pub.Prepare_Result
2465: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2466: RETURN;
2467: /*
2468: ELSIF (l_copy_count>0) THEN
2466: RETURN;
2467: /*
2468: ELSIF (l_copy_count>0) THEN
2469: x_response.Result_Code := G_RC_DUP_EXTENSION_COPY;
2470: iby_fndcpt_common_pub.Prepare_Result
2471: (x_return_status,x_msg_count,x_msg_data,x_response);
2472: RETURN;
2473: */
2474: ELSE
2564: iby_debug_pub.add('persistent auth; cannot do 1-to-many copy',
2565: G_LEVEL_ERROR,l_dbg_mod);
2566: END IF;
2567: x_response.Result_Code := G_RC_INCMP_EXTENSION_GROUP;
2568: iby_fndcpt_common_pub.Prepare_Result
2569: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2570: RETURN;
2571: END IF;
2572: END IF;
2652: WHERE trxn_extension_id = p_entities(i);
2653: END IF;
2654: END LOOP;
2655:
2656: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
2657: END IF;
2658:
2659: END IF;
2660:
2657: END IF;
2658:
2659: END IF;
2660:
2661: iby_fndcpt_common_pub.Prepare_Result
2662: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
2663:
2664: IF FND_API.To_Boolean(p_commit) THEN
2665: COMMIT;
2701: debug_level => G_LEVEL_UNEXPECTED,
2702: module => G_DEBUG_MODULE || l_module);
2703: END IF;
2704:
2705: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
2706:
2707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2708: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2709: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
2784: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2785: x_return_status OUT NOCOPY VARCHAR2,
2786: x_msg_count OUT NOCOPY NUMBER,
2787: x_msg_data OUT NOCOPY VARCHAR2,
2788: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2789: p_payer_equivalency IN VARCHAR2 :=
2790: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2791: p_payee IN PayeeContext_rec_type,
2792: p_trxn_entity_id IN NUMBER,
2786: x_msg_count OUT NOCOPY NUMBER,
2787: x_msg_data OUT NOCOPY VARCHAR2,
2788: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2789: p_payer_equivalency IN VARCHAR2 :=
2790: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
2791: p_payee IN PayeeContext_rec_type,
2792: p_trxn_entity_id IN NUMBER,
2793: p_auth_attribs IN AuthAttribs_rec_type,
2794: p_amount IN Amount_rec_type,
2792: p_trxn_entity_id IN NUMBER,
2793: p_auth_attribs IN AuthAttribs_rec_type,
2794: p_amount IN Amount_rec_type,
2795: x_auth_result OUT NOCOPY AuthResult_rec_type,
2796: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
2797: )
2798: IS
2799: l_api_version CONSTANT NUMBER := 1.0;
2800: l_module CONSTANT VARCHAR2(30) := 'Create_Authorization';
2841: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
2842:
2843: CURSOR c_extension
2844: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
2845: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
2846: ci_payer_level IN VARCHAR2,
2847: ci_payer_equiv IN VARCHAR2
2848: )
2849: IS
2865: -- can assume this assignment is for funds capture
2866: AND (x.ext_payer_id = p.ext_payer_id)
2867: AND (x.trxn_extension_id = ci_extension_id)
2868: AND (p.party_id = ci_payer.Party_Id)
2869: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
2870: (ci_payer.org_type, ci_payer.org_id,
2871: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
2872: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
2873: p.cust_account_id,p.acct_site_use_id) = 'T');
2981:
2982: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
2983: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2984:
2985: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2986: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2987: ELSE
2988: -- verify transaction entity is for a payer equivalent to the
2989: -- given one
2982: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
2983: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
2984:
2985: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
2986: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
2987: ELSE
2988: -- verify transaction entity is for a payer equivalent to the
2989: -- given one
2990: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,p_payer_equivalency);
3018:
3019: IF (l_payee.Payee_Id IS NULL) THEN
3020: x_response.Result_Code := G_RC_INVALID_PAYEE;
3021:
3022: iby_fndcpt_common_pub.Prepare_Result
3023: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3024: RETURN;
3025: -- cannot do operations on a trxn entity already copied
3026: ELSIF (l_copy_count>0) THEN
3028: iby_debug_pub.add('extension has been copied ' || l_copy_count
3029: || ' times; cannot auth',G_LEVEL_ERROR,l_dbg_mod);
3030: END IF;
3031: x_response.Result_Code := G_RC_EXTENSION_IMMUTABLE;
3032: iby_fndcpt_common_pub.Prepare_Result
3033: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3034: RETURN;
3035: END IF;
3036:
3040: --l_tangible.Tangible_Id :=
3041: -- Get_Tangible_Id(l_app_short_name,l_order_id,l_trxn_ref1,l_trxn_ref2);
3042:
3043: IF (l_pmt_instr.PmtInstr_Type =
3044: IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT)
3045: THEN
3046: l_pmt_trxn.Auth_Type := IBY_PAYMENT_ADAPTER_PUB.G_AUTHTYPE_VERIFY;
3047: ELSE
3048: l_pmt_trxn.Auth_Type := IBY_PAYMENT_ADAPTER_PUB.G_AUTHTYPE_AUTHONLY;
3079: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3080: iby_debug_pub.add('single use instrument cannot be reused',G_LEVEL_ERROR,l_dbg_mod);
3081: END IF;
3082: x_response.Result_Code := IBY_FNDCPT_SETUP_PUB.G_RC_INVALID_INSTRUMENT;
3083: iby_fndcpt_common_pub.Prepare_Result
3084: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3085: RETURN;
3086: END IF;
3087: END IF;
3386: END IF;
3387: UPDATE iby_creditcard SET active_flag = 'N' where instrid = l_pmt_instr.PmtInstr_Id;
3388: END IF;
3389: ELSE
3390: --x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
3391:
3392: -- check if the result code is seeded in the result definitions
3393: -- table
3394: --
3391:
3392: -- check if the result code is seeded in the result definitions
3393: -- table
3394: --
3395: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
3396: THEN
3397: x_response.Result_Code := 'COMMUNICATION_ERROR';
3398: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
3399: END IF;
3394: --
3395: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
3396: THEN
3397: x_response.Result_Code := 'COMMUNICATION_ERROR';
3398: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
3399: END IF;
3400:
3401: --Start of Bug:10240644.
3402: IF ( (NOT l_reqresp.BEPErrMessage IS NULL)
3424: l_reqresp.Response.ErrCode := FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded => FND_API.G_TRUE);
3425: iby_debug_pub.add('Response Message from FND Stack: '||l_reqresp.Response.ErrMessage,G_LEVEL_STATEMENT,l_dbg_mod);
3426: END IF;
3427:
3428: iby_fndcpt_common_pub.Prepare_Result(
3429: iby_payment_adapter_pub.G_INTERFACE_CODE,
3430: l_reqresp.Response.ErrMessage,
3431: l_prev_msg_count,
3432: x_return_status,
3471: IF (NOT l_fail_msg IS NULL) THEN
3472: FND_MESSAGE.SET_NAME('IBY',l_fail_msg);
3473: l_fail_msg := FND_MESSAGE.GET();
3474:
3475: iby_fndcpt_common_pub.Prepare_Result
3476: (iby_payment_adapter_pub.G_INTERFACE_CODE,
3477: l_fail_msg,l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,
3478: x_response);
3479:
3481: END IF;
3482: END IF;
3483: END IF;
3484:
3485: iby_fndcpt_common_pub.Prepare_Result
3486: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3487:
3488: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3489: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
3520: debug_level => G_LEVEL_UNEXPECTED,
3521: module => G_DEBUG_MODULE || l_module);
3522: END IF;
3523:
3524: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
3525:
3526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3527: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3528: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
3543: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3544: x_return_status OUT NOCOPY VARCHAR2,
3545: x_msg_count OUT NOCOPY NUMBER,
3546: x_msg_data OUT NOCOPY VARCHAR2,
3547: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3548: p_trxn_entity_id IN NUMBER,
3549: x_auth_result OUT NOCOPY AuthResult_rec_type,
3550: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3551: )
3546: x_msg_data OUT NOCOPY VARCHAR2,
3547: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3548: p_trxn_entity_id IN NUMBER,
3549: x_auth_result OUT NOCOPY AuthResult_rec_type,
3550: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3551: )
3552: IS
3553: l_api_version CONSTANT NUMBER := 1.0;
3554: l_module CONSTANT VARCHAR2(30) := 'Get_Authorization';
3600: x_auth_result.PaymentSys_Msg;
3601: IF (c_auth%NOTFOUND) THEN
3602: x_response.Result_Code := G_RC_INVALID_EXTENSION_ID;
3603: ELSE
3604: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
3605: END IF;
3606:
3607: iby_fndcpt_common_pub.Prepare_Result
3608: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3603: ELSE
3604: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
3605: END IF;
3606:
3607: iby_fndcpt_common_pub.Prepare_Result
3608: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3609:
3610: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3611: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
3643: debug_level => G_LEVEL_UNEXPECTED,
3644: module => G_DEBUG_MODULE || l_module);
3645: END IF;
3646:
3647: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
3648:
3649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3650: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3651: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
3664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3665: x_return_status OUT NOCOPY VARCHAR2,
3666: x_msg_count OUT NOCOPY NUMBER,
3667: x_msg_data OUT NOCOPY VARCHAR2,
3668: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3669: p_auth_id IN NUMBER,
3670: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3671: )
3672: IS
3666: x_msg_count OUT NOCOPY NUMBER,
3667: x_msg_data OUT NOCOPY VARCHAR2,
3668: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3669: p_auth_id IN NUMBER,
3670: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3671: )
3672: IS
3673: l_api_version CONSTANT NUMBER := 1.0;
3674: l_module CONSTANT VARCHAR2(30) := 'Cancel_Authorization';
3698: l_prev_msg_count := FND_MSG_PUB.Count_Msg;
3699:
3700: x_response.Result_Code := G_RC_AUTH_CANCEL_UNSUPPORTED;
3701:
3702: iby_fndcpt_common_pub.Prepare_Result
3703: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3704:
3705: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3706: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
3737: debug_level => G_LEVEL_UNEXPECTED,
3738: module => G_DEBUG_MODULE || l_module);
3739: END IF;
3740:
3741: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
3742:
3743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3744: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3745: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
3760: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3761: x_return_status OUT NOCOPY VARCHAR2,
3762: x_msg_count OUT NOCOPY NUMBER,
3763: x_msg_data OUT NOCOPY VARCHAR2,
3764: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3765: p_payer_equivalency IN VARCHAR2 :=
3766: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3767: p_trxn_entity_id IN NUMBER,
3768: p_amount IN Amount_rec_type,
3762: x_msg_count OUT NOCOPY NUMBER,
3763: x_msg_data OUT NOCOPY VARCHAR2,
3764: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3765: p_payer_equivalency IN VARCHAR2 :=
3766: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3767: p_trxn_entity_id IN NUMBER,
3768: p_amount IN Amount_rec_type,
3769: p_receipt_attribs IN ReceiptAttribs_rec_type,
3770: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3766: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
3767: p_trxn_entity_id IN NUMBER,
3768: p_amount IN Amount_rec_type,
3769: p_receipt_attribs IN ReceiptAttribs_rec_type,
3770: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
3771: )
3772: IS
3773: l_api_version CONSTANT NUMBER := 1.0;
3774: l_module CONSTANT VARCHAR2(30) := 'Create_Settlement';
3808: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
3809:
3810: CURSOR c_extension
3811: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
3812: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
3813: ci_payer_level IN VARCHAR2,
3814: ci_payer_equiv IN VARCHAR2
3815: )
3816: IS
3830: AND (x.ext_payer_id = p.ext_payer_id)
3831: AND (x.trxn_extension_id = ci_extension_id)
3832: AND (x.origin_application_id = a.application_id)
3833: AND (p.party_id = ci_payer.Party_Id)
3834: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
3835: (ci_payer.org_type, ci_payer.org_id,
3836: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
3837: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
3838: p.cust_account_id,p.acct_site_use_id) = 'T');
3896:
3897: IBY_FNDCPT_SETUP_PUB.Get_Payer_Id(p_payer,FND_API.G_VALID_LEVEL_FULL,
3898: l_payer_level,l_payer_id,l_payer_attribs);
3899:
3900: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
3901: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3902: iby_debug_pub.add('invalid payer',G_LEVEL_ERROR,l_dbg_mod);
3903: END IF;
3904: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
3900: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
3901: IF( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3902: iby_debug_pub.add('invalid payer',G_LEVEL_ERROR,l_dbg_mod);
3903: END IF;
3904: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
3905: ELSE
3906: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3907: iby_debug_pub.add('Create Settlemnet- Valid Payer',G_LEVEL_STATEMENT,l_dbg_mod);
3908: END IF;
3930: ELSE
3931: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3932: iby_debug_pub.add('Create Settlemnet. l_ecapp_id is not null. l_pmt_instr.PmtInstr_Type ' || l_pmt_instr.PmtInstr_Type,G_LEVEL_STATEMENT,l_dbg_mod);
3933: END IF;
3934: IF (l_pmt_instr.PmtInstr_Type = IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_BANKACCT) THEN
3935: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3936: iby_debug_pub.add('Create Settlemnet. Entered Bank Account flow. p_trxn_entity_id ' || p_trxn_entity_id,G_LEVEL_STATEMENT,l_dbg_mod);
3937: END IF;
3938: OPEN C_PAYEE(p_trxn_entity_id);
3943: iby_debug_pub.add('Invalid Payee ',G_LEVEL_STATEMENT,l_dbg_mod);
3944: END IF;
3945: x_response.Result_Code := G_RC_INVALID_PAYEE;
3946:
3947: iby_fndcpt_common_pub.Prepare_Result
3948: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
3949: RETURN;
3950:
3951: END IF;
4042: IF (l_reqresp.Response.Status = 0) THEN
4043: --x_response.Result_Code := G_RC_AUTH_SUCCESS;
4044: x_response.Result_Code := 'SETTLEMENT_SUCCESS';
4045: ELSE
4046: --x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
4047:
4048: -- check if the result code is seeded in the result definitions
4049: -- table
4050: --
4047:
4048: -- check if the result code is seeded in the result definitions
4049: -- table
4050: --
4051: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
4052: THEN
4053: x_response.Result_Code := 'COMMUNICATION_ERROR';
4054: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4055: END IF;
4050: --
4051: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
4052: THEN
4053: x_response.Result_Code := 'COMMUNICATION_ERROR';
4054: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4055: END IF;
4056:
4057: IF ( (NOT l_reqresp.Response.ErrMessage IS NULL)
4058: OR (NOT l_reqresp.Response.ErrCode IS NULL) )
4061: l_reqresp.Response.ErrMessage || ' (' ||
4062: l_reqresp.Response.ErrCode || ')';
4063: END IF;
4064:
4065: iby_fndcpt_common_pub.Prepare_Result(
4066: iby_payment_adapter_pub.G_INTERFACE_CODE,
4067: l_reqresp.Response.ErrMessage,
4068: l_prev_msg_count,
4069: x_return_status,
4200: WHERE transactionid = l_reqresp.Trxn_Id
4201: AND reqtype = 'ORAPMTCAPTURE';
4202:
4203: IF (lx_capresp.Response.Status = 0) THEN
4204: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
4205: ELSE
4206: x_response.Result_Code :=
4207: NVL(lx_capresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
4208: -- check if the result code is seeded in the result definitions
4203: IF (lx_capresp.Response.Status = 0) THEN
4204: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
4205: ELSE
4206: x_response.Result_Code :=
4207: NVL(lx_capresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
4208: -- check if the result code is seeded in the result definitions
4209: -- table
4210: --
4211: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
4207: NVL(lx_capresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
4208: -- check if the result code is seeded in the result definitions
4209: -- table
4210: --
4211: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
4212: THEN
4213: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4214: END IF;
4215:
4209: -- table
4210: --
4211: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
4212: THEN
4213: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
4214: END IF;
4215:
4216: IF ( (NOT lx_capresp.Response.ErrMessage IS NULL)
4217: OR (NOT lx_capresp.Response.ErrCode IS NULL) )
4220: lx_capresp.Response.ErrMessage || ' (' ||
4221: lx_capresp.Response.ErrCode || ')';
4222: END IF;
4223:
4224: iby_fndcpt_common_pub.Prepare_Result(
4225: iby_payment_adapter_pub.G_INTERFACE_CODE,
4226: lx_capresp.Response.ErrMessage,
4227: l_prev_msg_count,
4228: x_return_status,
4239: END IF;
4240:
4241:
4242:
4243: iby_fndcpt_common_pub.Prepare_Result
4244: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
4245:
4246: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4247: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_dbg_mod);
4278: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
4279: debug_level => G_LEVEL_UNEXPECTED,
4280: module => G_DEBUG_MODULE || l_module);
4281: END IF;
4282: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
4283:
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4285: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4286: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
4300: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4301: x_return_status OUT NOCOPY VARCHAR2,
4302: x_msg_count OUT NOCOPY NUMBER,
4303: x_msg_data OUT NOCOPY VARCHAR2,
4304: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
4305: p_payer_equivalency IN VARCHAR2 :=
4306: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4307: p_trxn_entity_id IN NUMBER,
4308: p_amount IN Amount_rec_type,
4302: x_msg_count OUT NOCOPY NUMBER,
4303: x_msg_data OUT NOCOPY VARCHAR2,
4304: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
4305: p_payer_equivalency IN VARCHAR2 :=
4306: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4307: p_trxn_entity_id IN NUMBER,
4308: p_amount IN Amount_rec_type,
4309: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
4310: )
4305: p_payer_equivalency IN VARCHAR2 :=
4306: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
4307: p_trxn_entity_id IN NUMBER,
4308: p_amount IN Amount_rec_type,
4309: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
4310: )
4311: IS
4312: p_receipt_attribs ReceiptAttribs_rec_type;
4313: l_module CONSTANT VARCHAR2(30) := 'Create_Settlement(2)';
5146: FETCH c_auth INTO l_rev_trxn.AuthCode;
5147: CLOSE c_auth;
5148:
5149:
5150: x_rev_responses(l).Result.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5151: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
5152:
5153: IBY_PAYMENT_ADAPTER_PUB.OraPmtReverse
5154: (1.0, p_init_msg_list, FND_API.G_FALSE,
5147: CLOSE c_auth;
5148:
5149:
5150: x_rev_responses(l).Result.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5151: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
5152:
5153: IBY_PAYMENT_ADAPTER_PUB.OraPmtReverse
5154: (1.0, p_init_msg_list, FND_API.G_FALSE,
5155: FND_API.G_VALID_LEVEL_FULL, l_ecapp_id,
5176: G_LEVEL_STATEMENT,l_dbg_mod);
5177: END IF;
5178:
5179: IF (lx_rev_resp.ReqResp.Response.Status = 0) THEN
5180: x_rev_responses(l).Result.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
5181: ELSIF (NOT lx_rev_resp.ReqResp.Response.ErrCode IS NULL) THEN --7
5182: x_rev_responses(l).result.Result_Code := lx_rev_resp.ReqResp.Response.ErrCode;
5183: l_interface_code := iby_payment_adapter_pub.G_INTERFACE_CODE;
5184: END IF;
5183: l_interface_code := iby_payment_adapter_pub.G_INTERFACE_CODE;
5184: END IF;
5185:
5186: IF (l_interface_code = iby_payment_adapter_pub.G_INTERFACE_CODE) THEN --8
5187: l_result_category := IBY_FNDCPT_COMMON_PUB.Get_Result_Category
5188: (x_rev_responses(l).result.Result_Code,l_interface_code);
5189: -- check if the result code is seeded in the result definitions
5190: -- table
5191: --
5189: -- check if the result code is seeded in the result definitions
5190: -- table
5191: --
5192: IF (l_result_category IS NULL) THEN
5193: x_rev_responses(l).Result.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5194: END IF;
5195: END IF;
5196:
5197: -- iby_fndcpt_common_pub.Prepare_Result
5193: x_rev_responses(l).Result.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5194: END IF;
5195: END IF;
5196:
5197: -- iby_fndcpt_common_pub.Prepare_Result
5198: -- (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
5199: END IF ;
5200: END IF ;
5201: EXCEPTION
5414: * Fix for bug 4770275. Set the result code
5415: * and result message before exiting the loop.
5416: */
5417: x_responses(l).Result.Result_Code :=
5418: IBY_FNDCPT_COMMON_PUB.G_RC_SETTLE_PENDING;
5419: IBY_FNDCPT_COMMON_PUB.Prepare_Result
5420: (
5421: l_prev_msg_count,
5422: x_return_status,
5415: * and result message before exiting the loop.
5416: */
5417: x_responses(l).Result.Result_Code :=
5418: IBY_FNDCPT_COMMON_PUB.G_RC_SETTLE_PENDING;
5419: IBY_FNDCPT_COMMON_PUB.Prepare_Result
5420: (
5421: l_prev_msg_count,
5422: x_return_status,
5423: x_msg_count,
5597: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5598: x_return_status OUT NOCOPY VARCHAR2,
5599: x_msg_count OUT NOCOPY NUMBER,
5600: x_msg_data OUT NOCOPY VARCHAR2,
5601: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
5602: p_payer_equivalency IN VARCHAR2 :=
5603: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
5604: p_trxn_entity_id IN NUMBER,
5605: p_amount IN Amount_rec_type,
5599: x_msg_count OUT NOCOPY NUMBER,
5600: x_msg_data OUT NOCOPY VARCHAR2,
5601: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
5602: p_payer_equivalency IN VARCHAR2 :=
5603: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
5604: p_trxn_entity_id IN NUMBER,
5605: p_amount IN Amount_rec_type,
5606: p_receipt_attribs IN ReceiptAttribs_rec_type,
5607: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
5603: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
5604: p_trxn_entity_id IN NUMBER,
5605: p_amount IN Amount_rec_type,
5606: p_receipt_attribs IN ReceiptAttribs_rec_type,
5607: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
5608: )
5609: IS
5610: l_api_version CONSTANT NUMBER := 1.0;
5611: l_module CONSTANT VARCHAR2(30) := 'Create_Return';
5643:
5644:
5645: CURSOR c_extension
5646: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
5647: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
5648: ci_payer_level IN VARCHAR2,
5649: ci_payer_equiv IN VARCHAR2
5650: )
5651: IS
5668: -- AND (i.ext_pmt_party_id = p.ext_payer_id)
5669: AND (xt.EXT_PAYER_ID = p.ext_payer_id)
5670: AND (x.trxn_extension_id = ci_extension_id)
5671: AND (p.party_id = ci_payer.Party_Id)
5672: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
5673: (ci_payer.org_type, ci_payer.org_id,
5674: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
5675: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
5676: p.cust_account_id,p.acct_site_use_id) = 'T');
5721:
5722: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
5723: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
5724:
5725: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
5726: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
5727: ELSE
5728: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,
5729: p_payer_equivalency);
5722: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
5723: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
5724:
5725: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN
5726: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
5727: ELSE
5728: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,
5729: p_payer_equivalency);
5730: FETCH c_extension INTO l_settled_flag, l_returned_flag,
5840: COMMIT;
5841: END IF;
5842:
5843: IF (lx_creditresp.Response.Status = 0) THEN
5844: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
5845: ELSE
5846: x_response.Result_Code :=
5847: NVL(lx_creditresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
5848: END IF;
5843: IF (lx_creditresp.Response.Status = 0) THEN
5844: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
5845: ELSE
5846: x_response.Result_Code :=
5847: NVL(lx_creditresp.Response.ErrCode,IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR);
5848: END IF;
5849: ELSE
5850: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5851: iby_debug_pub.add('Settlement_Date passed as: '||p_receipt_attribs.Settlement_Date,G_LEVEL_STATEMENT,G_DEBUG_MODULE || l_module);
5861: l_ecapp_id, l_return_trxn, lx_return_status, lx_msg_count,
5862: lx_msg_data, lx_returnresp
5863: );
5864:
5865: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5866: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
5867:
5868: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
5869: -- IBY_FNDCPT_TX_EXTENSIONS table
5862: lx_msg_data, lx_returnresp
5863: );
5864:
5865: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5866: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
5867:
5868: -- Fix for bug# 7377455. Stamp the tangibleid on the PSON column of
5869: -- IBY_FNDCPT_TX_EXTENSIONS table
5870: IF( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5887: WHERE transactionid = lx_returnresp.Trxn_Id
5888: AND reqtype = 'ORAPMTRETURN';
5889:
5890: IF (lx_returnresp.Response.Status = 0) THEN
5891: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_SUCCESS;
5892: ELSIF (NOT lx_returnresp.Response.ErrCode IS NULL) THEN
5893: x_response.Result_Code := lx_returnresp.Response.ErrCode;
5894: l_interface_code := iby_payment_adapter_pub.G_INTERFACE_CODE;
5895: END IF;
5896: END IF;
5897:
5898: IF (l_interface_code = iby_payment_adapter_pub.G_INTERFACE_CODE) THEN
5899: l_result_category :=
5900: IBY_FNDCPT_COMMON_PUB.Get_Result_Category
5901: (x_response.Result_Code,l_interface_code);
5902: -- check if the result code is seeded in the result definitions
5903: -- table
5904: --
5902: -- check if the result code is seeded in the result definitions
5903: -- table
5904: --
5905: IF (l_result_category IS NULL) THEN
5906: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5907: ELSIF (l_result_category = IBY_FNDCPT_COMMON_PUB.G_RCAT_DUP_REQ) THEN
5908: x_response.Result_Code := G_RC_DUPLICATE_RETURN;
5909: END IF;
5910: END IF;
5903: -- table
5904: --
5905: IF (l_result_category IS NULL) THEN
5906: x_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
5907: ELSIF (l_result_category = IBY_FNDCPT_COMMON_PUB.G_RCAT_DUP_REQ) THEN
5908: x_response.Result_Code := G_RC_DUPLICATE_RETURN;
5909: END IF;
5910: END IF;
5911: END IF;
5910: END IF;
5911: END IF;
5912: END IF;
5913:
5914: iby_fndcpt_common_pub.Prepare_Result
5915: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_response);
5916: x_response.Result_Code := lx_returnresp.Response.ErrCode;
5917: x_response.Result_Message := lx_returnresp.Response.ErrMessage;
5918: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5961: debug_level => G_LEVEL_UNEXPECTED,
5962: module => G_DEBUG_MODULE || l_module);
5963: END IF;
5964:
5965: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
5966:
5967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5968: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5969: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));
5981: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5982: x_return_status OUT NOCOPY VARCHAR2,
5983: x_msg_count OUT NOCOPY NUMBER,
5984: x_msg_data OUT NOCOPY VARCHAR2,
5985: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
5986: p_payer_equivalency IN VARCHAR2 :=
5987: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
5988: p_trxn_entity_id IN NUMBER,
5989: p_amount IN Amount_rec_type,
5983: x_msg_count OUT NOCOPY NUMBER,
5984: x_msg_data OUT NOCOPY VARCHAR2,
5985: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
5986: p_payer_equivalency IN VARCHAR2 :=
5987: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
5988: p_trxn_entity_id IN NUMBER,
5989: p_amount IN Amount_rec_type,
5990: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
5991: )
5986: p_payer_equivalency IN VARCHAR2 :=
5987: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
5988: p_trxn_entity_id IN NUMBER,
5989: p_amount IN Amount_rec_type,
5990: x_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type
5991: )
5992: IS
5993: p_receipt_attribs ReceiptAttribs_rec_type;
5994: l_module CONSTANT VARCHAR2(30) := 'Create_Return(2)';
6039: PROCEDURE Create_Reversal
6040: (
6041: p_api_version IN NUMBER,
6042: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6043: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
6044: p_payer_equivalency IN VARCHAR2 :=
6045: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
6046: p_trxn_entity_id IN NUMBER,
6047: p_rev_attribs IN RevAttribs_rec_type,
6041: p_api_version IN NUMBER,
6042: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6043: p_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
6044: p_payer_equivalency IN VARCHAR2 :=
6045: IBY_FNDCPT_COMMON_PUB.G_PAYER_EQUIV_UPWARD,
6046: p_trxn_entity_id IN NUMBER,
6047: p_rev_attribs IN RevAttribs_rec_type,
6048: x_return_status OUT NOCOPY VARCHAR2,
6049: x_msg_count OUT NOCOPY NUMBER,
6047: p_rev_attribs IN RevAttribs_rec_type,
6048: x_return_status OUT NOCOPY VARCHAR2,
6049: x_msg_count OUT NOCOPY NUMBER,
6050: x_msg_data OUT NOCOPY VARCHAR2,
6051: x_reversal_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type,
6052: x_reauth_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type,
6053: x_reauth_result OUT NOCOPY AuthResult_rec_type
6054: )
6055: IS
6048: x_return_status OUT NOCOPY VARCHAR2,
6049: x_msg_count OUT NOCOPY NUMBER,
6050: x_msg_data OUT NOCOPY VARCHAR2,
6051: x_reversal_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type,
6052: x_reauth_response OUT NOCOPY IBY_FNDCPT_COMMON_PUB.Result_rec_type,
6053: x_reauth_result OUT NOCOPY AuthResult_rec_type
6054: )
6055: IS
6056: l_api_version CONSTANT NUMBER := 1.0;
6107: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_module;
6108:
6109: CURSOR c_extension
6110: (ci_extension_id IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
6111: ci_payer IN IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type,
6112: ci_payer_level IN VARCHAR2,
6113: ci_payer_equiv IN VARCHAR2
6114: )
6115: IS
6125: AND (xt.EXT_PAYER_ID = p.ext_payer_id)
6126: AND (xt.trxn_extension_id = ci_extension_id)
6127: AND (xt.payment_channel_code = chnl.payment_channel_code)
6128: AND (p.party_id = ci_payer.Party_Id)
6129: AND (IBY_FNDCPT_COMMON_PUB.Compare_Payer
6130: (ci_payer.org_type, ci_payer.org_id,
6131: ci_payer.Cust_Account_Id, ci_payer.Account_Site_Id,
6132: ci_payer_level,ci_payer_equiv,p.org_type,p.org_id,
6133: p.cust_account_id,p.acct_site_use_id) = 'T');
6207:
6208: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
6209: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
6210:
6211: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN --1
6212: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
6213: ELSE --1
6214: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,
6215: p_payer_equivalency);
6208: iby_debug_pub.add('l_payer_level: '|| l_payer_level,G_LEVEL_STATEMENT,l_dbg_mod);
6209: iby_debug_pub.add('l_payer_id: '|| l_payer_id,G_LEVEL_STATEMENT,l_dbg_mod);
6210:
6211: IF (l_payer_level = IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER) THEN --1
6212: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_INVALID_PAYER;
6213: ELSE --1
6214: OPEN c_extension(p_trxn_entity_id,p_payer,l_payer_level,
6215: p_payer_equivalency);
6216: FETCH c_extension INTO l_instrtype, l_ecapp_id, l_app_short_name,
6239: ELSE --3
6240: IF (NVL(l_bep_auth_rev, 'U') = 'U') THEN
6241: x_reversal_response.Result_Code := G_RC_REVERSAL_UNSUP_PMT_SYS;
6242: iby_debug_pub.add('Reversal unsupported by payment system',G_LEVEL_STATEMENT,l_dbg_mod);
6243: iby_fndcpt_common_pub.Prepare_Result
6244: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6245: RETURN;
6246: END IF;
6247: IF (NVL(l_card_auth_rev, 'U') = 'U') THEN
6246: END IF;
6247: IF (NVL(l_card_auth_rev, 'U') = 'U') THEN
6248: x_reversal_response.Result_Code := G_RC_REVERSAL_UNSUP_CARD_BRAND;
6249: iby_debug_pub.add('Reversal unsupported by card brand',G_LEVEL_STATEMENT,l_dbg_mod);
6250: iby_fndcpt_common_pub.Prepare_Result
6251: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6252: RETURN;
6253: END IF ;
6254:
6274: -- x_reversal_response.Result_Code := G_RC_REVERSAL_SUCCESS;
6275: iby_debug_pub.add('Re-auth amount is same as the original auth amt. Returning success..'
6276: ,iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
6277: x_reauth_response.Result_Code := G_RC_AUTH_SUCCESS;
6278: iby_fndcpt_common_pub.Prepare_Result
6279: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reauth_response);
6280: RETURN;
6281: END IF ;--6
6282: END IF ; --5
6287: l_rev_trxn.Revised_Amt := 0;
6288: l_rev_trxn.Authcode := l_authcode;
6289: l_rev_trxn.Tracenumber := l_tracenumber;
6290:
6291: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
6292: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
6293:
6294:
6295: IBY_PAYMENT_ADAPTER_PUB.OraPmtReverse
6288: l_rev_trxn.Authcode := l_authcode;
6289: l_rev_trxn.Tracenumber := l_tracenumber;
6290:
6291: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
6292: l_interface_code := IBY_FNDCPT_COMMON_PUB.G_INTERFACE_CODE;
6293:
6294:
6295: IBY_PAYMENT_ADAPTER_PUB.OraPmtReverse
6296: (1.0, p_init_msg_list, FND_API.G_FALSE,
6326: l_interface_code := iby_payment_adapter_pub.G_INTERFACE_CODE;
6327: END IF; --7
6328:
6329: IF (l_interface_code = iby_payment_adapter_pub.G_INTERFACE_CODE) THEN --8
6330: l_result_category := IBY_FNDCPT_COMMON_PUB.Get_Result_Category
6331: (x_reversal_response.Result_Code,l_interface_code);
6332: -- check if the result code is seeded in the result definitions
6333: -- table
6334: --
6332: -- check if the result code is seeded in the result definitions
6333: -- table
6334: --
6335: IF (l_result_category IS NULL) THEN
6336: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
6337: END IF;
6338: END IF; --8
6339:
6340: iby_fndcpt_common_pub.Prepare_Result
6336: x_reversal_response.Result_Code := IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
6337: END IF;
6338: END IF; --8
6339:
6340: iby_fndcpt_common_pub.Prepare_Result
6341: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6342:
6343: IF(NVL(p_rev_attribs.Reauth_flag, 'N') = 'Y' AND lx_rev_resp.ReqResp.Response.Status = 0) THEN --9
6344: iby_debug_pub.add('Re-auth requested.',G_LEVEL_STATEMENT,l_dbg_mod);
6460: ELSE --12
6461: -- check if the result code is seeded in the result definitions
6462: -- table
6463: --
6464: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_reauth_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
6465: THEN
6466: x_reauth_response.Result_Code := 'COMMUNICATION_ERROR';
6467: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
6468: END IF;
6463: --
6464: IF (IBY_FNDCPT_COMMON_PUB.Get_Result_Category(x_reauth_response.Result_Code,iby_payment_adapter_pub.G_INTERFACE_CODE) IS NULL)
6465: THEN
6466: x_reauth_response.Result_Code := 'COMMUNICATION_ERROR';
6467: --IBY_FNDCPT_COMMON_PUB.G_RC_GENERIC_SYS_ERROR;
6468: END IF;
6469:
6470: IF ( (NOT l_reqresp.Response.ErrMessage IS NULL)
6471: OR (NOT l_reqresp.Response.ErrCode IS NULL) )
6484: l_reqresp.BEPErrCode || ')';
6485: --End of Bug:8368913.
6486: END IF;
6487:
6488: iby_fndcpt_common_pub.Prepare_Result(
6489: iby_payment_adapter_pub.G_INTERFACE_CODE,
6490: l_reqresp.Response.ErrMessage,
6491: l_prev_msg_count,
6492: x_return_status,
6517: iby_debug_pub.add('*** assigned messages to the response object',
6518: G_LEVEL_STATEMENT,l_dbg_mod);
6519: RETURN;
6520: END IF ; --12
6521: iby_fndcpt_common_pub.Prepare_Result
6522: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reauth_response);
6523:
6524: END IF; --9
6525:
6526: END IF; --4
6527: END IF ; --3
6528: END IF ; --2
6529: END IF ; --1
6530: iby_fndcpt_common_pub.Prepare_Result
6531: (l_prev_msg_count,x_return_status,x_msg_count,x_msg_data,x_reversal_response);
6532: iby_debug_pub.add('Exit',G_LEVEL_PROCEDURE,l_module);
6533:
6534: EXCEPTION
6563: debug_level => G_LEVEL_UNEXPECTED,
6564: module => G_DEBUG_MODULE || l_module);
6565: END IF;
6566:
6567: iby_fndcpt_common_pub.Clear_Msg_Stack(l_prev_msg_count);
6568:
6569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6570: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6571: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_module, SUBSTR(SQLERRM,1,100));