1: PACKAGE BODY IEX_PAYMENTS_PUB as
2: /* $Header: iexpypyb.pls 120.15.12010000.2 2008/08/29 13:53:38 gnramasa ship $ */
3:
4: PG_DEBUG NUMBER; -- := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
3:
4: PG_DEBUG NUMBER; -- := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_APP_ID CONSTANT NUMBER := 695;
7: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_PAYMENTS_PUB';
8: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpypyb.pls';
9: G_LOGIN_ID NUMBER; -- := FND_GLOBAL.Conc_Login_Id;
10: G_PROGRAM_ID NUMBER; -- := FND_GLOBAL.Conc_Program_Id;
11: G_USER_ID NUMBER; -- := FND_GLOBAL.User_Id;
13: G_ONLINE_CCPAY varchar2(5) := NVL(fnd_profile.value('IEX_ONLINE_CCPAY'),'N'); -- Fix a bug 5897567
14:
15:
16: procedure validate_input(
17: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
18: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
19: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE)
20:
21: is
14:
15:
16: procedure validate_input(
17: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
18: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
19: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE)
20:
21: is
22: l_count number; -- := P_PMTDTLS_TBL.COUNT;
15:
16: procedure validate_input(
17: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
18: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
19: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE)
20:
21: is
22: l_count number; -- := P_PMTDTLS_TBL.COUNT;
23: l_amount number;
658: P_VALIDATION_LEVEL IN NUMBER,
659: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
660: X_MSG_COUNT OUT NOCOPY NUMBER,
661: X_MSG_DATA OUT NOCOPY VARCHAR2,
662: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
663: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
664: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
665: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
666: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
659: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
660: X_MSG_COUNT OUT NOCOPY NUMBER,
661: X_MSG_DATA OUT NOCOPY VARCHAR2,
662: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
663: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
664: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
665: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
666: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
667: IS
660: X_MSG_COUNT OUT NOCOPY NUMBER,
661: X_MSG_DATA OUT NOCOPY VARCHAR2,
662: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
663: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
664: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
665: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
666: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
667: IS
668: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_AR_PAYMENT';
662: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
663: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
664: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
665: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
666: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
667: IS
668: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_AR_PAYMENT';
669: l_api_version CONSTANT NUMBER := 1.0;
670: l_return_status VARCHAR2(1);
1757: P_VALIDATION_LEVEL IN NUMBER,
1758: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1759: X_MSG_COUNT OUT NOCOPY NUMBER,
1760: X_MSG_DATA OUT NOCOPY VARCHAR2,
1761: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
1762: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
1763: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
1764: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
1765: IS
1758: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1759: X_MSG_COUNT OUT NOCOPY NUMBER,
1760: X_MSG_DATA OUT NOCOPY VARCHAR2,
1761: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
1762: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
1763: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
1764: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
1765: IS
1766: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_OKL_PAYMENT';
1759: X_MSG_COUNT OUT NOCOPY NUMBER,
1760: X_MSG_DATA OUT NOCOPY VARCHAR2,
1761: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
1762: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
1763: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
1764: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
1765: IS
1766: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_OKL_PAYMENT';
1767: l_api_version CONSTANT NUMBER := 1.0;
1760: X_MSG_DATA OUT NOCOPY VARCHAR2,
1761: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
1762: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
1763: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
1764: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE)
1765: IS
1766: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_OKL_PAYMENT';
1767: l_api_version CONSTANT NUMBER := 1.0;
1768: l_return_status VARCHAR2(1);
2837: P_VALIDATION_LEVEL IN NUMBER,
2838: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
2839: X_MSG_COUNT OUT NOCOPY NUMBER,
2840: X_MSG_DATA OUT NOCOPY VARCHAR2,
2841: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
2842: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
2843: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
2844: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
2845: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE ) IS
2838: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
2839: X_MSG_COUNT OUT NOCOPY NUMBER,
2840: X_MSG_DATA OUT NOCOPY VARCHAR2,
2841: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
2842: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
2843: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
2844: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
2845: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE ) IS
2846:
2839: X_MSG_COUNT OUT NOCOPY NUMBER,
2840: X_MSG_DATA OUT NOCOPY VARCHAR2,
2841: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
2842: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
2843: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
2844: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
2845: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE ) IS
2846:
2847: BEGIN
2841: P_PMT_REC IN IEX_PAYMENTS_PUB.PMT_REC_TYPE,
2842: P_PMTDTLS_TBL IN IEX_PAYMENTS_PUB.PMTDTLS_TBL_TYPE,
2843: P_PMTINSTR_REC IN IEX_PAYMENTS_PUB.PMTINSTR_REC_TYPE,
2844: P_PMT_METHOD IN NUMBER, -- Included by varangan for profile bug#4558547
2845: X_PMTRESP_REC OUT NOCOPY IEX_PAYMENTS_PUB.PMTRESP_REC_TYPE ) IS
2846:
2847: BEGIN
2848:
2849: IF P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' or P_PMT_REC.PAYMENT_TARGET = 'INVOICES' THEN