128:
129: /*-----------------------------------------------
130: | Records for GeoCode Retrieval Package |
131: -----------------------------------------------*/
132: search_rec ZX_TAX_VERTEX_GEO.tGeoSearchRecord;
133: result_rec ZX_TAX_VERTEX_GEO.tGeoResultsRecord;
134:
135: TYPE location_info_rec_type IS RECORD
136: (
129: /*-----------------------------------------------
130: | Records for GeoCode Retrieval Package |
131: -----------------------------------------------*/
132: search_rec ZX_TAX_VERTEX_GEO.tGeoSearchRecord;
133: result_rec ZX_TAX_VERTEX_GEO.tGeoResultsRecord;
134:
135: TYPE location_info_rec_type IS RECORD
136: (
137: state varchar2(2),
2941: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call API to set search criteria for '||
2942: 'finding GeoCode.');
2943: END IF;
2944:
2945: ZX_TAX_VERTEX_GEO.GeoSetNameCriteria(
2946: search_rec,
2947: ZX_TAX_VERTEX_GEO.cGeoCodeLevelCity,
2948: substrb(l_state, 1, 2),
2949: FALSE,
2943: END IF;
2944:
2945: ZX_TAX_VERTEX_GEO.GeoSetNameCriteria(
2946: search_rec,
2947: ZX_TAX_VERTEX_GEO.cGeoCodeLevelCity,
2948: substrb(l_state, 1, 2),
2949: FALSE,
2950: '',
2951: FALSE,
2976: ---------------------------*/
2977: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2978: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call API to get GeoCode.' );
2979: END IF;
2980: retval := ZX_TAX_VERTEX_GEO.GeoRetrieveFirst(search_rec, result_rec);
2981:
2982: EXCEPTION
2983: WHEN OTHERS THEN
2984: IF (g_level_exception >= g_current_runtime_level ) THEN
3013: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call API to pack GeoCode to convert state, '||
3014: 'county, and city GeoCode into one 9-digit GeoCode.' );
3015: END IF;
3016:
3017: l_geocode :=ZX_TAX_VERTEX_GEO.GeoPackGeoCode( result_rec.fResGeoState,
3018: result_rec.fResGeoCounty,
3019: result_rec.fResGeoCity);
3020:
3021: EXCEPTION
3048: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call API to find out whether there is another '||
3049: 'record or not. If there is, then raise error later.' );
3050: END IF;
3051:
3052: retval := ZX_TAX_VERTEX_GEO.GeoRetrieveNext(search_rec, result_rec);
3053:
3054: EXCEPTION
3055: WHEN OTHERS THEN
3056: IF (g_level_exception >= g_current_runtime_level ) THEN