[Home] [Help]
1: PACKAGE BODY WSH_MAP_LOCATION_REGION_PKG AS
2: /* $Header: WSHMLORB.pls 120.16.12010000.3 2009/04/01 08:37:06 ueshanka ship $ */
3:
4: /*===========================================================================+
5: | PROCEDURE |
11: | value of parameter p_num_of_instances |
12: | |
13: +===========================================================================*/
14:
15: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_MAP_LOCATION_REGION_PKG';
16:
17: -- Bug 4722963
18: -- Tables to be used for bulk operations on WSH_REGION_LOCATIONS in APIs, insert_records/ update_records / delete_records
19: l_location_id_tab TableNumbers;
2117: l_proc_name := 'Process_Locations';
2118: raise e_loc;
2119: END IF;
2120:
2121: WSH_MAP_LOCATION_REGION_PKG.Mapping_Regions_Main(
2122: p_location_type => 'EXTERNAL'
2123: , p_from_location => p_location_id
2124: , p_to_location => p_location_id
2125: , p_start_date => NULL
2138: WSH_DEBUG_SV.pop(l_module_name);
2139: END IF;
2140: return 'SUCCESS';
2141: ELSE
2142: l_pkg_name := 'WSH_MAP_LOCATION_REGION_PKG';
2143: l_proc_name := 'Mapping_Regions_Main';
2144: raise e_loc;
2145: /*
2146: IF l_debug_on THEN
2390: END IF;
2391: END IF;
2392:
2393: /*
2394: WSH_MAP_LOCATION_REGION_PKG.Map_Locations_Child_Program (
2395: p_errbuf => l_errbuf,
2396: p_retcode => l_retcode,
2397: p_location_type => l_location_source_type,
2398: p_map_regions => l_map_regions,
3068: --
3069: EXCEPTION
3070: WHEN OTHERS THEN
3071: IF l_debug_on THEN
3072: WSH_DEBUG_SV.log(l_module_name,'Exception occurred in WSH_MAP_LOCATION_REGION_PKG');
3073: WSH_DEBUG_SV.log(l_module_name,'SQLCODE: ',sqlcode);
3074: WSH_DEBUG_SV.log(l_module_name,'SQLERRM: ',SUBSTR(SQLERRM,1,200));
3075: WSH_DEBUG_SV.pop(l_module_name);
3076: END IF;
3265:
3266: END PREDEL_LOC_VALIDATION;
3267:
3268:
3269: END WSH_MAP_LOCATION_REGION_PKG;
3270: