[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
191: --
192: -- should return an expected error exception here as missing input is
193: -- considered a "normal" error
194: --
195: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: RAISE FND_API.G_EXC_ERROR;
197: ELSE
198: --Append this
199: p_url := p_url||p_name||'='||
192: -- should return an expected error exception here as missing input is
193: -- considered a "normal" error
194: --
195: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: RAISE FND_API.G_EXC_ERROR;
197: ELSE
198: --Append this
199: p_url := p_url||p_name||'='||
200: iby_netutils_pvt.escape_url_chars(p_value,p_local_nls,p_remote_nls)||'&';
213: --
214: FND_MESSAGE.SET_NAME('IBY', 'IBY_204011');
215: FND_MESSAGE.SET_TOKEN('FIELD', 'NLS_LANG');
216: FND_MSG_PUB.Add;
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: */
219: WHEN OTHERS THEN
220: p_url := l_url;
221:
269: --
270: FND_MESSAGE.SET_NAME('IBY', 'IBY_204011');
271: FND_MESSAGE.SET_TOKEN('FIELD', 'NLS_LANG');
272: FND_MSG_PUB.Add;
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: */
275: WHEN OTHERS THEN
276: p_url := l_url;
277:
364: --------------------------------------------------------------------------------------------
365: FUNCTION Is_RiskInfo_rec_Missing (riskinfo_rec IN Riskinfo_rec_type)
366: RETURN BOOLEAN IS
367: BEGIN
368: IF (riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR) THEN
369: RETURN FALSE;
370: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
371: RETURN FALSE;
372: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
366: RETURN BOOLEAN IS
367: BEGIN
368: IF (riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR) THEN
369: RETURN FALSE;
370: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
371: RETURN FALSE;
372: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
373: RETURN FALSE;
374: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
368: IF (riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR) THEN
369: RETURN FALSE;
370: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
371: RETURN FALSE;
372: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
373: RETURN FALSE;
374: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
375: RETURN FALSE;
376: -- ELSIF (riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) THEN
370: ELSIF (riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
371: RETURN FALSE;
372: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
373: RETURN FALSE;
374: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
375: RETURN FALSE;
376: -- ELSIF (riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) THEN
377: -- RETURN FALSE;
378: ELSE
372: ELSIF (riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
373: RETURN FALSE;
374: ELSIF (riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) THEN
375: RETURN FALSE;
376: -- ELSIF (riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) THEN
377: -- RETURN FALSE;
378: ELSE
379: RETURN TRUE;
380: END IF;
433: --Raising Exception to handle errors if value is missing
434: IF ((x_baseurl IS NULL) OR (trim(x_baseurl) = '')) THEN
435: FND_MESSAGE.SET_NAME('IBY', 'IBY_204406');
436: FND_MSG_PUB.Add;
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439:
440: --appending '?' if not already present in the url
441: p_temp_var := SUBSTR(x_baseurl, -1);
589: --FND_MSG_PUB.Add_Exc_Msg(p_error_text => SQLCODE||':-:'||SQLERRM);
590: FND_MESSAGE.SET_NAME('IBY', 'IBY_0001');
591: FND_MSG_PUB.Add;
592: -- x_return_status := 3 ;
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594:
595: END send_request;
596: --------------------------------------------------------------------------------------------
597: ---*** APIS START BELOW ---***
620: -- Initial version 1.0
621: -- End of comments
622: --------------------------------------------------------------------------------------------
623: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_ecapp_id IN NUMBER,
628: p_payee_rec IN Payee_rec_type,
621: -- End of comments
622: --------------------------------------------------------------------------------------------
623: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_ecapp_id IN NUMBER,
628: p_payee_rec IN Payee_rec_type,
629: p_payer_rec IN Payer_rec_type,
622: --------------------------------------------------------------------------------------------
623: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_ecapp_id IN NUMBER,
628: p_payee_rec IN Payee_rec_type,
629: p_payer_rec IN Payer_rec_type,
630: p_pmtinstr_rec IN PmtInstr_rec_type,
687: /* ***** Performing Validations, Initializations
688: for Standard IN, OUT Parameters ***** */
689:
690: -- Standard call to check for call compatibility.
691: IF NOT FND_API.Compatible_API_Call ( l_api_version,
692: p_api_version,
693: l_api_name,
694: G_PKG_NAME )
695: THEN
694: G_PKG_NAME )
695: THEN
696: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
697: FND_MSG_PUB.Add;
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
699: END IF;
700:
701: -- Initialize message list if p_init_msg_list is set to TRUE.
702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
699: END IF;
700:
701: -- Initialize message list if p_init_msg_list is set to TRUE.
702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
703: FND_MSG_PUB.initialize;
704: END IF;
705:
706: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
706: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
707: IF (p_validation_level <> g_validation_level) THEN
708: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
709: FND_MSG_PUB.Add;
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: END IF;
712:
713: -- Initialize API return status to success
714: x_return_status := FND_API.G_RET_STS_SUCCESS;
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: END IF;
712:
713: -- Initialize API return status to success
714: x_return_status := FND_API.G_RET_STS_SUCCESS;
715:
716: -- START OF BODY OF API
717:
718: get_baseurl(l_get_baseurl);
847:
848: -- RISK INFO OBJECT INPUT PARAMETERS
849:
850: -- Check all Risk related inputs only if Formula_Name is specified.
851: IF (p_riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR)
852: AND (p_riskinfo_rec.Formula_Name IS NOT NULL) THEN
853: check_optional('OapfFormulaName', p_riskinfo_rec.Formula_Name, l_url, l_db_nls, l_ecapp_nls);
854: -- check_optional is not checking for FND_API.G_MISS_CHAR
855: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
850: -- Check all Risk related inputs only if Formula_Name is specified.
851: IF (p_riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR)
852: AND (p_riskinfo_rec.Formula_Name IS NOT NULL) THEN
853: check_optional('OapfFormulaName', p_riskinfo_rec.Formula_Name, l_url, l_db_nls, l_ecapp_nls);
854: -- check_optional is not checking for FND_API.G_MISS_CHAR
855: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
856: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
857: END IF;
858: -- check_optional is not checking for FND_API.G_MISS_CHAR
851: IF (p_riskinfo_rec.Formula_Name <> FND_API.G_MISS_CHAR)
852: AND (p_riskinfo_rec.Formula_Name IS NOT NULL) THEN
853: check_optional('OapfFormulaName', p_riskinfo_rec.Formula_Name, l_url, l_db_nls, l_ecapp_nls);
854: -- check_optional is not checking for FND_API.G_MISS_CHAR
855: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
856: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
857: END IF;
858: -- check_optional is not checking for FND_API.G_MISS_CHAR
859: IF (p_riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
854: -- check_optional is not checking for FND_API.G_MISS_CHAR
855: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
856: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
857: END IF;
858: -- check_optional is not checking for FND_API.G_MISS_CHAR
859: IF (p_riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
860: check_optional('OapfTimeOfPurchase', p_riskinfo_rec.Time_Of_Purchase, l_url, l_db_nls, l_ecapp_nls);
861: END IF;
862:
855: IF (p_riskinfo_rec.ShipToBillTo_Flag <> FND_API.G_MISS_CHAR) THEN
856: check_optional('OapfShipToBillToFlag', p_riskinfo_rec.ShipToBillTo_Flag, l_url, l_db_nls, l_ecapp_nls);
857: END IF;
858: -- check_optional is not checking for FND_API.G_MISS_CHAR
859: IF (p_riskinfo_rec.Time_Of_Purchase <> FND_API.G_MISS_CHAR) THEN
860: check_optional('OapfTimeOfPurchase', p_riskinfo_rec.Time_Of_Purchase, l_url, l_db_nls, l_ecapp_nls);
861: END IF;
862:
863: --NOTE: Customer_Acct_Num and Org_ID are together Mandatory
862:
863: --NOTE: Customer_Acct_Num and Org_ID are together Mandatory
864: --if AR risk factors are to be used.
865: IF ( (p_riskinfo_rec.Customer_Acct_Num IS NOT NULL)
866: AND (p_riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) )
867: -- OR ( (p_riskinfo_rec.Org_ID IS NOT NULL)
868: -- AND (p_riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) )
869: THEN
870: -- check_mandatory('OapfOrgId', to_char(p_riskinfo_rec.Org_ID), l_url, l_db_nls, l_ecapp_nls);
864: --if AR risk factors are to be used.
865: IF ( (p_riskinfo_rec.Customer_Acct_Num IS NOT NULL)
866: AND (p_riskinfo_rec.Customer_Acct_Num <> FND_API.G_MISS_CHAR) )
867: -- OR ( (p_riskinfo_rec.Org_ID IS NOT NULL)
868: -- AND (p_riskinfo_rec.Org_ID <> FND_API.G_MISS_NUM) )
869: THEN
870: -- check_mandatory('OapfOrgId', to_char(p_riskinfo_rec.Org_ID), l_url, l_db_nls, l_ecapp_nls);
871: check_mandatory('OapfCustAccountNum', p_riskinfo_rec.Customer_Acct_Num, l_url, l_db_nls, l_ecapp_nls);
872: END IF;
910: debug_level => FND_LOG.LEVEL_UNEXPECTED,
911: module => G_DEBUG_MODULE || '.OraPmtReq');
912: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
913: FND_MSG_PUB.Add;
914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
915: END IF;
916:
917: --Raising Exception to handle Servlet related errors.
918: IF (l_names.COUNT = 0) THEN
920: debug_level => FND_LOG.LEVEL_UNEXPECTED,
921: module => G_DEBUG_MODULE || '.OraPmtReq');
922: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
923: FND_MSG_PUB.Add;
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
925: END IF;
926:
927: /* Retrieve name-value pairs stored in l_names and l_values, and assign
928: them to the output record: x_reqresp_rec.
1036: END IF;
1037:
1038: -- Setting API return status to 'U' if iPayment response status is not 0.
1039: IF (NOT trxn_status_success(x_reqresp_rec.Response.Status)) THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: END IF;
1042:
1043: -- END OF BODY OF API
1044:
1046: --dbms_output.put_line('after successfully mapping results');
1047:
1048: -- Standard check of p_commit.
1049: /*
1050: IF FND_API.To_Boolean( p_commit ) THEN
1051: COMMIT WORK;
1052: END IF;
1053: */
1054:
1069: module => G_DEBUG_MODULE || '.OraPmtReq');
1070:
1071: EXCEPTION
1072:
1073: WHEN FND_API.G_EXC_ERROR THEN
1074:
1075: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1076: debug_level => FND_LOG.LEVEL_ERROR,
1077: module => G_DEBUG_MODULE || '.OraPmtReq');
1075: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1076: debug_level => FND_LOG.LEVEL_ERROR,
1077: module => G_DEBUG_MODULE || '.OraPmtReq');
1078: --ROLLBACK TO OraPmtReq_PUB;
1079: x_return_status := FND_API.G_RET_STS_ERROR ;
1080: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1081: p_data => x_msg_data
1082: );
1083: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1079: x_return_status := FND_API.G_RET_STS_ERROR ;
1080: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1081: p_data => x_msg_data
1082: );
1083: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1084:
1085: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1086: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1087: module => G_DEBUG_MODULE || '.OraPmtReq');
1085: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1086: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1087: module => G_DEBUG_MODULE || '.OraPmtReq');
1088: --ROLLBACK TO OraPmtReq_PUB;
1089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1090: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1091: p_data => x_msg_data
1092: );
1093: WHEN OTHERS THEN
1095: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1096: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1097: module => G_DEBUG_MODULE || '.OraPmtReq');
1098: --ROLLBACK TO OraPmtReq_PUB;
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1100: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1101: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1102: END IF;
1103:
1139: -- Initial version 1.0
1140: -- End of comments
1141: --------------------------------------------------------------------------------------------
1142: PROCEDURE OraPmtMod ( p_api_version IN NUMBER,
1143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1146: p_ecapp_id IN NUMBER,
1147: p_payee_rec IN Payee_rec_type,
1140: -- End of comments
1141: --------------------------------------------------------------------------------------------
1142: PROCEDURE OraPmtMod ( p_api_version IN NUMBER,
1143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1146: p_ecapp_id IN NUMBER,
1147: p_payee_rec IN Payee_rec_type,
1148: p_payer_rec IN Payer_rec_type,
1141: --------------------------------------------------------------------------------------------
1142: PROCEDURE OraPmtMod ( p_api_version IN NUMBER,
1143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1146: p_ecapp_id IN NUMBER,
1147: p_payee_rec IN Payee_rec_type,
1148: p_payer_rec IN Payer_rec_type,
1149: p_pmtinstr_rec IN PmtInstr_rec_type,
1192: /* ***** Performing Validations, Initializations
1193: for Standard IN, OUT Parameters ***** */
1194:
1195: -- Standard call to check for call compatibility.
1196: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1197: p_api_version,
1198: l_api_name,
1199: G_PKG_NAME )
1200: THEN
1199: G_PKG_NAME )
1200: THEN
1201: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1202: FND_MSG_PUB.Add;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: END IF;
1205:
1206: -- Initialize message list if p_init_msg_list is set to TRUE.
1207: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: END IF;
1205:
1206: -- Initialize message list if p_init_msg_list is set to TRUE.
1207: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1208: FND_MSG_PUB.initialize;
1209: END IF;
1210:
1211: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1211: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1212: IF (p_validation_level <> g_validation_level) THEN
1213: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1214: FND_MSG_PUB.Add;
1215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1216: END IF;
1217:
1218: -- Initialize API return status to success
1219: x_return_status := FND_API.G_RET_STS_SUCCESS;
1215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1216: END IF;
1217:
1218: -- Initialize API return status to success
1219: x_return_status := FND_API.G_RET_STS_SUCCESS;
1220:
1221: -- START OF BODY OF API
1222:
1223: get_baseurl(l_get_baseurl);
1314: --Raising Exception to handle errors in unpacking resulting html file.
1315: IF (l_status = -1) THEN
1316: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1317: FND_MSG_PUB.Add;
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1320:
1321: --Raising Exception to handle Servlet related errors.
1322: IF (l_names.COUNT = 0) THEN
1321: --Raising Exception to handle Servlet related errors.
1322: IF (l_names.COUNT = 0) THEN
1323: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1324: FND_MSG_PUB.Add;
1325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1326: END IF;
1327:
1328: /* Retrieve name-value pairs stored in l_names and l_values, and assign
1329: them to the output record: x_modresp_rec.
1345: END LOOP;
1346:
1347: -- Setting API return status to 'U' if iPayment response status is not 0.
1348: IF (NOT trxn_status_success(x_modresp_rec.Response.Status)) THEN
1349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1350: END IF;
1351:
1352: -- END OF BODY OF API
1353:
1352: -- END OF BODY OF API
1353:
1354: -- Standard check of p_commit.
1355: /*
1356: IF FND_API.To_Boolean( p_commit ) THEN
1357: COMMIT WORK;
1358: END IF;
1359: */
1360:
1364: );
1365: EXCEPTION
1366:
1367:
1368: WHEN FND_API.G_EXC_ERROR THEN
1369: --ROLLBACK TO OraPmtMod_PUB;
1370: x_return_status := FND_API.G_RET_STS_ERROR ;
1371: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1372: p_data => x_msg_data
1366:
1367:
1368: WHEN FND_API.G_EXC_ERROR THEN
1369: --ROLLBACK TO OraPmtMod_PUB;
1370: x_return_status := FND_API.G_RET_STS_ERROR ;
1371: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1372: p_data => x_msg_data
1373: );
1374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1370: x_return_status := FND_API.G_RET_STS_ERROR ;
1371: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1372: p_data => x_msg_data
1373: );
1374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1375: --ROLLBACK TO OraPmtMod_PUB;
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1377: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1378: p_data => x_msg_data
1372: p_data => x_msg_data
1373: );
1374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1375: --ROLLBACK TO OraPmtMod_PUB;
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1377: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1378: p_data => x_msg_data
1379: );
1380: WHEN OTHERS THEN
1378: p_data => x_msg_data
1379: );
1380: WHEN OTHERS THEN
1381: --ROLLBACK TO OraPmtMod_PUB;
1382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1384: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1385: END IF;
1386:
1410: -- Initial version 1.0
1411: -- End of comments
1412: --------------------------------------------------------------------------------------------
1413: PROCEDURE OraPmtCanc ( p_api_version IN NUMBER,
1414: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1415: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1416: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1417: p_ecapp_id IN NUMBER,
1418: p_canctrxn_rec IN CancelTrxn_rec_type,
1411: -- End of comments
1412: --------------------------------------------------------------------------------------------
1413: PROCEDURE OraPmtCanc ( p_api_version IN NUMBER,
1414: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1415: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1416: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1417: p_ecapp_id IN NUMBER,
1418: p_canctrxn_rec IN CancelTrxn_rec_type,
1419: x_return_status OUT NOCOPY VARCHAR2,
1412: --------------------------------------------------------------------------------------------
1413: PROCEDURE OraPmtCanc ( p_api_version IN NUMBER,
1414: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1415: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1416: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1417: p_ecapp_id IN NUMBER,
1418: p_canctrxn_rec IN CancelTrxn_rec_type,
1419: x_return_status OUT NOCOPY VARCHAR2,
1420: x_msg_count OUT NOCOPY NUMBER,
1464: /* ***** Performing Validations, Initializations
1465: for Standard IN, OUT Parameters ***** */
1466:
1467: -- Standard call to check for call compatibility.
1468: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1469: p_api_version,
1470: l_api_name,
1471: G_PKG_NAME )
1472: THEN
1471: G_PKG_NAME )
1472: THEN
1473: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1474: FND_MSG_PUB.Add;
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1477:
1478: -- Initialize message list if p_init_msg_list is set to TRUE.
1479: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END IF;
1477:
1478: -- Initialize message list if p_init_msg_list is set to TRUE.
1479: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1480: FND_MSG_PUB.initialize;
1481: END IF;
1482:
1483: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1483: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1484: IF (p_validation_level <> g_validation_level) THEN
1485: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1486: FND_MSG_PUB.Add;
1487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1488: END IF;
1489:
1490: -- Initialize API return status to success
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1488: END IF;
1489:
1490: -- Initialize API return status to success
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1492:
1493: -- START OF BODY OF API
1494:
1495: get_baseurl(l_get_baseurl);
1520:
1521: IF (pmtcanc_csr%ROWCOUNT = 0) THEN
1522: FND_MESSAGE.SET_NAME('IBY', 'IBY_204404_CURSOR_ERROR');
1523: FND_MSG_PUB.Add;
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: END IF;
1526:
1527: CLOSE pmtcanc_csr;
1528: --dbms_output.put_line('after closing cursor');
1550: --Raising Exception to handle errors in unpacking resulting html file.
1551: IF (l_status = -1) THEN
1552: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1553: FND_MSG_PUB.Add;
1554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1555: END IF;
1556:
1557: --Raising Exception to handle Servlet related errors.
1558: IF (l_names.COUNT = 0) THEN
1557: --Raising Exception to handle Servlet related errors.
1558: IF (l_names.COUNT = 0) THEN
1559: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1560: FND_MSG_PUB.Add;
1561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1562: END IF;
1563:
1564: --show_table_debug(l_names);
1565: --show_table_debug(l_values);
1594: END LOOP;
1595:
1596: -- Setting API return status to 'U' if iPayment response status is not 0.
1597: IF (NOT trxn_status_success(x_cancresp_rec.Response.Status)) THEN
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: END IF;
1600:
1601: -- END OF BODY OF API
1602:
1601: -- END OF BODY OF API
1602:
1603: -- Standard check of p_commit.
1604: /*
1605: IF FND_API.To_Boolean( p_commit ) THEN
1606: COMMIT WORK;
1607: END IF;
1608: */
1609:
1611: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1612: p_data => x_msg_data
1613: );
1614: EXCEPTION
1615: WHEN FND_API.G_EXC_ERROR THEN
1616: --ROLLBACK TO OraPmtCanc_PUB;
1617: x_return_status := FND_API.G_RET_STS_ERROR ;
1618: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1619: p_data => x_msg_data
1613: );
1614: EXCEPTION
1615: WHEN FND_API.G_EXC_ERROR THEN
1616: --ROLLBACK TO OraPmtCanc_PUB;
1617: x_return_status := FND_API.G_RET_STS_ERROR ;
1618: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1619: p_data => x_msg_data
1620: );
1621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1617: x_return_status := FND_API.G_RET_STS_ERROR ;
1618: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1619: p_data => x_msg_data
1620: );
1621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1622: --ROLLBACK TO OraPmtCanc_PUB;
1623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1624: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1625: p_data => x_msg_data
1619: p_data => x_msg_data
1620: );
1621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1622: --ROLLBACK TO OraPmtCanc_PUB;
1623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1624: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1625: p_data => x_msg_data
1626: );
1627: WHEN OTHERS THEN
1625: p_data => x_msg_data
1626: );
1627: WHEN OTHERS THEN
1628: --ROLLBACK TO OraPmtCanc_PUB;
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1630: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1631: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1632: END IF;
1633:
1658: -- Initial version 1.0
1659: -- End of comments
1660: --------------------------------------------------------------------------------------------
1661: PROCEDURE OraPmtQryTrxn ( p_api_version IN NUMBER,
1662: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1663: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1664: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1665: p_ecapp_id IN NUMBER,
1666: p_querytrxn_rec IN QueryTrxn_rec_type,
1659: -- End of comments
1660: --------------------------------------------------------------------------------------------
1661: PROCEDURE OraPmtQryTrxn ( p_api_version IN NUMBER,
1662: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1663: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1664: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1665: p_ecapp_id IN NUMBER,
1666: p_querytrxn_rec IN QueryTrxn_rec_type,
1667: x_return_status OUT NOCOPY VARCHAR2,
1660: --------------------------------------------------------------------------------------------
1661: PROCEDURE OraPmtQryTrxn ( p_api_version IN NUMBER,
1662: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1663: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1664: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1665: p_ecapp_id IN NUMBER,
1666: p_querytrxn_rec IN QueryTrxn_rec_type,
1667: x_return_status OUT NOCOPY VARCHAR2,
1668: x_msg_count OUT NOCOPY NUMBER,
1716: /* ***** Performing Validations, Initializations
1717: for Standard IN, OUT Parameters ***** */
1718:
1719: -- Standard call to check for call compatibility.
1720: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1721: p_api_version,
1722: l_api_name,
1723: G_PKG_NAME )
1724: THEN
1723: G_PKG_NAME )
1724: THEN
1725: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
1726: FND_MSG_PUB.Add;
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: END IF;
1729:
1730: -- Initialize message list if p_init_msg_list is set to TRUE.
1731: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: END IF;
1729:
1730: -- Initialize message list if p_init_msg_list is set to TRUE.
1731: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1732: FND_MSG_PUB.initialize;
1733: END IF;
1734:
1735: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1735: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
1736: IF (p_validation_level <> g_validation_level) THEN
1737: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
1738: FND_MSG_PUB.Add;
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740: END IF;
1741:
1742:
1743: -- Initialize API return status to success
1740: END IF;
1741:
1742:
1743: -- Initialize API return status to success
1744: x_return_status := FND_API.G_RET_STS_SUCCESS;
1745:
1746: -- START OF BODY OF API
1747:
1748: get_baseurl(l_get_baseurl);
1773:
1774: IF (pmtqrytrxn_csr%ROWCOUNT = 0) THEN
1775: FND_MESSAGE.SET_NAME('IBY', 'IBY_204404_CURSOR_ERROR');
1776: FND_MSG_PUB.Add;
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END IF;
1779:
1780: CLOSE pmtqrytrxn_csr;
1781: --dbms_output.put_line('after closing cursor');
1807: --Raising Exception to handle errors in unpacking resulting html file.
1808: IF (l_status = -1) THEN
1809: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1810: FND_MSG_PUB.Add;
1811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1812: END IF;
1813:
1814: --Raising Exception to handle Servlet related errors.
1815: IF (l_names.COUNT = 0) THEN
1814: --Raising Exception to handle Servlet related errors.
1815: IF (l_names.COUNT = 0) THEN
1816: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1817: FND_MSG_PUB.Add;
1818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1819: END IF;
1820:
1821: --show_table_debug(l_names);
1822: --show_table_debug(l_values);
1900: END LOOP;
1901:
1902: -- Setting API return status to 'U' if iPayment response status is not 0.
1903: IF (NOT trxn_status_success(x_qrytrxnrespsum_rec.Response.Status)) THEN
1904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1905: END IF;
1906:
1907: -- END OF BODY OF API
1908:
1908:
1909:
1910: -- Standard check of p_commit.
1911: /*
1912: IF FND_API.To_Boolean( p_commit ) THEN
1913: COMMIT WORK;
1914: END IF;
1915: */
1916:
1918: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1919: p_data => x_msg_data
1920: );
1921: EXCEPTION
1922: WHEN FND_API.G_EXC_ERROR THEN
1923: --ROLLBACK TO OraPmtQryTrxn_PUB;
1924: x_return_status := FND_API.G_RET_STS_ERROR ;
1925: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1926: p_data => x_msg_data
1920: );
1921: EXCEPTION
1922: WHEN FND_API.G_EXC_ERROR THEN
1923: --ROLLBACK TO OraPmtQryTrxn_PUB;
1924: x_return_status := FND_API.G_RET_STS_ERROR ;
1925: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1926: p_data => x_msg_data
1927: );
1928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1924: x_return_status := FND_API.G_RET_STS_ERROR ;
1925: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1926: p_data => x_msg_data
1927: );
1928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1929: --ROLLBACK TO OraPmtQryTrxn_PUB;
1930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1931: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1932: p_data => x_msg_data
1926: p_data => x_msg_data
1927: );
1928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1929: --ROLLBACK TO OraPmtQryTrxn_PUB;
1930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1931: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1932: p_data => x_msg_data
1933: );
1934: WHEN OTHERS THEN
1932: p_data => x_msg_data
1933: );
1934: WHEN OTHERS THEN
1935: --ROLLBACK TO OraPmtQryTrxn_PUB;
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1937: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1938: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1939: END IF;
1940:
1965: -- Initial version 1.0
1966: -- End of comments
1967: --------------------------------------------------------------------------------------------
1968: PROCEDURE OraPmtCapture ( p_api_version IN NUMBER,
1969: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1970: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1971: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1972: p_ecapp_id IN NUMBER,
1973: p_capturetrxn_rec IN CaptureTrxn_rec_type,
1966: -- End of comments
1967: --------------------------------------------------------------------------------------------
1968: PROCEDURE OraPmtCapture ( p_api_version IN NUMBER,
1969: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1970: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1971: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1972: p_ecapp_id IN NUMBER,
1973: p_capturetrxn_rec IN CaptureTrxn_rec_type,
1974: x_return_status OUT NOCOPY VARCHAR2,
1967: --------------------------------------------------------------------------------------------
1968: PROCEDURE OraPmtCapture ( p_api_version IN NUMBER,
1969: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1970: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1971: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1972: p_ecapp_id IN NUMBER,
1973: p_capturetrxn_rec IN CaptureTrxn_rec_type,
1974: x_return_status OUT NOCOPY VARCHAR2,
1975: x_msg_count OUT NOCOPY NUMBER,
2012: /* ***** Performing Validations, Initializations
2013: for Standard IN, OUT Parameters ***** */
2014:
2015: -- Standard call to check for call compatibility.
2016: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2017: p_api_version,
2018: l_api_name,
2019: G_PKG_NAME )
2020: THEN
2019: G_PKG_NAME )
2020: THEN
2021: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2022: FND_MSG_PUB.Add;
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2025:
2026: -- Initialize message list if p_init_msg_list is set to TRUE.
2027: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2025:
2026: -- Initialize message list if p_init_msg_list is set to TRUE.
2027: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2028: FND_MSG_PUB.initialize;
2029: END IF;
2030:
2031: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2031: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2032: IF (p_validation_level <> g_validation_level) THEN
2033: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2034: FND_MSG_PUB.Add;
2035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2036: END IF;
2037:
2038: -- Initialize API return status to success
2039: x_return_status := FND_API.G_RET_STS_SUCCESS;
2035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2036: END IF;
2037:
2038: -- Initialize API return status to success
2039: x_return_status := FND_API.G_RET_STS_SUCCESS;
2040:
2041: -- START OF BODY OF API
2042:
2043: get_baseurl(l_get_baseurl);
2099: --Raising Exception to handle errors in unpacking resulting html file.
2100: IF (l_status = -1) THEN
2101: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2102: FND_MSG_PUB.Add;
2103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2104: END IF;
2105:
2106: --Raising Exception to handle Servlet related errors.
2107: IF (l_names.COUNT = 0) THEN
2106: --Raising Exception to handle Servlet related errors.
2107: IF (l_names.COUNT = 0) THEN
2108: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2109: FND_MSG_PUB.Add;
2110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2111: END IF;
2112:
2113: -- Assign output parameters to output record x_capresp_rec
2114: FOR i IN 1..l_names.COUNT LOOP
2151: END LOOP;
2152:
2153: -- Setting API return status to 'U' if iPayment response status is not 0.
2154: IF (NOT trxn_status_success(x_capresp_rec.Response.Status)) THEN
2155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2156: END IF;
2157:
2158: -- END OF BODY OF API
2159:
2158: -- END OF BODY OF API
2159:
2160: -- Standard check of p_commit.
2161: /*
2162: IF FND_API.To_Boolean( p_commit ) THEN
2163: COMMIT WORK;
2164: END IF;
2165: */
2166:
2168: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2169: p_data => x_msg_data
2170: );
2171: EXCEPTION
2172: WHEN FND_API.G_EXC_ERROR THEN
2173: --ROLLBACK TO OraPmtCapture_PUB;
2174: x_return_status := FND_API.G_RET_STS_ERROR ;
2175: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2176: p_data => x_msg_data
2170: );
2171: EXCEPTION
2172: WHEN FND_API.G_EXC_ERROR THEN
2173: --ROLLBACK TO OraPmtCapture_PUB;
2174: x_return_status := FND_API.G_RET_STS_ERROR ;
2175: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2176: p_data => x_msg_data
2177: );
2178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2174: x_return_status := FND_API.G_RET_STS_ERROR ;
2175: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2176: p_data => x_msg_data
2177: );
2178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2179: --ROLLBACK TO OraPmtCapture_PUB;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2181: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2182: p_data => x_msg_data
2176: p_data => x_msg_data
2177: );
2178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2179: --ROLLBACK TO OraPmtCapture_PUB;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2181: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2182: p_data => x_msg_data
2183: );
2184: WHEN OTHERS THEN
2182: p_data => x_msg_data
2183: );
2184: WHEN OTHERS THEN
2185: --ROLLBACK TO OraPmtCapture_PUB;
2186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2187: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2188: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2189: END IF;
2190:
2215: -- Initial version 1.0
2216: -- End of comments
2217: --------------------------------------------------------------------------------------------
2218: PROCEDURE OraPmtReturn ( p_api_version IN NUMBER,
2219: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2220: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2221: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2222: p_ecapp_id IN NUMBER,
2223: p_returntrxn_rec IN ReturnTrxn_rec_type,
2216: -- End of comments
2217: --------------------------------------------------------------------------------------------
2218: PROCEDURE OraPmtReturn ( p_api_version IN NUMBER,
2219: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2220: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2221: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2222: p_ecapp_id IN NUMBER,
2223: p_returntrxn_rec IN ReturnTrxn_rec_type,
2224: x_return_status OUT NOCOPY VARCHAR2,
2217: --------------------------------------------------------------------------------------------
2218: PROCEDURE OraPmtReturn ( p_api_version IN NUMBER,
2219: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2220: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2221: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2222: p_ecapp_id IN NUMBER,
2223: p_returntrxn_rec IN ReturnTrxn_rec_type,
2224: x_return_status OUT NOCOPY VARCHAR2,
2225: x_msg_count OUT NOCOPY NUMBER,
2262: /* ***** Performing Validations, Initializations
2263: for Standard IN, OUT Parameters ***** */
2264:
2265: -- Standard call to check for call compatibility.
2266: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2267: p_api_version,
2268: l_api_name,
2269: G_PKG_NAME )
2270: THEN
2269: G_PKG_NAME )
2270: THEN
2271: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2272: FND_MSG_PUB.Add;
2273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2274: END IF;
2275:
2276: -- Initialize message list if p_init_msg_list is set to TRUE.
2277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2274: END IF;
2275:
2276: -- Initialize message list if p_init_msg_list is set to TRUE.
2277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2278: FND_MSG_PUB.initialize;
2279: END IF;
2280:
2281: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2281: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2282: IF (p_validation_level <> g_validation_level) THEN
2283: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2284: FND_MSG_PUB.Add;
2285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2286: END IF;
2287:
2288:
2289: -- Initialize API return status to success
2286: END IF;
2287:
2288:
2289: -- Initialize API return status to success
2290: x_return_status := FND_API.G_RET_STS_SUCCESS;
2291:
2292: -- START OF BODY OF API
2293:
2294: get_baseurl(l_get_baseurl);
2344: --Raising Exception to handle errors in unpacking resulting html file.
2345: IF (l_status = -1) THEN
2346: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2347: FND_MSG_PUB.Add;
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: END IF;
2350:
2351: --Raising Exception to handle Servlet related errors.
2352: IF (l_names.COUNT = 0) THEN
2351: --Raising Exception to handle Servlet related errors.
2352: IF (l_names.COUNT = 0) THEN
2353: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2354: FND_MSG_PUB.Add;
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2357:
2358: -- Assign output parameters to output record x_retresp_rec
2359: FOR i IN 1..l_names.COUNT LOOP
2395: END LOOP;
2396:
2397: -- Setting API return status to 'U' if iPayment response status is not 0.
2398: IF (NOT trxn_status_success(x_retresp_rec.Response.Status)) THEN
2399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2400: END IF;
2401:
2402: -- END OF BODY OF API
2403:
2402: -- END OF BODY OF API
2403:
2404: -- Standard check of p_commit.
2405: /*
2406: IF FND_API.To_Boolean( p_commit ) THEN
2407: COMMIT WORK;
2408: END IF;
2409: */
2410:
2412: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2413: p_data => x_msg_data
2414: );
2415: EXCEPTION
2416: WHEN FND_API.G_EXC_ERROR THEN
2417: --ROLLBACK TO OraPmtReturn_PUB;
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2420: p_data => x_msg_data
2414: );
2415: EXCEPTION
2416: WHEN FND_API.G_EXC_ERROR THEN
2417: --ROLLBACK TO OraPmtReturn_PUB;
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2420: p_data => x_msg_data
2421: );
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2420: p_data => x_msg_data
2421: );
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2423: --ROLLBACK TO OraPmtReturn_PUB;
2424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2425: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2426: p_data => x_msg_data
2420: p_data => x_msg_data
2421: );
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2423: --ROLLBACK TO OraPmtReturn_PUB;
2424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2425: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2426: p_data => x_msg_data
2427: );
2428: WHEN OTHERS THEN
2426: p_data => x_msg_data
2427: );
2428: WHEN OTHERS THEN
2429: --ROLLBACK TO OraPmtReturn_PUB;
2430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2431: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2432: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2433: END IF;
2434:
2460: -- Initial version 1.0
2461: -- End of comments
2462: --------------------------------------------------------------------------------------------
2463: PROCEDURE OraPmtVoid ( p_api_version IN NUMBER,
2464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2466: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2467: p_ecapp_id IN NUMBER,
2468: p_voidtrxn_rec IN VoidTrxn_rec_type,
2461: -- End of comments
2462: --------------------------------------------------------------------------------------------
2463: PROCEDURE OraPmtVoid ( p_api_version IN NUMBER,
2464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2466: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2467: p_ecapp_id IN NUMBER,
2468: p_voidtrxn_rec IN VoidTrxn_rec_type,
2469: x_return_status OUT NOCOPY VARCHAR2,
2462: --------------------------------------------------------------------------------------------
2463: PROCEDURE OraPmtVoid ( p_api_version IN NUMBER,
2464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2466: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2467: p_ecapp_id IN NUMBER,
2468: p_voidtrxn_rec IN VoidTrxn_rec_type,
2469: x_return_status OUT NOCOPY VARCHAR2,
2470: x_msg_count OUT NOCOPY NUMBER,
2507: /* ***** Performing Validations, Initializations
2508: for Standard IN, OUT Parameters ***** */
2509:
2510: -- Standard call to check for call compatibility.
2511: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2512: p_api_version,
2513: l_api_name,
2514: G_PKG_NAME )
2515: THEN
2514: G_PKG_NAME )
2515: THEN
2516: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2517: FND_MSG_PUB.Add;
2518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2519: END IF;
2520:
2521: -- Initialize message list if p_init_msg_list is set to TRUE.
2522: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2519: END IF;
2520:
2521: -- Initialize message list if p_init_msg_list is set to TRUE.
2522: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2523: FND_MSG_PUB.initialize;
2524: END IF;
2525:
2526: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2526: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2527: IF (p_validation_level <> g_validation_level) THEN
2528: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2529: FND_MSG_PUB.Add;
2530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2531: END IF;
2532:
2533: -- Initialize API return status to success
2534: x_return_status := FND_API.G_RET_STS_SUCCESS;
2530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2531: END IF;
2532:
2533: -- Initialize API return status to success
2534: x_return_status := FND_API.G_RET_STS_SUCCESS;
2535:
2536: -- START OF BODY OF API
2537:
2538: get_baseurl(l_get_baseurl);
2596: --Raising Exception to handle errors in unpacking resulting html file.
2597: IF (l_status = -1) THEN
2598: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2599: FND_MSG_PUB.Add;
2600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2601: END IF;
2602:
2603: --Raising Exception to handle Servlet related errors.
2604: IF (l_names.COUNT = 0) THEN
2603: --Raising Exception to handle Servlet related errors.
2604: IF (l_names.COUNT = 0) THEN
2605: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2606: FND_MSG_PUB.Add;
2607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2608: END IF;
2609:
2610: --dbms_output.put_line('after successful unpacking');
2611:
2666: END IF;
2667:
2668: -- Setting API return status to 'U' if iPayment response status is not 0.
2669: IF (NOT trxn_status_success(x_voidresp_rec.Response.Status)) THEN
2670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2671: END IF;
2672:
2673: -- END OF BODY OF API
2674:
2674:
2675:
2676: -- Standard check of p_commit.
2677: /*
2678: IF FND_API.To_Boolean( p_commit ) THEN
2679: COMMIT WORK;
2680: END IF;
2681: */
2682:
2684: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2685: p_data => x_msg_data
2686: );
2687: EXCEPTION
2688: WHEN FND_API.G_EXC_ERROR THEN
2689: --ROLLBACK TO OraPmtVoid_PUB;
2690: x_return_status := FND_API.G_RET_STS_ERROR ;
2691: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2692: p_data => x_msg_data
2686: );
2687: EXCEPTION
2688: WHEN FND_API.G_EXC_ERROR THEN
2689: --ROLLBACK TO OraPmtVoid_PUB;
2690: x_return_status := FND_API.G_RET_STS_ERROR ;
2691: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2692: p_data => x_msg_data
2693: );
2694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2690: x_return_status := FND_API.G_RET_STS_ERROR ;
2691: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2692: p_data => x_msg_data
2693: );
2694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2695: --ROLLBACK TO OraPmtVoid_PUB;
2696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2697: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2698: p_data => x_msg_data
2692: p_data => x_msg_data
2693: );
2694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2695: --ROLLBACK TO OraPmtVoid_PUB;
2696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2697: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2698: p_data => x_msg_data
2699: );
2700: WHEN OTHERS THEN
2698: p_data => x_msg_data
2699: );
2700: WHEN OTHERS THEN
2701: --ROLLBACK TO OraPmtVoid_PUB;
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2703: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2704: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2705: END IF;
2706:
2734: -- Initial version 1.0
2735: -- End of comments
2736: --------------------------------------------------------------------------------------------
2737: PROCEDURE OraPmtCredit ( p_api_version IN NUMBER,
2738: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2739: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2740: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2741: p_ecapp_id IN NUMBER,
2742: p_payee_rec IN Payee_rec_type,
2735: -- End of comments
2736: --------------------------------------------------------------------------------------------
2737: PROCEDURE OraPmtCredit ( p_api_version IN NUMBER,
2738: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2739: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2740: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2741: p_ecapp_id IN NUMBER,
2742: p_payee_rec IN Payee_rec_type,
2743: p_pmtinstr_rec IN PmtInstr_rec_type,
2736: --------------------------------------------------------------------------------------------
2737: PROCEDURE OraPmtCredit ( p_api_version IN NUMBER,
2738: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2739: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2740: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2741: p_ecapp_id IN NUMBER,
2742: p_payee_rec IN Payee_rec_type,
2743: p_pmtinstr_rec IN PmtInstr_rec_type,
2744: p_tangible_rec IN Tangible_rec_type,
2786: /* ***** Performing Validations, Initializations
2787: for Standard IN, OUT Parameters ***** */
2788:
2789: -- Standard call to check for call compatibility.
2790: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2791: p_api_version,
2792: l_api_name,
2793: G_PKG_NAME )
2794: THEN
2793: G_PKG_NAME )
2794: THEN
2795: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
2796: FND_MSG_PUB.Add;
2797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2798: END IF;
2799:
2800: -- Initialize message list if p_init_msg_list is set to TRUE.
2801: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2798: END IF;
2799:
2800: -- Initialize message list if p_init_msg_list is set to TRUE.
2801: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2802: FND_MSG_PUB.initialize;
2803: END IF;
2804:
2805: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2805: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
2806: IF (p_validation_level <> g_validation_level) THEN
2807: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
2808: FND_MSG_PUB.Add;
2809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2810: END IF;
2811:
2812: -- Initialize API return status to success
2813: x_return_status := FND_API.G_RET_STS_SUCCESS;
2809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2810: END IF;
2811:
2812: -- Initialize API return status to success
2813: x_return_status := FND_API.G_RET_STS_SUCCESS;
2814:
2815:
2816: -- START OF BODY OF API
2817:
2907: --Raising Exception to handle errors in unpacking resulting html file.
2908: IF (l_status = -1) THEN
2909: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
2910: FND_MSG_PUB.Add;
2911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2912: END IF;
2913:
2914: --Raising Exception to handle Servlet related errors.
2915: IF (l_names.COUNT = 0) THEN
2914: --Raising Exception to handle Servlet related errors.
2915: IF (l_names.COUNT = 0) THEN
2916: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
2917: FND_MSG_PUB.Add;
2918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2919: END IF;
2920:
2921: --show_table_debug(l_names);
2922: --show_table_debug(l_values);
2962: END LOOP;
2963:
2964: -- Setting API return status to 'U' if iPayment response status is not 0.
2965: IF (NOT trxn_status_success(x_creditresp_rec.Response.Status)) THEN
2966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2967: END IF;
2968:
2969: -- END OF BODY OF API
2970:
2969: -- END OF BODY OF API
2970:
2971: -- Standard check of p_commit.
2972: /*
2973: IF FND_API.To_Boolean( p_commit ) THEN
2974: COMMIT WORK;
2975: END IF;
2976: */
2977:
2979: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2980: p_data => x_msg_data
2981: );
2982: EXCEPTION
2983: WHEN FND_API.G_EXC_ERROR THEN
2984: --ROLLBACK TO OraPmtCredit_PUB;
2985: x_return_status := FND_API.G_RET_STS_ERROR ;
2986: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2987: p_data => x_msg_data
2981: );
2982: EXCEPTION
2983: WHEN FND_API.G_EXC_ERROR THEN
2984: --ROLLBACK TO OraPmtCredit_PUB;
2985: x_return_status := FND_API.G_RET_STS_ERROR ;
2986: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2987: p_data => x_msg_data
2988: );
2989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2985: x_return_status := FND_API.G_RET_STS_ERROR ;
2986: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2987: p_data => x_msg_data
2988: );
2989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2990: --ROLLBACK TO OraPmtCredit_PUB;
2991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2992: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2993: p_data => x_msg_data
2987: p_data => x_msg_data
2988: );
2989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2990: --ROLLBACK TO OraPmtCredit_PUB;
2991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2992: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2993: p_data => x_msg_data
2994: );
2995: WHEN OTHERS THEN
2993: p_data => x_msg_data
2994: );
2995: WHEN OTHERS THEN
2996: --ROLLBACK TO OraPmtCredit_PUB;
2997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2999: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3000: END IF;
3001:
3026: -- Initial version 1.0
3027: -- End of comments
3028: --------------------------------------------------------------------------------------------
3029: PROCEDURE OraPmtInq ( p_api_version IN NUMBER,
3030: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3031: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3032: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3033: p_ecapp_id IN NUMBER,
3034: p_tid IN NUMBER,
3027: -- End of comments
3028: --------------------------------------------------------------------------------------------
3029: PROCEDURE OraPmtInq ( p_api_version IN NUMBER,
3030: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3031: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3032: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3033: p_ecapp_id IN NUMBER,
3034: p_tid IN NUMBER,
3035: x_return_status OUT NOCOPY VARCHAR2,
3028: --------------------------------------------------------------------------------------------
3029: PROCEDURE OraPmtInq ( p_api_version IN NUMBER,
3030: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3031: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3032: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3033: p_ecapp_id IN NUMBER,
3034: p_tid IN NUMBER,
3035: x_return_status OUT NOCOPY VARCHAR2,
3036: x_msg_count OUT NOCOPY NUMBER,
3073: /* ***** Performing Validations, Initializations
3074: for Standard IN, OUT Parameters ***** */
3075:
3076: -- Standard call to check for call compatibility.
3077: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3078: p_api_version,
3079: l_api_name,
3080: G_PKG_NAME )
3081: THEN
3080: G_PKG_NAME )
3081: THEN
3082: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3083: FND_MSG_PUB.Add;
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086:
3087: -- Initialize message list if p_init_msg_list is set to TRUE.
3088: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086:
3087: -- Initialize message list if p_init_msg_list is set to TRUE.
3088: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3089: FND_MSG_PUB.initialize;
3090: END IF;
3091:
3092: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3092: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3093: IF (p_validation_level <> g_validation_level) THEN
3094: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3095: FND_MSG_PUB.Add;
3096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3097: END IF;
3098:
3099: -- Initialize API return status to success
3100: x_return_status := FND_API.G_RET_STS_SUCCESS;
3096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3097: END IF;
3098:
3099: -- Initialize API return status to success
3100: x_return_status := FND_API.G_RET_STS_SUCCESS;
3101:
3102: -- START OF BODY OF API
3103:
3104: --dbms_output.put_line('Before opening cursor');
3121: -- since that would imply hardcoding the message text here (NLS issues)
3122: -- Instead it is sent to the API message list.
3123: FND_MESSAGE.SET_NAME('IBY', 'IBY_204404_CURSOR_ERROR');
3124: FND_MSG_PUB.Add;
3125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3126: END IF;
3127:
3128: CLOSE pmtinq_csr;
3129:
3134:
3135:
3136: -- Standard check of p_commit.
3137: /*
3138: IF FND_API.To_Boolean( p_commit ) THEN
3139: COMMIT WORK;
3140: END IF;
3141: */
3142:
3144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3145: p_data => x_msg_data
3146: );
3147: EXCEPTION
3148: WHEN FND_API.G_EXC_ERROR THEN
3149: --ROLLBACK TO OraPmtInq_PUB;
3150: x_return_status := FND_API.G_RET_STS_ERROR ;
3151: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3152: p_data => x_msg_data
3146: );
3147: EXCEPTION
3148: WHEN FND_API.G_EXC_ERROR THEN
3149: --ROLLBACK TO OraPmtInq_PUB;
3150: x_return_status := FND_API.G_RET_STS_ERROR ;
3151: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3152: p_data => x_msg_data
3153: );
3154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: x_return_status := FND_API.G_RET_STS_ERROR ;
3151: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3152: p_data => x_msg_data
3153: );
3154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3155: --ROLLBACK TO OraPmtInq_PUB;
3156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3157: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3158: p_data => x_msg_data
3152: p_data => x_msg_data
3153: );
3154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3155: --ROLLBACK TO OraPmtInq_PUB;
3156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3157: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3158: p_data => x_msg_data
3159: );
3160: WHEN OTHERS THEN
3158: p_data => x_msg_data
3159: );
3160: WHEN OTHERS THEN
3161: --ROLLBACK TO OraPmtInq_PUB;
3162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3163: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3164: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3165: END IF;
3166:
3193: -- Initial version 1.0
3194: -- End of comments
3195: --------------------------------------------------------------------------------------------
3196: PROCEDURE OraPmtCloseBatch ( p_api_version IN NUMBER,
3197: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3198: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3199: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3200: p_ecapp_id IN NUMBER,
3201: p_batchtrxn_rec IN BatchTrxn_rec_type,
3194: -- End of comments
3195: --------------------------------------------------------------------------------------------
3196: PROCEDURE OraPmtCloseBatch ( p_api_version IN NUMBER,
3197: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3198: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3199: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3200: p_ecapp_id IN NUMBER,
3201: p_batchtrxn_rec IN BatchTrxn_rec_type,
3202: x_return_status OUT NOCOPY VARCHAR2,
3195: --------------------------------------------------------------------------------------------
3196: PROCEDURE OraPmtCloseBatch ( p_api_version IN NUMBER,
3197: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3198: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3199: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3200: p_ecapp_id IN NUMBER,
3201: p_batchtrxn_rec IN BatchTrxn_rec_type,
3202: x_return_status OUT NOCOPY VARCHAR2,
3203: x_msg_count OUT NOCOPY NUMBER,
3244: /* ***** Performing Validations, Initializations
3245: for Standard IN, OUT Parameters ***** */
3246:
3247: -- Standard call to check for call compatibility.
3248: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3249: p_api_version,
3250: l_api_name,
3251: G_PKG_NAME )
3252: THEN
3251: G_PKG_NAME )
3252: THEN
3253: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3254: FND_MSG_PUB.Add;
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: END IF;
3257:
3258: -- Initialize message list if p_init_msg_list is set to TRUE.
3259: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: END IF;
3257:
3258: -- Initialize message list if p_init_msg_list is set to TRUE.
3259: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3260: FND_MSG_PUB.initialize;
3261: END IF;
3262:
3263: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3263: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3264: IF (p_validation_level <> g_validation_level) THEN
3265: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3266: FND_MSG_PUB.Add;
3267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3268: END IF;
3269:
3270:
3271: -- Initialize API return status to success
3268: END IF;
3269:
3270:
3271: -- Initialize API return status to success
3272: x_return_status := FND_API.G_RET_STS_SUCCESS;
3273:
3274: -- START OF BODY OF API
3275:
3276: get_baseurl(l_get_baseurl);
3341: --Raising Exception to handle errors in unpacking resulting html file.
3342: IF (l_status = -1) THEN
3343: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
3344: FND_MSG_PUB.Add;
3345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: END IF;
3347:
3348: --Raising Exception to handle Servlet related errors.
3349: IF (l_names.COUNT = 0) THEN
3348: --Raising Exception to handle Servlet related errors.
3349: IF (l_names.COUNT = 0) THEN
3350: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
3351: FND_MSG_PUB.Add;
3352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3353: END IF;
3354:
3355: --show_table_debug(l_names);
3356: --show_table_debug(l_values);
3442: END LOOP;
3443:
3444: -- Setting API return status to 'U' if iPayment response status is not 0.
3445: IF (NOT trxn_status_success(x_closebatchrespsum_rec.Response.Status)) THEN
3446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3447: END IF;
3448:
3449: -- END OF BODY OF API
3450:
3449: -- END OF BODY OF API
3450:
3451: -- Standard check of p_commit.
3452: /*
3453: IF FND_API.To_Boolean( p_commit ) THEN
3454: COMMIT WORK;
3455: END IF;
3456: */
3457:
3459: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3460: p_data => x_msg_data
3461: );
3462: EXCEPTION
3463: WHEN FND_API.G_EXC_ERROR THEN
3464: --ROLLBACK TO OraPmtCloseBatch_PUB;
3465: x_return_status := FND_API.G_RET_STS_ERROR ;
3466: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3467: p_data => x_msg_data
3461: );
3462: EXCEPTION
3463: WHEN FND_API.G_EXC_ERROR THEN
3464: --ROLLBACK TO OraPmtCloseBatch_PUB;
3465: x_return_status := FND_API.G_RET_STS_ERROR ;
3466: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3467: p_data => x_msg_data
3468: );
3469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3465: x_return_status := FND_API.G_RET_STS_ERROR ;
3466: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3467: p_data => x_msg_data
3468: );
3469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3470: --ROLLBACK TO OraPmtCloseBatch_PUB;
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3472: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3473: p_data => x_msg_data
3467: p_data => x_msg_data
3468: );
3469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3470: --ROLLBACK TO OraPmtCloseBatch_PUB;
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3472: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3473: p_data => x_msg_data
3474: );
3475: WHEN OTHERS THEN
3473: p_data => x_msg_data
3474: );
3475: WHEN OTHERS THEN
3476: --ROLLBACK TO OraPmtCloseBatch_PUB;
3477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3478: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3479: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3480: END IF;
3481:
3506: -- Initial version 1.0
3507: -- End of comments
3508: --------------------------------------------------------------------------------------------
3509: PROCEDURE OraPmtQueryBatch ( p_api_version IN NUMBER,
3510: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3511: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3512: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3513: p_ecapp_id IN NUMBER,
3514: p_batchtrxn_rec IN BatchTrxn_rec_type,
3507: -- End of comments
3508: --------------------------------------------------------------------------------------------
3509: PROCEDURE OraPmtQueryBatch ( p_api_version IN NUMBER,
3510: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3511: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3512: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3513: p_ecapp_id IN NUMBER,
3514: p_batchtrxn_rec IN BatchTrxn_rec_type,
3515: x_return_status OUT NOCOPY VARCHAR2,
3508: --------------------------------------------------------------------------------------------
3509: PROCEDURE OraPmtQueryBatch ( p_api_version IN NUMBER,
3510: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3511: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3512: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3513: p_ecapp_id IN NUMBER,
3514: p_batchtrxn_rec IN BatchTrxn_rec_type,
3515: x_return_status OUT NOCOPY VARCHAR2,
3516: x_msg_count OUT NOCOPY NUMBER,
3557: /* ***** Performing Validations, Initializations
3558: for Standard IN, OUT Parameters ***** */
3559:
3560: -- Standard call to check for call compatibility.
3561: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3562: p_api_version,
3563: l_api_name,
3564: G_PKG_NAME )
3565: THEN
3564: G_PKG_NAME )
3565: THEN
3566: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3567: FND_MSG_PUB.Add;
3568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3569: END IF;
3570:
3571: -- Initialize message list if p_init_msg_list is set to TRUE.
3572: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3569: END IF;
3570:
3571: -- Initialize message list if p_init_msg_list is set to TRUE.
3572: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3573: FND_MSG_PUB.initialize;
3574: END IF;
3575:
3576: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3576: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3577: IF (p_validation_level <> g_validation_level) THEN
3578: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3579: FND_MSG_PUB.Add;
3580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3581: END IF;
3582:
3583: -- Initialize API return status to success
3584: x_return_status := FND_API.G_RET_STS_SUCCESS;
3580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3581: END IF;
3582:
3583: -- Initialize API return status to success
3584: x_return_status := FND_API.G_RET_STS_SUCCESS;
3585:
3586:
3587: -- START OF BODY OF API
3588:
3643: --Raising Exception to handle errors in unpacking resulting html file.
3644: IF (l_status = -1) THEN
3645: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
3646: FND_MSG_PUB.Add;
3647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3648: END IF;
3649:
3650: --Raising Exception to handle Servlet related errors.
3651: IF (l_names.COUNT = 0) THEN
3650: --Raising Exception to handle Servlet related errors.
3651: IF (l_names.COUNT = 0) THEN
3652: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
3653: FND_MSG_PUB.Add;
3654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3655: END IF;
3656:
3657: --show_table_debug(l_names);
3658: --show_table_debug(l_values);
3737: END LOOP;
3738:
3739: -- Setting API return status to 'U' if iPayment response status is not 0.
3740: IF (NOT trxn_status_success(x_qrybatchrespsum_rec.Response.Status)) THEN
3741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3742: END IF;
3743:
3744: -- END OF BODY OF API
3745:
3745:
3746:
3747: -- Standard check of p_commit.
3748: /*
3749: IF FND_API.To_Boolean( p_commit ) THEN
3750: COMMIT WORK;
3751: END IF;
3752: */
3753:
3755: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3756: p_data => x_msg_data
3757: );
3758: EXCEPTION
3759: WHEN FND_API.G_EXC_ERROR THEN
3760: --ROLLBACK TO OraPmtQueryBatch_PUB;
3761: x_return_status := FND_API.G_RET_STS_ERROR ;
3762: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3763: p_data => x_msg_data
3757: );
3758: EXCEPTION
3759: WHEN FND_API.G_EXC_ERROR THEN
3760: --ROLLBACK TO OraPmtQueryBatch_PUB;
3761: x_return_status := FND_API.G_RET_STS_ERROR ;
3762: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3763: p_data => x_msg_data
3764: );
3765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3761: x_return_status := FND_API.G_RET_STS_ERROR ;
3762: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3763: p_data => x_msg_data
3764: );
3765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3766: --ROLLBACK TO OraPmtQueryBatch_PUB;
3767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3768: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3769: p_data => x_msg_data
3763: p_data => x_msg_data
3764: );
3765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3766: --ROLLBACK TO OraPmtQueryBatch_PUB;
3767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3768: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3769: p_data => x_msg_data
3770: );
3771: WHEN OTHERS THEN
3769: p_data => x_msg_data
3770: );
3771: WHEN OTHERS THEN
3772: --ROLLBACK TO OraPmtQueryBatch_PUB;
3773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3775: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3776: END IF;
3777:
3805: -- Initial version 1.0
3806: -- End of comments
3807: --------------------------------------------------------------------------------------------
3808: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
3809: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3810: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3811: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3812: p_ecapp_id IN NUMBER,
3813: p_payee_rec IN Payee_rec_type,
3806: -- End of comments
3807: --------------------------------------------------------------------------------------------
3808: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
3809: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3810: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3811: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3812: p_ecapp_id IN NUMBER,
3813: p_payee_rec IN Payee_rec_type,
3814: p_payer_rec IN Payer_rec_type,
3807: --------------------------------------------------------------------------------------------
3808: PROCEDURE OraPmtReq ( p_api_version IN NUMBER,
3809: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3810: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3811: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3812: p_ecapp_id IN NUMBER,
3813: p_payee_rec IN Payee_rec_type,
3814: p_payer_rec IN Payer_rec_type,
3815: p_pmtinstr_rec IN PmtInstr_rec_type,
3865: --------------------------------------------------------------------------------------------
3866:
3867:
3868: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
3869: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3870: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3871: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3872: p_ecapp_id IN NUMBER,
3873: p_payment_risk_info IN PaymentRiskInfo_rec_type,
3866:
3867:
3868: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
3869: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3870: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3871: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3872: p_ecapp_id IN NUMBER,
3873: p_payment_risk_info IN PaymentRiskInfo_rec_type,
3874: x_return_status OUT NOCOPY VARCHAR2,
3867:
3868: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
3869: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3870: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3871: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3872: p_ecapp_id IN NUMBER,
3873: p_payment_risk_info IN PaymentRiskInfo_rec_type,
3874: x_return_status OUT NOCOPY VARCHAR2,
3875: x_msg_count OUT NOCOPY NUMBER,
3914: /* ***** Performing Validations, Initializations
3915: for Standard IN, OUT Parameters ***** */
3916:
3917: -- Standard call to check for call compatibility.
3918: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3919: p_api_version,
3920: l_api_name,
3921: G_PKG_NAME )
3922: THEN
3921: G_PKG_NAME )
3922: THEN
3923: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
3924: FND_MSG_PUB.Add;
3925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3926: END IF;
3927:
3928: -- Initialize message list if p_init_msg_list is set to TRUE.
3929: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3926: END IF;
3927:
3928: -- Initialize message list if p_init_msg_list is set to TRUE.
3929: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3930: FND_MSG_PUB.initialize;
3931: END IF;
3932:
3933: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3933: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
3934: IF (p_validation_level <> g_validation_level) THEN
3935: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
3936: FND_MSG_PUB.Add;
3937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3938: END IF;
3939:
3940:
3941: -- Initialize API return status to success
3938: END IF;
3939:
3940:
3941: -- Initialize API return status to success
3942: x_return_status := FND_API.G_RET_STS_SUCCESS;
3943:
3944:
3945: -- START OF BODY OF API
3946:
4000: --Raising Exception to handle errors in unpacking resulting html file.
4001: IF (l_status = -1) THEN
4002: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4003: FND_MSG_PUB.Add;
4004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4005: END IF;
4006:
4007: --Raising Exception to handle Servlet related errors.
4008: IF (l_names.COUNT = 0) THEN
4007: --Raising Exception to handle Servlet related errors.
4008: IF (l_names.COUNT = 0) THEN
4009: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4010: FND_MSG_PUB.Add;
4011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4012: END IF;
4013:
4014: FOR i IN 1..l_names.COUNT LOOP
4015: --Payment Server Related Generic Response
4034: END LOOP;
4035:
4036: -- Setting API return status to 'U' if EvalRisk response status is not 0.
4037: IF (NOT trxn_status_success(x_risk_resp.Status)) THEN
4038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4039: END IF;
4040:
4041: -- END OF BODY OF API
4042:
4041: -- END OF BODY OF API
4042:
4043: -- Standard check of p_commit.
4044: /*
4045: IF FND_API.To_Boolean( p_commit ) THEN
4046: COMMIT WORK;
4047: END IF;
4048: */
4049:
4052: p_data => x_msg_data
4053: );
4054: EXCEPTION
4055:
4056: WHEN FND_API.G_EXC_ERROR THEN
4057: --ROLLBACK TO OraRiskEval_PUB;
4058: x_return_status := FND_API.G_RET_STS_ERROR ;
4059: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4060: p_data => x_msg_data
4054: EXCEPTION
4055:
4056: WHEN FND_API.G_EXC_ERROR THEN
4057: --ROLLBACK TO OraRiskEval_PUB;
4058: x_return_status := FND_API.G_RET_STS_ERROR ;
4059: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4060: p_data => x_msg_data
4061: );
4062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4058: x_return_status := FND_API.G_RET_STS_ERROR ;
4059: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4060: p_data => x_msg_data
4061: );
4062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4063: --ROLLBACK TO OraRiskEval_PUB;
4064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4065: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4066: p_data => x_msg_data
4060: p_data => x_msg_data
4061: );
4062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4063: --ROLLBACK TO OraRiskEval_PUB;
4064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4065: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4066: p_data => x_msg_data
4067: );
4068:
4067: );
4068:
4069: WHEN OTHERS THEN
4070: --ROLLBACK TO OraRiskEval_PUB;
4071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4072: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4073: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4074: END IF;
4075:
4103: -- End of comments
4104:
4105: --------------------------------------------------------------------------------------------
4106: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4108: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4109: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4110: p_ecapp_id IN NUMBER,
4111: p_avs_risk_info IN AVSRiskInfo_rec_type,
4104:
4105: --------------------------------------------------------------------------------------------
4106: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4108: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4109: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4110: p_ecapp_id IN NUMBER,
4111: p_avs_risk_info IN AVSRiskInfo_rec_type,
4112: x_return_status OUT NOCOPY VARCHAR2,
4105: --------------------------------------------------------------------------------------------
4106: PROCEDURE OraRiskEval ( p_api_version IN NUMBER,
4107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4108: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4109: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4110: p_ecapp_id IN NUMBER,
4111: p_avs_risk_info IN AVSRiskInfo_rec_type,
4112: x_return_status OUT NOCOPY VARCHAR2,
4113: x_msg_count OUT NOCOPY NUMBER,
4150: /* ***** Performing Validations, Initializations
4151: for Standard IN, OUT Parameters ***** */
4152:
4153: -- Standard call to check for call compatibility.
4154: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4155: p_api_version,
4156: l_api_name,
4157: G_PKG_NAME )
4158: THEN
4157: G_PKG_NAME )
4158: THEN
4159: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
4160: FND_MSG_PUB.Add;
4161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4162: END IF;
4163:
4164: -- Initialize message list if p_init_msg_list is set to TRUE.
4165: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4162: END IF;
4163:
4164: -- Initialize message list if p_init_msg_list is set to TRUE.
4165: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4166: FND_MSG_PUB.initialize;
4167: END IF;
4168:
4169: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4169: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4170: IF (p_validation_level <> g_validation_level) THEN
4171: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
4172: FND_MSG_PUB.Add;
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174: END IF;
4175:
4176:
4177: -- Initialize API return status to success
4174: END IF;
4175:
4176:
4177: -- Initialize API return status to success
4178: x_return_status := FND_API.G_RET_STS_SUCCESS;
4179:
4180:
4181: -- START OF BODY OF API
4182:
4226: --Raising Exception to handle errors in unpacking resulting html file.
4227: IF (l_status = -1) THEN
4228: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4229: FND_MSG_PUB.Add;
4230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4231: END IF;
4232:
4233: --Raising Exception to handle Servlet related errors.
4234: IF (l_names.COUNT = 0) THEN
4233: --Raising Exception to handle Servlet related errors.
4234: IF (l_names.COUNT = 0) THEN
4235: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4236: FND_MSG_PUB.Add;
4237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4238: END IF;
4239:
4240: FOR i IN 1..l_names.COUNT LOOP
4241: --Payment Server Related Generic Response
4261: END LOOP;
4262:
4263: -- Setting API return status to 'U' if EvalRisk response status is not 0.
4264: IF (NOT trxn_status_success(x_risk_resp.Status)) THEN
4265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4266: END IF;
4267:
4268: -- END OF BODY OF API
4269:
4268: -- END OF BODY OF API
4269:
4270: -- Standard check of p_commit.
4271: /*
4272: IF FND_API.To_Boolean( p_commit ) THEN
4273: COMMIT WORK;
4274: END IF;
4275: */
4276:
4280: );
4281: EXCEPTION
4282:
4283:
4284: WHEN FND_API.G_EXC_ERROR THEN
4285: --ROLLBACK TO OraRiskEval_PUB;
4286: x_return_status := FND_API.G_RET_STS_ERROR ;
4287: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4288: p_data => x_msg_data
4282:
4283:
4284: WHEN FND_API.G_EXC_ERROR THEN
4285: --ROLLBACK TO OraRiskEval_PUB;
4286: x_return_status := FND_API.G_RET_STS_ERROR ;
4287: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4288: p_data => x_msg_data
4289: );
4290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4286: x_return_status := FND_API.G_RET_STS_ERROR ;
4287: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4288: p_data => x_msg_data
4289: );
4290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4291: --ROLLBACK TO OraRiskEval_PUB;
4292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4293: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4294: p_data => x_msg_data
4288: p_data => x_msg_data
4289: );
4290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4291: --ROLLBACK TO OraRiskEval_PUB;
4292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4293: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4294: p_data => x_msg_data
4295: );
4296:
4295: );
4296:
4297: WHEN OTHERS THEN
4298: --ROLLBACK TO OraRiskEval_PUB;
4299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4301: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name, SQLCODE||':'||SQLERRM);
4302: END IF;
4303:
4329: -- Initial version 1.0
4330: -- End of comments
4331:
4332: PROCEDURE OraCCBatchCapture ( p_api_version IN NUMBER,
4333: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4334: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4335: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4336: p_ecapp_id IN NUMBER,
4337: p_capturetrxn_rec_tbl IN CaptureTrxn_tbl,
4330: -- End of comments
4331:
4332: PROCEDURE OraCCBatchCapture ( p_api_version IN NUMBER,
4333: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4334: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4335: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4336: p_ecapp_id IN NUMBER,
4337: p_capturetrxn_rec_tbl IN CaptureTrxn_tbl,
4338: x_return_status OUT NOCOPY VARCHAR2,
4331:
4332: PROCEDURE OraCCBatchCapture ( p_api_version IN NUMBER,
4333: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4334: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4335: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4336: p_ecapp_id IN NUMBER,
4337: p_capturetrxn_rec_tbl IN CaptureTrxn_tbl,
4338: x_return_status OUT NOCOPY VARCHAR2,
4339: x_msg_count OUT NOCOPY NUMBER,
4392:
4393: /* ***** Performing Validations, Initializations
4394: for Standard IN, OUT Parameters ***** */
4395: -- Standard call to check for call compatibility.
4396: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4397: p_api_version,
4398: l_api_name,
4399: G_PKG_NAME )
4400: THEN
4399: G_PKG_NAME )
4400: THEN
4401: FND_MESSAGE.SET_NAME('IBY', 'IBY_204400_API_VER_MISMATCH');
4402: FND_MSG_PUB.Add;
4403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4404: END IF;
4405:
4406: -- Initialize message list if p_init_msg_list is set to TRUE.
4407: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4404: END IF;
4405:
4406: -- Initialize message list if p_init_msg_list is set to TRUE.
4407: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4408: FND_MSG_PUB.initialize;
4409: END IF;
4410:
4411: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4411: -- Verifying if validation level is FULL, which is expected for PUBLIC APIs.
4412: IF (p_validation_level <> g_validation_level) THEN
4413: FND_MESSAGE.SET_NAME('IBY', 'IBY_204401_VAL_LEVEL_ERROR');
4414: FND_MSG_PUB.Add;
4415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4416: END IF;
4417:
4418: iby_debug_pub.add('Batch size = ' || p_capturetrxn_rec_tbl.count,
4419: FND_LOG.LEVEL_STATEMENT,
4423: -- The batch size has exceeded the max limit size.
4424: IF (p_capturetrxn_rec_tbl.count > C_MAX_CC_BATCH_SIZE) THEN
4425: FND_MESSAGE.SET_NAME('IBY', 'IBY_204407_VAL_ERROR');
4426: FND_MSG_PUB.Add;
4427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4428: END IF;
4429:
4430: -- Initialize API return status to success
4431: x_return_status := FND_API.G_RET_STS_SUCCESS;
4427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4428: END IF;
4429:
4430: -- Initialize API return status to success
4431: x_return_status := FND_API.G_RET_STS_SUCCESS;
4432:
4433: -- START OF BODY OF API
4434:
4435: get_baseurl(l_get_baseurl);
4604: G_DEBUG_MODULE || '.OraCCBatchCapture');
4605:
4606: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4607: FND_MSG_PUB.Add;
4608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4609: END IF;
4610:
4611: --Raising Exception to handle Servlet related errors.
4612: IF (l_names.COUNT = 0) THEN
4616: G_DEBUG_MODULE || '.OraCCBatchCapture');
4617:
4618: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4619: FND_MSG_PUB.Add;
4620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622: -- Assign output parameters to output record x_capresp_rec_tbl
4623: FOR i IN 1..l_names.COUNT LOOP
4624: l_ret_pos := instr(l_names(i),'-');
4701:
4702: -- Setting API return status to 'U' if response status is not 0.
4703: IF (NOT trxn_status_success(l_batch_status)) THEN
4704:
4705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4706: --
4707: -- if the batch failed an error message should have been
4708: -- returned
4709: --
4738: FND_LOG.LEVEL_PROCEDURE,
4739: G_DEBUG_MODULE || '.OraCCBatchCapture');
4740:
4741: EXCEPTION
4742: WHEN FND_API.G_EXC_ERROR THEN
4743:
4744: iby_debug_pub.add('In Expected Error',
4745: FND_LOG.LEVEL_ERROR,
4746: G_DEBUG_MODULE || '.OraCCBatchCapture');
4744: iby_debug_pub.add('In Expected Error',
4745: FND_LOG.LEVEL_ERROR,
4746: G_DEBUG_MODULE || '.OraCCBatchCapture');
4747: --ROLLBACK TO OraCCBatchCapture_PUB;
4748: x_return_status := FND_API.G_RET_STS_ERROR ;
4749: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4750: p_data => x_msg_data
4751: );
4752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4748: x_return_status := FND_API.G_RET_STS_ERROR ;
4749: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4750: p_data => x_msg_data
4751: );
4752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4753:
4754: iby_debug_pub.add('In Unexpected Error',
4755: FND_LOG.LEVEL_UNEXPECTED,
4756: G_DEBUG_MODULE || '.OraCCBatchCapture');
4754: iby_debug_pub.add('In Unexpected Error',
4755: FND_LOG.LEVEL_UNEXPECTED,
4756: G_DEBUG_MODULE || '.OraCCBatchCapture');
4757: --ROLLBACK TO OraCCBatchCapture_PUB;
4758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4759: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4760: p_data => x_msg_data
4761: );
4762: WHEN OTHERS THEN
4770: iby_debug_pub.add('Exception message='||SQLERRM,
4771: FND_LOG.LEVEL_UNEXPECTED,
4772: G_DEBUG_MODULE || '.OraCCBatchCapture');
4773:
4774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4776: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name, SQLCODE||':'||SQLERRM);
4777: END IF;
4778:
4790: -- Parameters :
4791: -- IN : p_commit IN VARCHAR2 Optional
4792: -- p_cvv IN NUMBER Required
4793: --
4794: PROCEDURE OraSecureExtension (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4795: p_cvv IN VARCHAR2,
4796: x_return_status OUT NOCOPY VARCHAR2,
4797: x_msg_count OUT NOCOPY NUMBER,
4798: x_msg_data OUT NOCOPY VARCHAR2,
4834: module => G_DEBUG_MODULE || '.OraSecureExtension');
4835:
4836: --test_debug('OraSecureExtension=> Enter');
4837: -- Initialize API return status to success
4838: x_return_status := FND_API.G_RET_STS_SUCCESS;
4839:
4840: -- START OF BODY OF API
4841:
4842: get_baseurl(l_get_baseurl);
4885: debug_level => FND_LOG.LEVEL_UNEXPECTED,
4886: module => G_DEBUG_MODULE || '.OraSecureExtension');
4887: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4888: FND_MSG_PUB.Add;
4889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4890: END IF;
4891:
4892: --Raising Exception to handle Servlet related errors.
4893: IF (l_names.COUNT = 0) THEN
4896: debug_level => FND_LOG.LEVEL_UNEXPECTED,
4897: module => G_DEBUG_MODULE || '.OraSecureExtension');
4898: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4899: FND_MSG_PUB.Add;
4900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4901: END IF;
4902:
4903: /* Retrieve name-value pairs stored in l_names and l_values, and assign
4904: them to the output record: x_reqresp_rec.
4944: --dbms_output.put_line('after successfully mapping results');
4945:
4946: -- Standard check of p_commit.
4947: /*
4948: IF FND_API.To_Boolean( p_commit ) THEN
4949: COMMIT WORK;
4950: END IF;
4951: */
4952:
4968: --test_debug('Exit*******');
4969:
4970: EXCEPTION
4971:
4972: WHEN FND_API.G_EXC_ERROR THEN
4973:
4974: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
4975: debug_level => FND_LOG.LEVEL_ERROR,
4976: module => G_DEBUG_MODULE || '.OraSecureExtension');
4974: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
4975: debug_level => FND_LOG.LEVEL_ERROR,
4976: module => G_DEBUG_MODULE || '.OraSecureExtension');
4977: --ROLLBACK TO OraPmtReq_PUB;
4978: x_return_status := FND_API.G_RET_STS_ERROR ;
4979: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4980: p_data => x_msg_data
4981: );
4982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4978: x_return_status := FND_API.G_RET_STS_ERROR ;
4979: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4980: p_data => x_msg_data
4981: );
4982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4983:
4984: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
4985: debug_level => FND_LOG.LEVEL_UNEXPECTED,
4986: module => G_DEBUG_MODULE || '.OraSecureExtension');
4984: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
4985: debug_level => FND_LOG.LEVEL_UNEXPECTED,
4986: module => G_DEBUG_MODULE || '.OraSecureExtension');
4987: --ROLLBACK TO OraPmtReq_PUB;
4988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4989: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4990: p_data => x_msg_data
4991: );
4992: WHEN OTHERS THEN
4993:
4994: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
4995: debug_level => FND_LOG.LEVEL_UNEXPECTED,
4996: module => G_DEBUG_MODULE || '.OraSecureExtension');
4997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4999: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5000: END IF;
5001: