223: RETURN BOOLEAN
224: IS
225: BEGIN
226: IF (p_ret_status IS NULL) THEN
227: iby_debug_pub.add(debug_msg => 'ECApp servlet trxn status is NULL!',
228: debug_level => FND_LOG.LEVEL_UNEXPECTED,
229: module => G_DEBUG_MODULE || '.ecapp_return_status_success');
230: RETURN FALSE;
231: ELSIF ((IBY_PAYMENT_ADAPTER_PUB.C_TRXN_STATUS_SUCCESS = p_ret_status) OR
316: PRAGMA EXCEPTION_INIT( ERROR_FROM_SUBPROC, -20000 );
317:
318: l_dbg_mod VARCHAR2(100) := G_DEBUG_MODULE || '.' || l_api_name;
319: BEGIN
320: iby_debug_pub.add('Enter',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
321:
322: -- Standard call to check for call compatibility.
323: IF NOT FND_API.Compatible_API_Call ( l_api_version,
324: p_api_version,
383: --IBY_NETUTILS_PVT.get_baseurl(l_get_baseurl);
384:
385: IBY_NETUTILS_PVT.get_baseurl(l_get_baseurl);
386:
387: iby_debug_pub.add('GetBaseUrl :' || l_get_baseurl,
388: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
389:
390: -- Construct the full URL to send to the ECServlet.
391: l_url := l_get_baseurl;
384:
385: IBY_NETUTILS_PVT.get_baseurl(l_get_baseurl);
386:
387: iby_debug_pub.add('GetBaseUrl :' || l_get_baseurl,
388: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
389:
390: -- Construct the full URL to send to the ECServlet.
391: l_url := l_get_baseurl;
392:
470:
471: IBY_NETUTILS_PVT.check_optional('OapfSingleUseFlag', p_pmtInstrRec.CreditCardInstr.Single_Use_Flag, l_url, l_db_nls, l_ecapp_nls);
472: IBY_NETUTILS_PVT.check_optional('OapfInfoOnlyFlag', p_pmtInstrRec.CreditCardInstr.Info_Only_Flag, l_url, l_db_nls, l_ecapp_nls);
473:
474: iby_debug_pub.add('Card_purpose passed is :' || p_pmtInstrRec.CreditCardInstr.Card_Purpose, iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
475: IBY_NETUTILS_PVT.check_optional('OapfCardPurpose', p_pmtInstrRec.CreditCardInstr.Card_Purpose, l_url, l_db_nls, l_ecapp_nls);
476: IBY_NETUTILS_PVT.check_optional('OapfActiveFlag', p_pmtInstrRec.CreditCardInstr.Active_Flag, l_url, l_db_nls, l_ecapp_nls);
477: IBY_NETUTILS_PVT.check_optional('OapfInactiveDate', TO_CHAR(p_pmtInstrRec.CreditCardInstr.Inactive_Date,'YYYY-MM-DD'), l_url, l_db_nls, l_ecapp_nls);
478:
476: IBY_NETUTILS_PVT.check_optional('OapfActiveFlag', p_pmtInstrRec.CreditCardInstr.Active_Flag, l_url, l_db_nls, l_ecapp_nls);
477: IBY_NETUTILS_PVT.check_optional('OapfInactiveDate', TO_CHAR(p_pmtInstrRec.CreditCardInstr.Inactive_Date,'YYYY-MM-DD'), l_url, l_db_nls, l_ecapp_nls);
478:
479: --bug 8423951
480: iby_debug_pub.add('Address ID is :' || p_pmtInstrRec.CreditCardInstr.Billing_Address_Id, iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
481: IBY_NETUTILS_PVT.check_optional('OapfInstrAddrId', p_pmtInstrRec.CreditCardInstr.Billing_Address_Id, l_url, l_db_nls, l_ecapp_nls);
482:
483: IF ( p_pmtInstrRec.CreditCardInstr.Billing_Address1 is NOT NULL) THEN
484: IBY_NETUTILS_PVT.check_mandatory('OapfInstrAddrLine1', p_pmtInstrRec.CreditCardInstr.Billing_Address1, l_url, l_db_nls, l_ecapp_nls);
539: iby_security_pkg.store_credential(l_url,l_sec_cred);
540: iby_netutils_pvt.check_mandatory('OapfSecurityToken', TO_CHAR(l_sec_cred),
541: l_url, l_db_nls, l_ecapp_nls);
542:
543: -- iby_debug_pub.add(debug_msg => 'OraInstrAdd => full url: '|| l_url,
544: -- debug_level => iby_debug_pub.G_LEVEL_INFO,
545: -- module => l_dbg_mod);
546:
547: l_pos := INSTR(l_url,'?');
540: iby_netutils_pvt.check_mandatory('OapfSecurityToken', TO_CHAR(l_sec_cred),
541: l_url, l_db_nls, l_ecapp_nls);
542:
543: -- iby_debug_pub.add(debug_msg => 'OraInstrAdd => full url: '|| l_url,
544: -- debug_level => iby_debug_pub.G_LEVEL_INFO,
545: -- module => l_dbg_mod);
546:
547: l_pos := INSTR(l_url,'?');
548: l_post_body := SUBSTR(l_url,l_pos+1,length(l_url));
558:
559: -- Unpack the results
560: IBY_NETUTILS_PVT.UNPACK_RESULTS_URL(l_html,l_names,l_values, l_status, l_errcode, l_errmessage);
561:
562: iby_debug_pub.add('Return Parameter count : '|| l_values.COUNT,
563: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
564:
565: --Raising Exception to handle errors in unpacking resulting html file.
566: IF (l_status = -1) THEN
559: -- Unpack the results
560: IBY_NETUTILS_PVT.UNPACK_RESULTS_URL(l_html,l_names,l_values, l_status, l_errcode, l_errmessage);
561:
562: iby_debug_pub.add('Return Parameter count : '|| l_values.COUNT,
563: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
564:
565: --Raising Exception to handle errors in unpacking resulting html file.
566: IF (l_status = -1) THEN
567: iby_debug_pub.add('Unpack status error',
563: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
564:
565: --Raising Exception to handle errors in unpacking resulting html file.
566: IF (l_status = -1) THEN
567: iby_debug_pub.add('Unpack status error',
568: FND_LOG.LEVEL_UNEXPECTED,
569: G_DEBUG_MODULE || l_api_name);
570:
571: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
574: END IF;
575:
576: --Raising Exception to handle Servlet related errors.
577: IF (l_values.COUNT = 0 ) THEN
578: iby_debug_pub.add('Names count=0',
579: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
580:
581: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
582: FND_MSG_PUB.Add;
575:
576: --Raising Exception to handle Servlet related errors.
577: IF (l_values.COUNT = 0 ) THEN
578: iby_debug_pub.add('Names count=0',
579: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
580:
581: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
582: FND_MSG_PUB.Add;
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
582: FND_MSG_PUB.Add;
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
584: END IF;
585: iby_debug_pub.add('l_names count = ' ||l_names.COUNT,
586: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
587: FOR i IN 1..l_names.COUNT LOOP
588:
589: iby_debug_pub.add(l_names(i) || ': ' ||l_values(i),
582: FND_MSG_PUB.Add;
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
584: END IF;
585: iby_debug_pub.add('l_names count = ' ||l_names.COUNT,
586: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
587: FOR i IN 1..l_names.COUNT LOOP
588:
589: iby_debug_pub.add(l_names(i) || ': ' ||l_values(i),
590: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
585: iby_debug_pub.add('l_names count = ' ||l_names.COUNT,
586: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
587: FOR i IN 1..l_names.COUNT LOOP
588:
589: iby_debug_pub.add(l_names(i) || ': ' ||l_values(i),
590: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
591: IF l_names(i) = 'OapfStatus' THEN
592: iby_debug_pub.add('OapfStatus = '||l_values(i),
593: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
586: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
587: FOR i IN 1..l_names.COUNT LOOP
588:
589: iby_debug_pub.add(l_names(i) || ': ' ||l_values(i),
590: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
591: IF l_names(i) = 'OapfStatus' THEN
592: iby_debug_pub.add('OapfStatus = '||l_values(i),
593: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
594: -- Setting API return status to 'U' if iPayment response status is not 0.
588:
589: iby_debug_pub.add(l_names(i) || ': ' ||l_values(i),
590: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
591: IF l_names(i) = 'OapfStatus' THEN
592: iby_debug_pub.add('OapfStatus = '||l_values(i),
593: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
594: -- Setting API return status to 'U' if iPayment response status is not 0.
595: IF (NOT ecapp_return_status_success(TO_NUMBER(l_values(i)))) THEN
596: x_return_status := FND_API.G_RET_STS_ERROR;
589: iby_debug_pub.add(l_names(i) || ': ' ||l_values(i),
590: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
591: IF l_names(i) = 'OapfStatus' THEN
592: iby_debug_pub.add('OapfStatus = '||l_values(i),
593: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
594: -- Setting API return status to 'U' if iPayment response status is not 0.
595: IF (NOT ecapp_return_status_success(TO_NUMBER(l_values(i)))) THEN
596: x_return_status := FND_API.G_RET_STS_ERROR;
597: END IF;
624: p_count => x_msg_count,
625: p_data => x_msg_data
626: );
627:
628: iby_debug_pub.add('Exit',iby_debug_pub.G_LEVEL_PROCEDURE,l_dbg_mod);
629: EXCEPTION
630:
631: -- Catch for version mismatch and
632: -- if the validation level is not full.
655: -- thrown from the procedures that are called by this procedure.
656: -- Whenever there is an error in the procedures that are called,
657: -- this exception is raised as long as the SQLCODE is -20000.
658: WHEN ERROR_FROM_SUBPROC THEN
659: iby_debug_pub.add('Subproc exception..',
660: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
661: --dbms_output.put_line('ERROR: ERROR_FROM_SUBPROC during call to API ');
662: --dbms_output.put_line('SQLerr is :'||substr(SQLERRM,1,150));
663: x_return_status := FND_API.G_RET_STS_ERROR;
656: -- Whenever there is an error in the procedures that are called,
657: -- this exception is raised as long as the SQLCODE is -20000.
658: WHEN ERROR_FROM_SUBPROC THEN
659: iby_debug_pub.add('Subproc exception..',
660: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
661: --dbms_output.put_line('ERROR: ERROR_FROM_SUBPROC during call to API ');
662: --dbms_output.put_line('SQLerr is :'||substr(SQLERRM,1,150));
663: x_return_status := FND_API.G_RET_STS_ERROR;
664: iby_utility_pvt.handleException(SQLERRM,SQLCODE);
667: p_data => x_msg_data
668: );
669:
670: WHEN OTHERS THEN
671: iby_debug_pub.add('Others exception..'||SQLERRM||' code: '||SQLCODE,
672: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
673: --dbms_output.put_line('ERROR: Exception occured during call to API ' );
674: --dbms_output.put_line('SQLerr is :'||substr(SQLERRM,1,150));
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: );
669:
670: WHEN OTHERS THEN
671: iby_debug_pub.add('Others exception..'||SQLERRM||' code: '||SQLCODE,
672: iby_debug_pub.G_LEVEL_INFO,l_dbg_mod);
673: --dbms_output.put_line('ERROR: Exception occured during call to API ' );
674: --dbms_output.put_line('SQLerr is :'||substr(SQLERRM,1,150));
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: FND_MSG_PUB.Count_And_Get
1649: l_errmessage VARCHAR2(2000) := 'Success';
1650:
1651: BEGIN
1652:
1653: iby_debug_pub.add(debug_msg => 'Enter',
1654: debug_level => FND_LOG.LEVEL_PROCEDURE,
1655: module => G_DEBUG_MODULE || '.SecureCardInfo');
1656:
1657: -- test_debug('SecureCardInfo=> Enter');
1694: iby_netutils_pvt.check_mandatory('OapfSecurityToken', TO_CHAR(l_sec_cred),
1695: l_url, l_db_nls, l_ecapp_nls);
1696:
1697: --test_debug('SecureCardInfo=> full url: '|| l_url);
1698: -- iby_debug_pub.add(debug_msg => 'SecureCardInfo=> full url: '|| l_url,
1699: -- debug_level => FND_LOG.LEVEL_PROCEDURE,
1700: -- module => G_DEBUG_MODULE || '.SecureCardInfo');
1701: l_pos := INSTR(l_url,'?');
1702: l_post_body := SUBSTR(l_url,l_pos+1,length(l_url));
1714:
1715: --Raising Exception to handle errors in unpacking resulting html file.
1716: IF (l_status = -1) THEN
1717: --test_debug('unpack error !!');
1718: iby_debug_pub.add(debug_msg => 'Unpack status error; HTML resp. invalid!',
1719: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1720: module => G_DEBUG_MODULE || '.SecureCardInfo');
1721: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1722: FND_MSG_PUB.Add;
1725:
1726: --Raising Exception to handle Servlet related errors.
1727: IF (l_names.COUNT = 0) THEN
1728: --test_debug('response count is 0 !!');
1729: iby_debug_pub.add(debug_msg => 'HTML response names count=0',
1730: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1731: module => G_DEBUG_MODULE || '.SecureCardInfo');
1732: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1733: FND_MSG_PUB.Add;
1737: /* Retrieve name-value pairs stored in l_names and l_values, and assign
1738: them to the output record: x_reqresp_rec.
1739: */
1740: --test_debug('Setting fields from unpacked response');
1741: iby_debug_pub.add(debug_msg => 'Setting fields from unpacked response',
1742: debug_level => FND_LOG.LEVEL_STATEMENT,
1743: module => G_DEBUG_MODULE || '.SecureCardInfo');
1744:
1745:
1746: FOR i IN 1..l_names.COUNT LOOP
1747: --Payment Server Related Generic Response
1748: IF l_names(i) = 'OapfStatus' THEN
1749: x_resp_rec.Response.Status := TO_NUMBER(l_values(i));
1750: iby_debug_pub.add(debug_msg => 'Response status=' || x_resp_rec.Response.Status,
1751: debug_level => FND_LOG.LEVEL_STATEMENT,
1752: module => G_DEBUG_MODULE || '.SecureCardInfo');
1753: --test_debug('OapfStatus: '||x_resp_rec.Response.Status);
1754: ELSIF l_names(i) = 'OapfCode' THEN
1752: module => G_DEBUG_MODULE || '.SecureCardInfo');
1753: --test_debug('OapfStatus: '||x_resp_rec.Response.Status);
1754: ELSIF l_names(i) = 'OapfCode' THEN
1755: x_resp_rec.Response.ErrCode := l_values(i);
1756: iby_debug_pub.add(debug_msg => 'Response code=' || x_resp_rec.Response.ErrCode,
1757: debug_level => FND_LOG.LEVEL_STATEMENT,
1758: module => G_DEBUG_MODULE || '.SecureCardInfo');
1759: --test_debug('OapfCode: '||x_resp_rec.Response.ErrCode);
1760: ELSIF l_names(i) = 'OapfCause' THEN
1758: module => G_DEBUG_MODULE || '.SecureCardInfo');
1759: --test_debug('OapfCode: '||x_resp_rec.Response.ErrCode);
1760: ELSIF l_names(i) = 'OapfCause' THEN
1761: x_resp_rec.Response.ErrMessage := l_values(i);
1762: iby_debug_pub.add(debug_msg => 'Response message=' || x_resp_rec.Response.ErrMessage,
1763: debug_level => FND_LOG.LEVEL_STATEMENT,
1764: module => G_DEBUG_MODULE || '.SecureCardInfo');
1765: --test_debug('OapfCause: '||x_resp_rec.Response.ErrMessage);
1766: ELSIF l_names(i) = 'OapfNlsLang' THEN
1797: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1798: p_data => x_msg_data
1799: );
1800:
1801: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1802: debug_level => FND_LOG.LEVEL_STATEMENT,
1803: module => G_DEBUG_MODULE || '.SecureCardInfo');
1804: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
1805: debug_level => FND_LOG.LEVEL_STATEMENT,
1800:
1801: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1802: debug_level => FND_LOG.LEVEL_STATEMENT,
1803: module => G_DEBUG_MODULE || '.SecureCardInfo');
1804: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
1805: debug_level => FND_LOG.LEVEL_STATEMENT,
1806: module => G_DEBUG_MODULE || '.SecureCardInfo');
1807:
1808: iby_debug_pub.add(debug_msg => 'Exit',
1804: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
1805: debug_level => FND_LOG.LEVEL_STATEMENT,
1806: module => G_DEBUG_MODULE || '.SecureCardInfo');
1807:
1808: iby_debug_pub.add(debug_msg => 'Exit',
1809: debug_level => FND_LOG.LEVEL_PROCEDURE,
1810: module => G_DEBUG_MODULE || '.SecureCardInfo');
1811: --test_debug('Exit*******');
1812:
1813: EXCEPTION
1814:
1815: WHEN FND_API.G_EXC_ERROR THEN
1816:
1817: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
1818: debug_level => FND_LOG.LEVEL_ERROR,
1819: module => G_DEBUG_MODULE || '.SecureCardInfo');
1820: --ROLLBACK TO OraPmtReq_PUB;
1821: x_return_status := FND_API.G_RET_STS_ERROR ;
1823: p_data => x_msg_data
1824: );
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1826:
1827: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
1828: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1829: module => G_DEBUG_MODULE || '.SecureCardInfo');
1830: --ROLLBACK TO OraPmtReq_PUB;
1831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1833: p_data => x_msg_data
1834: );
1835: WHEN OTHERS THEN
1836:
1837: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
1838: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1839: module => G_DEBUG_MODULE || '.SecureCardInfo');
1840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1841: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1845: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1846: p_data => x_msg_data
1847: );
1848:
1849: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1850: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1851: module => G_DEBUG_MODULE || '.SecureCardInfo');
1852: iby_debug_pub.add(debug_msg => 'Exit Exception',
1853: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1848:
1849: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
1850: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1851: module => G_DEBUG_MODULE || '.SecureCardInfo');
1852: iby_debug_pub.add(debug_msg => 'Exit Exception',
1853: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1854: module => G_DEBUG_MODULE || '.SecureCardInfo');
1855:
1856: END SecureCardInfo;
1894: l_status NUMBER := 0;
1895: l_errcode NUMBER := 0;
1896: l_errmessage VARCHAR2(2000) := 'Success';
1897: BEGIN
1898: iby_debug_pub.add(debug_msg => 'Enter',
1899: debug_level => FND_LOG.LEVEL_PROCEDURE,
1900: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1901:
1902: -- test_debug('SecureCardInfo=> Enter');
1930: iby_netutils_pvt.check_mandatory('OapfSecurityToken', TO_CHAR(l_sec_cred),
1931: l_url, l_db_nls, l_ecapp_nls);
1932:
1933: --test_debug('Get_Expiration_Status=> full url: '|| l_url);
1934: iby_debug_pub.add(debug_msg => 'Get_Expiration_Status=> full url: '|| l_url,
1935: debug_level => FND_LOG.LEVEL_PROCEDURE,
1936: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1937: l_pos := INSTR(l_url,'?');
1938: l_post_body := SUBSTR(l_url,l_pos+1,length(l_url));
1950:
1951: --Raising Exception to handle errors in unpacking resulting html file.
1952: IF (l_status = -1) THEN
1953: --test_debug('unpack error !!');
1954: iby_debug_pub.add(debug_msg => 'Unpack status error; HTML resp. invalid!',
1955: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1956: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1957: FND_MESSAGE.SET_NAME('IBY', 'IBY_204403_HTML_UNPACK_ERROR');
1958: FND_MSG_PUB.Add;
1961:
1962: --Raising Exception to handle Servlet related errors.
1963: IF (l_names.COUNT = 0) THEN
1964: --test_debug('response count is 0 !!');
1965: iby_debug_pub.add(debug_msg => 'HTML response names count=0',
1966: debug_level => FND_LOG.LEVEL_UNEXPECTED,
1967: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1968: FND_MESSAGE.SET_NAME('IBY', 'IBY_204402_JSERVLET_ERROR');
1969: FND_MSG_PUB.Add;
1973: /* Retrieve name-value pairs stored in l_names and l_values, and assign
1974: them to the output record: x_reqresp_rec.
1975: */
1976: --test_debug('Setting fields from unpacked response');
1977: iby_debug_pub.add(debug_msg => 'Setting fields from unpacked response',
1978: debug_level => FND_LOG.LEVEL_STATEMENT,
1979: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1980:
1981:
1982: FOR i IN 1..l_names.COUNT LOOP
1983: --Payment Server Related Generic Response
1984: IF l_names(i) = 'OapfStatus' THEN
1985: x_resp_rec.Response.Status := TO_NUMBER(l_values(i));
1986: iby_debug_pub.add(debug_msg => 'Response status=' || x_resp_rec.Response.Status,
1987: debug_level => FND_LOG.LEVEL_STATEMENT,
1988: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1989: --test_debug('OapfStatus: '||x_resp_rec.Response.Status);
1990: ELSIF l_names(i) = 'OapfCode' THEN
1988: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1989: --test_debug('OapfStatus: '||x_resp_rec.Response.Status);
1990: ELSIF l_names(i) = 'OapfCode' THEN
1991: x_resp_rec.Response.ErrCode := l_values(i);
1992: iby_debug_pub.add(debug_msg => 'Response code=' || x_resp_rec.Response.ErrCode,
1993: debug_level => FND_LOG.LEVEL_STATEMENT,
1994: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1995: --test_debug('OapfCode: '||x_resp_rec.Response.ErrCode);
1996: ELSIF l_names(i) = 'OapfCause' THEN
1994: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
1995: --test_debug('OapfCode: '||x_resp_rec.Response.ErrCode);
1996: ELSIF l_names(i) = 'OapfCause' THEN
1997: x_resp_rec.Response.ErrMessage := l_values(i);
1998: iby_debug_pub.add(debug_msg => 'Response message=' || x_resp_rec.Response.ErrMessage,
1999: debug_level => FND_LOG.LEVEL_STATEMENT,
2000: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2001: --test_debug('OapfCause: '||x_resp_rec.Response.ErrMessage);
2002: ELSIF l_names(i) = 'OapfNlsLang' THEN
2024: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2025: p_data => x_msg_data
2026: );
2027:
2028: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2029: debug_level => FND_LOG.LEVEL_STATEMENT,
2030: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2031: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
2032: debug_level => FND_LOG.LEVEL_STATEMENT,
2027:
2028: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2029: debug_level => FND_LOG.LEVEL_STATEMENT,
2030: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2031: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
2032: debug_level => FND_LOG.LEVEL_STATEMENT,
2033: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2034:
2035: iby_debug_pub.add(debug_msg => 'Exit',
2031: iby_debug_pub.add(debug_msg => 'req response status=' || x_resp_rec.Response.Status,
2032: debug_level => FND_LOG.LEVEL_STATEMENT,
2033: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2034:
2035: iby_debug_pub.add(debug_msg => 'Exit',
2036: debug_level => FND_LOG.LEVEL_PROCEDURE,
2037: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2038: --test_debug('Exit*******');
2039:
2040: EXCEPTION
2041:
2042: WHEN FND_API.G_EXC_ERROR THEN
2043:
2044: iby_debug_pub.add(debug_msg => 'In G_EXC_ERROR Exception',
2045: debug_level => FND_LOG.LEVEL_ERROR,
2046: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2047: --ROLLBACK TO OraPmtReq_PUB;
2048: x_return_status := FND_API.G_RET_STS_ERROR ;
2050: p_data => x_msg_data
2051: );
2052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2053:
2054: iby_debug_pub.add(debug_msg => 'In G_EXC_UNEXPECTED_ERROR Exception',
2055: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2056: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2057: --ROLLBACK TO OraPmtReq_PUB;
2058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2060: p_data => x_msg_data
2061: );
2062: WHEN OTHERS THEN
2063:
2064: iby_debug_pub.add(debug_msg => 'In OTHERS Exception',
2065: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2066: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2068: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2072: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2073: p_data => x_msg_data
2074: );
2075:
2076: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2077: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2078: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2079: iby_debug_pub.add(debug_msg => 'Exit Exception',
2080: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2075:
2076: iby_debug_pub.add(debug_msg => 'x_return_status=' || x_return_status,
2077: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2078: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2079: iby_debug_pub.add(debug_msg => 'Exit Exception',
2080: debug_level => FND_LOG.LEVEL_UNEXPECTED,
2081: module => G_DEBUG_MODULE || '.Get_Expiration_Status');
2082: END Get_Expiration_Status;
2083: