[Home] [Help]
37: l_remote_nls VARCHAR2(200);
38: l_string VARCHAR2(4000) := '';
39: BEGIN
40:
41: iby_debug_pub.add(debug_msg => 'Enter', debug_level => FND_LOG.LEVEL_PROCEDURE,
42: module => G_DEBUG_MODULE || '.unpack_results');
43:
44: l_string := p_string;
45:
113: END LOOP;
114: END IF;
115: */
116:
117: iby_debug_pub.add(debug_msg => 'Exit', debug_level => FND_LOG.LEVEL_PROCEDURE,
118: module => G_DEBUG_MODULE || '.unpack_results');
119:
120: EXCEPTION
121: WHEN OTHERS THEN
138: RETURN BOOLEAN
139: IS
140: BEGIN
141: IF (p_trxn_status IS NULL) THEN
142: iby_debug_pub.add(debug_msg => 'ECApp servlet trxn status is NULL!',
143: debug_level => FND_LOG.LEVEL_UNEXPECTED,
144: module => G_DEBUG_MODULE || '.trxn_status_success');
145: RETURN FALSE;
146: ELSIF ((IBY_PAYMENT_ADAPTER_PUB.C_TRXN_STATUS_SUCCESS = p_trxn_status) OR
457: p_temp_var VARCHAR2(2);
458:
459: BEGIN
460:
461: iby_debug_pub.add(debug_msg => 'Enter', debug_level => FND_LOG.LEVEL_PROCEDURE,
462: module => G_DEBUG_MODULE || '.get_baseurl');
463:
464: iby_utility_pvt.get_property(iby_payment_adapter_pub.C_ECAPP_URL_PROP_NAME,x_baseurl);
465:
477: IF( p_temp_var <> '?' ) THEN
478: x_baseurl := x_baseurl || '?';
479: END IF;
480:
481: iby_debug_pub.add(debug_msg => 'base url=' || x_baseurl,
482: debug_level => FND_LOG.LEVEL_STATEMENT,
483: module => G_DEBUG_MODULE || '.get_baseurl');
484:
485: iby_debug_pub.add(debug_msg => 'Exit',
481: iby_debug_pub.add(debug_msg => 'base url=' || x_baseurl,
482: debug_level => FND_LOG.LEVEL_STATEMENT,
483: module => G_DEBUG_MODULE || '.get_baseurl');
484:
485: iby_debug_pub.add(debug_msg => 'Exit',
486: debug_level => FND_LOG.LEVEL_PROCEDURE,
487: module => G_DEBUG_MODULE || '.get_baseurl');
488:
489: END get_baseurl;
508: l_num_val NUMBER;
509:
510: BEGIN
511: -- Send http request to the payment server.
512: iby_debug_pub.add(debug_msg => 'Enter',
513: debug_level => FND_LOG.LEVEL_PROCEDURE,
514: module => G_DEBUG_MODULE || '.send_request');
515:
516: iby_utility_pvt.get_property(iby_security_pkg.C_SHARED_WALLET_LOC_PROP_NAME,l_wallet_location);
527: * by default.
528: */
529: iby_utility_pvt.get_property('IBY_NETWORK_TIMEOUT', l_timeout);
530:
531: iby_debug_pub.add(debug_msg => 'Timeout setting at profile level = '
532: || l_timeout,
533: debug_level => FND_LOG.LEVEL_STATEMENT,
534: module => G_DEBUG_MODULE || '.send_request');
535:
553: END IF;
554:
555: UTL_HTTP.SET_TRANSFER_TIMEOUT(l_num_val);
556:
557: iby_debug_pub.add(debug_msg => 'UTL_HTTP timeout set to '
558: || l_num_val || ' seconds.',
559: debug_level => FND_LOG.LEVEL_STATEMENT,
560: module => G_DEBUG_MODULE || '.send_request');
561:
570: * defaulted to 60 seconds.
571: *
572: * So, swallow the exception and move on.
573: */
574: iby_debug_pub.add(debug_msg => 'Ignoring timeout setting',
575: debug_level => FND_LOG.LEVEL_STATEMENT,
576: module => G_DEBUG_MODULE || '.send_request');
577:
578: END;
576: module => G_DEBUG_MODULE || '.send_request');
577:
578: END;
579:
580: iby_debug_pub.add(debug_msg => 'Continuing after setting timeout ..',
581: debug_level => FND_LOG.LEVEL_STATEMENT,
582: module => G_DEBUG_MODULE || '.send_request');
583:
584: --
588: IF (NOT (TRIM(l_wallet_location) IS NULL)) THEN
589: l_wallet_location := iby_netutils_pvt.path_to_url(l_wallet_location);
590: END IF;
591:
592: iby_debug_pub.add(debug_msg => 'Input url = '|| cipher_url(x_url),
593: debug_level => FND_LOG.LEVEL_STATEMENT,
594: module => G_DEBUG_MODULE || '.send_request');
595:
596: --show_input_debug(cipher_url(x_url));
610: IBY_NETUTILS_PVT.POST_REQUEST
611: ( SUBSTR(x_url,1,l_index-1), l_post_body, x_htmldoc );
612:
613:
614: iby_debug_pub.add(debug_msg => 'Exit',
615: debug_level => FND_LOG.LEVEL_PROCEDURE,
616: module => G_DEBUG_MODULE || '.send_request');
617:
618: --dbms_output.put_line('Input url = '|| x_url);
712: l_pmtinstr_type VARCHAR2(200);
713:
714: BEGIN
715:
716: iby_debug_pub.add(debug_msg => 'Enter',
717: debug_level => FND_LOG.LEVEL_PROCEDURE,
718: module => G_DEBUG_MODULE || '.OraPmtReq');
719:
720: -- Standard Start of API savepoint
863: check_mandatory('OapfDateOfVoiceAuth',TO_CHAR(p_pmtreqtrxn_rec.DateOfVoiceAuthorization, 'YYYY-MM-DD'), l_url,
864: l_db_nls, l_ecapp_nls);
865: END IF;
866:
867: iby_debug_pub.add(debug_msg => 'Setting OapfTransactionId to '||p_pmtreqtrxn_rec.Trxn_ID,
868: debug_level => FND_LOG.LEVEL_STATEMENT,
869: module => G_DEBUG_MODULE || '.OraPmtReq');
870: check_optional('OapfTransactionId', p_pmtreqtrxn_rec.Trxn_ID, l_url, l_db_nls, l_ecapp_nls);
871:
878:
879: --13839624 - to load lang
880: l_userenv_lang := USERENV('LANG');
881:
882: iby_debug_pub.add(debug_msg => 'userlang'|| l_userenv_lang,
883: debug_level => FND_LOG.LEVEL_STATEMENT,
884: module => G_DEBUG_MODULE || '.OraPmtReq');
885: check_optional('OapfNlsLang', l_userenv_lang, l_url, l_db_nls, l_ecapp_nls);
886:
960: --show_table_debug(l_values);
961:
962: --Raising Exception to handle errors in unpacking resulting html file.
963: IF (l_status = -1) THEN
964: iby_debug_pub.add(debug_msg => 'Unpack status error; HTML resp. invalid!',
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;
970: END IF;
971:
972: --Raising Exception to handle Servlet related errors.
973: IF (l_names.COUNT = 0) THEN
974: iby_debug_pub.add(debug_msg => 'HTML response names count=0',
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;
982: /* Retrieve name-value pairs stored in l_names and l_values, and assign
983: them to the output record: x_reqresp_rec.
984: */
985:
986: iby_debug_pub.add(debug_msg => 'Setting fields from unpacked response',
987: debug_level => FND_LOG.LEVEL_STATEMENT,
988: module => G_DEBUG_MODULE || '.OraPmtReq');
989:
990:
991: FOR i IN 1..l_names.COUNT LOOP
992: --Payment Server Related Generic Response
993: IF l_names(i) = 'OapfStatus' THEN
994: x_reqresp_rec.Response.Status := TO_NUMBER(l_values(i));
995: iby_debug_pub.add(debug_msg => 'Response status=' || x_reqresp_rec.Response.Status,
996: debug_level => FND_LOG.LEVEL_STATEMENT,
997: module => G_DEBUG_MODULE || '.OraPmtReq');
998: ELSIF l_names(i) = 'OapfCode' THEN
999: x_reqresp_rec.Response.ErrCode := l_values(i);
996: debug_level => FND_LOG.LEVEL_STATEMENT,
997: module => G_DEBUG_MODULE || '.OraPmtReq');
998: ELSIF l_names(i) = 'OapfCode' THEN
999: x_reqresp_rec.Response.ErrCode := l_values(i);
1000: iby_debug_pub.add(debug_msg => 'Response code=' || x_reqresp_rec.Response.ErrCode,
1001: debug_level => FND_LOG.LEVEL_STATEMENT,
1002: module => G_DEBUG_MODULE || '.OraPmtReq');
1003: ELSIF l_names(i) = 'OapfCause' THEN
1004: x_reqresp_rec.Response.ErrMessage := l_values(i);
1001: debug_level => FND_LOG.LEVEL_STATEMENT,
1002: module => G_DEBUG_MODULE || '.OraPmtReq');
1003: ELSIF l_names(i) = 'OapfCause' THEN
1004: x_reqresp_rec.Response.ErrMessage := l_values(i);
1005: iby_debug_pub.add(debug_msg => 'Response message=' || x_reqresp_rec.Response.ErrMessage,
1006: debug_level => FND_LOG.LEVEL_STATEMENT,
1007: module => G_DEBUG_MODULE || '.OraPmtReq');
1008: ELSIF l_names(i) = 'OapfNlsLang' THEN
1009: x_reqresp_rec.Response.NLS_LANG := l_values(i);
1111: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1112: p_data => x_msg_data
1113: );
1114:
1115: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1116: debug_level => FND_LOG.LEVEL_STATEMENT,
1117: module => G_DEBUG_MODULE || '.OraPmtReq');
1118: iby_debug_pub.add(debug_msg => 'req response status=' || x_reqresp_rec.Response.Status,
1119: debug_level => FND_LOG.LEVEL_STATEMENT,
1114:
1115: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1116: debug_level => FND_LOG.LEVEL_STATEMENT,
1117: module => G_DEBUG_MODULE || '.OraPmtReq');
1118: iby_debug_pub.add(debug_msg => 'req response status=' || x_reqresp_rec.Response.Status,
1119: debug_level => FND_LOG.LEVEL_STATEMENT,
1120: module => G_DEBUG_MODULE || '.OraPmtReq');
1121:
1122: iby_debug_pub.add(debug_msg => 'Exit',
1118: iby_debug_pub.add(debug_msg => 'req response status=' || x_reqresp_rec.Response.Status,
1119: debug_level => FND_LOG.LEVEL_STATEMENT,
1120: module => G_DEBUG_MODULE || '.OraPmtReq');
1121:
1122: iby_debug_pub.add(debug_msg => 'Exit',
1123: debug_level => FND_LOG.LEVEL_PROCEDURE,
1124: module => G_DEBUG_MODULE || '.OraPmtReq');
1125:
1126: EXCEPTION
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');
1133: --ROLLBACK TO OraPmtReq_PUB;
1134: x_return_status := FND_API.G_RET_STS_ERROR ;
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');
1143: --ROLLBACK TO OraPmtReq_PUB;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1146: p_data => x_msg_data
1147: );
1148: WHEN OTHERS THEN
1149:
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 ;
1159: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1160: p_data => x_msg_data
1161: );
1162:
1163: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1164: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1165: module => G_DEBUG_MODULE || '.OraPmtReq');
1166: iby_debug_pub.add(debug_msg => 'Exit Exception',
1167: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1162:
1163: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1164: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1165: module => G_DEBUG_MODULE || '.OraPmtReq');
1166: iby_debug_pub.add(debug_msg => 'Exit Exception',
1167: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1168: module => G_DEBUG_MODULE || '.OraPmtReq');
1169:
1170: END OraPmtReq;
1227: l_pmtinstr_type iby_trxn_summaries_all.instrtype%TYPE;
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 )
1276: END IF;
1277: OPEN c_auth(p_rev_trxn_rec.Trxn_ID);
1278: FETCH c_auth INTO l_instrid,l_pmtinstr_type;
1279: CLOSE c_auth;
1280: iby_debug_pub.add('setting OapfPmtRegId as '||l_instrid, FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1281: iby_debug_pub.add('setting OapfPmtInstrType as '||l_pmtinstr_type, FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1282: check_mandatory('OapfPmtRegId', l_instrid, l_url, l_db_nls, l_ecapp_nls);
1283: check_mandatory('OapfPmtInstrType', l_pmtinstr_type, l_url, l_db_nls, l_ecapp_nls);
1284:
1277: OPEN c_auth(p_rev_trxn_rec.Trxn_ID);
1278: FETCH c_auth INTO l_instrid,l_pmtinstr_type;
1279: CLOSE c_auth;
1280: iby_debug_pub.add('setting OapfPmtRegId as '||l_instrid, FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1281: iby_debug_pub.add('setting OapfPmtInstrType as '||l_pmtinstr_type, FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1282: check_mandatory('OapfPmtRegId', l_instrid, l_url, l_db_nls, l_ecapp_nls);
1283: check_mandatory('OapfPmtInstrType', l_pmtinstr_type, l_url, l_db_nls, l_ecapp_nls);
1284:
1285: IF(p_rev_trxn_rec.Rev_Type = G_REV_TYPE_PARTIAL) THEN
1295: UNPACK_RESULTS_URL(l_html,l_names,l_values, l_status, l_errcode, l_errmessage);
1296:
1297: --Raising Exception to handle errors in unpacking resulting html file.
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;
1303: END IF;
1304:
1305: --Raising Exception to handle Servlet related errors.
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: */
1315:
1316: iby_debug_pub.add('Setting fields from unpacked response',FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1317:
1318:
1319: FOR i IN 1..l_names.COUNT LOOP
1320: --Payment Server Related Generic Response
1319: FOR i IN 1..l_names.COUNT LOOP
1320: --Payment Server Related Generic Response
1321: IF l_names(i) = 'OapfStatus' THEN
1322: x_revresp_rec.ReqResp.Response.Status := TO_NUMBER(l_values(i));
1323: iby_debug_pub.add('Response status=' || x_revresp_rec.ReqResp.Response.Status,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1324: ELSIF l_names(i) = 'OapfCode' THEN
1325: x_revresp_rec.ReqResp.Response.ErrCode := l_values(i);
1326: iby_debug_pub.add('Response code=' || x_revresp_rec.ReqResp.Response.ErrCode,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1327: ELSIF l_names(i) = 'OapfCause' THEN
1322: x_revresp_rec.ReqResp.Response.Status := TO_NUMBER(l_values(i));
1323: iby_debug_pub.add('Response status=' || x_revresp_rec.ReqResp.Response.Status,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1324: ELSIF l_names(i) = 'OapfCode' THEN
1325: x_revresp_rec.ReqResp.Response.ErrCode := l_values(i);
1326: iby_debug_pub.add('Response code=' || x_revresp_rec.ReqResp.Response.ErrCode,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1327: ELSIF l_names(i) = 'OapfCause' THEN
1328: x_revresp_rec.ReqResp.Response.ErrMessage := l_values(i);
1329: iby_debug_pub.add('Response message=' || x_revresp_rec.ReqResp.Response.ErrMessage,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1330: ELSIF l_names(i) = 'OapfNlsLang' THEN
1325: x_revresp_rec.ReqResp.Response.ErrCode := l_values(i);
1326: iby_debug_pub.add('Response code=' || x_revresp_rec.ReqResp.Response.ErrCode,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1327: ELSIF l_names(i) = 'OapfCause' THEN
1328: x_revresp_rec.ReqResp.Response.ErrMessage := l_values(i);
1329: iby_debug_pub.add('Response message=' || x_revresp_rec.ReqResp.Response.ErrMessage,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1330: ELSIF l_names(i) = 'OapfNlsLang' THEN
1331: x_revresp_rec.ReqResp.Response.NLS_LANG := l_values(i);
1332:
1333: --Payment Operation Related Response
1391: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1392: p_data => x_msg_data
1393: );
1394:
1395: iby_debug_pub.add('x_return_status=' || x_return_status, FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1396: iby_debug_pub.add('req response status=' || x_revresp_rec.ReqResp.Response.Status,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1397: iby_debug_pub.add('Exit', FND_LOG.LEVEL_PROCEDURE,l_dbg_mod);
1398:
1399: EXCEPTION
1392: p_data => x_msg_data
1393: );
1394:
1395: iby_debug_pub.add('x_return_status=' || x_return_status, FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1396: iby_debug_pub.add('req response status=' || x_revresp_rec.ReqResp.Response.Status,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1397: iby_debug_pub.add('Exit', FND_LOG.LEVEL_PROCEDURE,l_dbg_mod);
1398:
1399: EXCEPTION
1400:
1393: );
1394:
1395: iby_debug_pub.add('x_return_status=' || x_return_status, FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
1396: iby_debug_pub.add('req response status=' || x_revresp_rec.ReqResp.Response.Status,FND_LOG.LEVEL_STATEMENT,l_dbg_mod);
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
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 ;
1406: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1407: p_data => x_msg_data
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 ;
1414: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1415: p_data => x_msg_data
1415: p_data => x_msg_data
1416: );
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);
1426: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1427: p_data => x_msg_data
1428: );
1429:
1430: iby_debug_pub.add('x_return_status=' || x_return_status,FND_LOG.LEVEL_UNEXPECTED,l_dbg_mod);
1431: iby_debug_pub.add('Exit Exception', FND_LOG.LEVEL_UNEXPECTED,l_dbg_mod);
1432:
1433: END OraPmtReverse;
1434:
1427: p_data => x_msg_data
1428: );
1429:
1430: iby_debug_pub.add('x_return_status=' || x_return_status,FND_LOG.LEVEL_UNEXPECTED,l_dbg_mod);
1431: iby_debug_pub.add('Exit Exception', FND_LOG.LEVEL_UNEXPECTED,l_dbg_mod);
1432:
1433: END OraPmtReverse;
1434:
1435: --------------------------------------------------------------------------------------------
4707: l_batch_msg VARCHAR2(2000);
4708:
4709: BEGIN
4710:
4711: iby_debug_pub.add('Enter',FND_LOG.LEVEL_PROCEDURE,
4712: G_DEBUG_MODULE || '.OraCCBatchCapture');
4713:
4714: /* ***** Performing Validations, Initializations
4715: for Standard IN, OUT Parameters ***** */
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,
4741: G_DEBUG_MODULE || '.OraCCBatchCapture');
4742: --
4743: -- Verifying if the batch size exceeded max.
4755:
4756: get_baseurl(l_get_baseurl);
4757: -- Construct the full URL to send to the ECServlet.
4758: l_url := l_get_baseurl;
4759: iby_debug_pub.add('iPaymentURL = ' || l_url,
4760: FND_LOG.LEVEL_STATEMENT,
4761: G_DEBUG_MODULE || '.OraCCBatchCapture');
4762:
4763: l_db_nls := iby_utility_pvt.get_local_nls();
4808: l_post_info := SUBSTR(l_url,l_position);
4809: l_post_info := 'POST ' || l_post_info || ' HTTP/1.0';
4810: --dbms_output.put_line('l_post_info = ' || l_post_info);
4811:
4812: iby_debug_pub.add('l_host = ' || l_host,
4813: FND_LOG.LEVEL_STATEMENT,
4814: G_DEBUG_MODULE || '.OraCCBatchCapture');
4815: iby_debug_pub.add('l_port = ' || l_port,
4816: FND_LOG.LEVEL_STATEMENT,
4811:
4812: iby_debug_pub.add('l_host = ' || l_host,
4813: FND_LOG.LEVEL_STATEMENT,
4814: G_DEBUG_MODULE || '.OraCCBatchCapture');
4815: iby_debug_pub.add('l_port = ' || l_port,
4816: FND_LOG.LEVEL_STATEMENT,
4817: G_DEBUG_MODULE || '.OraCCBatchCapture');
4818:
4819: -- open connection
4819: -- open connection
4820: l_conn := utl_tcp.open_connection(remote_host => l_host,
4821: remote_port => l_port);
4822:
4823: iby_debug_pub.add('opened socket to EC Servlet',
4824: FND_LOG.LEVEL_STATEMENT,
4825: G_DEBUG_MODULE || '.OraCCBatchCapture');
4826:
4827: l_ret_val := utl_tcp.write_line(l_conn, l_post_info);
4862: l_curr_index := p_capturetrxn_rec_tbl.next(l_curr_index);
4863:
4864: END LOOP;
4865:
4866: iby_debug_pub.add('l_content_len = ' || l_content_len,
4867: FND_LOG.LEVEL_STATEMENT,
4868: G_DEBUG_MODULE || '.OraCCBatchCapture');
4869:
4870: l_ret_val := utl_tcp.write_line(l_conn,'Content-length: '||l_content_len);
4919: UNPACK_RESULTS_URL(l_html,l_names,l_values, l_status, l_errcode, l_errmessage);
4920: --Raising Exception to handle errors in unpacking resulting html file.
4921: IF (l_status = -1) THEN
4922:
4923: iby_debug_pub.add('error unpacking results',
4924: FND_LOG.LEVEL_UNEXPECTED,
4925: G_DEBUG_MODULE || '.OraCCBatchCapture');
4926:
4927: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
4931:
4932: --Raising Exception to handle Servlet related errors.
4933: IF (l_names.COUNT = 0) THEN
4934:
4935: iby_debug_pub.add('servlet errors; no names returned',
4936: FND_LOG.LEVEL_UNEXPECTED,
4937: G_DEBUG_MODULE || '.OraCCBatchCapture');
4938:
4939: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
4950:
4951: --Payment Server GENERIC Response
4952: IF l_ret_name = 'OapfStatus' THEN
4953: x_capresp_rec_tbl(l_ret_index).Status := TO_NUMBER(l_ret_value);
4954: iby_debug_pub.add('status #'||l_ret_index||'='||x_capresp_rec_tbl(l_ret_index).Status,
4955: FND_LOG.LEVEL_STATEMENT,
4956: G_DEBUG_MODULE || '.OraCCBatchCapture');
4957: ELSIF l_ret_name = 'OapfCode' THEN
4958: x_capresp_rec_tbl(l_ret_index).ErrCode := l_ret_value;
4955: FND_LOG.LEVEL_STATEMENT,
4956: G_DEBUG_MODULE || '.OraCCBatchCapture');
4957: ELSIF l_ret_name = 'OapfCode' THEN
4958: x_capresp_rec_tbl(l_ret_index).ErrCode := l_ret_value;
4959: iby_debug_pub.add('code #'||l_ret_index||'='||x_capresp_rec_tbl(l_ret_index).ErrCode,
4960: FND_LOG.LEVEL_STATEMENT,
4961: G_DEBUG_MODULE || '.OraCCBatchCapture');
4962: ELSIF l_ret_name = 'OapfCause' THEN
4963: x_capresp_rec_tbl(l_ret_index).ErrMessage := l_ret_value;
4960: FND_LOG.LEVEL_STATEMENT,
4961: G_DEBUG_MODULE || '.OraCCBatchCapture');
4962: ELSIF l_ret_name = 'OapfCause' THEN
4963: x_capresp_rec_tbl(l_ret_index).ErrMessage := l_ret_value;
4964: iby_debug_pub.add('casue #'||l_ret_index||'='||x_capresp_rec_tbl(l_ret_index).ErrMessage,
4965: FND_LOG.LEVEL_STATEMENT,
4966: G_DEBUG_MODULE || '.OraCCBatchCapture');
4967: ELSIF l_ret_name = 'OapfNlsLang' THEN
4968: x_capresp_rec_tbl(l_ret_index).NLS_LANG := l_ret_value;
4998: -- is successfully submitted, even if every single trxn
4999: -- within it failed for one reason or another
5000: --
5001: ELSIF l_names(i) = 'OapfStatus' THEN
5002: iby_debug_pub.add('trxn status='||l_values(i),
5003: FND_LOG.LEVEL_STATEMENT,
5004: G_DEBUG_MODULE || '.OraCCBatchCapture');
5005: l_batch_status := TO_NUMBER(l_values(i));
5006: ELSIF l_names(i) = 'OapfCause' THEN
5003: FND_LOG.LEVEL_STATEMENT,
5004: G_DEBUG_MODULE || '.OraCCBatchCapture');
5005: l_batch_status := TO_NUMBER(l_values(i));
5006: ELSIF l_names(i) = 'OapfCause' THEN
5007: iby_debug_pub.add('batch err msg='||l_values(i),
5008: FND_LOG.LEVEL_STATEMENT,
5009: G_DEBUG_MODULE || '.OraCCBatchCapture');
5010: l_batch_msg := l_values(i);
5011: END IF;
5054: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5055: p_data => x_msg_data
5056: );
5057:
5058: iby_debug_pub.add('Exit',
5059: FND_LOG.LEVEL_PROCEDURE,
5060: G_DEBUG_MODULE || '.OraCCBatchCapture');
5061:
5062: EXCEPTION
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');
5068: --ROLLBACK TO OraCCBatchCapture_PUB;
5069: x_return_status := FND_API.G_RET_STS_ERROR ;
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');
5078: --ROLLBACK TO OraCCBatchCapture_PUB;
5079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5081: p_data => x_msg_data
5082: );
5083: WHEN OTHERS THEN
5084:
5085: iby_debug_pub.add('In Others Exception',
5086: FND_LOG.LEVEL_UNEXPECTED,
5087: G_DEBUG_MODULE || '.OraCCBatchCapture');
5088: iby_debug_pub.add('Exception code='||SQLCODE,
5089: FND_LOG.LEVEL_UNEXPECTED,
5084:
5085: iby_debug_pub.add('In Others Exception',
5086: FND_LOG.LEVEL_UNEXPECTED,
5087: G_DEBUG_MODULE || '.OraCCBatchCapture');
5088: iby_debug_pub.add('Exception code='||SQLCODE,
5089: FND_LOG.LEVEL_UNEXPECTED,
5090: G_DEBUG_MODULE || '.OraCCBatchCapture');
5091: iby_debug_pub.add('Exception message='||SQLERRM,
5092: FND_LOG.LEVEL_UNEXPECTED,
5087: G_DEBUG_MODULE || '.OraCCBatchCapture');
5088: iby_debug_pub.add('Exception code='||SQLCODE,
5089: FND_LOG.LEVEL_UNEXPECTED,
5090: G_DEBUG_MODULE || '.OraCCBatchCapture');
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 ;
5149: l_errmessage VARCHAR2(2000) := 'Success';
5150:
5151: BEGIN
5152:
5153: iby_debug_pub.add(debug_msg => 'Enter',
5154: debug_level => FND_LOG.LEVEL_PROCEDURE,
5155: module => G_DEBUG_MODULE || '.OraSecureExtension');
5156:
5157: --test_debug('OraSecureExtension=> Enter');
5201:
5202: --Raising Exception to handle errors in unpacking resulting html file.
5203: IF (l_status = -1) THEN
5204: --test_debug('unpack error !!');
5205: iby_debug_pub.add(debug_msg => 'Unpack status error; HTML resp. invalid!',
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;
5212:
5213: --Raising Exception to handle Servlet related errors.
5214: IF (l_names.COUNT = 0) THEN
5215: --test_debug('response count is 0 !!');
5216: iby_debug_pub.add(debug_msg => 'HTML response names count=0',
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;
5224: /* Retrieve name-value pairs stored in l_names and l_values, and assign
5225: them to the output record: x_reqresp_rec.
5226: */
5227: --test_debug('Setting fields from unpacked response');
5228: iby_debug_pub.add(debug_msg => 'Setting fields from unpacked response',
5229: debug_level => FND_LOG.LEVEL_STATEMENT,
5230: module => G_DEBUG_MODULE || '.OraSecureExtension');
5231:
5232:
5233: FOR i IN 1..l_names.COUNT LOOP
5234: --Payment Server Related Generic Response
5235: IF l_names(i) = 'OapfStatus' THEN
5236: x_resp_rec.Response.Status := TO_NUMBER(l_values(i));
5237: iby_debug_pub.add(debug_msg => 'Response status=' || x_resp_rec.Response.Status,
5238: debug_level => FND_LOG.LEVEL_STATEMENT,
5239: module => G_DEBUG_MODULE || '.OraSecureExtension');
5240: --test_debug('OapfStatus: '||x_resp_rec.Response.Status);
5241: ELSIF l_names(i) = 'OapfCode' THEN
5239: module => G_DEBUG_MODULE || '.OraSecureExtension');
5240: --test_debug('OapfStatus: '||x_resp_rec.Response.Status);
5241: ELSIF l_names(i) = 'OapfCode' THEN
5242: x_resp_rec.Response.ErrCode := l_values(i);
5243: iby_debug_pub.add(debug_msg => 'Response code=' || x_resp_rec.Response.ErrCode,
5244: debug_level => FND_LOG.LEVEL_STATEMENT,
5245: module => G_DEBUG_MODULE || '.OraSecureExtension');
5246: --test_debug('OapfCode: '||x_resp_rec.Response.ErrCode);
5247: ELSIF l_names(i) = 'OapfCause' THEN
5245: module => G_DEBUG_MODULE || '.OraSecureExtension');
5246: --test_debug('OapfCode: '||x_resp_rec.Response.ErrCode);
5247: ELSIF l_names(i) = 'OapfCause' THEN
5248: x_resp_rec.Response.ErrMessage := l_values(i);
5249: iby_debug_pub.add(debug_msg => 'Response message=' || x_resp_rec.Response.ErrMessage,
5250: debug_level => FND_LOG.LEVEL_STATEMENT,
5251: module => G_DEBUG_MODULE || '.OraSecureExtension');
5252: --test_debug('OapfCause: '||x_resp_rec.Response.ErrMessage);
5253: ELSIF l_names(i) = 'OapfNlsLang' THEN
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,
5285: module => G_DEBUG_MODULE || '.OraSecureExtension');
5286: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
5287: debug_level => FND_LOG.LEVEL_STATEMENT,
5282:
5283: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
5284: debug_level => FND_LOG.LEVEL_STATEMENT,
5285: module => G_DEBUG_MODULE || '.OraSecureExtension');
5286: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
5287: debug_level => FND_LOG.LEVEL_STATEMENT,
5288: module => G_DEBUG_MODULE || '.OraSecureExtension');
5289:
5290: iby_debug_pub.add(debug_msg => 'Exit',
5286: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
5287: debug_level => FND_LOG.LEVEL_STATEMENT,
5288: module => G_DEBUG_MODULE || '.OraSecureExtension');
5289:
5290: iby_debug_pub.add(debug_msg => 'Exit',
5291: debug_level => FND_LOG.LEVEL_PROCEDURE,
5292: module => G_DEBUG_MODULE || '.OraSecureExtension');
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');
5302: --ROLLBACK TO OraPmtReq_PUB;
5303: x_return_status := FND_API.G_RET_STS_ERROR ;
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');
5312: --ROLLBACK TO OraPmtReq_PUB;
5313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
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
5327: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5328: p_data => x_msg_data
5329: );
5330:
5331: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
5332: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5333: module => G_DEBUG_MODULE || '.OraSecureExtension');
5334: iby_debug_pub.add(debug_msg => 'Exit Exception',
5335: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5330:
5331: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
5332: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5333: module => G_DEBUG_MODULE || '.OraSecureExtension');
5334: iby_debug_pub.add(debug_msg => 'Exit Exception',
5335: debug_level => FND_LOG.LEVEL_UNEXPECTED,
5336: module => G_DEBUG_MODULE || '.OraSecureExtension');
5337:
5338: END OraSecureExtension;