[Home] [Help]
1: PACKAGE BODY WSH_MAP_LOCATION_REGION_PKG AS
2: /* $Header: WSHMLORB.pls 120.16.12010000.2 2008/08/04 12:31:42 suppal 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;
2101: l_proc_name := 'Process_Locations';
2102: raise e_loc;
2103: END IF;
2104:
2105: WSH_MAP_LOCATION_REGION_PKG.Mapping_Regions_Main(
2106: p_location_type => 'EXTERNAL'
2107: , p_from_location => p_location_id
2108: , p_to_location => p_location_id
2109: , p_start_date => NULL
2122: WSH_DEBUG_SV.pop(l_module_name);
2123: END IF;
2124: return 'SUCCESS';
2125: ELSE
2126: l_pkg_name := 'WSH_MAP_LOCATION_REGION_PKG';
2127: l_proc_name := 'Mapping_Regions_Main';
2128: raise e_loc;
2129: /*
2130: IF l_debug_on THEN
2374: END IF;
2375: END IF;
2376:
2377: /*
2378: WSH_MAP_LOCATION_REGION_PKG.Map_Locations_Child_Program (
2379: p_errbuf => l_errbuf,
2380: p_retcode => l_retcode,
2381: p_location_type => l_location_source_type,
2382: p_map_regions => l_map_regions,
3052: --
3053: EXCEPTION
3054: WHEN OTHERS THEN
3055: IF l_debug_on THEN
3056: WSH_DEBUG_SV.log(l_module_name,'Exception occurred in WSH_MAP_LOCATION_REGION_PKG');
3057: WSH_DEBUG_SV.log(l_module_name,'SQLCODE: ',sqlcode);
3058: WSH_DEBUG_SV.log(l_module_name,'SQLERRM: ',SUBSTR(SQLERRM,1,200));
3059: WSH_DEBUG_SV.pop(l_module_name);
3060: END IF;
3249:
3250: END PREDEL_LOC_VALIDATION;
3251:
3252:
3253: END WSH_MAP_LOCATION_REGION_PKG;
3254: