DBA Data[Home] [Help]

APPS.AP_TCA_SUPPLIER_SYNC_PKG dependencies on FND_LOG

Line 5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1: PACKAGE BODY AP_TCA_SUPPLIER_SYNC_PKG AS
2: /* $Header: aptcasyb.pls 120.10 2011/01/17 06:26:03 zrehman ship $ */
3:
4: -- Logging Infrastructure
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

Line 6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

2: /* $Header: aptcasyb.pls 120.10 2011/01/17 06:26:03 zrehman ship $ */
3:
4: -- Logging Infrastructure
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

Line 7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

3:
4: -- Logging Infrastructure
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

Line 8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;

4: -- Logging Infrastructure
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_TCA_SUPPLIER_SYNC_PKG.';

Line 9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_TCA_SUPPLIER_SYNC_PKG.';
13:

Line 10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_TCA_SUPPLIER_SYNC_PKG.';
13:
14: -- Procedure Sync Supplier

Line 11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_TCA_SUPPLIER_SYNC_PKG.';
13:
14: -- Procedure Sync Supplier
15: PROCEDURE SYNC_Supplier

Line 33: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

29: l_check_num_1099 ap_suppliers.tca_sync_num_1099%type;
30:
31: -- Logging Infra:
32: l_procedure_name CONSTANT VARCHAR2(30) := 'SYNC_Supplier';
33: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
34: BEGIN
35:
36: -- Initialize API return status to success
37: x_return_status := fnd_api.g_ret_sts_success;

Line 40: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

36: -- Initialize API return status to success
37: x_return_status := fnd_api.g_ret_sts_success;
38:
39: -- Logging Infra: Setting up runtime level
40: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
41:
42: -- Logging Infra: Procedure level
43: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
44: l_log_msg := 'Begin of procedure '|| l_procedure_name;

Line 45: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

41:
42: -- Logging Infra: Procedure level
43: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
44: l_log_msg := 'Begin of procedure '|| l_procedure_name;
45: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
46: l_procedure_name||'.begin', l_log_msg);
47: END IF;
48:
49: -- Logging Infra: Statement level

Line 52: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

48:
49: -- Logging Infra: Statement level
50: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
51: l_log_msg := 'Party ID '|| x_party_id;
52: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
53: '.'||l_procedure_name, l_log_msg);
54: END IF;
55:
56:

Line 62: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

58:
59: -- Logging Infra: Statement level
60: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
61: l_log_msg := 'Select sync attrributes from TCA for '|| x_party_id;
62: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
63: '.'||l_procedure_name, l_log_msg);
64: END IF;
65:
66: SELECT jgzz_fiscal_code,

Line 84: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

80:
81: -- Logging Infra: Statement level
82: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
83: l_log_msg := 'After Selecting Attributes for '|| x_party_id;
84: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
85: '.'||l_procedure_name, l_log_msg);
86: END IF;
87:
88: -- Logging Infra: Statement level

Line 91: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

87:
88: -- Logging Infra: Statement level
89: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
90: l_log_msg := 'Select to check if supplier exists for '|| x_party_id;
91: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
92: '.'||l_procedure_name, l_log_msg);
93: END IF;
94:
95: --

Line 162: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

158:
159: -- Logging Infra: Statement level
160: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
161: l_log_msg := 'After updating suppliers for '|| x_party_id;
162: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
163: '.'||l_procedure_name, l_log_msg);
164: END IF;
165: END IF;
166: END IF;

Line 171: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

167:
168: -- Logging Infra: Procedure level
169: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
170: l_log_msg := 'End of procedure '|| l_procedure_name;
171: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
172: l_procedure_name||'.begin', l_log_msg);
173: END IF;
174:
175: EXCEPTION

Line 201: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

197: x_vendor_site_id IN NUMBER DEFAULT NULL) IS -- bug 8723400
198:
199: -- Logging Infra:
200: l_procedure_name CONSTANT VARCHAR2(30) := 'SYNC_Supplier_Sites';
201: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
202:
203: --
204: l_state ap_supplier_sites_all.state%type;
205: l_province ap_supplier_sites_all.province%type;

Line 233: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

229: -- Initialize API return status to success
230: x_return_status := fnd_api.g_ret_sts_success;
231:
232: -- Logging Infra: Setting up runtime level
233: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
234:
235: -- Logging Infra: Procedure level
236: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
237: l_log_msg := 'Begin of procedure '|| l_procedure_name;

Line 238: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

234:
235: -- Logging Infra: Procedure level
236: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
237: l_log_msg := 'Begin of procedure '|| l_procedure_name;
238: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
239: l_procedure_name||'.begin', l_log_msg);
240: END IF;
241:
242: -- Logging Infra: Statement level

Line 245: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

241:
242: -- Logging Infra: Statement level
243: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
244: l_log_msg := 'Party Site ID '|| x_party_site_id;
245: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
246: '.'||l_procedure_name, l_log_msg);
247: END IF;
248:
249: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN

Line 251: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

247: END IF;
248:
249: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
250: l_log_msg := 'Location ID '|| x_location_id;
251: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
252: '.'||l_procedure_name, l_log_msg);
253: END IF;
254:
255: IF x_location_id IS NOT NULL THEN

Line 259: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

255: IF x_location_id IS NOT NULL THEN
256:
257: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
258: l_log_msg := 'Selecting Attributes for : '|| x_location_id;
259: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
260: '.'||l_procedure_name, l_log_msg);
261: END IF;
262:
263: SELECT hl.state,

Line 305: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

301:
302: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
303: l_log_msg := 'Check atleast one Supplier Site exist for : '
304: || x_location_id;
305: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
306: '.'||l_procedure_name, l_log_msg);
307: END IF;
308:
309: BEGIN

Line 336: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

332:
333: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
334: l_log_msg := 'Update Supplier Sites Upgrade Cases: '
335: || x_location_id;
336: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
337: '.'||l_procedure_name, l_log_msg);
338: END IF;
339:
340: --

Line 358: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

354: WHERE location_id = x_location_id;
355:
356: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
357: l_log_msg := 'Update Supplier Sites for : '|| x_location_id;
358: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
359: '.'||l_procedure_name, l_log_msg);
360: END IF;
361:
362: UPDATE ap_supplier_sites_all

Line 401: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

397:
398: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
399: l_log_msg := 'After Update of Site Attributes for : '
400: || x_location_id;
401: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
402: '.'||l_procedure_name, l_log_msg);
403: END IF;
404: END IF;
405: END IF;

Line 426: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

422: IF x_party_site_id IS NOT NULL THEN
423:
424: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
425: l_log_msg := 'Selecting Attributes for : '|| x_party_site_id;
426: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
427: '.'||l_procedure_name, l_log_msg);
428: END IF;
429:
430: SELECT duns_number_c

Line 437: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

433: WHERE party_site_id = x_party_site_id;
434:
435: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
436: l_log_msg := 'Update Supplier Sites for : '|| x_party_site_id;
437: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
438: '.'||l_procedure_name, l_log_msg);
439: END IF;
440:
441: UPDATE ap_supplier_sites_all

Line 450: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||

446: WHERE a.party_site_id = x_party_site_id);
447:
448: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
449: l_log_msg := 'After Update of Site Attributes for : '|| x_party_site_id;
450: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
451: '.'||l_procedure_name, l_log_msg);
452: END IF;
453:
454: END IF;

Line 460: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

456:
457: -- Logging Infra: Procedure level
458: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
459: l_log_msg := 'End of procedure '|| l_procedure_name;
460: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
461: l_procedure_name||'.begin', l_log_msg);
462: END IF;
463:
464: EXCEPTION