[Home] [Help]
4:
5: -- *** Declaring global datatypes and variables ***
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_PAYMENT_ADAPTER_PUB';
7:
8: g_validation_level CONSTANT NUMBER := FND_API.G_VALID_LEVEL_FULL;
9:
10:
11: ------------------------------------------------------------------------------
12: /* UTILITY PROCEDURE #1: UNPACK_RESULTS_URL
195: --
196: -- should return an expected error exception here as missing input is
197: -- considered a "normal" error
198: --
199: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: RAISE FND_API.G_EXC_ERROR;
201: ELSE
202: --Append this
203: p_url := p_url||p_name||'='||
196: -- should return an expected error exception here as missing input is
197: -- considered a "normal" error
198: --
199: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: RAISE FND_API.G_EXC_ERROR;
201: ELSE
202: --Append this
203: p_url := p_url||p_name||'='||
204: iby_netutils_pvt.escape_url_chars(p_value,p_local_nls,p_remote_nls)||'&';
217: --
218: FND_MESSAGE.SET_NAME('IBY', 'IBY_204011');
219: FND_MESSAGE.SET_TOKEN('FIELD', 'NLS_LANG');
220: FND_MSG_PUB.Add;
221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: */
223: WHEN OTHERS THEN
224: p_url := l_url;
225:
273: --
274: FND_MESSAGE.SET_NAME('IBY', 'IBY_204011');
275: FND_MESSAGE.SET_TOKEN('FIELD', 'NLS_LANG');
276: FND_MSG_PUB.Add;
277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
278: */
279: WHEN OTHERS THEN
280: p_url := l_url;
281:
368: --------------------------------------------------------------------------------------------
369: FUNCTION Is_RiskInfo_rec_Missing (riskinfo_rec IN Riskinfo_rec_type)
370: RETURN BOOLEAN IS
371: BEGIN
372: IF (riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR) THEN
373: RETURN FALSE;
374: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
375: RETURN FALSE;
376: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
370: RETURN BOOLEAN IS
371: BEGIN
372: IF (riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR) THEN
373: RETURN FALSE;
374: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
375: RETURN FALSE;
376: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
377: RETURN FALSE;
378: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
372: IF (riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR) THEN
373: RETURN FALSE;
374: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
375: RETURN FALSE;
376: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
377: RETURN FALSE;
378: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
379: RETURN FALSE;
380: -- ELSIF (riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) THEN
374: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
375: RETURN FALSE;
376: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
377: RETURN FALSE;
378: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
379: RETURN FALSE;
380: -- ELSIF (riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) THEN
381: -- RETURN FALSE;
382: ELSE
376: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
377: RETURN FALSE;
378: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
379: RETURN FALSE;
380: -- ELSIF (riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) THEN
381: -- RETURN FALSE;
382: ELSE
383: RETURN TRUE;
384: END IF;
467: --Raising Exception to handle errors if value is missing
468: IF ((x_baseurl IS NULL) OR (trim(x_baseurl) = '')) THEN
469: FND_MESSAGE.SET_NAME('IBY', 'IBY_204406');
470: FND_MSG_PUB.Add;
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
473:
474: --appending '?' if not already present in the url
475: p_temp_var := SUBSTR(x_baseurl, -1);
623: --FND_MSG_PUB.Add_Exc_Msg(p_error_text => SQLCODE||':-:'||SQLERRM);
624: FND_MESSAGE.SET_NAME('IBY', 'IBY_0001');
625: FND_MSG_PUB.Add;
626: -- x_return_status := 3 ;
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628:
629: END send_request;
630: --------------------------------------------------------------------------------------------
631: ---*** APIS START BELOW ---***
654: -- Initial version 1.0
655: -- End of comments
656: --------------------------------------------------------------------------------------------
657: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
658: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
659: p_commit IN VARCHAR2 := FND_API.G_FALSE,
660: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
661: p_ecapp_id IN NUMBER,
662: p_payee_rec IN Payee_rec_type,
655: -- End of comments
656: --------------------------------------------------------------------------------------------
657: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
658: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
659: p_commit IN VARCHAR2 := FND_API.G_FALSE,
660: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
661: p_ecapp_id IN NUMBER,
662: p_payee_rec IN Payee_rec_type,
663: p_payer_rec IN Payer_rec_type,
656: --------------------------------------------------------------------------------------------
657: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
658: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
659: p_commit IN VARCHAR2 := FND_API.G_FALSE,
660: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
661: p_ecapp_id IN NUMBER,
662: p_payee_rec IN Payee_rec_type,
663: p_payer_rec IN Payer_rec_type,
664: p_pmtinstr_rec IN PmtInstr_rec_type,
723: /* ***** Performing Validations, Initializations
724: for Standard IN, OUT Parameters ***** */
725:
726: -- Standard call to check for call compatibility.
727: IF NOT FND_API.Compatible_API_Call ( l_api_version,
728: p_api_version,
729: l_api_name,
730: G_PKG_NAME )
731: THEN
730: G_PKG_NAME )
731: THEN
732: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
733: FND_MSG_PUB.Add;
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736:
737: -- Initialize message list if p_init_msg_list is set to TRUE.
738: IF FND_API.to_Boolean( p_init_msg_list ) THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736:
737: -- Initialize message list if p_init_msg_list is set to TRUE.
738: IF FND_API.to_Boolean( p_init_msg_list ) THEN
739: FND_MSG_PUB.initialize;
740: END IF;
741:
742: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
742: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
743: IF (p_validation_level <> g_validation_level) THEN
744: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
745: FND_MSG_PUB.Add;
746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
747: END IF;
748:
749: -- Initialize API return status to success
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
747: END IF;
748:
749: -- Initialize API return status to success
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
751:
752: -- START OF BODY OF API
753:
754: get_baseurl(l_get_baseurl);
896:
897: -- RISK INFO OBJECT INPUT PARAMETERS
898:
899: -- Check all Risk related inputs only if Formula_Name is specified.
900: IF (p_riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR)
901: AND (p_riskinfo_rec.Formula_Name IS NOT NULL) THEN
902: check_optional('OapfFormulaName', p_riskinfo_rec.Formula_Name, l_url, l_db_nls, l_ecapp_nls);
903: -- check_optional is not checking for FND_API.G_MISS_CHAR
904: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
899: -- Check all Risk related inputs only if Formula_Name is specified.
900: IF (p_riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR)
901: AND (p_riskinfo_rec.Formula_Name IS NOT NULL) THEN
902: check_optional('OapfFormulaName', p_riskinfo_rec.Formula_Name, l_url, l_db_nls, l_ecapp_nls);
903: -- check_optional is not checking for FND_API.G_MISS_CHAR
904: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
905: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
906: END IF;
907: -- check_optional is not checking for FND_API.G_MISS_CHAR
900: IF (p_riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR)
901: AND (p_riskinfo_rec.Formula_Name IS NOT NULL) THEN
902: check_optional('OapfFormulaName', p_riskinfo_rec.Formula_Name, l_url, l_db_nls, l_ecapp_nls);
903: -- check_optional is not checking for FND_API.G_MISS_CHAR
904: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
905: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
906: END IF;
907: -- check_optional is not checking for FND_API.G_MISS_CHAR
908: IF (p_riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
903: -- check_optional is not checking for FND_API.G_MISS_CHAR
904: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
905: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
906: END IF;
907: -- check_optional is not checking for FND_API.G_MISS_CHAR
908: IF (p_riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
909: check_optional('OapfTimeOfPurchase', p_riskinfo_rec.Time_Of_Purchase, l_url, l_db_nls, l_ecapp_nls);
910: END IF;
911:
904: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
905: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
906: END IF;
907: -- check_optional is not checking for FND_API.G_MISS_CHAR
908: IF (p_riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
909: check_optional('OapfTimeOfPurchase', p_riskinfo_rec.Time_Of_Purchase, l_url, l_db_nls, l_ecapp_nls);
910: END IF;
911:
912: --NOTE: Customer_Acct_Num and Org_ID are together Mandatory
911:
912: --NOTE: Customer_Acct_Num and Org_ID are together Mandatory
913: --if AR risk factors are to be used.
914: IF ( (p_riskinfo_rec.Customer_Acct_Num IS NOT NULL)
915: AND (p_riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) )
916: -- OR ( (p_riskinfo_rec.Org_ID IS NOT NULL)
917: -- AND (p_riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) )
918: THEN
919: -- check_mandatory('OapfOrgId', to_char(p_riskinfo_rec.Org_ID), l_url, l_db_nls, l_ecapp_nls);
913: --if AR risk factors are to be used.
914: IF ( (p_riskinfo_rec.Customer_Acct_Num IS NOT NULL)
915: AND (p_riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) )
916: -- OR ( (p_riskinfo_rec.Org_ID IS NOT NULL)
917: -- AND (p_riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) )
918: THEN
919: -- check_mandatory('OapfOrgId', to_char(p_riskinfo_rec.Org_ID), l_url, l_db_nls, l_ecapp_nls);
920: check_mandatory('OapfCustAccountNum', p_riskinfo_rec.Customer_Acct_Num, l_url, l_db_nls, l_ecapp_nls);
921: END IF;
965: debug_level => FND_LOG.LEVEL_UNEXPECTED,
966: module => G_DEBUG_MODULE || '.OraPmtReq');
967: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
968: FND_MSG_PUB.Add;
969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
970: END IF;
971:
972: --Raising Exception to handle Servlet related errors.
973: IF (l_names.COUNT = 0) THEN
975: debug_level => FND_LOG.LEVEL_UNEXPECTED,
976: module => G_DEBUG_MODULE || '.OraPmtReq');
977: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
978: FND_MSG_PUB.Add;
979: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
980: END IF;
981:
982: /* Retrieve name-value pairs stored in l_names and l_values, and assign
983: them to the output record: x_reqresp_rec.
1091: END IF;
1092:
1093: -- Setting API return status to 'U' if iPayment response status is not 0.
1094: IF (NOT trxn_status_success(x_reqresp_rec.Response.Status)) THEN
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: END IF;
1097:
1098: -- END OF BODY OF API
1099:
1101: --dbms_output.put_line('after successfully mapping results');
1102:
1103: -- Standard check of p_commit.
1104: /*
1105: IF FND_API.To_Boolean( p_commit ) THEN
1106: COMMIT WORK;
1107: END IF;
1108: */
1109:
1124: module => G_DEBUG_MODULE || '.OraPmtReq');
1125:
1126: EXCEPTION
1127:
1128: WHEN FND_API.G_EXC_ERROR THEN
1129:
1130: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1131: debug_level => FND_LOG.LEVEL_ERROR,
1132: module => G_DEBUG_MODULE || '.OraPmtReq');
1130: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1131: debug_level => FND_LOG.LEVEL_ERROR,
1132: module => G_DEBUG_MODULE || '.OraPmtReq');
1133: --ROLLBACK TO OraPmtReq_PUB;
1134: x_return_status := FND_API.G_RET_STS_ERROR ;
1135: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1136: p_data => x_msg_data
1137: );
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1134: x_return_status := FND_API.G_RET_STS_ERROR ;
1135: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1136: p_data => x_msg_data
1137: );
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139:
1140: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1141: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1142: module => G_DEBUG_MODULE || '.OraPmtReq');
1140: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1141: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1142: module => G_DEBUG_MODULE || '.OraPmtReq');
1143: --ROLLBACK TO OraPmtReq_PUB;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1145: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1146: p_data => x_msg_data
1147: );
1148: WHEN OTHERS THEN
1150: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1151: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1152: module => G_DEBUG_MODULE || '.OraPmtReq');
1153: --ROLLBACK TO OraPmtReq_PUB;
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1155: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1156: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1157: END IF;
1158:
1169:
1170: END OraPmtReq;
1171:
1172: PROCEDURE OraPmtReverse (p_api_version IN NUMBER,
1173: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1174: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1175: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1176: p_ecapp_id IN NUMBER,
1177: p_rev_trxn_rec IN RevTrxn_rec_type,
1170: END OraPmtReq;
1171:
1172: PROCEDURE OraPmtReverse (p_api_version IN NUMBER,
1173: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1174: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1175: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1176: p_ecapp_id IN NUMBER,
1177: p_rev_trxn_rec IN RevTrxn_rec_type,
1178: x_return_status OUT NOCOPY VARCHAR2,
1171:
1172: PROCEDURE OraPmtReverse (p_api_version IN NUMBER,
1173: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1174: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1175: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1176: p_ecapp_id IN NUMBER,
1177: p_rev_trxn_rec IN RevTrxn_rec_type,
1178: x_return_status OUT NOCOPY VARCHAR2,
1179: x_msg_count OUT NOCOPY NUMBER,
1228:
1229: BEGIN
1230: --dbms_output.put_line(l_dbg_mod||': Enter');
1231: iby_debug_pub.add('Enter', FND_LOG.LEVEL_PROCEDURE,l_dbg_mod);
1232: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1233: p_api_version,
1234: l_api_name,
1235: G_PKG_NAME )
1236: THEN
1235: G_PKG_NAME )
1236: THEN
1237: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1238: FND_MSG_PUB.Add;
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: END IF;
1241:
1242: -- Initialize message list if p_init_msg_list is set to TRUE.
1243: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: END IF;
1241:
1242: -- Initialize message list if p_init_msg_list is set to TRUE.
1243: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1244: FND_MSG_PUB.initialize;
1245: END IF;
1246:
1247: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1247: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1248: IF (p_validation_level <> g_validation_level) THEN
1249: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1250: FND_MSG_PUB.Add;
1251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1252: END IF;
1253:
1254: -- Initialize API return status to success
1255: x_return_status := FND_API.G_RET_STS_SUCCESS;
1251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1252: END IF;
1253:
1254: -- Initialize API return status to success
1255: x_return_status := FND_API.G_RET_STS_SUCCESS;
1256:
1257: -- START OF BODY OF API
1258:
1259: get_baseurl(l_get_baseurl);
1298: IF (l_status = -1) THEN
1299: iby_debug_pub.add('Unpack status error; HTML resp. invalid!',FND_LOG.LEVEL_UNEXPECTED,l_dbg_mod);
1300: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1301: FND_MSG_PUB.Add;
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: END IF;
1304:
1305: --Raising Exception to handle Servlet related errors.
1306: IF (l_names.COUNT = 0) THEN
1306: IF (l_names.COUNT = 0) THEN
1307: iby_debug_pub.add('HTML response names count=0',FND_LOG.LEVEL_UNEXPECTED,l_dbg_mod);
1308: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1309: FND_MSG_PUB.Add;
1310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1311: END IF;
1312: /* Retrieve name-value pairs stored in l_names and l_values, and assign
1313: them to the output record: x_reqresp_rec.
1314: */
1383: END IF;
1384:
1385: -- Setting API return status to 'U' if iPayment response status is not 0.
1386: IF (NOT trxn_status_success(x_revresp_rec.ReqResp.Response.Status)) THEN
1387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1388: END IF;
1389:
1390: -- Standard call to get message count and if count is 1, get message info.
1391: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1397: iby_debug_pub.add('Exit', FND_LOG.LEVEL_PROCEDURE,l_dbg_mod);
1398:
1399: EXCEPTION
1400:
1401: WHEN FND_API.G_EXC_ERROR THEN
1402:
1403: iby_debug_pub.add('In G_EXC_ERROR Exception', FND_LOG.LEVEL_ERROR,l_dbg_mod);
1404: --ROLLBACK TO OraPmtReq_PUB;
1405: x_return_status := FND_API.G_RET_STS_ERROR ;
1401: WHEN FND_API.G_EXC_ERROR THEN
1402:
1403: iby_debug_pub.add('In G_EXC_ERROR Exception', FND_LOG.LEVEL_ERROR,l_dbg_mod);
1404: --ROLLBACK TO OraPmtReq_PUB;
1405: x_return_status := FND_API.G_RET_STS_ERROR ;
1406: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1407: p_data => x_msg_data
1408: );
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1405: x_return_status := FND_API.G_RET_STS_ERROR ;
1406: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1407: p_data => x_msg_data
1408: );
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410:
1411: iby_debug_pub.add('In G_EXC_UNEXPECTED_ERROR Exception', FND_LOG.LEVEL_UNEXPECTED, l_dbg_mod);
1412: --ROLLBACK TO OraPmtReq_PUB;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410:
1411: iby_debug_pub.add('In G_EXC_UNEXPECTED_ERROR Exception', FND_LOG.LEVEL_UNEXPECTED, l_dbg_mod);
1412: --ROLLBACK TO OraPmtReq_PUB;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1414: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1415: p_data => x_msg_data
1416: );
1417: WHEN OTHERS THEN
1417: WHEN OTHERS THEN
1418:
1419: iby_debug_pub.add('In OTHERS Exception', FND_LOG.LEVEL_UNEXPECTED,l_dbg_mod);
1420: --ROLLBACK TO OraPmtReq_PUB;
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1422: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1423: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1424: END IF;
1425:
1457: -- Initial version 1.0
1458: -- End of comments
1459: --------------------------------------------------------------------------------------------
1460: PROCEDURE OraPmtMod ( p_api_version IN NUMBER,
1461: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1462: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_ecapp_id IN NUMBER,
1465: p_payee_rec IN Payee_rec_type,
1458: -- End of comments
1459: --------------------------------------------------------------------------------------------
1460: PROCEDURE OraPmtMod ( p_api_version IN NUMBER,
1461: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1462: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_ecapp_id IN NUMBER,
1465: p_payee_rec IN Payee_rec_type,
1466: p_payer_rec IN Payer_rec_type,
1459: --------------------------------------------------------------------------------------------
1460: PROCEDURE OraPmtMod ( p_api_version IN NUMBER,
1461: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1462: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_ecapp_id IN NUMBER,
1465: p_payee_rec IN Payee_rec_type,
1466: p_payer_rec IN Payer_rec_type,
1467: p_pmtinstr_rec IN PmtInstr_rec_type,
1510: /* ***** Performing Validations, Initializations
1511: for Standard IN, OUT Parameters ***** */
1512:
1513: -- Standard call to check for call compatibility.
1514: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1515: p_api_version,
1516: l_api_name,
1517: G_PKG_NAME )
1518: THEN
1517: G_PKG_NAME )
1518: THEN
1519: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1520: FND_MSG_PUB.Add;
1521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1522: END IF;
1523:
1524: -- Initialize message list if p_init_msg_list is set to TRUE.
1525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1522: END IF;
1523:
1524: -- Initialize message list if p_init_msg_list is set to TRUE.
1525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1526: FND_MSG_PUB.initialize;
1527: END IF;
1528:
1529: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1529: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1530: IF (p_validation_level <> g_validation_level) THEN
1531: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1532: FND_MSG_PUB.Add;
1533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1534: END IF;
1535:
1536: -- Initialize API return status to success
1537: x_return_status := FND_API.G_RET_STS_SUCCESS;
1533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1534: END IF;
1535:
1536: -- Initialize API return status to success
1537: x_return_status := FND_API.G_RET_STS_SUCCESS;
1538:
1539: -- START OF BODY OF API
1540:
1541: get_baseurl(l_get_baseurl);
1633: --Raising Exception to handle errors in unpacking resulting html file.
1634: IF (l_status = -1) THEN
1635: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1636: FND_MSG_PUB.Add;
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1639:
1640: --Raising Exception to handle Servlet related errors.
1641: IF (l_names.COUNT = 0) THEN
1640: --Raising Exception to handle Servlet related errors.
1641: IF (l_names.COUNT = 0) THEN
1642: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1643: FND_MSG_PUB.Add;
1644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1645: END IF;
1646:
1647: /* Retrieve name-value pairs stored in l_names and l_values, and assign
1648: them to the output record: x_modresp_rec.
1664: END LOOP;
1665:
1666: -- Setting API return status to 'U' if iPayment response status is not 0.
1667: IF (NOT trxn_status_success(x_modresp_rec.Response.Status)) THEN
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669: END IF;
1670:
1671: -- END OF BODY OF API
1672:
1671: -- END OF BODY OF API
1672:
1673: -- Standard check of p_commit.
1674: /*
1675: IF FND_API.To_Boolean( p_commit ) THEN
1676: COMMIT WORK;
1677: END IF;
1678: */
1679:
1683: );
1684: EXCEPTION
1685:
1686:
1687: WHEN FND_API.G_EXC_ERROR THEN
1688: --ROLLBACK TO OraPmtMod_PUB;
1689: x_return_status := FND_API.G_RET_STS_ERROR ;
1690: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1691: p_data => x_msg_data
1685:
1686:
1687: WHEN FND_API.G_EXC_ERROR THEN
1688: --ROLLBACK TO OraPmtMod_PUB;
1689: x_return_status := FND_API.G_RET_STS_ERROR ;
1690: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1691: p_data => x_msg_data
1692: );
1693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1689: x_return_status := FND_API.G_RET_STS_ERROR ;
1690: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1691: p_data => x_msg_data
1692: );
1693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1694: --ROLLBACK TO OraPmtMod_PUB;
1695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1696: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1697: p_data => x_msg_data
1691: p_data => x_msg_data
1692: );
1693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1694: --ROLLBACK TO OraPmtMod_PUB;
1695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1696: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1697: p_data => x_msg_data
1698: );
1699: WHEN OTHERS THEN
1697: p_data => x_msg_data
1698: );
1699: WHEN OTHERS THEN
1700: --ROLLBACK TO OraPmtMod_PUB;
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1702: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1703: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1704: END IF;
1705:
1729: -- Initial version 1.0
1730: -- End of comments
1731: --------------------------------------------------------------------------------------------
1732: PROCEDURE OraPmtCanc ( p_api_version IN NUMBER,
1733: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1734: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1735: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1736: p_ecapp_id IN NUMBER,
1737: p_canctrxn_rec IN CancelTrxn_rec_type,
1730: -- End of comments
1731: --------------------------------------------------------------------------------------------
1732: PROCEDURE OraPmtCanc ( p_api_version IN NUMBER,
1733: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1734: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1735: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1736: p_ecapp_id IN NUMBER,
1737: p_canctrxn_rec IN CancelTrxn_rec_type,
1738: x_return_status OUT NOCOPY VARCHAR2,
1731: --------------------------------------------------------------------------------------------
1732: PROCEDURE OraPmtCanc ( p_api_version IN NUMBER,
1733: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1734: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1735: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1736: p_ecapp_id IN NUMBER,
1737: p_canctrxn_rec IN CancelTrxn_rec_type,
1738: x_return_status OUT NOCOPY VARCHAR2,
1739: x_msg_count OUT NOCOPY NUMBER,
1783: /* ***** Performing Validations, Initializations
1784: for Standard IN, OUT Parameters ***** */
1785:
1786: -- Standard call to check for call compatibility.
1787: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1788: p_api_version,
1789: l_api_name,
1790: G_PKG_NAME )
1791: THEN
1790: G_PKG_NAME )
1791: THEN
1792: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1793: FND_MSG_PUB.Add;
1794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1795: END IF;
1796:
1797: -- Initialize message list if p_init_msg_list is set to TRUE.
1798: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1795: END IF;
1796:
1797: -- Initialize message list if p_init_msg_list is set to TRUE.
1798: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1799: FND_MSG_PUB.initialize;
1800: END IF;
1801:
1802: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1802: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1803: IF (p_validation_level <> g_validation_level) THEN
1804: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1805: FND_MSG_PUB.Add;
1806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: END IF;
1808:
1809: -- Initialize API return status to success
1810: x_return_status := FND_API.G_RET_STS_SUCCESS;
1806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: END IF;
1808:
1809: -- Initialize API return status to success
1810: x_return_status := FND_API.G_RET_STS_SUCCESS;
1811:
1812: -- START OF BODY OF API
1813:
1814: get_baseurl(l_get_baseurl);
1839:
1840: IF (pmtcanc_csr%ROWCOUNT = 0) THEN
1841: FND_MESSAGE.SET_NAME('IBY', 'IBY_204404_CURSOR_ERROR');
1842: FND_MSG_PUB.Add;
1843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1844: END IF;
1845:
1846: CLOSE pmtcanc_csr;
1847: --dbms_output.put_line('after closing cursor');
1869: --Raising Exception to handle errors in unpacking resulting html file.
1870: IF (l_status = -1) THEN
1871: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1872: FND_MSG_PUB.Add;
1873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: END IF;
1875:
1876: --Raising Exception to handle Servlet related errors.
1877: IF (l_names.COUNT = 0) THEN
1876: --Raising Exception to handle Servlet related errors.
1877: IF (l_names.COUNT = 0) THEN
1878: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1879: FND_MSG_PUB.Add;
1880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1881: END IF;
1882:
1883: --show_table_debug(l_names);
1884: --show_table_debug(l_values);
1913: END LOOP;
1914:
1915: -- Setting API return status to 'U' if iPayment response status is not 0.
1916: IF (NOT trxn_status_success(x_cancresp_rec.Response.Status)) THEN
1917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1918: END IF;
1919:
1920: -- END OF BODY OF API
1921:
1920: -- END OF BODY OF API
1921:
1922: -- Standard check of p_commit.
1923: /*
1924: IF FND_API.To_Boolean( p_commit ) THEN
1925: COMMIT WORK;
1926: END IF;
1927: */
1928:
1930: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1931: p_data => x_msg_data
1932: );
1933: EXCEPTION
1934: WHEN FND_API.G_EXC_ERROR THEN
1935: --ROLLBACK TO OraPmtCanc_PUB;
1936: x_return_status := FND_API.G_RET_STS_ERROR ;
1937: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1938: p_data => x_msg_data
1932: );
1933: EXCEPTION
1934: WHEN FND_API.G_EXC_ERROR THEN
1935: --ROLLBACK TO OraPmtCanc_PUB;
1936: x_return_status := FND_API.G_RET_STS_ERROR ;
1937: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1938: p_data => x_msg_data
1939: );
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1936: x_return_status := FND_API.G_RET_STS_ERROR ;
1937: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1938: p_data => x_msg_data
1939: );
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941: --ROLLBACK TO OraPmtCanc_PUB;
1942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1943: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1944: p_data => x_msg_data
1938: p_data => x_msg_data
1939: );
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941: --ROLLBACK TO OraPmtCanc_PUB;
1942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1943: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1944: p_data => x_msg_data
1945: );
1946: WHEN OTHERS THEN
1944: p_data => x_msg_data
1945: );
1946: WHEN OTHERS THEN
1947: --ROLLBACK TO OraPmtCanc_PUB;
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1949: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1950: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1951: END IF;
1952:
1977: -- Initial version 1.0
1978: -- End of comments
1979: --------------------------------------------------------------------------------------------
1980: PROCEDURE OraPmtQryTrxn ( p_api_version IN NUMBER,
1981: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1982: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1983: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1984: p_ecapp_id IN NUMBER,
1985: p_querytrxn_rec IN QueryTrxn_rec_type,
1978: -- End of comments
1979: --------------------------------------------------------------------------------------------
1980: PROCEDURE OraPmtQryTrxn ( p_api_version IN NUMBER,
1981: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1982: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1983: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1984: p_ecapp_id IN NUMBER,
1985: p_querytrxn_rec IN QueryTrxn_rec_type,
1986: x_return_status OUT NOCOPY VARCHAR2,
1979: --------------------------------------------------------------------------------------------
1980: PROCEDURE OraPmtQryTrxn ( p_api_version IN NUMBER,
1981: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1982: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1983: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1984: p_ecapp_id IN NUMBER,
1985: p_querytrxn_rec IN QueryTrxn_rec_type,
1986: x_return_status OUT NOCOPY VARCHAR2,
1987: x_msg_count OUT NOCOPY NUMBER,
2035: /* ***** Performing Validations, Initializations
2036: for Standard IN, OUT Parameters ***** */
2037:
2038: -- Standard call to check for call compatibility.
2039: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2040: p_api_version,
2041: l_api_name,
2042: G_PKG_NAME )
2043: THEN
2042: G_PKG_NAME )
2043: THEN
2044: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2045: FND_MSG_PUB.Add;
2046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2047: END IF;
2048:
2049: -- Initialize message list if p_init_msg_list is set to TRUE.
2050: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2047: END IF;
2048:
2049: -- Initialize message list if p_init_msg_list is set to TRUE.
2050: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2051: FND_MSG_PUB.initialize;
2052: END IF;
2053:
2054: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2054: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2055: IF (p_validation_level <> g_validation_level) THEN
2056: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2057: FND_MSG_PUB.Add;
2058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2059: END IF;
2060:
2061:
2062: -- Initialize API return status to success
2059: END IF;
2060:
2061:
2062: -- Initialize API return status to success
2063: x_return_status := FND_API.G_RET_STS_SUCCESS;
2064:
2065: -- START OF BODY OF API
2066:
2067: get_baseurl(l_get_baseurl);
2092:
2093: IF (pmtqrytrxn_csr%ROWCOUNT = 0) THEN
2094: FND_MESSAGE.SET_NAME('IBY', 'IBY_204404_CURSOR_ERROR');
2095: FND_MSG_PUB.Add;
2096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2097: END IF;
2098:
2099: CLOSE pmtqrytrxn_csr;
2100: --dbms_output.put_line('after closing cursor');
2126: --Raising Exception to handle errors in unpacking resulting html file.
2127: IF (l_status = -1) THEN
2128: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2129: FND_MSG_PUB.Add;
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: END IF;
2132:
2133: --Raising Exception to handle Servlet related errors.
2134: IF (l_names.COUNT = 0) THEN
2133: --Raising Exception to handle Servlet related errors.
2134: IF (l_names.COUNT = 0) THEN
2135: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2136: FND_MSG_PUB.Add;
2137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2138: END IF;
2139:
2140: --show_table_debug(l_names);
2141: --show_table_debug(l_values);
2219: END LOOP;
2220:
2221: -- Setting API return status to 'U' if iPayment response status is not 0.
2222: IF (NOT trxn_status_success(x_qrytrxnrespsum_rec.Response.Status)) THEN
2223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2224: END IF;
2225:
2226: -- END OF BODY OF API
2227:
2227:
2228:
2229: -- Standard check of p_commit.
2230: /*
2231: IF FND_API.To_Boolean( p_commit ) THEN
2232: COMMIT WORK;
2233: END IF;
2234: */
2235:
2237: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2238: p_data => x_msg_data
2239: );
2240: EXCEPTION
2241: WHEN FND_API.G_EXC_ERROR THEN
2242: --ROLLBACK TO OraPmtQryTrxn_PUB;
2243: x_return_status := FND_API.G_RET_STS_ERROR ;
2244: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2245: p_data => x_msg_data
2239: );
2240: EXCEPTION
2241: WHEN FND_API.G_EXC_ERROR THEN
2242: --ROLLBACK TO OraPmtQryTrxn_PUB;
2243: x_return_status := FND_API.G_RET_STS_ERROR ;
2244: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2245: p_data => x_msg_data
2246: );
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2243: x_return_status := FND_API.G_RET_STS_ERROR ;
2244: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2245: p_data => x_msg_data
2246: );
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: --ROLLBACK TO OraPmtQryTrxn_PUB;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2250: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2251: p_data => x_msg_data
2245: p_data => x_msg_data
2246: );
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: --ROLLBACK TO OraPmtQryTrxn_PUB;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2250: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2251: p_data => x_msg_data
2252: );
2253: WHEN OTHERS THEN
2251: p_data => x_msg_data
2252: );
2253: WHEN OTHERS THEN
2254: --ROLLBACK TO OraPmtQryTrxn_PUB;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2256: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2257: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2258: END IF;
2259:
2284: -- Initial version 1.0
2285: -- End of comments
2286: --------------------------------------------------------------------------------------------
2287: PROCEDURE OraPmtCapture ( p_api_version IN NUMBER,
2288: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2289: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2290: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2291: p_ecapp_id IN NUMBER,
2292: p_capturetrxn_rec IN CaptureTrxn_rec_type,
2285: -- End of comments
2286: --------------------------------------------------------------------------------------------
2287: PROCEDURE OraPmtCapture ( p_api_version IN NUMBER,
2288: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2289: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2290: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2291: p_ecapp_id IN NUMBER,
2292: p_capturetrxn_rec IN CaptureTrxn_rec_type,
2293: x_return_status OUT NOCOPY VARCHAR2,
2286: --------------------------------------------------------------------------------------------
2287: PROCEDURE OraPmtCapture ( p_api_version IN NUMBER,
2288: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2289: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2290: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2291: p_ecapp_id IN NUMBER,
2292: p_capturetrxn_rec IN CaptureTrxn_rec_type,
2293: x_return_status OUT NOCOPY VARCHAR2,
2294: x_msg_count OUT NOCOPY NUMBER,
2331: /* ***** Performing Validations, Initializations
2332: for Standard IN, OUT Parameters ***** */
2333:
2334: -- Standard call to check for call compatibility.
2335: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2336: p_api_version,
2337: l_api_name,
2338: G_PKG_NAME )
2339: THEN
2338: G_PKG_NAME )
2339: THEN
2340: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2341: FND_MSG_PUB.Add;
2342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2343: END IF;
2344:
2345: -- Initialize message list if p_init_msg_list is set to TRUE.
2346: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2343: END IF;
2344:
2345: -- Initialize message list if p_init_msg_list is set to TRUE.
2346: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2347: FND_MSG_PUB.initialize;
2348: END IF;
2349:
2350: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2350: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2351: IF (p_validation_level <> g_validation_level) THEN
2352: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2353: FND_MSG_PUB.Add;
2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2355: END IF;
2356:
2357: -- Initialize API return status to success
2358: x_return_status := FND_API.G_RET_STS_SUCCESS;
2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2355: END IF;
2356:
2357: -- Initialize API return status to success
2358: x_return_status := FND_API.G_RET_STS_SUCCESS;
2359:
2360: -- START OF BODY OF API
2361:
2362: get_baseurl(l_get_baseurl);
2418: --Raising Exception to handle errors in unpacking resulting html file.
2419: IF (l_status = -1) THEN
2420: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2421: FND_MSG_PUB.Add;
2422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2423: END IF;
2424:
2425: --Raising Exception to handle Servlet related errors.
2426: IF (l_names.COUNT = 0) THEN
2425: --Raising Exception to handle Servlet related errors.
2426: IF (l_names.COUNT = 0) THEN
2427: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2428: FND_MSG_PUB.Add;
2429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2430: END IF;
2431:
2432: -- Assign output parameters to output record x_capresp_rec
2433: FOR i IN 1..l_names.COUNT LOOP
2470: END LOOP;
2471:
2472: -- Setting API return status to 'U' if iPayment response status is not 0.
2473: IF (NOT trxn_status_success(x_capresp_rec.Response.Status)) THEN
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: END IF;
2476:
2477: -- END OF BODY OF API
2478:
2477: -- END OF BODY OF API
2478:
2479: -- Standard check of p_commit.
2480: /*
2481: IF FND_API.To_Boolean( p_commit ) THEN
2482: COMMIT WORK;
2483: END IF;
2484: */
2485:
2487: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2488: p_data => x_msg_data
2489: );
2490: EXCEPTION
2491: WHEN FND_API.G_EXC_ERROR THEN
2492: --ROLLBACK TO OraPmtCapture_PUB;
2493: x_return_status := FND_API.G_RET_STS_ERROR ;
2494: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2495: p_data => x_msg_data
2489: );
2490: EXCEPTION
2491: WHEN FND_API.G_EXC_ERROR THEN
2492: --ROLLBACK TO OraPmtCapture_PUB;
2493: x_return_status := FND_API.G_RET_STS_ERROR ;
2494: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2495: p_data => x_msg_data
2496: );
2497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2493: x_return_status := FND_API.G_RET_STS_ERROR ;
2494: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2495: p_data => x_msg_data
2496: );
2497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2498: --ROLLBACK TO OraPmtCapture_PUB;
2499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2500: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2501: p_data => x_msg_data
2495: p_data => x_msg_data
2496: );
2497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2498: --ROLLBACK TO OraPmtCapture_PUB;
2499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2500: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2501: p_data => x_msg_data
2502: );
2503: WHEN OTHERS THEN
2501: p_data => x_msg_data
2502: );
2503: WHEN OTHERS THEN
2504: --ROLLBACK TO OraPmtCapture_PUB;
2505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2506: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2507: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2508: END IF;
2509:
2534: -- Initial version 1.0
2535: -- End of comments
2536: --------------------------------------------------------------------------------------------
2537: PROCEDURE OraPmtReturn ( p_api_version IN NUMBER,
2538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2541: p_ecapp_id IN NUMBER,
2542: p_returntrxn_rec IN ReturnTrxn_rec_type,
2535: -- End of comments
2536: --------------------------------------------------------------------------------------------
2537: PROCEDURE OraPmtReturn ( p_api_version IN NUMBER,
2538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2541: p_ecapp_id IN NUMBER,
2542: p_returntrxn_rec IN ReturnTrxn_rec_type,
2543: x_return_status OUT NOCOPY VARCHAR2,
2536: --------------------------------------------------------------------------------------------
2537: PROCEDURE OraPmtReturn ( p_api_version IN NUMBER,
2538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2541: p_ecapp_id IN NUMBER,
2542: p_returntrxn_rec IN ReturnTrxn_rec_type,
2543: x_return_status OUT NOCOPY VARCHAR2,
2544: x_msg_count OUT NOCOPY NUMBER,
2581: /* ***** Performing Validations, Initializations
2582: for Standard IN, OUT Parameters ***** */
2583:
2584: -- Standard call to check for call compatibility.
2585: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2586: p_api_version,
2587: l_api_name,
2588: G_PKG_NAME )
2589: THEN
2588: G_PKG_NAME )
2589: THEN
2590: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2591: FND_MSG_PUB.Add;
2592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2593: END IF;
2594:
2595: -- Initialize message list if p_init_msg_list is set to TRUE.
2596: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2593: END IF;
2594:
2595: -- Initialize message list if p_init_msg_list is set to TRUE.
2596: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2597: FND_MSG_PUB.initialize;
2598: END IF;
2599:
2600: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2600: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2601: IF (p_validation_level <> g_validation_level) THEN
2602: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2603: FND_MSG_PUB.Add;
2604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2605: END IF;
2606:
2607:
2608: -- Initialize API return status to success
2605: END IF;
2606:
2607:
2608: -- Initialize API return status to success
2609: x_return_status := FND_API.G_RET_STS_SUCCESS;
2610:
2611: -- START OF BODY OF API
2612:
2613: get_baseurl(l_get_baseurl);
2663: --Raising Exception to handle errors in unpacking resulting html file.
2664: IF (l_status = -1) THEN
2665: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2666: FND_MSG_PUB.Add;
2667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2668: END IF;
2669:
2670: --Raising Exception to handle Servlet related errors.
2671: IF (l_names.COUNT = 0) THEN
2670: --Raising Exception to handle Servlet related errors.
2671: IF (l_names.COUNT = 0) THEN
2672: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2673: FND_MSG_PUB.Add;
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2675: END IF;
2676:
2677: -- Assign output parameters to output record x_retresp_rec
2678: FOR i IN 1..l_names.COUNT LOOP
2714: END LOOP;
2715:
2716: -- Setting API return status to 'U' if iPayment response status is not 0.
2717: IF (NOT trxn_status_success(x_retresp_rec.Response.Status)) THEN
2718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2719: END IF;
2720:
2721: -- END OF BODY OF API
2722:
2721: -- END OF BODY OF API
2722:
2723: -- Standard check of p_commit.
2724: /*
2725: IF FND_API.To_Boolean( p_commit ) THEN
2726: COMMIT WORK;
2727: END IF;
2728: */
2729:
2731: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2732: p_data => x_msg_data
2733: );
2734: EXCEPTION
2735: WHEN FND_API.G_EXC_ERROR THEN
2736: --ROLLBACK TO OraPmtReturn_PUB;
2737: x_return_status := FND_API.G_RET_STS_ERROR ;
2738: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2739: p_data => x_msg_data
2733: );
2734: EXCEPTION
2735: WHEN FND_API.G_EXC_ERROR THEN
2736: --ROLLBACK TO OraPmtReturn_PUB;
2737: x_return_status := FND_API.G_RET_STS_ERROR ;
2738: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2739: p_data => x_msg_data
2740: );
2741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2737: x_return_status := FND_API.G_RET_STS_ERROR ;
2738: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2739: p_data => x_msg_data
2740: );
2741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2742: --ROLLBACK TO OraPmtReturn_PUB;
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2744: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2745: p_data => x_msg_data
2739: p_data => x_msg_data
2740: );
2741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2742: --ROLLBACK TO OraPmtReturn_PUB;
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2744: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2745: p_data => x_msg_data
2746: );
2747: WHEN OTHERS THEN
2745: p_data => x_msg_data
2746: );
2747: WHEN OTHERS THEN
2748: --ROLLBACK TO OraPmtReturn_PUB;
2749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2750: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2751: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2752: END IF;
2753:
2779: -- Initial version 1.0
2780: -- End of comments
2781: --------------------------------------------------------------------------------------------
2782: PROCEDURE OraPmtVoid ( p_api_version IN NUMBER,
2783: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2784: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2785: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2786: p_ecapp_id IN NUMBER,
2787: p_voidtrxn_rec IN VoidTrxn_rec_type,
2780: -- End of comments
2781: --------------------------------------------------------------------------------------------
2782: PROCEDURE OraPmtVoid ( p_api_version IN NUMBER,
2783: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2784: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2785: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2786: p_ecapp_id IN NUMBER,
2787: p_voidtrxn_rec IN VoidTrxn_rec_type,
2788: x_return_status OUT NOCOPY VARCHAR2,
2781: --------------------------------------------------------------------------------------------
2782: PROCEDURE OraPmtVoid ( p_api_version IN NUMBER,
2783: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2784: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2785: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2786: p_ecapp_id IN NUMBER,
2787: p_voidtrxn_rec IN VoidTrxn_rec_type,
2788: x_return_status OUT NOCOPY VARCHAR2,
2789: x_msg_count OUT NOCOPY NUMBER,
2826: /* ***** Performing Validations, Initializations
2827: for Standard IN, OUT Parameters ***** */
2828:
2829: -- Standard call to check for call compatibility.
2830: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2831: p_api_version,
2832: l_api_name,
2833: G_PKG_NAME )
2834: THEN
2833: G_PKG_NAME )
2834: THEN
2835: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2836: FND_MSG_PUB.Add;
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840: -- Initialize message list if p_init_msg_list is set to TRUE.
2841: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840: -- Initialize message list if p_init_msg_list is set to TRUE.
2841: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2842: FND_MSG_PUB.initialize;
2843: END IF;
2844:
2845: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2845: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2846: IF (p_validation_level <> g_validation_level) THEN
2847: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2848: FND_MSG_PUB.Add;
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851:
2852: -- Initialize API return status to success
2853: x_return_status := FND_API.G_RET_STS_SUCCESS;
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851:
2852: -- Initialize API return status to success
2853: x_return_status := FND_API.G_RET_STS_SUCCESS;
2854:
2855: -- START OF BODY OF API
2856:
2857: get_baseurl(l_get_baseurl);
2915: --Raising Exception to handle errors in unpacking resulting html file.
2916: IF (l_status = -1) THEN
2917: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2918: FND_MSG_PUB.Add;
2919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2920: END IF;
2921:
2922: --Raising Exception to handle Servlet related errors.
2923: IF (l_names.COUNT = 0) THEN
2922: --Raising Exception to handle Servlet related errors.
2923: IF (l_names.COUNT = 0) THEN
2924: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2925: FND_MSG_PUB.Add;
2926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2927: END IF;
2928:
2929: --dbms_output.put_line('after successful unpacking');
2930:
2985: END IF;
2986:
2987: -- Setting API return status to 'U' if iPayment response status is not 0.
2988: IF (NOT trxn_status_success(x_voidresp_rec.Response.Status)) THEN
2989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2990: END IF;
2991:
2992: -- END OF BODY OF API
2993:
2993:
2994:
2995: -- Standard check of p_commit.
2996: /*
2997: IF FND_API.To_Boolean( p_commit ) THEN
2998: COMMIT WORK;
2999: END IF;
3000: */
3001:
3003: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3004: p_data => x_msg_data
3005: );
3006: EXCEPTION
3007: WHEN FND_API.G_EXC_ERROR THEN
3008: --ROLLBACK TO OraPmtVoid_PUB;
3009: x_return_status := FND_API.G_RET_STS_ERROR ;
3010: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3011: p_data => x_msg_data
3005: );
3006: EXCEPTION
3007: WHEN FND_API.G_EXC_ERROR THEN
3008: --ROLLBACK TO OraPmtVoid_PUB;
3009: x_return_status := FND_API.G_RET_STS_ERROR ;
3010: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3011: p_data => x_msg_data
3012: );
3013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3009: x_return_status := FND_API.G_RET_STS_ERROR ;
3010: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3011: p_data => x_msg_data
3012: );
3013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3014: --ROLLBACK TO OraPmtVoid_PUB;
3015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3016: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3017: p_data => x_msg_data
3011: p_data => x_msg_data
3012: );
3013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3014: --ROLLBACK TO OraPmtVoid_PUB;
3015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3016: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3017: p_data => x_msg_data
3018: );
3019: WHEN OTHERS THEN
3017: p_data => x_msg_data
3018: );
3019: WHEN OTHERS THEN
3020: --ROLLBACK TO OraPmtVoid_PUB;
3021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3022: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3023: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3024: END IF;
3025:
3053: -- Initial version 1.0
3054: -- End of comments
3055: --------------------------------------------------------------------------------------------
3056: PROCEDURE OraPmtCredit ( p_api_version IN NUMBER,
3057: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3060: p_ecapp_id IN NUMBER,
3061: p_payee_rec IN Payee_rec_type,
3054: -- End of comments
3055: --------------------------------------------------------------------------------------------
3056: PROCEDURE OraPmtCredit ( p_api_version IN NUMBER,
3057: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3060: p_ecapp_id IN NUMBER,
3061: p_payee_rec IN Payee_rec_type,
3062: p_pmtinstr_rec IN PmtInstr_rec_type,
3055: --------------------------------------------------------------------------------------------
3056: PROCEDURE OraPmtCredit ( p_api_version IN NUMBER,
3057: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3060: p_ecapp_id IN NUMBER,
3061: p_payee_rec IN Payee_rec_type,
3062: p_pmtinstr_rec IN PmtInstr_rec_type,
3063: p_tangible_rec IN Tangible_rec_type,
3105: /* ***** Performing Validations, Initializations
3106: for Standard IN, OUT Parameters ***** */
3107:
3108: -- Standard call to check for call compatibility.
3109: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3110: p_api_version,
3111: l_api_name,
3112: G_PKG_NAME )
3113: THEN
3112: G_PKG_NAME )
3113: THEN
3114: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3115: FND_MSG_PUB.Add;
3116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3117: END IF;
3118:
3119: -- Initialize message list if p_init_msg_list is set to TRUE.
3120: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3117: END IF;
3118:
3119: -- Initialize message list if p_init_msg_list is set to TRUE.
3120: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3121: FND_MSG_PUB.initialize;
3122: END IF;
3123:
3124: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3124: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3125: IF (p_validation_level <> g_validation_level) THEN
3126: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3127: FND_MSG_PUB.Add;
3128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3129: END IF;
3130:
3131: -- Initialize API return status to success
3132: x_return_status := FND_API.G_RET_STS_SUCCESS;
3128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3129: END IF;
3130:
3131: -- Initialize API return status to success
3132: x_return_status := FND_API.G_RET_STS_SUCCESS;
3133:
3134:
3135: -- START OF BODY OF API
3136:
3228: --Raising Exception to handle errors in unpacking resulting html file.
3229: IF (l_status = -1) THEN
3230: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
3231: FND_MSG_PUB.Add;
3232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3233: END IF;
3234:
3235: --Raising Exception to handle Servlet related errors.
3236: IF (l_names.COUNT = 0) THEN
3235: --Raising Exception to handle Servlet related errors.
3236: IF (l_names.COUNT = 0) THEN
3237: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
3238: FND_MSG_PUB.Add;
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: END IF;
3241:
3242: --show_table_debug(l_names);
3243: --show_table_debug(l_values);
3283: END LOOP;
3284:
3285: -- Setting API return status to 'U' if iPayment response status is not 0.
3286: IF (NOT trxn_status_success(x_creditresp_rec.Response.Status)) THEN
3287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3288: END IF;
3289:
3290: -- END OF BODY OF API
3291:
3290: -- END OF BODY OF API
3291:
3292: -- Standard check of p_commit.
3293: /*
3294: IF FND_API.To_Boolean( p_commit ) THEN
3295: COMMIT WORK;
3296: END IF;
3297: */
3298:
3300: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3301: p_data => x_msg_data
3302: );
3303: EXCEPTION
3304: WHEN FND_API.G_EXC_ERROR THEN
3305: --ROLLBACK TO OraPmtCredit_PUB;
3306: x_return_status := FND_API.G_RET_STS_ERROR ;
3307: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3308: p_data => x_msg_data
3302: );
3303: EXCEPTION
3304: WHEN FND_API.G_EXC_ERROR THEN
3305: --ROLLBACK TO OraPmtCredit_PUB;
3306: x_return_status := FND_API.G_RET_STS_ERROR ;
3307: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3308: p_data => x_msg_data
3309: );
3310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3306: x_return_status := FND_API.G_RET_STS_ERROR ;
3307: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3308: p_data => x_msg_data
3309: );
3310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3311: --ROLLBACK TO OraPmtCredit_PUB;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3313: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3314: p_data => x_msg_data
3308: p_data => x_msg_data
3309: );
3310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3311: --ROLLBACK TO OraPmtCredit_PUB;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3313: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3314: p_data => x_msg_data
3315: );
3316: WHEN OTHERS THEN
3314: p_data => x_msg_data
3315: );
3316: WHEN OTHERS THEN
3317: --ROLLBACK TO OraPmtCredit_PUB;
3318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3319: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3320: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3321: END IF;
3322:
3347: -- Initial version 1.0
3348: -- End of comments
3349: --------------------------------------------------------------------------------------------
3350: PROCEDURE OraPmtInq ( p_api_version IN NUMBER,
3351: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3352: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3353: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3354: p_ecapp_id IN NUMBER,
3355: p_tid IN NUMBER,
3348: -- End of comments
3349: --------------------------------------------------------------------------------------------
3350: PROCEDURE OraPmtInq ( p_api_version IN NUMBER,
3351: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3352: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3353: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3354: p_ecapp_id IN NUMBER,
3355: p_tid IN NUMBER,
3356: x_return_status OUT NOCOPY VARCHAR2,
3349: --------------------------------------------------------------------------------------------
3350: PROCEDURE OraPmtInq ( p_api_version IN NUMBER,
3351: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3352: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3353: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3354: p_ecapp_id IN NUMBER,
3355: p_tid IN NUMBER,
3356: x_return_status OUT NOCOPY VARCHAR2,
3357: x_msg_count OUT NOCOPY NUMBER,
3394: /* ***** Performing Validations, Initializations
3395: for Standard IN, OUT Parameters ***** */
3396:
3397: -- Standard call to check for call compatibility.
3398: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3399: p_api_version,
3400: l_api_name,
3401: G_PKG_NAME )
3402: THEN
3401: G_PKG_NAME )
3402: THEN
3403: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3404: FND_MSG_PUB.Add;
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF;
3407:
3408: -- Initialize message list if p_init_msg_list is set to TRUE.
3409: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF;
3407:
3408: -- Initialize message list if p_init_msg_list is set to TRUE.
3409: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3410: FND_MSG_PUB.initialize;
3411: END IF;
3412:
3413: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3413: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3414: IF (p_validation_level <> g_validation_level) THEN
3415: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3416: FND_MSG_PUB.Add;
3417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3418: END IF;
3419:
3420: -- Initialize API return status to success
3421: x_return_status := FND_API.G_RET_STS_SUCCESS;
3417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3418: END IF;
3419:
3420: -- Initialize API return status to success
3421: x_return_status := FND_API.G_RET_STS_SUCCESS;
3422:
3423: -- START OF BODY OF API
3424:
3425: --dbms_output.put_line('Before opening cursor');
3442: -- since that would imply hardcoding the message text here (NLS issues)
3443: -- Instead it is sent to the API message list.
3444: FND_MESSAGE.SET_NAME('IBY', 'IBY_204404_CURSOR_ERROR');
3445: FND_MSG_PUB.Add;
3446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3447: END IF;
3448:
3449: CLOSE pmtinq_csr;
3450:
3455:
3456:
3457: -- Standard check of p_commit.
3458: /*
3459: IF FND_API.To_Boolean( p_commit ) THEN
3460: COMMIT WORK;
3461: END IF;
3462: */
3463:
3465: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3466: p_data => x_msg_data
3467: );
3468: EXCEPTION
3469: WHEN FND_API.G_EXC_ERROR THEN
3470: --ROLLBACK TO OraPmtInq_PUB;
3471: x_return_status := FND_API.G_RET_STS_ERROR ;
3472: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3473: p_data => x_msg_data
3467: );
3468: EXCEPTION
3469: WHEN FND_API.G_EXC_ERROR THEN
3470: --ROLLBACK TO OraPmtInq_PUB;
3471: x_return_status := FND_API.G_RET_STS_ERROR ;
3472: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3473: p_data => x_msg_data
3474: );
3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3471: x_return_status := FND_API.G_RET_STS_ERROR ;
3472: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3473: p_data => x_msg_data
3474: );
3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3476: --ROLLBACK TO OraPmtInq_PUB;
3477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3478: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3479: p_data => x_msg_data
3473: p_data => x_msg_data
3474: );
3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3476: --ROLLBACK TO OraPmtInq_PUB;
3477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3478: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3479: p_data => x_msg_data
3480: );
3481: WHEN OTHERS THEN
3479: p_data => x_msg_data
3480: );
3481: WHEN OTHERS THEN
3482: --ROLLBACK TO OraPmtInq_PUB;
3483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3485: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3486: END IF;
3487:
3514: -- Initial version 1.0
3515: -- End of comments
3516: --------------------------------------------------------------------------------------------
3517: PROCEDURE OraPmtCloseBatch ( p_api_version IN NUMBER,
3518: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3521: p_ecapp_id IN NUMBER,
3522: p_batchtrxn_rec IN BatchTrxn_rec_type,
3515: -- End of comments
3516: --------------------------------------------------------------------------------------------
3517: PROCEDURE OraPmtCloseBatch ( p_api_version IN NUMBER,
3518: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3521: p_ecapp_id IN NUMBER,
3522: p_batchtrxn_rec IN BatchTrxn_rec_type,
3523: x_return_status OUT NOCOPY VARCHAR2,
3516: --------------------------------------------------------------------------------------------
3517: PROCEDURE OraPmtCloseBatch ( p_api_version IN NUMBER,
3518: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3521: p_ecapp_id IN NUMBER,
3522: p_batchtrxn_rec IN BatchTrxn_rec_type,
3523: x_return_status OUT NOCOPY VARCHAR2,
3524: x_msg_count OUT NOCOPY NUMBER,
3565: /* ***** Performing Validations, Initializations
3566: for Standard IN, OUT Parameters ***** */
3567:
3568: -- Standard call to check for call compatibility.
3569: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3570: p_api_version,
3571: l_api_name,
3572: G_PKG_NAME )
3573: THEN
3572: G_PKG_NAME )
3573: THEN
3574: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3575: FND_MSG_PUB.Add;
3576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3577: END IF;
3578:
3579: -- Initialize message list if p_init_msg_list is set to TRUE.
3580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3577: END IF;
3578:
3579: -- Initialize message list if p_init_msg_list is set to TRUE.
3580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3581: FND_MSG_PUB.initialize;
3582: END IF;
3583:
3584: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3584: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3585: IF (p_validation_level <> g_validation_level) THEN
3586: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3587: FND_MSG_PUB.Add;
3588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3589: END IF;
3590:
3591:
3592: -- Initialize API return status to success
3589: END IF;
3590:
3591:
3592: -- Initialize API return status to success
3593: x_return_status := FND_API.G_RET_STS_SUCCESS;
3594:
3595: -- START OF BODY OF API
3596:
3597: get_baseurl(l_get_baseurl);
3662: --Raising Exception to handle errors in unpacking resulting html file.
3663: IF (l_status = -1) THEN
3664: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
3665: FND_MSG_PUB.Add;
3666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3667: END IF;
3668:
3669: --Raising Exception to handle Servlet related errors.
3670: IF (l_names.COUNT = 0) THEN
3669: --Raising Exception to handle Servlet related errors.
3670: IF (l_names.COUNT = 0) THEN
3671: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
3672: FND_MSG_PUB.Add;
3673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3674: END IF;
3675:
3676: --show_table_debug(l_names);
3677: --show_table_debug(l_values);
3763: END LOOP;
3764:
3765: -- Setting API return status to 'U' if iPayment response status is not 0.
3766: IF (NOT trxn_status_success(x_closebatchrespsum_rec.Response.Status)) THEN
3767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3768: END IF;
3769:
3770: -- END OF BODY OF API
3771:
3770: -- END OF BODY OF API
3771:
3772: -- Standard check of p_commit.
3773: /*
3774: IF FND_API.To_Boolean( p_commit ) THEN
3775: COMMIT WORK;
3776: END IF;
3777: */
3778:
3780: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3781: p_data => x_msg_data
3782: );
3783: EXCEPTION
3784: WHEN FND_API.G_EXC_ERROR THEN
3785: --ROLLBACK TO OraPmtCloseBatch_PUB;
3786: x_return_status := FND_API.G_RET_STS_ERROR ;
3787: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3788: p_data => x_msg_data
3782: );
3783: EXCEPTION
3784: WHEN FND_API.G_EXC_ERROR THEN
3785: --ROLLBACK TO OraPmtCloseBatch_PUB;
3786: x_return_status := FND_API.G_RET_STS_ERROR ;
3787: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3788: p_data => x_msg_data
3789: );
3790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3786: x_return_status := FND_API.G_RET_STS_ERROR ;
3787: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3788: p_data => x_msg_data
3789: );
3790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3791: --ROLLBACK TO OraPmtCloseBatch_PUB;
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3793: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3794: p_data => x_msg_data
3788: p_data => x_msg_data
3789: );
3790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3791: --ROLLBACK TO OraPmtCloseBatch_PUB;
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3793: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3794: p_data => x_msg_data
3795: );
3796: WHEN OTHERS THEN
3794: p_data => x_msg_data
3795: );
3796: WHEN OTHERS THEN
3797: --ROLLBACK TO OraPmtCloseBatch_PUB;
3798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3799: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3800: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3801: END IF;
3802:
3827: -- Initial version 1.0
3828: -- End of comments
3829: --------------------------------------------------------------------------------------------
3830: PROCEDURE OraPmtQueryBatch ( p_api_version IN NUMBER,
3831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3833: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3834: p_ecapp_id IN NUMBER,
3835: p_batchtrxn_rec IN BatchTrxn_rec_type,
3828: -- End of comments
3829: --------------------------------------------------------------------------------------------
3830: PROCEDURE OraPmtQueryBatch ( p_api_version IN NUMBER,
3831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3833: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3834: p_ecapp_id IN NUMBER,
3835: p_batchtrxn_rec IN BatchTrxn_rec_type,
3836: x_return_status OUT NOCOPY VARCHAR2,
3829: --------------------------------------------------------------------------------------------
3830: PROCEDURE OraPmtQueryBatch ( p_api_version IN NUMBER,
3831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3833: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3834: p_ecapp_id IN NUMBER,
3835: p_batchtrxn_rec IN BatchTrxn_rec_type,
3836: x_return_status OUT NOCOPY VARCHAR2,
3837: x_msg_count OUT NOCOPY NUMBER,
3878: /* ***** Performing Validations, Initializations
3879: for Standard IN, OUT Parameters ***** */
3880:
3881: -- Standard call to check for call compatibility.
3882: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3883: p_api_version,
3884: l_api_name,
3885: G_PKG_NAME )
3886: THEN
3885: G_PKG_NAME )
3886: THEN
3887: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3888: FND_MSG_PUB.Add;
3889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3890: END IF;
3891:
3892: -- Initialize message list if p_init_msg_list is set to TRUE.
3893: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3890: END IF;
3891:
3892: -- Initialize message list if p_init_msg_list is set to TRUE.
3893: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3894: FND_MSG_PUB.initialize;
3895: END IF;
3896:
3897: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3897: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3898: IF (p_validation_level <> g_validation_level) THEN
3899: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3900: FND_MSG_PUB.Add;
3901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3902: END IF;
3903:
3904: -- Initialize API return status to success
3905: x_return_status := FND_API.G_RET_STS_SUCCESS;
3901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3902: END IF;
3903:
3904: -- Initialize API return status to success
3905: x_return_status := FND_API.G_RET_STS_SUCCESS;
3906:
3907:
3908: -- START OF BODY OF API
3909:
3964: --Raising Exception to handle errors in unpacking resulting html file.
3965: IF (l_status = -1) THEN
3966: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
3967: FND_MSG_PUB.Add;
3968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3969: END IF;
3970:
3971: --Raising Exception to handle Servlet related errors.
3972: IF (l_names.COUNT = 0) THEN
3971: --Raising Exception to handle Servlet related errors.
3972: IF (l_names.COUNT = 0) THEN
3973: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
3974: FND_MSG_PUB.Add;
3975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3976: END IF;
3977:
3978: --show_table_debug(l_names);
3979: --show_table_debug(l_values);
4058: END LOOP;
4059:
4060: -- Setting API return status to 'U' if iPayment response status is not 0.
4061: IF (NOT trxn_status_success(x_qrybatchrespsum_rec.Response.Status)) THEN
4062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4063: END IF;
4064:
4065: -- END OF BODY OF API
4066:
4066:
4067:
4068: -- Standard check of p_commit.
4069: /*
4070: IF FND_API.To_Boolean( p_commit ) THEN
4071: COMMIT WORK;
4072: END IF;
4073: */
4074:
4076: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4077: p_data => x_msg_data
4078: );
4079: EXCEPTION
4080: WHEN FND_API.G_EXC_ERROR THEN
4081: --ROLLBACK TO OraPmtQueryBatch_PUB;
4082: x_return_status := FND_API.G_RET_STS_ERROR ;
4083: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4084: p_data => x_msg_data
4078: );
4079: EXCEPTION
4080: WHEN FND_API.G_EXC_ERROR THEN
4081: --ROLLBACK TO OraPmtQueryBatch_PUB;
4082: x_return_status := FND_API.G_RET_STS_ERROR ;
4083: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4084: p_data => x_msg_data
4085: );
4086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4082: x_return_status := FND_API.G_RET_STS_ERROR ;
4083: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4084: p_data => x_msg_data
4085: );
4086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4087: --ROLLBACK TO OraPmtQueryBatch_PUB;
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4089: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4090: p_data => x_msg_data
4084: p_data => x_msg_data
4085: );
4086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4087: --ROLLBACK TO OraPmtQueryBatch_PUB;
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4089: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4090: p_data => x_msg_data
4091: );
4092: WHEN OTHERS THEN
4090: p_data => x_msg_data
4091: );
4092: WHEN OTHERS THEN
4093: --ROLLBACK TO OraPmtQueryBatch_PUB;
4094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4095: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4096: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4097: END IF;
4098:
4126: -- Initial version 1.0
4127: -- End of comments
4128: --------------------------------------------------------------------------------------------
4129: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
4130: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4131: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4132: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4133: p_ecapp_id IN NUMBER,
4134: p_payee_rec IN Payee_rec_type,
4127: -- End of comments
4128: --------------------------------------------------------------------------------------------
4129: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
4130: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4131: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4132: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4133: p_ecapp_id IN NUMBER,
4134: p_payee_rec IN Payee_rec_type,
4135: p_payer_rec IN Payer_rec_type,
4128: --------------------------------------------------------------------------------------------
4129: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
4130: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4131: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4132: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4133: p_ecapp_id IN NUMBER,
4134: p_payee_rec IN Payee_rec_type,
4135: p_payer_rec IN Payer_rec_type,
4136: p_pmtinstr_rec IN PmtInstr_rec_type,
4186: --------------------------------------------------------------------------------------------
4187:
4188:
4189: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4190: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4193: p_ecapp_id IN NUMBER,
4194: p_payment_risk_info IN PaymentRiskInfo_rec_type,
4187:
4188:
4189: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4190: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4193: p_ecapp_id IN NUMBER,
4194: p_payment_risk_info IN PaymentRiskInfo_rec_type,
4195: x_return_status OUT NOCOPY VARCHAR2,
4188:
4189: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4190: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4193: p_ecapp_id IN NUMBER,
4194: p_payment_risk_info IN PaymentRiskInfo_rec_type,
4195: x_return_status OUT NOCOPY VARCHAR2,
4196: x_msg_count OUT NOCOPY NUMBER,
4235: /* ***** Performing Validations, Initializations
4236: for Standard IN, OUT Parameters ***** */
4237:
4238: -- Standard call to check for call compatibility.
4239: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4240: p_api_version,
4241: l_api_name,
4242: G_PKG_NAME )
4243: THEN
4242: G_PKG_NAME )
4243: THEN
4244: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
4245: FND_MSG_PUB.Add;
4246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4247: END IF;
4248:
4249: -- Initialize message list if p_init_msg_list is set to TRUE.
4250: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4247: END IF;
4248:
4249: -- Initialize message list if p_init_msg_list is set to TRUE.
4250: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4251: FND_MSG_PUB.initialize;
4252: END IF;
4253:
4254: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4254: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4255: IF (p_validation_level <> g_validation_level) THEN
4256: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
4257: FND_MSG_PUB.Add;
4258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4259: END IF;
4260:
4261:
4262: -- Initialize API return status to success
4259: END IF;
4260:
4261:
4262: -- Initialize API return status to success
4263: x_return_status := FND_API.G_RET_STS_SUCCESS;
4264:
4265:
4266: -- START OF BODY OF API
4267:
4321: --Raising Exception to handle errors in unpacking resulting html file.
4322: IF (l_status = -1) THEN
4323: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4324: FND_MSG_PUB.Add;
4325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4326: END IF;
4327:
4328: --Raising Exception to handle Servlet related errors.
4329: IF (l_names.COUNT = 0) THEN
4328: --Raising Exception to handle Servlet related errors.
4329: IF (l_names.COUNT = 0) THEN
4330: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4331: FND_MSG_PUB.Add;
4332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4333: END IF;
4334:
4335: FOR i IN 1..l_names.COUNT LOOP
4336: --Payment Server Related Generic Response
4355: END LOOP;
4356:
4357: -- Setting API return status to 'U' if EvalRisk response status is not 0.
4358: IF (NOT trxn_status_success(x_risk_resp.Status)) THEN
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: END IF;
4361:
4362: -- END OF BODY OF API
4363:
4362: -- END OF BODY OF API
4363:
4364: -- Standard check of p_commit.
4365: /*
4366: IF FND_API.To_Boolean( p_commit ) THEN
4367: COMMIT WORK;
4368: END IF;
4369: */
4370:
4373: p_data => x_msg_data
4374: );
4375: EXCEPTION
4376:
4377: WHEN FND_API.G_EXC_ERROR THEN
4378: --ROLLBACK TO OraRiskEval_PUB;
4379: x_return_status := FND_API.G_RET_STS_ERROR ;
4380: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4381: p_data => x_msg_data
4375: EXCEPTION
4376:
4377: WHEN FND_API.G_EXC_ERROR THEN
4378: --ROLLBACK TO OraRiskEval_PUB;
4379: x_return_status := FND_API.G_RET_STS_ERROR ;
4380: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4381: p_data => x_msg_data
4382: );
4383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4379: x_return_status := FND_API.G_RET_STS_ERROR ;
4380: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4381: p_data => x_msg_data
4382: );
4383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4384: --ROLLBACK TO OraRiskEval_PUB;
4385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4386: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4387: p_data => x_msg_data
4381: p_data => x_msg_data
4382: );
4383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4384: --ROLLBACK TO OraRiskEval_PUB;
4385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4386: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4387: p_data => x_msg_data
4388: );
4389:
4388: );
4389:
4390: WHEN OTHERS THEN
4391: --ROLLBACK TO OraRiskEval_PUB;
4392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4393: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4394: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4395: END IF;
4396:
4424: -- End of comments
4425:
4426: --------------------------------------------------------------------------------------------
4427: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4428: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4429: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4430: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4431: p_ecapp_id IN NUMBER,
4432: p_avs_risk_info IN AVSRiskInfo_rec_type,
4425:
4426: --------------------------------------------------------------------------------------------
4427: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4428: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4429: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4430: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4431: p_ecapp_id IN NUMBER,
4432: p_avs_risk_info IN AVSRiskInfo_rec_type,
4433: x_return_status OUT NOCOPY VARCHAR2,
4426: --------------------------------------------------------------------------------------------
4427: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4428: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4429: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4430: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4431: p_ecapp_id IN NUMBER,
4432: p_avs_risk_info IN AVSRiskInfo_rec_type,
4433: x_return_status OUT NOCOPY VARCHAR2,
4434: x_msg_count OUT NOCOPY NUMBER,
4471: /* ***** Performing Validations, Initializations
4472: for Standard IN, OUT Parameters ***** */
4473:
4474: -- Standard call to check for call compatibility.
4475: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4476: p_api_version,
4477: l_api_name,
4478: G_PKG_NAME )
4479: THEN
4478: G_PKG_NAME )
4479: THEN
4480: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
4481: FND_MSG_PUB.Add;
4482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4483: END IF;
4484:
4485: -- Initialize message list if p_init_msg_list is set to TRUE.
4486: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4483: END IF;
4484:
4485: -- Initialize message list if p_init_msg_list is set to TRUE.
4486: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4487: FND_MSG_PUB.initialize;
4488: END IF;
4489:
4490: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4490: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4491: IF (p_validation_level <> g_validation_level) THEN
4492: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
4493: FND_MSG_PUB.Add;
4494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4495: END IF;
4496:
4497:
4498: -- Initialize API return status to success
4495: END IF;
4496:
4497:
4498: -- Initialize API return status to success
4499: x_return_status := FND_API.G_RET_STS_SUCCESS;
4500:
4501:
4502: -- START OF BODY OF API
4503:
4547: --Raising Exception to handle errors in unpacking resulting html file.
4548: IF (l_status = -1) THEN
4549: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4550: FND_MSG_PUB.Add;
4551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4552: END IF;
4553:
4554: --Raising Exception to handle Servlet related errors.
4555: IF (l_names.COUNT = 0) THEN
4554: --Raising Exception to handle Servlet related errors.
4555: IF (l_names.COUNT = 0) THEN
4556: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4557: FND_MSG_PUB.Add;
4558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4559: END IF;
4560:
4561: FOR i IN 1..l_names.COUNT LOOP
4562: --Payment Server Related Generic Response
4582: END LOOP;
4583:
4584: -- Setting API return status to 'U' if EvalRisk response status is not 0.
4585: IF (NOT trxn_status_success(x_risk_resp.Status)) THEN
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4587: END IF;
4588:
4589: -- END OF BODY OF API
4590:
4589: -- END OF BODY OF API
4590:
4591: -- Standard check of p_commit.
4592: /*
4593: IF FND_API.To_Boolean( p_commit ) THEN
4594: COMMIT WORK;
4595: END IF;
4596: */
4597:
4601: );
4602: EXCEPTION
4603:
4604:
4605: WHEN FND_API.G_EXC_ERROR THEN
4606: --ROLLBACK TO OraRiskEval_PUB;
4607: x_return_status := FND_API.G_RET_STS_ERROR ;
4608: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4609: p_data => x_msg_data
4603:
4604:
4605: WHEN FND_API.G_EXC_ERROR THEN
4606: --ROLLBACK TO OraRiskEval_PUB;
4607: x_return_status := FND_API.G_RET_STS_ERROR ;
4608: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4609: p_data => x_msg_data
4610: );
4611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4607: x_return_status := FND_API.G_RET_STS_ERROR ;
4608: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4609: p_data => x_msg_data
4610: );
4611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4612: --ROLLBACK TO OraRiskEval_PUB;
4613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4614: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4615: p_data => x_msg_data
4609: p_data => x_msg_data
4610: );
4611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4612: --ROLLBACK TO OraRiskEval_PUB;
4613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4614: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4615: p_data => x_msg_data
4616: );
4617:
4616: );
4617:
4618: WHEN OTHERS THEN
4619: --ROLLBACK TO OraRiskEval_PUB;
4620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4621: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4622: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name, SQLCODE||':'||SQLERRM);
4623: END IF;
4624:
4650: -- Initial version 1.0
4651: -- End of comments
4652:
4653: PROCEDURE OraCCBatchCapture ( p_api_version IN NUMBER,
4654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4655: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4656: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4657: p_ecapp_id IN NUMBER,
4658: p_capturetrxn_rec_tbl IN CaptureTrxn_tbl,
4651: -- End of comments
4652:
4653: PROCEDURE OraCCBatchCapture ( p_api_version IN NUMBER,
4654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4655: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4656: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4657: p_ecapp_id IN NUMBER,
4658: p_capturetrxn_rec_tbl IN CaptureTrxn_tbl,
4659: x_return_status OUT NOCOPY VARCHAR2,
4652:
4653: PROCEDURE OraCCBatchCapture ( p_api_version IN NUMBER,
4654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4655: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4656: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4657: p_ecapp_id IN NUMBER,
4658: p_capturetrxn_rec_tbl IN CaptureTrxn_tbl,
4659: x_return_status OUT NOCOPY VARCHAR2,
4660: x_msg_count OUT NOCOPY NUMBER,
4713:
4714: /* ***** Performing Validations, Initializations
4715: for Standard IN, OUT Parameters ***** */
4716: -- Standard call to check for call compatibility.
4717: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4718: p_api_version,
4719: l_api_name,
4720: G_PKG_NAME )
4721: THEN
4720: G_PKG_NAME )
4721: THEN
4722: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
4723: FND_MSG_PUB.Add;
4724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4725: END IF;
4726:
4727: -- Initialize message list if p_init_msg_list is set to TRUE.
4728: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4725: END IF;
4726:
4727: -- Initialize message list if p_init_msg_list is set to TRUE.
4728: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4729: FND_MSG_PUB.initialize;
4730: END IF;
4731:
4732: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4732: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4733: IF (p_validation_level <> g_validation_level) THEN
4734: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
4735: FND_MSG_PUB.Add;
4736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4737: END IF;
4738:
4739: iby_debug_pub.add('Batch size = ' || p_capturetrxn_rec_tbl.count,
4740: FND_LOG.LEVEL_STATEMENT,
4744: -- The batch size has exceeded the max limit size.
4745: IF (p_capturetrxn_rec_tbl.count > C_MAX_CC_BATCH_SIZE) THEN
4746: FND_MESSAGE.SET_NAME('IBY', 'IBY_204407_VAL_ERROR');
4747: FND_MSG_PUB.Add;
4748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4749: END IF;
4750:
4751: -- Initialize API return status to success
4752: x_return_status := FND_API.G_RET_STS_SUCCESS;
4748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4749: END IF;
4750:
4751: -- Initialize API return status to success
4752: x_return_status := FND_API.G_RET_STS_SUCCESS;
4753:
4754: -- START OF BODY OF API
4755:
4756: get_baseurl(l_get_baseurl);
4925: G_DEBUG_MODULE || '.OraCCBatchCapture');
4926:
4927: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4928: FND_MSG_PUB.Add;
4929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4930: END IF;
4931:
4932: --Raising Exception to handle Servlet related errors.
4933: IF (l_names.COUNT = 0) THEN
4937: G_DEBUG_MODULE || '.OraCCBatchCapture');
4938:
4939: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4940: FND_MSG_PUB.Add;
4941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4942: END IF;
4943: -- Assign output parameters to output record x_capresp_rec_tbl
4944: FOR i IN 1..l_names.COUNT LOOP
4945: l_ret_pos := instr(l_names(i),'-');
5022:
5023: -- Setting API return status to 'U' if response status is not 0.
5024: IF (NOT trxn_status_success(l_batch_status)) THEN
5025:
5026: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5027: --
5028: -- if the batch failed an error message should have been
5029: -- returned
5030: --
5059: FND_LOG.LEVEL_PROCEDURE,
5060: G_DEBUG_MODULE || '.OraCCBatchCapture');
5061:
5062: EXCEPTION
5063: WHEN FND_API.G_EXC_ERROR THEN
5064:
5065: iby_debug_pub.add('In Expected Error',
5066: FND_LOG.LEVEL_ERROR,
5067: G_DEBUG_MODULE || '.OraCCBatchCapture');
5065: iby_debug_pub.add('In Expected Error',
5066: FND_LOG.LEVEL_ERROR,
5067: G_DEBUG_MODULE || '.OraCCBatchCapture');
5068: --ROLLBACK TO OraCCBatchCapture_PUB;
5069: x_return_status := FND_API.G_RET_STS_ERROR ;
5070: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5071: p_data => x_msg_data
5072: );
5073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5069: x_return_status := FND_API.G_RET_STS_ERROR ;
5070: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5071: p_data => x_msg_data
5072: );
5073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5074:
5075: iby_debug_pub.add('In Unexpected Error',
5076: FND_LOG.LEVEL_UNEXPECTED,
5077: G_DEBUG_MODULE || '.OraCCBatchCapture');
5075: iby_debug_pub.add('In Unexpected Error',
5076: FND_LOG.LEVEL_UNEXPECTED,
5077: G_DEBUG_MODULE || '.OraCCBatchCapture');
5078: --ROLLBACK TO OraCCBatchCapture_PUB;
5079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5080: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5081: p_data => x_msg_data
5082: );
5083: WHEN OTHERS THEN
5091: iby_debug_pub.add('Exception message='||SQLERRM,
5092: FND_LOG.LEVEL_UNEXPECTED,
5093: G_DEBUG_MODULE || '.OraCCBatchCapture');
5094:
5095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5096: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5097: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name, SQLCODE||':'||SQLERRM);
5098: END IF;
5099:
5111: -- Parameters :
5112: -- IN : p_commit IN VARCHAR2 Optional
5113: -- p_cvv IN NUMBER Required
5114: --
5115: PROCEDURE OraSecureExtension (p_commit IN VARCHAR2 := FND_API.G_FALSE,
5116: p_cvv IN VARCHAR2,
5117: x_return_status OUT NOCOPY VARCHAR2,
5118: x_msg_count OUT NOCOPY NUMBER,
5119: x_msg_data OUT NOCOPY VARCHAR2,
5155: module => G_DEBUG_MODULE || '.OraSecureExtension');
5156:
5157: --test_debug('OraSecureExtension=> Enter');
5158: -- Initialize API return status to success
5159: x_return_status := FND_API.G_RET_STS_SUCCESS;
5160:
5161: -- START OF BODY OF API
5162:
5163: get_baseurl(l_get_baseurl);
5206: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5207: module => G_DEBUG_MODULE || '.OraSecureExtension');
5208: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
5209: FND_MSG_PUB.Add;
5210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5211: END IF;
5212:
5213: --Raising Exception to handle Servlet related errors.
5214: IF (l_names.COUNT = 0) THEN
5217: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5218: module => G_DEBUG_MODULE || '.OraSecureExtension');
5219: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
5220: FND_MSG_PUB.Add;
5221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5222: END IF;
5223:
5224: /* Retrieve name-value pairs stored in l_names and l_values, and assign
5225: them to the output record: x_reqresp_rec.
5265: --dbms_output.put_line('after successfully mapping results');
5266:
5267: -- Standard check of p_commit.
5268: /*
5269: IF FND_API.To_Boolean( p_commit ) THEN
5270: COMMIT WORK;
5271: END IF;
5272: */
5273:
5276: p_data => x_msg_data
5277: );
5278:
5279: IF (NOT trxn_status_success(x_resp_rec.Response.Status)) THEN
5280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5281: END IF;
5282:
5283: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
5284: debug_level => FND_LOG.LEVEL_STATEMENT,
5293: --test_debug('Exit*******');
5294:
5295: EXCEPTION
5296:
5297: WHEN FND_API.G_EXC_ERROR THEN
5298:
5299: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
5300: debug_level => FND_LOG.LEVEL_ERROR,
5301: module => G_DEBUG_MODULE || '.OraSecureExtension');
5299: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
5300: debug_level => FND_LOG.LEVEL_ERROR,
5301: module => G_DEBUG_MODULE || '.OraSecureExtension');
5302: --ROLLBACK TO OraPmtReq_PUB;
5303: x_return_status := FND_API.G_RET_STS_ERROR ;
5304: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5305: p_data => x_msg_data
5306: );
5307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5303: x_return_status := FND_API.G_RET_STS_ERROR ;
5304: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5305: p_data => x_msg_data
5306: );
5307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5308:
5309: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
5310: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5311: module => G_DEBUG_MODULE || '.OraSecureExtension');
5309: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
5310: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5311: module => G_DEBUG_MODULE || '.OraSecureExtension');
5312: --ROLLBACK TO OraPmtReq_PUB;
5313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5314: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5315: p_data => x_msg_data
5316: );
5317: WHEN OTHERS THEN
5318:
5319: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
5320: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5321: module => G_DEBUG_MODULE || '.OraSecureExtension');
5322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5323: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5324: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5325: END IF;
5326: