1: PACKAGE BODY AP_IBY_UTILITY_PKG as
2: /* $Header: apibexub.pls 120.6 2011/09/28 07:28:18 anubagar ship $ */
3:
4: -- Package global
5: -- FND_LOG related variables to enable logging for this package
6: --
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_IBY_UTILITY_PKG';
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
12: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
13: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
14: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
15:
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
14: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
15:
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
15:
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15:
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP.PLSQL.AP_IBY_UTILITY_PKG.';
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP.PLSQL.AP_IBY_UTILITY_PKG.';
24:
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP.PLSQL.AP_IBY_UTILITY_PKG.';
24:
25: FUNCTION Get_Default_Iby_Bank_Acct_Id (
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP.PLSQL.AP_IBY_UTILITY_PKG.';
24:
25: FUNCTION Get_Default_Iby_Bank_Acct_Id (
26: X_Vendor_Id IN NUMBER,
52: l_current_calling_sequence := X_calling_sequence||'->'||
53: 'AP_IBY_UTILITY_PKG.Get_Default_Iby_Bank_Acct_Id';
54: --
55: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
56: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
57: ||' X_Vendor_Id: '|| X_Vendor_Id
58: ||', X_Vendor_Site_Id: '||X_Vendor_Site_Id
59: ||', X_Org_Id: '||X_Org_Id
60: ||', X_Currency_Code: '||X_Currency_Code);
86: WHEN NO_DATA_FOUND THEN
87: l_debug_info := 'Supplier Does not exists';
88: --
89: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
90: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
91: END IF;
92:
93: Raise IBY_API_ERROR;
94: End;
119: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
120: l_debug_info := 'Sucessfull IBY API Call ';
121: --
122: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
123: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
124: END IF;
125:
126: l_default_bank_acct_id := Iby_Payee_BankAccount_Rec.Payee_BankAccount_Id;
127:
153: FND_MESSAGE.SET_TOKEN('PARAMETERS','X_Vendor_Id: '||X_Vendor_Id
154: ||',X_vendor_Site_id: '||X_vendor_site_id);
155: --
156: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
157: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'IBY_API_ERROR');
158: END IF;
159: --
160: WHEN OTHERS THEN
161: IF (SQLCODE <> -20001 ) THEN
167: ||',X_vendor_Site_id: '||X_vendor_site_id);
168: END IF;
169: --
170: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
171: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
172: END IF;
173:
174: END Get_Default_Iby_Bank_Acct_Id;
175:
201: l_current_calling_sequence := X_calling_sequence||'->'||
202: 'AP_IBY_UTILITY_PKG.Get_Default_Iby_Bank_Acct_Id';
203: --
204: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
205: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Parameters: '
206: ||' X_Party_Id: '|| X_Party_Id
207: ||', X_Party_Site_Id: '||X_Party_Site_Id
208: ||', X_Org_Id: '||X_Org_Id
209: ||', X_Payment_Function: '||X_Payment_Function
234: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
235: l_debug_info := 'Sucessfull IBY API Call ';
236: --
237: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
239: END IF;
240:
241: l_default_bank_acct_id := Iby_Payee_BankAccount_Rec.Payee_BankAccount_Id;
242:
268: FND_MESSAGE.SET_TOKEN('PARAMETERS','X_Party_Id: '||X_Party_Id
269: ||',X_Party_Site_id: '||X_Party_site_id);
270: --
271: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
272: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'IBY_API_ERROR');
273: END IF;
274: --
275: WHEN OTHERS THEN
276: IF (SQLCODE <> -20001 ) THEN
282: ||',X_party_Site_id: '||X_party_site_id);
283: END IF;
284: --
285: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
286: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
287: END IF;
288:
289: END Get_Default_Iby_Bank_Acct_Id;
290: