61: END IF;
62:
63: -- Initialize API return status to success.
64:
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66:
67: l_party_type_tbl_idx := dbms_utility.get_hash_value(p_party_type, 1, 8192);
68:
69: IF (ZX_GLOBAL_STRUCTURES_PKG.ZX_PARTY_TYPES_CACHE.exists(l_party_type_tbl_idx)) THEN
118: END IF;
119:
120: EXCEPTION WHEN OTHERS THEN
121: -- Party type information could not be retrived.
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: FND_MESSAGE.SET_NAME('ZX', 'ZX_TCM_NO_PARTY_TYPE_INFO');
124:
125: -- Logging Infra: Statement level
126: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
210: l_log_msg := l_procedure_name||'(+)';
211: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name || '.begin', l_log_msg);
212: END IF;
213:
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
215: IF ZX_GLOBAL_STRUCTURES_PKG.Loc_info_tbl.exists(to_char(p_location_id)) then
216:
217: x_location_info_rec := zx_global_Structures_pkg.loc_info_tbl(to_char(p_location_id));
218:
257: l_log_msg := l_log_msg ||' E: SEL country_code: no_data_found: p_location_id='||p_location_id;
258: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
259: END IF;
260:
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_LOC_REC');
263: FND_MESSAGE.SET_TOKEN('LOC_ID', p_location_id);
264: FND_MESSAGE.SET_TOKEN('TABLE_NAME', p_location_table_name);
265: RAISE FND_API.G_EXC_ERROR;
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_LOC_REC');
263: FND_MESSAGE.SET_TOKEN('LOC_ID', p_location_id);
264: FND_MESSAGE.SET_TOKEN('TABLE_NAME', p_location_table_name);
265: RAISE FND_API.G_EXC_ERROR;
266: END;
267: END;
268:
269: ELSIF p_location_table_name = 'HZ_LOCATIONS' THEN
304: l_log_msg := 'E: SEL country_code: no_data_found: p_location_id='||p_location_id;
305: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
306: END IF;
307:
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_LOC_REC');
310: FND_MESSAGE.SET_TOKEN('LOC_ID', p_location_id);
311: FND_MESSAGE.SET_TOKEN('TABLE_NAME', p_location_table_name);
312: RAISE FND_API.G_EXC_ERROR;
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_LOC_REC');
310: FND_MESSAGE.SET_TOKEN('LOC_ID', p_location_id);
311: FND_MESSAGE.SET_TOKEN('TABLE_NAME', p_location_table_name);
312: RAISE FND_API.G_EXC_ERROR;
313: END;
314: END;
315: END IF;
316: END IF; -- Loc_info_tbl.exists
347: zx_valid_init_params_pkg.source_rec.ship_from_party_type, x_location_table_name,
348: l_loc_site,
349: x_return_status);
350:
351: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
352: RAISE FND_API.G_EXC_ERROR;
353: END IF;
354:
355: ELSIF p_location_type = 'SHIP_TO' THEN
348: l_loc_site,
349: x_return_status);
350:
351: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
352: RAISE FND_API.G_EXC_ERROR;
353: END IF;
354:
355: ELSIF p_location_type = 'SHIP_TO' THEN
356: get_pos_loc_or_site(
358: x_location_table_name,
359: l_loc_site,
360: x_return_status);
361:
362: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
363: RAISE FND_API.G_EXC_ERROR;
364: END IF;
365:
366: ELSIF p_location_type = 'BILL_FROM' THEN
359: l_loc_site,
360: x_return_status);
361:
362: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
363: RAISE FND_API.G_EXC_ERROR;
364: END IF;
365:
366: ELSIF p_location_type = 'BILL_FROM' THEN
367: get_pos_loc_or_site(
367: get_pos_loc_or_site(
368: zx_valid_init_params_pkg.source_rec.bill_from_party_type, x_location_table_name,
369: l_loc_site,
370: x_return_status);
371: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
374:
375: ELSIF p_location_type = 'BILL_TO' THEN
368: zx_valid_init_params_pkg.source_rec.bill_from_party_type, x_location_table_name,
369: l_loc_site,
370: x_return_status);
371: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
374:
375: ELSIF p_location_type = 'BILL_TO' THEN
376: get_pos_loc_or_site(
377: zx_valid_init_params_pkg.source_rec.bill_to_party_type,
378: x_location_table_name,
379: l_loc_site,
380: x_return_status);
381: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
382: RAISE FND_API.G_EXC_ERROR;
383: END IF;
384:
385: ELSIF p_location_type = 'POA' THEN
378: x_location_table_name,
379: l_loc_site,
380: x_return_status);
381: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
382: RAISE FND_API.G_EXC_ERROR;
383: END IF;
384:
385: ELSIF p_location_type = 'POA' THEN
386: get_pos_loc_or_site(
387: zx_valid_init_params_pkg.source_rec.poa_party_type,
388: x_location_table_name,
389: l_loc_site,
390: x_return_status);
391: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394:
395: ELSIF p_location_type = 'POO' THEN
388: x_location_table_name,
389: l_loc_site,
390: x_return_status);
391: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394:
395: ELSIF p_location_type = 'POO' THEN
396: get_pos_loc_or_site(
397: zx_valid_init_params_pkg.source_rec.poo_party_type,
398: x_location_table_name,
399: l_loc_site,
400: x_return_status);
401: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
402: RAISE FND_API.G_EXC_ERROR;
403: END IF;
404:
405: ELSIF p_location_type = 'TRADING_HQ' THEN
398: x_location_table_name,
399: l_loc_site,
400: x_return_status);
401: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
402: RAISE FND_API.G_EXC_ERROR;
403: END IF;
404:
405: ELSIF p_location_type = 'TRADING_HQ' THEN
406: get_pos_loc_or_site(
407: zx_valid_init_params_pkg.source_rec.trad_hq_party_type,
408: x_location_table_name,
409: l_loc_site,
410: x_return_status);
411: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
412: RAISE FND_API.G_EXC_ERROR;
413: END IF;
414:
415: ELSIF p_location_type = 'OWN_HQ' THEN
408: x_location_table_name,
409: l_loc_site,
410: x_return_status);
411: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
412: RAISE FND_API.G_EXC_ERROR;
413: END IF;
414:
415: ELSIF p_location_type = 'OWN_HQ' THEN
416: get_pos_loc_or_site(
416: get_pos_loc_or_site(
417: zx_valid_init_params_pkg.source_rec.own_hq_party_type, x_location_table_name,
418: l_loc_site,
419: x_return_status);
420: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
421: RAISE FND_API.G_EXC_ERROR;
422: END IF;
423:
424: ELSIF p_location_type = 'TITLE_TRANS' THEN
417: zx_valid_init_params_pkg.source_rec.own_hq_party_type, x_location_table_name,
418: l_loc_site,
419: x_return_status);
420: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
421: RAISE FND_API.G_EXC_ERROR;
422: END IF;
423:
424: ELSIF p_location_type = 'TITLE_TRANS' THEN
425: get_pos_loc_or_site(
426: zx_valid_init_params_pkg.source_rec.ttl_trns_party_type,
427: x_location_table_name,
428: l_loc_site,
429: x_return_status);
430: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
431: RAISE FND_API.G_EXC_ERROR;
432: END IF;
433:
434: ELSIF p_location_type = 'PAYING' THEN
427: x_location_table_name,
428: l_loc_site,
429: x_return_status);
430: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
431: RAISE FND_API.G_EXC_ERROR;
432: END IF;
433:
434: ELSIF p_location_type = 'PAYING' THEN
435: get_pos_loc_or_site(
436: zx_valid_init_params_pkg.source_rec.paying_party_type,
437: x_location_table_name,
438: l_loc_site,
439: x_return_status);
440: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
443:
444: ELSIF p_location_type = 'POC' THEN
437: x_location_table_name,
438: l_loc_site,
439: x_return_status);
440: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
443:
444: ELSIF p_location_type = 'POC' THEN
445: /*get_pos_loc_or_site(
454: zx_valid_init_params_pkg.source_rec.poi_party_type,
455: x_location_table_name,
456: l_loc_site,
457: x_return_status);
458: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461:
462: ELSIF p_location_type = 'POD' THEN
455: x_location_table_name,
456: l_loc_site,
457: x_return_status);
458: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461:
462: ELSIF p_location_type = 'POD' THEN
463: get_pos_loc_or_site(
464: zx_valid_init_params_pkg.source_rec.pod_party_type,
465: x_location_table_name,
466: l_loc_site,
467: x_return_status);
468: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
469: RAISE FND_API.G_EXC_ERROR;
470: END IF;
471:
472: ELSIF p_location_type = 'INTERNAL_ORG' THEN
465: x_location_table_name,
466: l_loc_site,
467: x_return_status);
468: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
469: RAISE FND_API.G_EXC_ERROR;
470: END IF;
471:
472: ELSIF p_location_type = 'INTERNAL_ORG' THEN
473: x_location_table_name := 'HR_LOCATIONS_ALL';
482: END IF;
483:
484: EXCEPTION
485:
486: WHEN FND_API.G_EXC_ERROR THEN
487: x_return_status :=FND_API.G_RET_STS_ERROR;
488:
489: END get_location_table_name;
490:
483:
484: EXCEPTION
485:
486: WHEN FND_API.G_EXC_ERROR THEN
487: x_return_status :=FND_API.G_RET_STS_ERROR;
488:
489: END get_location_table_name;
490:
491:
635: END IF;
636:
637: -- Initialize API return status to success.
638:
639: x_return_status := FND_API.G_RET_STS_SUCCESS;
640:
641: -- Derive location table name based on location_type
642: IF ZX_GLOBAL_STRUCTURES_PKG.Loc_info_tbl.exists(to_char(p_location_id)) then
643:
734:
735: END IF;
736:
737: IF l_count_geo = 0 THEN
738: x_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MESSAGE.SET_NAME('ZX', 'ZX_GEO_NO_GEO_NAME_REF');
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742: END IF;
736:
737: IF l_count_geo = 0 THEN
738: x_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MESSAGE.SET_NAME('ZX', 'ZX_GEO_NO_GEO_NAME_REF');
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742: END IF;
743:
744: -- Once table name is got, call TCA's get_zone API
753: x_return_status,
754: x_msg_count,
755: x_msg_data);
756:
757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
758: ZX_API_PUB.G_EXTERNAL_API_CALL := 'Y';
759: END IF;
760:
761: -- Logging Infra: Statement level: "R" means "R"eturned value to a caller
777:
778: END IF;
779:
780: EXCEPTION
781: WHEN FND_API.G_EXC_ERROR THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
783:
784: -- Logging Infra: Statement level: "E" means "E"rror
785: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
778: END IF;
779:
780: EXCEPTION
781: WHEN FND_API.G_EXC_ERROR THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
783:
784: -- Logging Infra: Statement level: "E" means "E"rror
785: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
786: IF x_zone_tbl.count > 0 THEN
784: -- Logging Infra: Statement level: "E" means "E"rror
785: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
786: IF x_zone_tbl.count > 0 THEN
787: FOR i in x_zone_tbl.first..x_zone_tbl.last LOOP
788: l_log_msg := 'E: EXC: FND_API.G_EXC_ERROR: x_zone_id='||x_zone_tbl(i).zone_id||', x_zone_code='||x_zone_tbl(i).zone_code||
789: ', x_zone_name='||x_zone_tbl(i).zone_name||', x_return_status='||x_return_status;
790: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
791: END LOOP;
792: END IF;
792: END IF;
793: END IF;
794:
795: WHEN OTHERS THEN
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
797: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
798: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
799:
800: IF C_GEOGRAPHY_TYPES%ISOPEN THEN
878:
879:
880: -- Initialize API return status to success.
881:
882: x_return_status := FND_API.G_RET_STS_SUCCESS;
883:
884: l_jurisdiction_rec_tmp_tbl.delete;
885: x_jurisdictions_found := 'N';
886:
890: l_tax_regime_rec,
891: x_return_status,
892: l_error_buffer);
893:
894: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
895: IF (g_level_exception >= g_current_runtime_level ) THEN
896:
897: l_log_msg := 'Incorrect return_status after calling ' ||
898: 'ZX_TDS_UTILITIES_PKG.get_regime_cache_info
1003: l_tax_rec,
1004: x_return_status,
1005: l_error_buffer);
1006:
1007: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1008: IF (g_level_exception >= g_current_runtime_level ) THEN
1009:
1010: l_log_msg := 'Incorrect return_status after calling ' ||
1011: 'ZX_TDS_UTILITIES_PKG.get_regime_cache_info
1105: ----- l_log_msg := 'B: geography info: geography_id='||l_geography_id(i)||', geography_name='||l_geography_name(i)||
1106: ----- ', x_return_status='||x_return_status;
1107: ----- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1108: ----- END IF;
1109: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1110: IF l_zone_tbl.count > 0 THEN
1111: FOR j in l_zone_tbl.first..l_zone_tbl.last LOOP
1112: l_geography_id := l_zone_tbl(j).zone_id;
1113: get_jurisdiction(p_tax,
1132: l_log_msg := 'B: geography info: geography_id='||l_geography_id||', geography_name='||l_geography_name||
1133: ', x_return_status='||x_return_status;
1134: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1135: END IF;
1136: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1137: IF l_geography_id IS NOT NULL THEN
1138: get_jurisdiction(p_tax,
1139: p_tax_regime_code,
1140: l_geography_id ,
1210: l_log_msg := l_procedure_name||'(-)';
1211: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME || l_procedure_name || '.end', l_log_msg);
1212: END IF;
1213: EXCEPTION
1214: WHEN FND_API.G_EXC_ERROR THEN
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216:
1217: -- Logging Infra: Statement level
1218: ---- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1211: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME || l_procedure_name || '.end', l_log_msg);
1212: END IF;
1213: EXCEPTION
1214: WHEN FND_API.G_EXC_ERROR THEN
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216:
1217: -- Logging Infra: Statement level
1218: ---- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1219: ---- l_log_msg := 'E: EXC: FND_API.G_EXEC_ERROR: tax_jurisdiction_id='||g_jurisdiction_rec_tbl.tax_jurisdiction_id(i)||
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216:
1217: -- Logging Infra: Statement level
1218: ---- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1219: ---- l_log_msg := 'E: EXC: FND_API.G_EXEC_ERROR: tax_jurisdiction_id='||g_jurisdiction_rec_tbl.tax_jurisdiction_id(i)||
1220: ---- ', tax_jurisdiction_code='||g_jurisdiction_rec_tbl.tax_jurisdiction_code(i);
1221: ---- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1222: ---- END IF;
1223:
1222: ---- END IF;
1223:
1224:
1225: WHEN OTHERS THEN
1226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1227: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
1228: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
1229:
1230: -- Logging Infra: Statement level
1269: l_log_msg := l_log_msg||' B: SEL hz_geography_types: in: p_geography_type='||p_geography_type;
1270: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME || l_procedure_name || '.begin', l_log_msg);
1271: END IF;
1272:
1273: x_return_status := FND_API.G_RET_STS_SUCCESS;
1274:
1275: /* nipatel commented out this validation because the call to get_master_geography is
1276: being made from within this package itself and there we are already fetching the
1277: goegoraphy type from hz_geography_types_b and the call is made only when geograpy_use
1291: l_log_msg := 'E: SEL hz_geography_types: no_data_found: '||'p_geography_type='||p_geography_type;
1292: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1293: END IF;
1294:
1295: --x_return_status := FND_API.G_RET_STS_ERROR;
1296: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_TYPE_INVALID');
1297: RAISE FND_API.G_EXC_ERROR;
1298: END IF;
1299: -- ---------------------
1293: END IF;
1294:
1295: --x_return_status := FND_API.G_RET_STS_ERROR;
1296: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_TYPE_INVALID');
1297: RAISE FND_API.G_EXC_ERROR;
1298: END IF;
1299: -- ---------------------
1300: */
1301: get_location_table_name(p_location_type,
1393: l_log_msg := 'E: SEL hz_geographies: no_data_found: '||'l_country_code='||l_country_code;
1394: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1395: END IF;
1396:
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_INVALID_COUNTRY');
1399: FND_MESSAGE.SET_TOKEN('LOC_ID', p_location_id);
1400: FND_MESSAGE.SET_TOKEN('TABLE_NAME', x_location_table_name);
1401: RAISE FND_API.G_EXC_ERROR;
1397: x_return_status := FND_API.G_RET_STS_ERROR;
1398: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_INVALID_COUNTRY');
1399: FND_MESSAGE.SET_TOKEN('LOC_ID', p_location_id);
1400: FND_MESSAGE.SET_TOKEN('TABLE_NAME', x_location_table_name);
1401: RAISE FND_API.G_EXC_ERROR;
1402: END;
1403: ELSE
1404:
1405:
1409: l_log_msg := 'S: hz_geo_no_geo_name_ref: p_geography_type='||p_geography_type;
1410: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1411: END IF;
1412:
1413: x_return_status := FND_API.G_RET_STS_SUCCESS;
1414:
1415: END IF; -- p_geography_type = 'COUNTRY'
1416: END IF; --x_geography_id IS NULL
1417:
1422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1423: END IF;
1424:
1425: EXCEPTION
1426: WHEN FND_API.G_EXC_ERROR THEN
1427: x_return_status := FND_API.G_RET_STS_ERROR;
1428:
1429: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1430: l_log_msg := 'E: EXC: FND_API.G_EXC_ERROR: x_geography_id='||
1423: END IF;
1424:
1425: EXCEPTION
1426: WHEN FND_API.G_EXC_ERROR THEN
1427: x_return_status := FND_API.G_RET_STS_ERROR;
1428:
1429: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1430: l_log_msg := 'E: EXC: FND_API.G_EXC_ERROR: x_geography_id='||
1431: x_geography_id||', x_gegraphy_code='||x_geography_code||',
1426: WHEN FND_API.G_EXC_ERROR THEN
1427: x_return_status := FND_API.G_RET_STS_ERROR;
1428:
1429: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1430: l_log_msg := 'E: EXC: FND_API.G_EXC_ERROR: x_geography_id='||
1431: x_geography_id||', x_gegraphy_code='||x_geography_code||',
1432: x_geography_name='||x_geography_name;
1433: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||l_procedure_name,l_log_msg);
1434: END IF;
1433: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||l_procedure_name,l_log_msg);
1434: END IF;
1435:
1436: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: FND_MESSAGE.Set_Name ('ZX','ZX_GENERIC_MESSAGE');
1439: FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
1440:
1441: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1528: END IF;
1529:
1530: -- Initialize API return status to success.
1531:
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1533:
1534: IF location_type_tbl.count > 0 THEN
1535:
1536: FOR i IN location_type_tbl.first..location_type_tbl.last LOOP