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.3 2007/12/20 07:18:18 mahkumar 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.3 2007/12/20 07:18:18 mahkumar 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:
35: BEGIN
36:
37: -- Initialize API return status to success

Line 41: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Line 196: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

192: x_party_site_id IN NUMBER) IS
193:
194: -- Logging Infra:
195: l_procedure_name CONSTANT VARCHAR2(30) := 'SYNC_Supplier_Sites';
196: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
197:
198: --
199: l_state ap_supplier_sites_all.state%type;
200: l_province ap_supplier_sites_all.province%type;

Line 227: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

223: -- Initialize API return status to success
224: x_return_status := fnd_api.g_ret_sts_success;
225:
226: -- Logging Infra: Setting up runtime level
227: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
228:
229: -- Logging Infra: Procedure level
230: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
231: l_log_msg := 'Begin of procedure '|| l_procedure_name;

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

228:
229: -- Logging Infra: Procedure level
230: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
231: l_log_msg := 'Begin of procedure '|| l_procedure_name;
232: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
233: l_procedure_name||'.begin', l_log_msg);
234: END IF;
235:
236: -- Logging Infra: Statement level

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

235:
236: -- Logging Infra: Statement level
237: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
238: l_log_msg := 'Party Site ID '|| x_party_site_id;
239: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
240: '.'||l_procedure_name, l_log_msg);
241: END IF;
242:
243: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN

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

241: END IF;
242:
243: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
244: l_log_msg := 'Location ID '|| x_location_id;
245: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
246: '.'||l_procedure_name, l_log_msg);
247: END IF;
248:
249: IF x_location_id IS NOT NULL THEN

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

249: IF x_location_id IS NOT NULL THEN
250:
251: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
252: l_log_msg := 'Selecting Attributes for : '|| x_location_id;
253: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
254: '.'||l_procedure_name, l_log_msg);
255: END IF;
256:
257: SELECT hl.state,

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

293:
294: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
295: l_log_msg := 'Check atleast one Supplier Site exist for : '
296: || x_location_id;
297: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
298: '.'||l_procedure_name, l_log_msg);
299: END IF;
300:
301: BEGIN

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

313:
314: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
315: l_log_msg := 'Update Supplier Sites Upgrade Cases: '
316: || x_location_id;
317: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
318: '.'||l_procedure_name, l_log_msg);
319: END IF;
320:
321: --

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

335: WHERE location_id = x_location_id;
336:
337: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
338: l_log_msg := 'Update Supplier Sites for : '|| x_location_id;
339: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
340: '.'||l_procedure_name, l_log_msg);
341: END IF;
342:
343: UPDATE ap_supplier_sites_all

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

361:
362: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
363: l_log_msg := 'After Update of Site Attributes for : '
364: || x_location_id;
365: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
366: '.'||l_procedure_name, l_log_msg);
367: END IF;
368: END IF;
369: END IF;

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

386: IF x_party_site_id IS NOT NULL THEN
387:
388: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
389: l_log_msg := 'Selecting Attributes for : '|| x_party_site_id;
390: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
391: '.'||l_procedure_name, l_log_msg);
392: END IF;
393:
394: SELECT duns_number_c

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

397: WHERE party_site_id = x_party_site_id;
398:
399: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
400: l_log_msg := 'Update Supplier Sites for : '|| x_party_site_id;
401: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
402: '.'||l_procedure_name, l_log_msg);
403: END IF;
404:
405: UPDATE ap_supplier_sites_all

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

410: WHERE a.party_site_id = x_party_site_id);
411:
412: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
413: l_log_msg := 'After Update of Site Attributes for : '|| x_party_site_id;
414: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||
415: '.'||l_procedure_name, l_log_msg);
416: END IF;
417:
418: END IF;

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

420:
421: -- Logging Infra: Procedure level
422: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
423: l_log_msg := 'End of procedure '|| l_procedure_name;
424: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
425: l_procedure_name||'.begin', l_log_msg);
426: END IF;
427:
428: EXCEPTION