DBA Data[Home] [Help]

APPS.ZX_MERGE_LOC_CHECK_PKG dependencies on FND_LOG

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

1: PACKAGE BODY ZX_MERGE_LOC_CHECK_PKG AS
2: /* $Header: zxcmergegnrchkb.pls 120.3.12010000.2 2008/10/20 18:19:08 tsen ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

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

2: /* $Header: zxcmergegnrchkb.pls 120.3.12010000.2 2008/10/20 18:19:08 tsen ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

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

3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_MERGE_LOC_CHECK_PKG';

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

4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_MERGE_LOC_CHECK_PKG';
12: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

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

5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_MERGE_LOC_CHECK_PKG';
12: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
13: l_procedure_name CONSTANT VARCHAR2(30) := 'CHECK_GNR';

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

6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_MERGE_LOC_CHECK_PKG';
12: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
13: l_procedure_name CONSTANT VARCHAR2(30) := 'CHECK_GNR';
14:

Line 12: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_MERGE_LOC_CHECK_PKG';
12: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
13: l_procedure_name CONSTANT VARCHAR2(30) := 'CHECK_GNR';
14:
15: PROCEDURE CHECK_GNR(p_from_location_id IN NUMBER,
16: p_to_location_id IN NUMBER,

Line 118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

114: IF l_from_geography_id_count = 0 OR l_to_geography_id_count = 0 THEN
115: x_merge_yn := 'N';
116: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
117: l_log_msg := 'B: Tax Usage exists for from and to locations but no GNR has been created';
118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
119: END IF;
120: return;
121: END IF;
122: IF l_from_geography_id_count <> l_to_geography_id_count THEN

Line 126: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

122: IF l_from_geography_id_count <> l_to_geography_id_count THEN
123: x_merge_yn := 'N';
124: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
125: l_log_msg := 'B: Tax Usage exists for from and to locations but GNR rows are different';
126: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
127: END IF;
128: ELSE
129: FOR i IN l_from_geography_id_tbl.first..l_from_geography_id_tbl.last LOOP
130: IF l_from_geography_id_tbl(i) = l_to_geography_id_tbl(i) THEN

Line 136: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

132: ELSE
133: x_merge_yn := 'N';
134: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
135: l_log_msg := 'B: Tax Usage exists for from and to locations and GNR rows are not identical';
136: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
137: END IF;
138: EXIT;
139: END IF ;
140: END LOOP;

Line 143: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

139: END IF ;
140: END LOOP;
141: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
142: l_log_msg := 'B: After Loop Tax Usage for from and to locations and GNR rows are identical';
143: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
144: END IF;
145:
146: END IF;
147:

Line 163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

159: IF l_from_country_code <> l_to_country_code THEN
160: x_merge_yn := 'N';
161: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
162: l_log_msg := 'B: Tax Usage does not exist for from and to locations and country codes are different';
163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
164: END IF;
165: ELSE
166: x_merge_yn := 'Y';
167: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 169: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

165: ELSE
166: x_merge_yn := 'Y';
167: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
168: l_log_msg := 'B: Tax Usage does not exist for from and to locations and country codes are identical';
169: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
170: END IF;
171: END IF;
172:
173: ELSIF l_from_tax_usage_exists = 'TRUE' and l_to_tax_usage_exists = 'FALSE' THEN

Line 177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

173: ELSIF l_from_tax_usage_exists = 'TRUE' and l_to_tax_usage_exists = 'FALSE' THEN
174: x_merge_yn := 'N';
175: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
176: l_log_msg := 'B: Tax Usage exists for from location but not for to location';
177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
178: END IF;
179:
180: ELSIF l_from_tax_usage_exists = 'FALSE' and l_to_tax_usage_exists = 'TRUE' THEN
181: x_merge_yn := 'N';

Line 184: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

180: ELSIF l_from_tax_usage_exists = 'FALSE' and l_to_tax_usage_exists = 'TRUE' THEN
181: x_merge_yn := 'N';
182: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
183: l_log_msg := 'B: Tax Usage does not exist for from location but exists for to location';
184: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
185: END IF;
186: END IF;
187: EXCEPTION WHEN OTHERS THEN
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 199: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'E: EXC: OTHERS: '||SQLCODE||': '||SQLERRM);

195: p_data => x_msg_data);
196:
197: -- Logging Infra: Statement level
198: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
199: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'E: EXC: OTHERS: '||SQLCODE||': '||SQLERRM);
200: END IF;
201:
202:
203: END;